Stuff

stack
    -- Launched AGI Script /opt/scripts/agi.pl
AGI Tx >> agi_request: /opt/scripts/agi.pl
AGI Tx >> agi_channel: OSS/dsp
AGI Tx >> agi_language: en
AGI Tx >> agi_type: Console
AGI Tx >> agi_uniqueid: 1202597256.2363
AGI Tx >> agi_callerid: unknown
AGI Tx >> agi_calleridname: unknown
AGI Tx >> agi_callingpres: 0
AGI Tx >> agi_callingani2: 0
AGI Tx >> agi_callington: 0
AGI Tx >> agi_callingtns: 0
AGI Tx >> agi_dnid: 1234
AGI Tx >> agi_rdnis: unknown
AGI Tx >> agi_context: agitest
AGI Tx >> agi_extension: 1234
AGI Tx >> agi_priority: 3
AGI Tx >> agi_enhanced: 0.0
AGI Tx >> agi_accountcode:
AGI Tx >> *CLI>
sls-eb10p8*CLI> hangup

agi.pl
#!/usr/bin/perl
while(<STDIN>){
chomp($_);
last if length($_) == 0;
}
print "GET VARIABLE myvar\n";
$result = <STDIN>;
chomp($result);
if($result =~ m/(?<=result=[0-1]\s\()[^)]*/){
print $1 . "\n";

} else { print "No Match\n"; }