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

(-)a/C4/SMS.pm (-8 / +23 lines)
Lines 36-41 use strict; Link Here
36
use warnings;
36
use warnings;
37
37
38
use C4::Context;
38
use C4::Context;
39
use File::Spec;
39
40
40
use vars qw( $VERSION );
41
use vars qw( $VERSION );
41
42
Lines 74-87 sub send_sms { Link Here
74
    my $driver = exists $params->{'driver'} ? $params->{'driver'} : $self->driver();
75
    my $driver = exists $params->{'driver'} ? $params->{'driver'} : $self->driver();
75
    return unless $driver;
76
    return unless $driver;
76
77
77
    # warn "using driver: $driver to send message to $params->{'destination'}";
78
78
    
79
    my $subpath = $driver;
80
    $subpath =~ s|::|/|;
81
82
    my $conf_file = File::Spec->catfile(
83
        C4::Context->config('installdir'),
84
        'etc', 'sms', 'driver', $subpath
85
    ) . q{.yaml};
86
    my %args;
87
    if ( -f $conf_file ) {
88
        require YAML;
89
        my $conf = YAML::LoadFile( $yaml );
90
        %args = map { q{_} . $_ => $conf->{$_} } keys %$conf;
91
    }
92
79
    # Create a sender
93
    # Create a sender
80
    my $sender = SMS::Send->new( $driver,
94
    my $sender = SMS::Send->new(
81
                                 _login    => C4::Context->preference('SMSSendUsername'),
95
        $driver,
82
                                 _password => C4::Context->preference('SMSSendPassword'),
96
        _login    => C4::Context->preference('SMSSendUsername'),
83
                            );
97
        _password => C4::Context->preference('SMSSendPassword'),
84
    
98
        %args,
99
    );
100
85
    # Send a message
101
    # Send a message
86
    my $sent = $sender->send_sms( to   => $params->{'destination'},
102
    my $sent = $sender->send_sms( to   => $params->{'destination'},
87
                                  text => $params->{'message'},
103
                                  text => $params->{'message'},
88
- 

Return to bug 13029