kill the line breaks?
On Sun, 6 Feb 2005, taf taffey wrote:
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 [email protected] http://lists.digium.com/mailman/listinfo/asterisk-users To UNSUBSCRIBE or update options visit: http://lists.digium.com/mailman/listinfo/asterisk-users
_______________________________________________ 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
