From 9556e59016a10cabffac3a0a4b65b862753a2de8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 26 Nov 2003 09:20:11 +0000
Subject: extract kdeglobals configuration from lang::write() into
 lang::configure_kdeglobals()

---
 perl-install/lang.pm | 65 ++++++++++++++++++++++++++++++----------------------
 1 file changed, 38 insertions(+), 27 deletions(-)

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 01d00a1f9..25b5afad4 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -949,44 +949,19 @@ sub write {
     setVarsInSh($prefix . ($b_user_only ? "$ENV{HOME}/.i18n" : '/etc/sysconfig/i18n'), $h);
 
     eval {
-	my $charset = l2charset($locale->{lang});
-	my $kde_charset = charset2kde_charset($charset);
 	my $confdir = $prefix . ($b_user_only ? "$ENV{HOME}/.kde" : '/usr') . '/share/config';
-	my ($prev_kde_charset) = cat_("$confdir/kdeglobals") =~ /^Charset=(.*)/mi;
 
 	-d $confdir or die 'not configuring kde config files since it is not installed/used';
 
-	update_gnomekderc("$confdir/kdeglobals", Locale => (
-			      Charset => $kde_charset,
-			      Country => lc($locale->{country}),
-			      Language => get_kde_lang($locale),
-			  ));
+	configure_kdeglobals($locale, $confdir);
 
 	my %qt_xim = (zh => 'Over The Spot', ko => 'On The Spot', ja => 'Over The Spot');
 	if ($b_user_only && (my $qt_xim = $qt_xim{substr($locale->{lang}, 0, 2)})) {
 	    update_gnomekderc("$ENV{HOME}/.qt/qtrc", General => (XIMInputStyle => $qt_xim));
 	}
 
-        if ($prev_kde_charset ne $kde_charset) {
-	    update_gnomekderc("$confdir/kdeglobals", WM => (
-	    		      activeFont => charset2kde_font($charset,0),
-	    		  ));
-	    update_gnomekderc("$confdir/kdeglobals", General => (
-	    		      fixed => charset2kde_font($charset, 1),
-	    		      font => charset2kde_font($charset, 0),
-	    		      menuFont => charset2kde_font($charset, 3),
-	    		      taskbarFont => charset2kde_font($charset, 4),
-	    		      toolBarFont => charset2kde_font($charset, 2),
-	    	          ));
-	    update_gnomekderc("$confdir/konquerorrc", FMSettings => (
-	    		      StandardFont => charset2kde_font($charset, 0),
-	    		  ));
-	    update_gnomekderc("$confdir/kdesktoprc", FMSettings => (
-	    		      StandardFont => charset2kde_font($charset, 0),
-	    		  ));
-	}
-
 	if (!$b_user_only && $locale->{lang} !~ /^(zh_TW|th|vi|be|bg)/) { #- skip since we don't have the right font (it badly fails at least for zh_TW)
+	    my $kde_charset = charset2kde_charset(l2charset($locale->{lang}));
 	    my $welcome = c::to_utf8(N("Welcome to %s", '%n'));
 	    substInFile { 
 		s/^(GreetString)=.*/$1=$welcome/;
@@ -1003,6 +978,42 @@ sub write {
     } if !$b_dont_touch_kde_files;
 }
 
+sub configure_kdeglobals {
+    my ($locale, $confdir) = @_;
+    my $kdeglobals = "$confdir/kdeglobals";
+
+    my $charset = l2charset($locale->{lang});
+    my $kde_charset = charset2kde_charset($charset);
+    my ($prev_kde_charset) = cat_($kdeglobals) =~ /^Charset=(.*)/mi;
+
+    mkdir_p($confdir);
+
+    update_gnomekderc($kdeglobals, Locale => (
+    	      Charset => $kde_charset,
+    	      Country => lc($locale->{country}),
+    	      Language => get_kde_lang($locale),
+    	  ));
+
+    if ($prev_kde_charset ne $kde_charset) {
+        update_gnomekderc($kdeglobals, WM => (
+       		      activeFont => charset2kde_font($charset,0),
+       		  ));
+        update_gnomekderc($kdeglobals, General => (
+       		      fixed => charset2kde_font($charset, 1),
+       		      font => charset2kde_font($charset, 0),
+       		      menuFont => charset2kde_font($charset, 3),
+       		      taskbarFont => charset2kde_font($charset, 4),
+       		      toolBarFont => charset2kde_font($charset, 2),
+       	          ));
+        update_gnomekderc("$confdir/konquerorrc", FMSettings => (
+       		      StandardFont => charset2kde_font($charset, 0),
+       		  ));
+        update_gnomekderc("$confdir/kdesktoprc", FMSettings => (
+       		      StandardFont => charset2kde_font($charset, 0),
+       		  ));
+    }
+}
+
 sub bindtextdomain() {
     #- if $::prefix is set, search for libDrakX.mo in locale_special
     #- NB: not using $::isInstall to make it work more easily at install and standalone
-- 
cgit v1.2.1