asterisk users - Jul 2010 - agi macro problem

I am trying this approach to see who picked the line:

Here is what i am doing:

 

EXEC DIAL SIP/ vaso &Zap/35||M(testing^30086)

 

Macro:

 

[macro-testing]

exten => s,1,DumpChan()

exten => s,2,AGI(whopicked.rb)

exten => s,3,Hangup()

In theory this snippet will do the trick

Save as updatech.pl

#!/usr/local/bin/perl -w

$ENV{PATH} = '/usr/sbin:/:/usr/bin:/usr/local/apache/bin'; # reasonable
path

$ENV{ENV} = "/etc/bash.bachrc";

use strict;

use warnings;

use File::Find;

use DBI;

use Date::Calc qw(:all);

use Asterisk::AGI;

 

$|=1;

my $agi = Asterisk::AGI->new();

my %input = $agi->ReadParse();

 

my ($chanval) = @ARGV;

my $agi_channel = $input{'agi-channel'};

 

## db vars

my $data_source = "dbi:Pg:dbname=Asterisk";

my $username = "root";

my $auth = "xxx";

#

##---------- connect to the db --------------

##establish the DBI connection with transaction processing

my $dbh = DBI->connect($data_source, $username, $auth, {

   AutoCommit => 0,

   RaiseError => 1,

   } ) or die "Can't connect to database: ", $DBI::errstr,
"\n";

 

 

# read the password file to get account type

my $upd_sh = $dbh->prepare( "UPDATE call_log SET local='CHANNEL'
WHERE
id='$chanval' AND channel='$agi_channel'");

$upd_sh->execute();

$dbh->commit();

 

$dbh->rollback();

exit;

 

and change line 2 of the macro to exten => s,2,AGI(updatech.pl,$ARG1)

 

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

On Fri, 30 Jul 2010, Zarko Zivanovic wrote:
> I need simple whopicked.agi (instead of .rb) which will simply take the 
> value 30086 (that I pass to macro)
While ".rb" suggests a "Ruby source file," ".agi"
suggests nothing.
> This should be simple ? no ruby? - just agi.
You are confusing a language with a protocol. An AGI is a program that 
complies with the AGI protocol. It can be written in any language that 
reads from stdin and writes to stdout. I don't know of any language that 
fails this requirement.

Ruby is not a popular language for writing AGIs, at least on this list. 
Most AGI compliant programs are written in Perl, PHP, c, or shell.

-- 
Thanks in advance,
-------------------------------------------------------------------------
Steve Edwards       sedwards at sedwards.com      Voice: +1-760-468-3867 PST
Newline                                              Fax: +1-760-731-3000