summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/localedrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-29 17:31:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-29 17:31:16 +0000
commit909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7 (patch)
treea663c431f0076f3c03c555663ea8a5f326b367fe /perl-install/standalone/localedrake
parent17675cf6acfe4d3b9e092284484371dc3bdcc7e1 (diff)
downloaddrakx-backup-do-not-use-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.tar
drakx-backup-do-not-use-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.tar.gz
drakx-backup-do-not-use-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.tar.bz2
drakx-backup-do-not-use-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.tar.xz
drakx-backup-do-not-use-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.zip
add localedrake (not tested)
Diffstat (limited to 'perl-install/standalone/localedrake')
-rw-r--r--perl-install/standalone/localedrake17
1 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
new file mode 100644
index 000000000..cc9b68260
--- /dev/null
+++ b/perl-install/standalone/localedrake
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+
+use interactive;
+use lang;
+use any;
+
+my $in = 'interactive'->vnew('su');
+
+my ($lang, $langs) = lang::read();
+if ($lang = any::selectLanguage($in, $lang, $langs)) {
+ lang::write('', $lang);
+ lang::write_langs('', $langs);
+}
+
+$in->exit(0);