#!/usr/bin/perl

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

use common;
use do_pkgs;
use lang;
use keyboard;

my $do_pkgs = do_pkgs::do_pkgs;

my $locale = lang::read();
my ($lang) = cat_("/proc/cmdline") =~ /\blang=(\w+?)\b/;
my $h = lang::lang_to_ourlocale($lang);
if ($lang && member($h->{lang}, lang::list_langs(exclude_non_installed => 1))) {
    put_in_hash($locale, $h);
    lang::set($locale);
}
lang::write_and_install($locale, $do_pkgs);

my $keyboard = $locale ? keyboard::lang2keyboard($locale->{lang}) : keyboard::read_or_default();
my ($kbd) = cat_("/proc/cmdline") =~ /\bkbd=(\w+?)\b/;
$keyboard->{KEYBOARD} = $kbd if $kbd;
keyboard::configure_and_set_standalone($keyboard);