#!/usr/bin/perl
use DBI;
use POSIX;
use Asterisk::AGI;

$valor = 8;

%MYSQL = (
hostname => "localhost",
username => "root",
password => "xxx",
database => "xxx"
);

my $dbh = DBI->connect("dbi:mysql:$MYSQL{database}:$MYSQL{hostname}","$MYSQL{username}","$MYSQL{password}")or die("No se hiso la conexion!n");
my $get_rows = "SELECT calldate from cdr limit 1";
my $rows_r = $dbh->prepare($get_rows);
$rows_r->execute();

$dbh->disconnect;

my $AGI = new Asterisk::AGI;
$AGI->set_variable("result", $valor);

exten => 0444423117XX,1,AGI(limit_ldi.agi)
exten => 0444423117XX,2,NoOp(${result})
exten => 0444423117XX,3,Set(GLOBAL(Count_Min)=${result})
exten => 0444423117XX,4,GotoIf($[${Count_Min} > 10 ]?203)
exten => 0444423117XX,5,Macro(dialldicve_time|SIP/TRK-4421612608|${EXTEN}|${CONTEXT})
exten => 0444423117XX,203,NoOp(NO HAY SALDO)
exten => 0444423117XX,204,Set(DIALSTATUS=CHANUNAVAIL)

AGI Script limit_ldi.agi completed, returning 0
 -- Executing [0444423117XXX@prodar:2] NoOp("SIP/prodar-171-00000109", "") in new stack
 -- Executing [0444423117XXX@prodar:3] Set("SIP/prodar-171-00000109", "GLOBAL(Count_Min)=") in new stack
 == Setting global variable 'Count_Min' to ''