summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-05-12 11:39:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-05-12 11:39:57 +0000
commitc7b16f7f897ab6b2da997faa3c422d688e1774fc (patch)
tree0eb6bb4738265284aca105a2b5e072c9092c85d5 /perl-install
parent6eeb93b81a91e5af4d9c70e3f9e87d92c077f7fc (diff)
downloaddrakx-backup-do-not-use-c7b16f7f897ab6b2da997faa3c422d688e1774fc.tar
drakx-backup-do-not-use-c7b16f7f897ab6b2da997faa3c422d688e1774fc.tar.gz
drakx-backup-do-not-use-c7b16f7f897ab6b2da997faa3c422d688e1774fc.tar.bz2
drakx-backup-do-not-use-c7b16f7f897ab6b2da997faa3c422d688e1774fc.tar.xz
drakx-backup-do-not-use-c7b16f7f897ab6b2da997faa3c422d688e1774fc.zip
add "--list-hd" to please gbeauchesne
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/diskdrake6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 171402c22..8afb3779e 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -45,7 +45,7 @@ while (my $e = shift @l) {
}
}
-my @types = qw(hd nfs smb dav removable fileshare);
+my @types = qw(hd nfs smb dav removable fileshare list-hd);
my ($type, $para) = ('hd', '');
foreach (@types) {
if (exists $options{$_}) {
@@ -80,7 +80,9 @@ fs::merge_info_from_mtab([ fsedit::get_really_all_fstab($all_hds) ]);
$all_hds->{current_fstab} = fs::fstab_to_string($all_hds, '');
-if ($type eq 'hd') {
+if ($type eq 'list-hd') {
+ print partition_table::description($_), "\n" foreach fsedit::get_all_fstab($all_hds);
+} elsif ($type eq 'hd') {
require diskdrake::interactive;
diskdrake::interactive::main($in, $all_hds, 0, '', '');
} elsif ($type eq 'removable') {