Filename	/usr/share/koha/lib/C4/SMS.pm
Statements	Executed 14 statements in 393µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	19µs	24µs	C4::SMS::::BEGIN@35C4::SMS::BEGIN@35
1	1	1	12µs	32µs	C4::SMS::::BEGIN@36C4::SMS::BEGIN@36
1	1	1	11µs	14µs	C4::SMS::::BEGIN@38C4::SMS::BEGIN@38
1	1	1	9µs	34µs	C4::SMS::::BEGIN@40C4::SMS::BEGIN@40
1	1	1	6µs	6µs	C4::SMS::::BEGIN@42C4::SMS::BEGIN@42
0	0	0	0s	0s	C4::SMS::::driverC4::SMS::driver
0	0	0	0s	0s	C4::SMS::::send_smsC4::SMS::send_sms

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
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 under the
8					# terms of the GNU General Public License as published by the Free Software
9					# Foundation; either version 2 of the License, or (at your option) any later
10					# version.
11					#
12					# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13					# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14					# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15					#
16					# You should have received a copy of the GNU General Public License along
17					# with Koha; if not, write to the Free Software Foundation, Inc.,
18					# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20					=head1 NAME
21
- -
35	3	29µs	2	28µs	# spent 24µs (19+4) within C4::SMS::BEGIN@35 which was called: # once (19µs+4µs) by C4::Letters::BEGIN@30 at line 35 use strict; # spent 24µs making 1 call to C4::SMS::BEGIN@35 # spent 4µs making 1 call to strict::import
36	3	39µs	2	52µs	# spent 32µs (12+20) within C4::SMS::BEGIN@36 which was called: # once (12µs+20µs) by C4::Letters::BEGIN@30 at line 36 use warnings; # spent 32µs making 1 call to C4::SMS::BEGIN@36 # spent 20µs making 1 call to warnings::import
37
38	3	33µs	2	16µs	# spent 14µs (11+3) within C4::SMS::BEGIN@38 which was called: # once (11µs+3µs) by C4::Letters::BEGIN@30 at line 38 use C4::Context; # spent 14µs making 1 call to C4::SMS::BEGIN@38 # spent 2µs making 1 call to C4::Context::import
39
40	3	36µs	2	59µs	# spent 34µs (9+25) within C4::SMS::BEGIN@40 which was called: # once (9µs+25µs) by C4::Letters::BEGIN@30 at line 40 use vars qw( $VERSION ); # spent 34µs making 1 call to C4::SMS::BEGIN@40 # spent 25µs making 1 call to vars::import
41
42					# spent 6µs within C4::SMS::BEGIN@42 which was called: # once (6µs+0s) by C4::Letters::BEGIN@30 at line 44 BEGIN {
43	1	5µs			$VERSION = 3.07.00.049;
44	1	248µs	1	6µs	} # spent 6µs making 1 call to C4::SMS::BEGIN@42
45
46					=head1 METHODS
47
- -
50					# The previous implmentation used username and password.
51					# our $user = C4::Context->config('smsuser');
52					# our $pwd = C4::Context->config('smspass');
53
54					=head2 send_sms
55
- -
58					sub send_sms {
59					my $self = shift;
60					my $params= shift;
61
62					foreach my $required_parameter ( qw( message destination ) ) {
63					# Should I warn in some way?
64					return unless defined $params->{ $required_parameter };
65					}
66
67					eval { require SMS::Send; };
68					if ( $@ ) {
69					# we apparently don't have SMS::Send. Return a failure.
70					return;
71					}
72
73					# This allows the user to override the driver. See SMS::Send::Test
74					my $driver = exists $params->{'driver'} ? $params->{'driver'} : $self->driver();
75					return unless $driver;
76
77					# warn "using driver: $driver to send message to $params->{'destination'}";
78
79					# Create a sender
80					my $sender = SMS::Send->new( $driver,
81					_login => C4::Context->preference('SMSSendUsername'),
82					_password => C4::Context->preference('SMSSendPassword'),
83					);
84
85					# Send a message
86					my $sent = $sender->send_sms( to => $params->{'destination'},
87					text => $params->{'message'},
88					);
89					# warn 'failure' unless $sent;
90					return $sent;
91					}
92
93					=head2 driver
94
- -
97					sub driver {
98					my $self = shift;
99
100					# return 'US::SprintPCS';
101					return C4::Context->preference('SMSSendDriver');
102
103					}
104
105	1	3µs			1;
106
107					__END__