[Asterisk-Users] First AGI help..

[WipeOut]

I am trying to write my first AGI script..

I cant seem to get it to work.. I am trying PHP in preference (I know 
this is frowned upon) but I can't get it to work with perl either.. I 
guess I just don't understand it correctly..

All I am trying to do is get the script to make a call using "Dial" so 
that I can get an idea of how it works.. My experience is really only in 
PHP based websites so this is a whole new ball game for me..

Thanks for any help.. and any samples (even offlist) would be greatly 
appreciated..

I have setup in extensions.conf like this for testing..

exten => 7000,1,agi(test1.php)
exten => 7001,1,agi(test2.pl)

test1.php script..

<?php
// From Kapjod's sample..
ob_implicit_flush(true);
set_time_limit(0);
$err = fopen("php://stderr","w");
$in = fopen("php://stdin","r");
$out = fopen("php://stdout","w");

//This works..
fputs($out, "Verbose \"Calling phone"\n");
// This doesn't
fputs($out, "exec(Dial(sip/2012)\n");

fclose($in);
fclose($out);
fclose($err);
?>


test2.pl script..

#!/usr/bin/perl
# taken from a sample file..
$|=1;
while(<STDIN>) {
        chomp;
        last unless length($_);
        if (/^agi_(\w+)\:\s+(.*)$/) {
                $AGI{$1} = $2;
        }
}

#This works..
print STDOUT "AGI Environment Dump:\n";
foreach $i (sort keys %AGI) {
        print STDOUT "Verbose \"-- $i = $AGI{$i}\"\n";
}

# This does not start a call..
print STDOUT "exec(Dial(sip/2012)\n)"