regress/base/find_preferred_languages.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

#!/usr/bin/env perl
#
# $FML$
#

use FML::Process::Kernel;
use FML::Process::Debug;
my $curproc = new FML::Process::Debug;

$FML::Process::Kernel::debug = 1;

$pref_order = [ 'ja', 'en' ];
TOP();

$pref_order = [ 'en', 'ja' ];
TOP();

$pref_order = [ 'en' ];
TOP();

exit 0;


sub TOP
{
    for $mime_lang ('ja', 'en', '') {

	$acpt_lang_list = [ ];
	JUDGE();

	next;

	$acpt_lang_list = [ 'ja', 'en' ];
	JUDGE();

	$acpt_lang_list = [ 'en', 'ja' ];
	JUDGE();
    }
}


sub JUDGE
{
    &FML::Process::Kernel::__find_preferred_languages($curproc,
						      $pref_order,
						      $acpt_lang_list, 
						      $mime_lang);
}