diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-12-01 18:27:36 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-12-01 18:27:36 +0000 |
| commit | 5820f0fd91c7081971d66edcb3e173f04597204d (patch) | |
| tree | 9476c282237d5a276f353f359b00b0ca0f192073 /perl-install/install_any.pm | |
| parent | 8a0772b04de02cde628f00edf37b756eb3c4e200 (diff) | |
| download | drakx-backup-do-not-use-5820f0fd91c7081971d66edcb3e173f04597204d.tar drakx-backup-do-not-use-5820f0fd91c7081971d66edcb3e173f04597204d.tar.gz drakx-backup-do-not-use-5820f0fd91c7081971d66edcb3e173f04597204d.tar.bz2 drakx-backup-do-not-use-5820f0fd91c7081971d66edcb3e173f04597204d.tar.xz drakx-backup-do-not-use-5820f0fd91c7081971d66edcb3e173f04597204d.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 34 |
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. |