← 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 17:10:45 2013
Reported on Tue Oct 15 17:11:59 2013

Filename/usr/share/koha/lib/C4/SMS.pm
StatementsExecuted 14 statements in 467µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11129µs35µsC4::SMS::::BEGIN@35C4::SMS::BEGIN@35
11123µs43µsC4::SMS::::BEGIN@36C4::SMS::BEGIN@36
11117µs20µsC4::SMS::::BEGIN@38C4::SMS::BEGIN@38
11115µs15µsC4::SMS::::BEGIN@42C4::SMS::BEGIN@42
11114µs68µsC4::SMS::::BEGIN@40C4::SMS::BEGIN@40
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
- -
35337µs241µs
# spent 35µs (29+6) within C4::SMS::BEGIN@35 which was called: # once (29µs+6µs) by C4::Letters::BEGIN@30 at line 35
use strict;
# spent 35µs making 1 call to C4::SMS::BEGIN@35 # spent 6µs making 1 call to strict::import
36331µs263µs
# spent 43µs (23+20) within C4::SMS::BEGIN@36 which was called: # once (23µs+20µs) by C4::Letters::BEGIN@30 at line 36
use warnings;
# spent 43µs making 1 call to C4::SMS::BEGIN@36 # spent 20µs making 1 call to warnings::import
37
38334µs223µs
# spent 20µs (17+3) within C4::SMS::BEGIN@38 which was called: # once (17µs+3µs) by C4::Letters::BEGIN@30 at line 38
use C4::Context;
# spent 20µs making 1 call to C4::SMS::BEGIN@38 # spent 3µs making 1 call to C4::Context::import
39
40379µs2122µs
# spent 68µs (14+54) within C4::SMS::BEGIN@40 which was called: # once (14µs+54µs) by C4::Letters::BEGIN@30 at line 40
use vars qw( $VERSION );
# spent 68µs making 1 call to C4::SMS::BEGIN@40 # spent 54µs making 1 call to vars::import
41
42
# spent 15µs within C4::SMS::BEGIN@42 which was called: # once (15µs+0s) by C4::Letters::BEGIN@30 at line 44
BEGIN {
43110µs $VERSION = 3.07.00.049;
441274µs115µs}
# spent 15µ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__