taf taffey a �crit :
Hi,
I'm trying to write a simple perl script that will run
the following:
Action: Originate
Channel: local/[EMAIL PROTECTED]/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/[EMAIL PROTECTED]/r/n\nPriority:
1\nCallerid: 1234\n\n");
$tn->waitfor('/Event: Newchannel.*/') or die "Unable
to determine call status", $tn->lastline;
# wait for asterisk to process
$tn->print("Action: Logoff\n\n");
I'm not a programmer (as u can probably tell) so any
pointers would be much appreciated.
Cheers,
Taff.
You should take a look at the perl modules from
http://asterisk.gnuinter.net/
Thanks,
Jean-Denis
_______________________________________________
Asterisk-Users mailing list
[email protected]
http://lists.digium.com/mailman/listinfo/asterisk-users
To UNSUBSCRIBE or update options visit:
http://lists.digium.com/mailman/listinfo/asterisk-users
