diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-05-12 11:39:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-05-12 11:39:57 +0000 |
| commit | c7b16f7f897ab6b2da997faa3c422d688e1774fc (patch) | |
| tree | 0eb6bb4738265284aca105a2b5e072c9092c85d5 /perl-install/standalone | |
| parent | 6eeb93b81a91e5af4d9c70e3f9e87d92c077f7fc (diff) | |
| download | drakx-c7b16f7f897ab6b2da997faa3c422d688e1774fc.tar drakx-c7b16f7f897ab6b2da997faa3c422d688e1774fc.tar.gz drakx-c7b16f7f897ab6b2da997faa3c422d688e1774fc.tar.bz2 drakx-c7b16f7f897ab6b2da997faa3c422d688e1774fc.tar.xz drakx-c7b16f7f897ab6b2da997faa3c422d688e1774fc.zip | |
add "--list-hd" to please gbeauchesne
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 6 |
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') { |