← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:02:19 2013

Filename/usr/share/koha/lib/C4/SMS.pm
StatementsExecuted 14 statements in 393µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11119µs24µsC4::SMS::::BEGIN@35C4::SMS::BEGIN@35
11112µs32µsC4::SMS::::BEGIN@36C4::SMS::BEGIN@36
11111µs14µsC4::SMS::::BEGIN@38C4::SMS::BEGIN@38
1119µs34µsC4::SMS::::BEGIN@40C4::SMS::BEGIN@40
1116µs6µsC4::SMS::::BEGIN@42C4::SMS::BEGIN@42
0000s0sC4::SMS::::driverC4::SMS::driver
0000s0sC4::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
1package 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
- -
35329µs228µ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
36339µs252µ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
38333µs216µ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
40336µs259µ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 {
4315µs $VERSION = 3.07.00.049;
441248µs16µ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
- -
58sub 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
- -
97sub driver {
98 my $self = shift;
99
100 # return 'US::SprintPCS';
101 return C4::Context->preference('SMSSendDriver');
102
103}
104
10513µs1;
106
107__END__