#!/usr/bin/perl

use DBI;
use POSIX;
use Time::HiRes;
use JSON;
use Config::Tiny;
use Data::Dumper;
use Cwd;
use URI;
use WWW::Curl::Easy;
use Data::Dumper;
use Dinstar;

my $sendCode = sendSms( "10.0.66.104", "321", "num", 23, "admin:pepito20", 2 );
#           print( Dumper( $sendCode ) );
my $errCode = $sendCode->{error_code};
if( $errCode == 202 ) {
   my $smsInQueue = $sendCode["sms_in_queue"];
   printf( "ANI Message sended\n" );
}
else {
   printf( "ANI Message error %d\n", $errCode );
}