summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-12-08 08:37:47 +0000
committerFrancois Pons <fpons@mandriva.com>1999-12-08 08:37:47 +0000
commit1cf2e9bf3d2dd8e82380afdcf3cb8f68c6285dcc (patch)
treed479c02f535529dbf9246a20ed02040db6e55954 /perl-install
parent628e4e38d7e59dab5ddb2634e7263868d47c5211 (diff)
downloaddrakx-backup-do-not-use-1cf2e9bf3d2dd8e82380afdcf3cb8f68c6285dcc.tar
drakx-backup-do-not-use-1cf2e9bf3d2dd8e82380afdcf3cb8f68c6285dcc.tar.gz
drakx-backup-do-not-use-1cf2e9bf3d2dd8e82380afdcf3cb8f68c6285dcc.tar.bz2
drakx-backup-do-not-use-1cf2e9bf3d2dd8e82380afdcf3cb8f68c6285dcc.tar.xz
drakx-backup-do-not-use-1cf2e9bf3d2dd8e82380afdcf3cb8f68c6285dcc.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm17
1 files changed, 15 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 98fb7225b..b8bea61b0 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -568,17 +568,30 @@ sub kderc_largedisplay($) {
sub kdeicons_postinstall($) {
my ($prefix) = @_;
- #- parse etc/fstab file to search for dos/win, zip, cdroms icons.
+ #- parse etc/fstab file to search for dos/win, floppy, zip, cdroms icons.
+ #- handle both supermount and fsdev usage.
local *F;
open F, "$prefix/etc/fstab" or log::l("failed to read $prefix/etc/fstab"), return;
foreach (<F>) {
if (/^\/dev\/(\S+)\s+\/mnt\/cdrom (\d*)\s+/x) {
my %toreplace = ( device => $1, id => $2 );
- template2userfile($prefix, "/usr/share/cdrom.kdelnk.in", "Desktop/cdrom$2.kdelnk", 1, %toreplace);
+ template2userfile($prefix, "/usr/share/cdrom.fsdev.kdelnk.in", "Desktop/cdrom$2.kdelnk", 1, %toreplace);
} elsif (/^\/dev\/(\S+)\s+\/mnt\/zip (\d*)\s+/x) {
my %toreplace = ( device => $1, id => $2 );
+ template2userfile($prefix, "/usr/share/zip.fsdev.kdelnk.in", "Desktop/zip$2.kdelnk", 1, %toreplace);
+ } elsif (/^\/dev\/(\S+)\s+\/mnt\/floppy (\d*)\s+/x) {
+ my %toreplace = ( device => $1, id => $2 );
+ template2userfile($prefix, "/usr/share/floppy.fsdev.kdelnk.in", "Desktop/floppy$2.kdelnk", 1, %toreplace);
+ } elsif (/^\/mnt\/cdrom (\d*)\s+\/mnt\/cdrom\d*\s+supermount/x) {
+ my %toreplace = ( id => $1 );
+ template2userfile($prefix, "/usr/share/cdrom.kdelnk.in", "Desktop/cdrom$2.kdelnk", 1, %toreplace);
+ } elsif (/^\/mnt\/zip (\d*)\s+\/mnt\/zip\d*\s+supermount/x) {
+ my %toreplace = ( id => $1 );
template2userfile($prefix, "/usr/share/zip.kdelnk.in", "Desktop/zip$2.kdelnk", 1, %toreplace);
+ } elsif (/^\/mnt\/floppy (\d*)\s+\/mnt\/floppy\d*\s+supermount/x) {
+ my %toreplace = ( id => $1 );
+ template2userfile($prefix, "/usr/share/floppy.kdelnk.in", "Desktop/floppy$2.kdelnk", 1, %toreplace);
} elsif (/^\/dev\/(\S+)\s+\/mnt\/DOS_ (\S*)\s+/x) {
my %toreplace = ( device => $1, id => $2 );
template2userfile($prefix, "/usr/share/Dos_.kdelnk.in", "Desktop/Dos_$2.kdelnk", 1, %toreplace);