2
# The wrapper script for links (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 links
23
my %vermap = ( '0.96.20020409-2', => { RELEASE => 'woody' },
24
'0.99-1', => { RELEASE => 'sarge' }
31
my $package = "links";
33
if (is_installed($package)) {
34
# Get appropriate release for this package
35
my $release = get_release($package, %vermap);
37
# Execute the corresponding script
38
$script = "$LIB/$release/".$script;
39
print "Running $script $lang\n" if $debug;
40
system ($script, $lang) if -x $script;