Displaying 1 result from an estimated 1 matches for "mgrsecret".
2005 Feb 06
2
Need help with perl script/agi for ringback
Hi,
I'm trying to write a simple perl script that will run
the following:
Action: Originate
Channel: local/xxx@callback/r/n
Exten: 1234
Context: callback
Priority: 1
Extensions.conf
exten => 500,1,agi,callback.pl
callback perl script:
use Net::Telnet ();
$mgrUSERNAME='fred';
$mgrSECRET='bloggs';
$server_ip='127.0.0.1';
$tn->print("Action: originate\nExten: 1234\nContext:
user\nChannel: local/xxx@user/r/n\nPriority:
1\nCallerid: 1234\n\n");
$tn->waitfor('/Event: Newchannel.*/') or die "Unable
to determine call status", $tn->...