[asterisk-users] Perl AGI

[Danny Nicholas]

This is at least correct on my setup

 

$dest = $input{dnid}

 

  _____  

From: asterisk-users-bounces at lists.digium.com
[mailto:asterisk-users-bounces at lists.digium.com] On Behalf Of michel freiha
Sent: Wednesday, April 08, 2009 4:28 PM
To: Asterisk Users Mailing List - Non-Commercial Discussion
Subject: [asterisk-users] Perl AGI

 

Hi all,

I have the below peace of my AGI script...the problem here is that I cannot
fetch the extension value to inside the script and assign it to another
variable...I highlighted it in red

#!/usr/bin/perl
#use DBD::mysql;
use DBI;
use DBD::mysql;
use Asterisk::AGI;

############################
#To read asterisk variable values.

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

$AGI->verbose("AGI Environment Dump:", 3);
my $micho = $input{9};
$AGI->verbose("my dialed no is :$micho");
foreach my $i (sort keys %input) {
        $AGI->verbose(" -- $i = $input{$i}", 3);
}


##################
#To get the asterisk dial no whihc is 112 in our case
my $no=$AGI->get_variable ('extnum');
my $dest=$AGI->get_variable ('extension');
$AGI->verbose("my dialed no is :$no");
$AGI->verbose("my dialed no is :$dest");

When the script run I got: dial.pl: my dialed no is :

Can you please help me to fix this issue?

Regards



-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.digium.com/pipermail/asterisk-users/attachments/20090408/a9064f08/attachment.htm