From 4fbd711cae7b4e9f4b66c95725c960728b1f6166 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 18 Nov 2002 13:11:27 +0000
Subject: final switch of drakbackup, logdrake and scannerdrake to new option
 scheme

---
 perl-install/standalone/diskdrake | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

(limited to 'perl-install/standalone/diskdrake')

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