2
# The wrapper script for ltsp (post-install)
10
# Get command line options
11
GetOptions("debug" => \$debug);
13
# We use methods in common.pl
14
require '/usr/lib/localization-config/common/common.pl';
16
# The path where the scripts are kept
17
my $LIB = '/usr/lib/localization-config';
19
# call init() to initialize the APT config system
22
# Define the version map for ltsp
23
my %vermap = ( '3.0.5-0', => { RELEASE => 'woody' },
28
my $script = "ltsp-xfree86-kbd";
29
my $package = "ltsp-core-i386";
31
if (is_installed($package)) {
32
# Get appropriate release for this package
33
my $release = get_release($package, %vermap);
35
# Execute the corresponding script
36
$script = "$LIB/$release/".$script;
37
print "Running $script $lang\n" if $debug;
38
system ($script, $lang) if -x $script;