2
# The wrapper script for KDE (post-install)
4
# exit for now, this functionality exists in base-config.
14
# Get command line options
15
GetOptions("debug" => \$debug);
18
my $lang = $ARGV[0] or die "No language given";
20
# We use methods in common.pl
21
require '/usr/lib/localization-config/common/common.pl';
23
# The path where the scripts are kept
24
my $LIB = '/usr/lib/localization-config';
26
# call init() to initialize the APT config system
29
# Define the version map for kdebase
30
my %vermap = ( '2.2.0-1', => { RELEASE => 'woody' },
31
'2.4.0-1', => { RELEASE => 'sarge' }
37
#if (is_installed($package)) {
38
# Get appropriate release for this package
39
my $release = get_release($package, %vermap);
41
# Execute the corresponding script
42
$script = "$LIB/$release/".$script;
43
print "Running $script $lang\n" if $debug;
44
system ($script, $lang) if -x $script;