[Chicago-talk] transl. php to perl?

Richard Reina richard at rushlogistics.com
Tue Mar 29 08:47:54 PST 2005


I think I'm getting a little closer.  I installed the
AGI perl library then put the following script in a
file called /var/lib/asterisk/agi-bin/send_clid.agi,
updated my [incoming] context with exten =>
s,1,AGI(send_clid.agi) and did a reload.

use Asterisk::AGI;
my $agi = Asterisk::AGI->new();
my %input = $agi->ReadParse();

my $clid = $input{callerid};
my $dnid = $input{dnid};

open(CS, ">call_id_test");
print CS "INCOMING CALL FROM " . $clid . "\n";
print CS $dnid . "\n";
close(CS) || die "can't close\n"; 
system("wall $clid");

The >cli seems to indicate it worked:
Launched agi script
AGI script send_clid.agi completed, returning 0

however I see no output from wall and if I do a cat
call_id_test it's empty.  call_id_test has permission
set to 777.

Any idea what I'm doing wrong?

Thanks, again for all the help thus far.


--- Warren Smith <warren at warrenandrachel.com> wrote:

> In my [incoming] context (where all my zapata calls
> go), this is the
> first thing executed. I.E.
> exten => s,1,AGI(send-clid.agi)
> exten => s,2,Background(greeting)
> ...

More information about the Chicago-talk mailing list