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.
___________________________________________________________
ALL-NEW Yahoo! Messenger - all new features - even more fun!
http://uk.messenger.yahoo.com
_______________________________________________
Asterisk-Users mailing list
Asterisk-Users@lists.digium.com
http://lists.digium.com/mailman/listinfo/asterisk-users
To UNSUBSCRIBE or update options visit:
http://lists.digium.com/mailman/listinfo/asterisk-users
