From 909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 29 Aug 2001 17:31:16 +0000
Subject: add localedrake (not tested)

---
 perl-install/standalone/localedrake | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 perl-install/standalone/localedrake

(limited to 'perl-install/standalone')

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);
-- 
cgit v1.2.1