Richard Reina wrote:
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 restart now.
use Asterisk::AGI; my $agi = Asterisk::AGI->new(); my %input = $agi->ReadParse();
my $clid = $input{callerid};
my $dnid = $input{dnid};
1st rule with Perl scripts: use strict; 2nd rule: use warnings;
Then.
Are you sure about the capitalization?
I.e. if the variable is ${CALLERID} in asterisk,You should use $agi->get_variable ('CALLERID') I think.open(CS, ">>call_id_test");
You should use an absolute path, i.e.
/tmp/call_id_test
print CS "INCOMING CALL FROM " . $clid . "\n";
print CS $dnid . "\n";
close(CS) || die "can't close\n"; system("wall $clid");
On my system, wall takes input from STDIN. So
open FP, "|wall"; print FP "CLID: $clid"; close FP;
Might work better.
Regards, Jean-Michel.
-- Ykoz Un Max - La VoIP en pr�-pay�! Essayez gratuitement - 5 cr�dits offerts. ---> http://ykoz.net/voip/max <---
_______________________________________________ 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
