C4/SMS.pm

   1 package C4::SMS;
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it under the
   6 # terms of the GNU General Public License as published by the Free Software
   7 # Foundation; either version 2 of the License, or (at your option) any later
   8 # version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License along with
  15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  16 # Suite 330, Boston, MA  02111-1307 USA
  17
  18 =head1 NAME
  19
  20 C4::SMS - send SMS messages
  21
  22 =head1 SYNOPSIS
  23
  24 my $success = C4::SMS->send_sms( message     => 'This is my text message',
  25                                  destination => '212-555-1212' );
  26
  27 =head1 DESCRIPTION
  28
  29
  30
  31 =cut
  32
  33 use strict;
  34 use warnings;
  35
  36 use C4::Context;
  37
  38 use vars qw( $VERSION );
  39
  40 BEGIN {
  41     $VERSION = 0.03;
  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     # Create a sender
  78     my $sender = SMS::Send->new( $driver,
  79                                  _login    => C4::Context->preference('SMSSendUsername'),
  80                                  _password => C4::Context->preference('SMSSendPassword'),
  81                             );
  82
  83     # Send a message
  84     my $sent = $sender->send_sms( to   => $params->{'destination'},
  85                                   text => $params->{'message'},
  86                              );
  87     # warn 'failure' unless $sent;
  88     return $sent;
  89 }
  90
  91 =head2 driver
  92
  93 =cut
  94
  95 sub driver {
  96     my $self = shift;
  97
  98     # return 'US::SprintPCS';
  99     return C4::Context->preference('SMSSendDriver');
 100
 101 }
 102
 103 1;
 104
 105 __END__
 106