gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

SMS.pm - BEGIN block VERSION and vars related to export. 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joe Atzberger 2008-01-07 13:53:11 -06:00 committed by Joshua Ferraro
parent 199daed4ed
commit 381bc1845e
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
C4/SMS.pm
View File

@ -2,30 +2,30 @@ package C4::SMS;
#Written by tgarip@neu.edu.tr for SMS message sending and other SMS related services
use strict;
require Exporter;
use LWP::UserAgent;
use C4::Context;
use vars qw($VERSION @ISA @EXPORT);
$VERSION = 0.01;
my $user=C4::Context->config('smsuser');
my $pwd=C4::Context->config('smspass');
my $uri ="https://spgw.kktcell.com/smshttpproxy/SmsHttpProxyServlet";
@ISA = qw(Exporter);
@EXPORT = qw(
&get_sms_auth
&send_sms
&read_sms
&error_codes
&parse_phone
&parse_message
&write_sms
&mod_sms
&kill_sms
);
BEGIN {
require Exporter;
@ISA = qw(Exporter);
$VERSION = 0.02;
@EXPORT = qw(
&get_sms_auth
&send_sms
&read_sms
&error_codes
&parse_phone
&parse_message
&write_sms
&mod_sms
&kill_sms
);
}
sub get_sms_auth {
my $ua = LWP::UserAgent->new;
@ -146,4 +146,4 @@ my $session=shift;
my $res=$ua->post($uri,[cmd=>'KILLSESSION',pSessionId=>$session]);
}
1;
__END__
__END__