サンプル：言語設定を切り替えるAGIスクリプト

2012年 8月 3日, 16:18からのバージョン

...

#!/usr/bin/perl
use strict;
use Asterisk::AGI;

$|=1;

# Setup some variables
my %AGI; my $tests = 0; my $fail = 0; my $pass = 0;
my $astagi = new Asterisk::AGI;

while(<stdin>) {
	chomp;
	last unless length($_);
	if (/^agi_(\w+)\:\s+(.*)$/) {
		$AGI{$1} = $2;
	}
}
#$astagi->say_alpha($AGI{'callerid'});

#while( (my $name, my $value) = each %AGI ){
#    $astagi->verbose("$name, $AGI{$name}");
#}

#
# Language Settings
#
$astagi->set_variable("CHANNEL(language)","ja");

現在の版

...