#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);

use standalone;     #- warning, standalone must be loaded very first, for 'explanations'

use interactive;
use common;
use lang;
use any;

my ($lang, $country);

foreach (@ARGV) {
    $lang = $1 if /--lang=(.*)/;
    $country = uc($1) if /--country=(.*)/;
}

my $locale = lang::read($>);

$locale->{lang} = $lang;
$locale->{IM} = lang::get_default_im($locale->{lang});
$locale->{country} = $country;

lang::write($locale, $>);
