From b8687c171484a2efe5a3449bce38d891e9ca9d85 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 18 Feb 2002 19:44:51 +0000 Subject: - handle --kde_lang with optionally --kde_country - handle --apply --- perl-install/standalone/localedrake | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake index ea40a99d0..b71f4cff7 100644 --- a/perl-install/standalone/localedrake +++ b/perl-install/standalone/localedrake @@ -8,10 +8,16 @@ use interactive; use lang; use any; +my ($klang, $country, $apply); -if ($ARGV[0] =~ /--kde_country=(.*)/) { - my $lang = lang::country2lang($1); - lang::write('', $lang, $>); +foreach (@ARGV) { + $apply = /--apply/; + $klang = $1 if /--kde_lang=(.*)/; + $country = $1 if /--kde_country=(.*)/; +} +if ($klang) { + my $lang = lang::kde_lang_country2lang($klang, $country); + lang::write('', $lang, $>) if $apply; #- help KDE defaulting to the right charset print lang::charset2kde_charset(lang::lang2charset($lang)), "\n"; -- cgit v1.2.1