C4/SMS.pm

   1 package C4::SMS;
   2
   3 # Copyright 2007 Liblime
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20 =head1 NAME
  21
  22 C4::SMS - send SMS messages
  23
  24 =head1 SYNOPSIS
  25
  26 my $success = C4::SMS->send_sms({ message     => 'This is my text message',
  27                                   destination => '212-555-1212' });
  28
  29 =head1 DESCRIPTION
  30
  31
  32
  33 =cut
  34
  35 use strict;
  36 use warnings;
  37
  38 use C4::Context;
  39
  40
  41 BEGIN {
  42 }
  43
  44 =head1 METHODS
  45
  46 =cut
  47
  48 # The previous implmentation used username and password.
  49 # our $user = C4::Context->config('smsuser');
  50 # our $pwd  = C4::Context->config('smspass');
  51
  52 =head2 send_sms
  53
  54 =cut
  55
  56 sub send_sms {
  57     my $self = shift;
  58     my $params= shift;
  59
  60     foreach my $required_parameter ( qw( message destination ) ) {
  61         # Should I warn in some way?
  62         return unless defined $params->{ $required_parameter };
  63     }
  64
  65     eval { require SMS::Send; };
  66     if ( $@ ) {
  67         # we apparently don't have SMS::Send. Return a failure.
  68         return;
  69     }
  70
  71     # This allows the user to override the driver. See SMS::Send::Test
  72     my $driver = exists $params->{'driver'} ? $params->{'driver'} : $self->driver();
  73     return unless $driver;
  74
  75     # warn "using driver: $driver to send message to $params->{'destination'}";
  76
  77     my ($sent, $sender);
  78     eval {
  79         # Create a sender
  80         $sender = SMS::Send->new( $driver,
  81                                  _login    => C4::Context->preference('SMSSendUsername'),
  82                                  _password => C4::Context->preference('SMSSendPassword'),
  83                             );
  84
  85         # Send a message
  86         $sent = $sender->send_sms( to   => $params->{'destination'},
  87                                   text => $params->{'message'},
  88                              );
  89     };
  90     #We might die because SMS::Send $driver is not defined or the sms-number has a bad format
  91     #Catch those errors and fail the sms-sending gracefully.
  92     if ($@) {
  93         warn $@;
  94         return;
  95     }
  96     # warn 'failure' unless $sent;
  97     return $sent;
  98 }
  99
 100 =head2 driver
 101
 102 =cut
 103
 104 sub driver {
 105     my $self = shift;
 106
 107     # return 'US::SprintPCS';
 108     return C4::Context->preference('SMSSendDriver');
 109
 110 }
 111
 112 1;
 113
 114 __END__
 115