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

[Jean-Denis Girard]

taf taffey a écrit :
> 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.
> 

You should take a look at the perl modules from
http://asterisk.gnuinter.net/


Thanks,
Jean-Denis