#!/usr/bin/perl
# The wrapper script for fontconfig (post-install)

use strict;
use warnings;
use Getopt::Long;

# We use methods in common.pl
require '/usr/lib/localization-config/common/common.pl';
require '/usr/lib/localization-config/common/log.pl';

# The path where the scripts are kept
my $LIB = '/usr/lib/localization-config';

# call init() to initialize the APT config system
init();

# Define the version map for fontconfig (exists only in testing/sarge
my %vermap = ( '2.2.3-1',                  => { RELEASE => 'sarge' }
              );

# Get lang entry
my $lang = $ARGV[0] or log_die("$0: No language given");

my $script = "fontconfig";
my $package = "fontconfig";

if (is_installed($package)) {
    # Get appropriate release for this package
    my $release = get_release($package, %vermap);

    # Execute the corresponding script
    $script = "$LIB/$release/".$script;
    log_msg("$0: Running $script $lang");
    system ($script, $lang) if -x $script;
}

1;
