diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-18 13:11:27 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-18 13:11:27 +0000 |
| commit | 4fbd711cae7b4e9f4b66c95725c960728b1f6166 (patch) | |
| tree | 83f81b0aacab75ae8a463949c75688cc37ad346f /perl-install/standalone/diskdrake | |
| parent | 81ea6e0b0087a4f81cf2e45d4514d6b6f21c5762 (diff) | |
| download | drakx-backup-do-not-use-4fbd711cae7b4e9f4b66c95725c960728b1f6166.tar drakx-backup-do-not-use-4fbd711cae7b4e9f4b66c95725c960728b1f6166.tar.gz drakx-backup-do-not-use-4fbd711cae7b4e9f4b66c95725c960728b1f6166.tar.bz2 drakx-backup-do-not-use-4fbd711cae7b4e9f4b66c95725c960728b1f6166.tar.xz drakx-backup-do-not-use-4fbd711cae7b4e9f4b66c95725c960728b1f6166.zip | |
final switch of drakbackup, logdrake and scannerdrake
to new option scheme
Diffstat (limited to 'perl-install/standalone/diskdrake')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 22 |
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', ''); |