From c7b16f7f897ab6b2da997faa3c422d688e1774fc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 12 May 2003 11:39:57 +0000
Subject: add "--list-hd" to please gbeauchesne

---
 perl-install/standalone/diskdrake | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone')

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') {
-- 
cgit v1.2.1