summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/diskdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-18 13:11:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-18 13:11:27 +0000
commit4fbd711cae7b4e9f4b66c95725c960728b1f6166 (patch)
tree83f81b0aacab75ae8a463949c75688cc37ad346f /perl-install/standalone/diskdrake
parent81ea6e0b0087a4f81cf2e45d4514d6b6f21c5762 (diff)
downloaddrakx-4fbd711cae7b4e9f4b66c95725c960728b1f6166.tar
drakx-4fbd711cae7b4e9f4b66c95725c960728b1f6166.tar.gz
drakx-4fbd711cae7b4e9f4b66c95725c960728b1f6166.tar.bz2
drakx-4fbd711cae7b4e9f4b66c95725c960728b1f6166.tar.xz
drakx-4fbd711cae7b4e9f4b66c95725c960728b1f6166.zip
final switch of drakbackup, logdrake and scannerdrake
to new option scheme
Diffstat (limited to 'perl-install/standalone/diskdrake')
-rwxr-xr-xperl-install/standalone/diskdrake22
1 files changed, 10 insertions, 12 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index a0b8cd158..285557781 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -36,18 +36,16 @@ use log;
use c;
-#my %options;
-#my @l = @ARGV;
-#while (my $e = shift @l) {
-" my ($option) = $e =~ /--?(.*)/ or next;
-# if ($option =~ /(.*?)=(.*)/) {
-# $options{$1} = $2;
-# } else {
-# $options{$option} = '';
-# }
-"}
-#$::expert = defined(delete $options{expert});
-#$::testing = defined(delete $options{testing});
+my %options;
+my @l = @ARGV;
+while (my $e = shift @l) {
+ my ($option) = $e =~ /--?(.*)/ or next;
+ if ($option =~ /(.*?)=(.*)/) {
+ $options{$1} = $2;
+ } else {
+ $options{$option} = '';
+ }
+}
my @types = qw(hd nfs smb dav removable fileshare);
my ($type, $para) = ('hd', '');