summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-18 19:44:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-18 19:44:51 +0000
commitb8687c171484a2efe5a3449bce38d891e9ca9d85 (patch)
tree984dc2ec44aa742c3db95bb3b01993099c7c626c /perl-install/standalone
parent0b424c7192ae4fd49396e1a5aee8735ba99941b9 (diff)
downloaddrakx-backup-do-not-use-b8687c171484a2efe5a3449bce38d891e9ca9d85.tar
drakx-backup-do-not-use-b8687c171484a2efe5a3449bce38d891e9ca9d85.tar.gz
drakx-backup-do-not-use-b8687c171484a2efe5a3449bce38d891e9ca9d85.tar.bz2
drakx-backup-do-not-use-b8687c171484a2efe5a3449bce38d891e9ca9d85.tar.xz
drakx-backup-do-not-use-b8687c171484a2efe5a3449bce38d891e9ca9d85.zip
- handle --kde_lang with optionally --kde_country
- handle --apply
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/localedrake12
1 files changed, 9 insertions, 3 deletions
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";