diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-18 19:44:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-18 19:44:51 +0000 |
| commit | b8687c171484a2efe5a3449bce38d891e9ca9d85 (patch) | |
| tree | 984dc2ec44aa742c3db95bb3b01993099c7c626c /perl-install/standalone/localedrake | |
| parent | 0b424c7192ae4fd49396e1a5aee8735ba99941b9 (diff) | |
| download | drakx-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/localedrake')
| -rw-r--r-- | perl-install/standalone/localedrake | 12 |
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"; |