[Asterisk-Users] Need help with perl script/agi for ringback

[taf taffey]

Hi,
I'm trying to write a simple perl script that will run
the following:

Action: Originate
Channel: local/xxx at 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 at user/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