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

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

  • You do not have permissions to view this page - please try logging in.
目次
戻すには、あなたは現在の版とアーカイブから選んだ戻したい版を比較しなければなりません。

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

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