summaryrefslogtreecommitdiffstats
path: root/rescue/guessmounts
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-06-10 22:41:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-06-10 22:41:21 +0000
commit90371dac6ff748bff3c4f35ea46710bd7778c738 (patch)
tree6d2e2f6bbce6a6a0fda0d8ce5b6a852966b9e4ac /rescue/guessmounts
parent5e08e5a12f3a890b9622e7fe9c6ec96d7aff4b41 (diff)
downloaddrakx-backup-do-not-use-90371dac6ff748bff3c4f35ea46710bd7778c738.tar
drakx-backup-do-not-use-90371dac6ff748bff3c4f35ea46710bd7778c738.tar.gz
drakx-backup-do-not-use-90371dac6ff748bff3c4f35ea46710bd7778c738.tar.bz2
drakx-backup-do-not-use-90371dac6ff748bff3c4f35ea46710bd7778c738.tar.xz
drakx-backup-do-not-use-90371dac6ff748bff3c4f35ea46710bd7778c738.zip
pixelization (tested!)
Diffstat (limited to 'rescue/guessmounts')
-rwxr-xr-xrescue/guessmounts39
1 files changed, 21 insertions, 18 deletions
diff --git a/rescue/guessmounts b/rescue/guessmounts
index b62f8d870..d148e7e26 100755
--- a/rescue/guessmounts
+++ b/rescue/guessmounts
@@ -22,19 +22,18 @@ system('drvinst'); #- class2text seems broken, I can't detect easily only module
print "\nPlease wait, trying to find your root device...\n";
-my $target = '/mnt/sysimage';
-(-d $target) or mkdir($target) or die "couldn't create $target\n";
+my $target = '/mnt';
+-d $target || mkdir($target) or die "couldn't create $target\n";
-my @parts = cat_('/proc/partitions');
-splice @parts, 0, 2; #- doesn't contain partitions
+my (undef, undef, @parts) = cat_('/proc/partitions');
my @fstab;
my $root;
-for my $dirtypart (@parts) {
- next if $dirtypart !~ /^\s*\w+\s+\w+\s+\w+\s+(\w+)\s/;
- my $dev = "/dev/$1";
+M: foreach (@parts) {
+ my $dev = (split)[3] or next;
+ $dev = "/dev/$dev";
for my $fs ('ext2', 'reiserfs') {
my $where = $target;
@@ -43,26 +42,27 @@ for my $dirtypart (@parts) {
print "Found a probable root partition on $dev (type $fs)\n";
@fstab = cat_("$where/etc/fstab");
$root = $dev;
+ last M;
} else {
- system('umount', $where) and die "error unmounting $mntpoint: $!\n";
+ system('umount', $where) and die "error unmounting $where\n";
}
last;
}
}
- last if @fstab;
}
if ($root) {
print "\nMounting other partition from fstab on $target...\n";
- for my $fstabline (@fstab) {
- my ($dev, $where, $type, $opts) = $fstabline =~ /^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s/;
- next if (!$type || $dev eq 'none' || $where eq '/' || $type eq 'supermount' ||
- $type eq 'swap' || $type eq 'nfs' || $where =~ /cdrom/ ||
- $where =~ /floppy/ || $opts =~ /noauto/ || $where =~ /proc/ ||
- $where =~ /mnt\/zip/);
- $opts = join(',', grep { !/codepage=/ && !/iocharset/ } split(/,/, $opts)); #- vfat opts, we don't have the modules in rescue
- $where = "/mnt/sysimage$where";
- (-d $where) or mkdir($where) or die "couldn't create $where\n";
+ foreach (@fstab) {
+ my ($dev, $where, $type, $opts) = split;
+ next if (!$type || $dev eq 'none' || $opts =~ /noauto/ ||
+ $type =~ /^(supermount|swap|nfs)$/ ||
+ $where eq '/' ||
+ $where =~ m,proc|cdrom|floppy|/mnt/zip,
+ );
+ $opts = join(',', grep { !/codepage=/ && !/iocharset/ } split(',', $opts)); #- vfat opts, we don't have the modules in rescue
+ $where = "$target$where";
+ -d $where || mkdir($where) or die "couldn't create $where\n";
print "Mounting $dev on $where type $type\n";
system("mount -t $type $dev $where -o $opts");
}
@@ -74,6 +74,9 @@ if ($root) {
#-------------------------------------------------
#- $Log$
+#- Revision 1.2 2001/06/10 22:41:21 prigaux
+#- pixelization (tested!)
+#-
#- Revision 1.1 2001/06/10 21:08:33 gc
#- - add 'guessmounts' that mimics RH's detecting of partitions when rescue starts
#-