7 no if $] >= 5.018, warnings => "experimental::smartmatch";
14 use URI::Escape qw(uri_escape);
15 use HTTP::Request::Common;
18 use DBD::Pg qw(:pg_types);
21 use lib "$FindBin::Bin/../lib";
24 my $dbh = ND::DB::DB();
26 my $ua = LWP::UserAgent->new(agent => 'NDWebbie' );
28 my $click = $dbh->selectrow_hashref(q{
29 SELECT api_id,username,password FROM clickatell LIMIT 1
33 api_id => $click->{api_id},
34 user => $click->{username},
35 password => $click->{password},
39 my $update = $dbh->prepare(q{
40 UPDATE clickatell SET credits = $1
43 my $res = $ua->request(
44 POST 'http://api.clickatell.com/http/getbalance',
45 Content_Type => 'application/x-www-form-urlencoded',
49 given ($res->content){
50 when(/^Credit: (\d+\.\d\d)/){