ログイン名 Logged in as: ログイン
検索:
このページは編集できません。

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

    目次
    戻すには、あなたは現在の版とアーカイブから選んだ戻したい版を比較しなければなりません。

    対象としたリビジョンの比較

    Shunro によって 2012年 8月 3日, 16:13 に変更された版を Shunro によって 2012年 8月 3日, 16:15 に変更された の版と比較。
    
#!/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(<stdinSTDIN>) {
	    
	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");


</stdin>

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

    Shunro(禁止)で変更されたリビジョン
    #!/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");

    2012年 8月 3日, 16:15 現在の版

    Shunro(禁止)で変更されたリビジョン
    #!/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");

</stdin>

    Powered by MindTouch Core