summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-13 21:11:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-13 21:11:13 +0000
commita3490c0d1d8423ae3bd6030dbec13b2bc1478afb (patch)
tree2777cc4746267155cdd257081fd7e23c9571e7b3 /perl-install/install_any.pm
parentdffcb2cd2faf0f085023a9b326de5cc874199a16 (diff)
downloaddrakx-backup-do-not-use-a3490c0d1d8423ae3bd6030dbec13b2bc1478afb.tar
drakx-backup-do-not-use-a3490c0d1d8423ae3bd6030dbec13b2bc1478afb.tar.gz
drakx-backup-do-not-use-a3490c0d1d8423ae3bd6030dbec13b2bc1478afb.tar.bz2
drakx-backup-do-not-use-a3490c0d1d8423ae3bd6030dbec13b2bc1478afb.tar.xz
drakx-backup-do-not-use-a3490c0d1d8423ae3bd6030dbec13b2bc1478afb.zip
(kdeicons_postinstall): drop (unused)
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm38
1 files changed, 0 insertions, 38 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 40f6d3370..01f574460 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -664,44 +664,6 @@ sub kderc_largedisplay {
} $_ foreach list_skels($prefix, '.kde/share/config/kfmrc');
}
-sub kdeicons_postinstall {
- my ($prefix) = @_;
-
- #- parse etc/fstab file to search for dos/win, floppy, zip, cdroms icons.
- #- handle both supermount and fsdev usage.
- my %l = (
- 'cdrom' => [ 'cdrom', 'Cd-Rom' ],
- 'zip' => [ 'zip', 'Zip' ],
- 'floppy-ls' => [ 'floppy', 'LS-120' ],
- 'floppy' => [ 'floppy', 'Floppy' ],
- );
- foreach (fs::read_fstab($prefix, "/etc/fstab")) {
-
- my ($name_, $nb) = $_->{mntpoint} =~ m|.*/(\S+?)(\d*)$/|;
- my ($name, $text) = @{$l{$name_} || []};
-
- my $f = ${{
- supermount => sub { $name .= '.fsdev' if $name },
- vfat => sub { $name = 'Dos_'; $text = $name_ },
- }}{$_->{type}};
- &$f if $f;
-
- template2userfile($prefix,
- "$ENV{SHARE_PATH}/$name.kdelnk.in",
- "Desktop/$text" . ($nb && " $nb") . ".kdelnk",
- 1, %$_) if $name;
- }
-
- # rename the .kdelnk to the name found in the .kdelnk as kde doesn't use it
- # for displaying
- foreach my $dir (grep { -d $_ } list_skels($prefix, 'Desktop')) {
- foreach (grep { /\.kdelnk$/ } all($dir)) {
- cat_("$dir/$_") =~ /^Name\[\Q$ENV{LANG}\E\]=(.{2,14})$/m
- and rename "$dir/$_", "$dir/$1.kdelnk";
- }
- }
-}
-
sub kdemove_desktop_file {
my ($prefix) = @_;
my @toMove = qw(doc.kdelnk news.kdelnk updates.kdelnk home.kdelnk printer.kdelnk floppy.kdelnk cdrom.kdelnk FLOPPY.kdelnk CDROM.kdelnk);