2
# The wrapper script for locales (post-install)
3
# Note: for sarge, locale configuration is done from the
4
# debian-installer at installation. so the sarge/locale
13
# Get command line options
14
GetOptions("debug" => \$debug);
16
# We use methods in common.pl
17
require '/usr/lib/localization-config/common/common.pl';
19
# The path where the scripts are kept
20
my $LIB = '/usr/lib/localization-config';
22
# call init() to initialize the APT config system
25
# Define the version map for locales
26
my %vermap = ( '2.2.5-11.5', => { RELEASE => 'woody' },
27
'2.3.0-1', => { RELEASE => 'sarge' }
33
my $script = "locale";
34
my $package = "locales";
36
if (is_installed($package)) {
37
# Get appropriate release for this package
38
my $release = get_release($package, %vermap);
40
# Execute the corresponding script
41
$script = "$LIB/$release/".$script;
42
print "Running $script $lang\n" if $debug;
43
system ($script, $lang) if -x $script;