[Asterisk-Users] Re: Asterisk Question

[pdhales at optusnet.com.au]

Thanks to everyone who helped me with this!

I will post my code next week (when I am back at the workplace where I did
this)

later,

PaulH

----- Original Message ----- 
From: "Paul Hales" <pdhales at optusnet.com.au>
To: "Asterisk Users Mailing List - Non-Commercial Discussion"
<asterisk-users at lists.digium.com>
Sent: Wednesday, March 01, 2006 4:36 PM
Subject: Re: [Asterisk-Users] Re: Asterisk Question


>
> Perfection!
>
> PaulH
>
> On Tue, 2006-02-28 at 22:24 -0700, Darren Wiebe wrote:
> > my ( $var1, $var2, $var3 ) =
> >   @ARGV;
> >
> > and so on and so forth.
> >
> > Good Luck
> >
> > Darren Wiebe
> > darren at aleph-com.net
> >
> > Paul Hales wrote:
> >
> > >Thanks for this example - it has really got me started!
> > >
> > >Short question - how can I put a variable into my perl script?
> > >
> > >I imagine it's something like
> > >exten => 780,1,AGI(agi_ret_val2.pl|${back})
> > >
> > >But how can I get my perl script to pick this value up?
> > >
> > >Again - thanks to everyone who has helped me with this.
> > >
> > >later,
> > >
> > >PaulH
> > >
> > >On Tue, 2006-02-28 at 11:25 -0800, Michael Collins wrote:
> > >
> > >
> > >>>-----Original Message-----
> > >>>From: asterisk-users-bounces at lists.digium.com [mailto:asterisk-users-
> > >>>bounces at lists.digium.com] On Behalf Of pdhales at optusnet.com.au
> > >>>Sent: Monday, February 27, 2006 7:53 PM
> > >>>To: Asterisk Users Mailing List - Non-Commercial Discussion
> > >>>Subject: Re: [Asterisk-Users] Re: Asterisk Question
> > >>>
> > >>>
> > >>>I was going to see if I can execute a bash script as an AGI - just
> > >>>
> > >>>
> > >>looking
> > >>
> > >>
> > >>>around the internet for examples at the moment.
> > >>>Anybody got an example spare?
> > >>>I'm just a bit stuck on how to start this, but I am quite comfortable
> > >>>writing asterisk dialplan stuff and bash scripts....
> > >>>
> > >>>later,
> > >>>
> > >>>PaulH
> > >>>
> > >>>
> > >>>
> > >>Paul,
> > >>
> > >>I'm a Perl guy myself.  Here's a simple dialplan extension and AGI
> > >>script written in Perl and using the very cool Asterisk::AGI module:
> > >>
> > >>; AGI test
> > >>exten => 555,1,Noop(Starting AGI test)
> > >>exten => 555,n,Answer
> > >>exten => 555,n,Wait(1)
> > >>exten => 555,n,Playback(beep)
> > >>exten => 555,n,AGI(agi_var_test.pl)
> > >>exten => 555,n,SayDigits(${EXTERN_VAR})
> > >>exten => 555,n,Wait(1)
> > >>exten => 555,n,Playback(beep)
> > >>exten => 555,n,Hangup
> > >>
> > >>
> > >>Here's the Perl script:
> > >>
> > >>#!/usr/bin/perl
> > >>#
> > >># agi_var_test.pl
> > >>#
> > >># Reads in info from file /etc/group
> > >># assigns asterisk GID to Asterisk variable EXTERN_VAR
> > >>#
> > >>use strict;
> > >>use warnings;
> > >>use Asterisk::AGI;
> > >>
> > >># the AGI object
> > >>my $agi = new Asterisk::AGI;
> > >>
> > >># pull AGI variables into %input
> > >>my %input = $agi->ReadParse();
> > >>
> > >>my $infile = '/etc/group';
> > >>open(FILEIN,"<",$infile) or die "$infile - $!\n";
> > >>while(<FILEIN>) {
> > >>    chomp;
> > >>    next unless m/^asterisk/;
> > >>    my @REC = split ":",$_;
> > >>    print STDERR "agi_var_test.pl: Setting EXTERN_VAR to $REC[2]\n";
> > >>    $agi->set_variable("EXTERN_VAR", $REC[2]);
> > >>    last;
> > >>} # while(<FILEIN>)
> > >>close(FILEIN);
> > >>
> > >>
> > >>Basically the script just parses /etc/group until it finds the
asterisk
> > >>entry.  It then parses the data line and extracts the GID.  Finally,
it
> > >>prints the value to STDERR (for debugging purposes) and then assigns
the
> > >>value to EXTERN_VAR.
> > >>
> > >>This is more a proof-of-concept than anything else, but it does show
the
> > >>value of AGI and Asterisk::AGI.
> > >>
> > >>-MC
> > >>_______________________________________________
> > >>--Bandwidth and Colocation provided by Easynews.com --
> > >>
> > >>Asterisk-Users mailing list
> > >>To UNSUBSCRIBE or update options visit:
> > >>   http://lists.digium.com/mailman/listinfo/asterisk-users
> > >>
> > >>
> > >>
> > >
> > >_______________________________________________
> > >--Bandwidth and Colocation provided by Easynews.com --
> > >
> > >Asterisk-Users mailing list
> > >To UNSUBSCRIBE or update options visit:
> > >   http://lists.digium.com/mailman/listinfo/asterisk-users
> > >
> > >
> >
> >
>
> _______________________________________________
> --Bandwidth and Colocation provided by Easynews.com --
>
> Asterisk-Users mailing list
> To UNSUBSCRIBE or update options visit:
>    http://lists.digium.com/mailman/listinfo/asterisk-users
>