final switch of drakbackup, logdrake and scannerdrake

to new option scheme

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', '');