summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/localedrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/localedrake')
-rw-r--r--perl-install/standalone/localedrake17
1 files changed, 13 insertions, 4 deletions
diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index cc43ee653..2e26aa414 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -8,12 +8,21 @@ use interactive;
use lang;
use any;
-my $in = 'interactive'->vnew('su');
+my $in = 'interactive'->vnew;
-my ($lang, $langs) = lang::read();
+my $file = $> ? "$ENV{HOME}/.i18n" : '/etc/sysconfig/i18n';
+my ($lang, $langs) = lang::read('', $file);
+$langs = '' if $>;
if ($lang = any::selectLanguage($in, $lang, $langs)) {
- lang::write('', $lang);
- lang::write_langs('', $langs);
+ lang::write('', $lang, $file, $>);
+ lang::write_langs('', $langs) if $langs;
+}
+
+if ($>) {
+ if (my $wm = any::running_window_manager()) {
+ $in->ask_warn('', _("Please relog into %s to activate the changes", ucfirst (lc $wm)), 1);
+ any::ask_window_manager_to_logout($wm);
+ }
}
$in->exit(0);