Доброго времени суток , All!
"Здравствуйте уважаемые ученые , у меня в подполе происходит подземный стук. Пожалуйста обьясните как он происходит".

Юзаю Asterisk::AGI под перл ...
#!/usr/bin/perl
use Asterisk::AGI;
$AGI = new Asterisk::AGI;

<поскипано мышами>
$AGI->verbose('Call from caller '.$ARGV[0].' to calling party '.$ARGV[1],1);
$caller=$ARGV[0];#Setting caller address (CID Name for SIP)
$extension=$ARGV[1];#Called party nomber
$AGI->verbose('Starting dial...',1);
$AGI->exec ('DIAL OH323/9999@195.151.203.67:11720');
$iii=$AGI->get_variable('ANSWEREDTIME');
$AGI->verbose('Call stopped....!'.$iii,1);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6
$AGI->hangup;
$AGI->verbose('Hangup',1);
<скипать закончили>
<А вот это в дебаге>
-- Hungup 'OH323/L13669'
AGI Tx >> 200 result=-1
AGI Rx << GET VARIABLE ANSWEREDTIME
AGI Tx >> 200 result=1 (4)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
AGI Rx << VERBOSE "Call stopped....!" 1
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
callcontrol.pl|IP-шлюза|1111: Call stopped....!
AGI Tx >> 200 result=1
AGI Rx << HANGUP
AGI Tx >> 200 result=1
AGI Rx << VERBOSE "Hangup" 1
callcontrol.pl|IP-шлюза|1111: Hangup
AGI Tx >> 200 result=1
<дебажить кончили>

Ничего не пойму , не отдает значение переменной , все стандартно
* 1.0.2 + Asterisk-perl 0.08

Копания в .PL , гугле и мейл-листах ничего не дали (((
Может кто то наступал на грабли ?
Что делать не пойму ... может есть какой нибудь другой путь выловить необходимые переменные .... Кстати таже история и в Asterisk-PHP (((
Подкажите где у меня руки кривые...
Linux voip 2.4.20-8 #1 Thu Mar 13 17:54:28 EST 2003 i686 i686 i386 GNU/Linux
Asterisk 1.0.2
This is perl, v5.8.0 built for i386-linux-thread-multi
[interart@voip for_asterisk]# php -v
4.2.2

Пока All.

У меня та же трабла )))
А может он вообще не умеет вытаскивать EXTEN, CONTEXT, ANSWEREDTIME и т.д. и т.п. ???

Ну а звонок хоть проходит успешно?

P.S. Правильный формат для ЕХЕС есть $agi -> exec('Dial', 'SIP/123'); а не как у тебя. Может что-то тут? У меня работает....

Значение переменной ты получил
"AGI Tx >> 200 result=-1
AGI Rx << GET VARIABLE ANSWEREDTIME
AGI Tx >> 200 result=1 (4) "
вот это - 4 и есть значение переменной "ANSWEREDTIME"
А то что у тебя "AGI Rx << VERBOSE "Call stopped....!" 1 " так ты задал в строке - $AGI->verbose('Call stopped....!'.$iii,1);
попробуй - "$AGI->verbose("Call stopped....! $iii",1); "
получится AGI Rx << VERBOSE "Call Stopped...! 4" 1
callbackin.agi: Call Stopped...! 4