From 5820f0fd91c7081971d66edcb3e173f04597204d Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 1 Dec 1999 18:27:36 +0000
Subject: *** empty log message ***

---
 perl-install/install_any.pm | 34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 00d869cff..7e176fbbe 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -513,7 +513,39 @@ sub template2userfile($$$$%) {
     }
 }
 
-sub kdeicons_postinstall {
+sub kderc_largedisplay($) {
+    my ($prefix) = @_;
+
+    foreach ("/etc/skel", "/root", list_home($prefix)) {
+	my ($inputfile, $outputfile) = ("$prefix$_/.kderc", "$prefix$_/.kderc.new");
+	my %subst = ( contrast => "Contrast=7\n",
+		      kfmiconstyle => "kfmIconStyle=Large\n",
+		      kpaneliconstyle => "kpanelIconStyle=Large\n",
+		      kdeiconstyle => "KDEIconStyle=Large\n",
+		    );
+
+	local *INFILE; local *OUTFILE;
+	open INFILE, $inputfile or return;
+	open OUTFILE, ">$outputfile" or return;
+
+	print OUTFILE map {
+	    if (my $i = /^\s*\[KDE\]/ ... /^\s*\[/) {
+		if (/^\s*(\w*)=/ && $subst{lc($1)}) {
+		    delete $subst{lc($1)};
+		} else {
+		    ($i > 1 && /^\s*\[/ && join '', values %subst). $_;
+		}
+	    } else {
+		$_;
+	    }
+	} <INFILE>;
+
+	unlink $inputfile;
+	rename $outputfile, $inputfile;
+    }
+}
+
+sub kdeicons_postinstall($) {
     my ($prefix) = @_;
 
     #- parse etc/fstab file to search for dos/win, zip, cdroms icons.
-- 
cgit v1.2.1