サンプル：言語設定を切り替えるAGIスクリプト
目次
対象としたリビジョンの比較
<pre>このページにはコンテンツがありません。trixbox
#!/usr/bin/perl
use strict;Pro FAQ
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");
</pre>
2012年 8月 3日, 16:01からのバージョン
このページにはコンテンツがありません。trixbox Pro FAQ のコンテンツ充実にご協力ください。
2012年 8月 3日, 16:12 現在の版
<pre>
#!/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");
</pre>