diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-27 19:07:39 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-27 19:07:39 +0000 |
| commit | 7cbd70aa1989af49648687e0724092fe58f135b1 (patch) | |
| tree | 520e8520937ba6bca236cc42add08c86db1076e0 /perl-install/standalone | |
| parent | 132de14f4face2f38c1e85102ca710239831696b (diff) | |
| download | drakx-backup-do-not-use-7cbd70aa1989af49648687e0724092fe58f135b1.tar drakx-backup-do-not-use-7cbd70aa1989af49648687e0724092fe58f135b1.tar.gz drakx-backup-do-not-use-7cbd70aa1989af49648687e0724092fe58f135b1.tar.bz2 drakx-backup-do-not-use-7cbd70aa1989af49648687e0724092fe58f135b1.tar.xz drakx-backup-do-not-use-7cbd70aa1989af49648687e0724092fe58f135b1.zip | |
allow removing device "non kudzu flagged" (for harddrake)
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakupdate_fstab | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab index 73c308bda..112873ffb 100755 --- a/perl-install/standalone/drakupdate_fstab +++ b/perl-install/standalone/drakupdate_fstab @@ -31,10 +31,11 @@ $::isStandalone = 1; #- not using standalone.pm which generates too many logs fo $::testing = $ARGV[0] eq '--test' && shift @ARGV; $::auto = $ARGV[0] eq '--auto' && shift @ARGV; +my $no_flag = $ARGV[0] eq '--no-flag' && shift @ARGV; my ($raw_action, $device_name) = @ARGV; my ($action) = $raw_action =~ /^--(add|del)/; -@ARGV == 2 && $action or die "usage: drakupdate_fstab [--test] [--auto] [--add | --del] <device>\n"; +@ARGV == 2 && $action or die "usage: drakupdate_fstab [--test] [--auto] [--no-flag] [--add | --del] <device>\n"; main($action, $device_name); @@ -84,7 +85,7 @@ sub set_options { fs::set_default_options($part, 1, $use_supermount, $security, $iocharset, $codepage); my ($options, $unknown) = fs::mount_options_unpack($part); - $options->{kudzu} = 1; + $options->{kudzu} = 1 if !$no_flag; fs::mount_options_pack($part, $options, $unknown); } @@ -142,7 +143,7 @@ sub main { return; } foreach (@$existing_fstab_entries) { - if ($_->{options} !~ /\bkudzu\b/) { + if (!$no_flag && $_->{options} !~ /\bkudzu\b/) { print STDERR "Not a 'kudzu'-flagged entry\n" if $::testing; return; } |