From 4a92ef9d28a3b4241186678c3fa3b4ebd365809d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 7 Jan 2000 07:26:05 +0000 Subject: no_comment --- perl-install/install_steps.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index e6fac8319..5f2c4bddd 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -273,10 +273,19 @@ sub afterInstallPackages($) { log::l("updating kde icons according to available devices"); install_any::kdeicons_postinstall($o->{prefix}); - substInFile { s/^(GreetString)=.*/$1=Welcome to [HOSTNAME]/ } "$o->{prefix}/usr/share/config/kdmrc"; + my $welcome = _("Welcome to %s", "[HOSTNAME]"); + substInFile { s/^(GreetString)=.*/$1=$welcome/ } "$o->{prefix}/usr/share/config/kdmrc"; substInFile { s/^(UserView)=false/$1=true/ } "$o->{prefix}/usr/share/config/kdmrc" if $o->{security} < 3; run_program::rooted($o->{prefix}, "kdeDesktopCleanup"); + #- konsole and gnome-terminal are lamers in exotic languages, link them to something better + if ($o->{lang} =~ /ja|ko|zh/) { + foreach ("konsole", "gnome-terminal") { + my $f = "$o->{prefix}/usr/bin/$_"; + symlinkf("X11/rxvt.sh", $f) if -e $f; + } + } + foreach (install_any::list_skels()) { my $found; substInFile { -- cgit v1.2.1