View | Details | Raw Unified | Return to bug 3186
Collapse All | Expand All

(-)a/C4/SMS.pm (-8 / +16 lines)
Lines 75-93 sub send_sms { Link Here
75
    return unless $driver;
75
    return unless $driver;
76
76
77
    # warn "using driver: $driver to send message to $params->{'destination'}";
77
    # warn "using driver: $driver to send message to $params->{'destination'}";
78
    
78
79
    # Create a sender
79
    eval {
80
    my $sender = SMS::Send->new( $driver,
80
        # Create a sender
81
        my $sender = SMS::Send->new( $driver,
81
                                 _login    => C4::Context->preference('SMSSendUsername'),
82
                                 _login    => C4::Context->preference('SMSSendUsername'),
82
                                 _password => C4::Context->preference('SMSSendPassword'),
83
                                 _password => C4::Context->preference('SMSSendPassword'),
83
                            );
84
                            );
84
    
85
    
85
    # Send a message
86
        # Send a message
86
    my $sent = $sender->send_sms( to   => $params->{'destination'},
87
        my $sent = $sender->send_sms( to   => $params->{'destination'},
87
                                  text => $params->{'message'},
88
                                  text => $params->{'message'},
88
                             );
89
                             );
89
    # warn 'failure' unless $sent;
90
90
    return $sent;
91
        # warn 'failure' unless $sent;
92
        return $sent;
93
    };
94
    #We might die because SMS::Send $driver is not defined or the sms-number has a bad format
95
    #Catch those errors and fail the sms-sending gracefully.
96
    if ($@) {
97
        warn $@;
98
        return undef;
99
    }
91
}
100
}
92
101
93
=head2 driver
102
=head2 driver
94
- 

Return to bug 3186