summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-12-01 18:27:36 +0000
committerFrancois Pons <fpons@mandriva.com>1999-12-01 18:27:36 +0000
commit5820f0fd91c7081971d66edcb3e173f04597204d (patch)
tree9476c282237d5a276f353f359b00b0ca0f192073 /perl-install/install_any.pm
parent8a0772b04de02cde628f00edf37b756eb3c4e200 (diff)
downloaddrakx-5820f0fd91c7081971d66edcb3e173f04597204d.tar
drakx-5820f0fd91c7081971d66edcb3e173f04597204d.tar.gz
drakx-5820f0fd91c7081971d66edcb3e173f04597204d.tar.bz2
drakx-5820f0fd91c7081971d66edcb3e173f04597204d.tar.xz
drakx-5820f0fd91c7081971d66edcb3e173f04597204d.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm34
1 files changed, 33 insertions, 1 deletions
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.