diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-07 13:29:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-07 13:29:20 +0000 |
| commit | bd2443801a43aada5c0b141f2a19ac52ef53fcae (patch) | |
| tree | 0946d685497a9d15d176bf123f007c29df038f13 /perl-install | |
| parent | 06d300a1e541a75434ceb15d19c6e254aedf6dad (diff) | |
| download | drakx-backup-do-not-use-bd2443801a43aada5c0b141f2a19ac52ef53fcae.tar drakx-backup-do-not-use-bd2443801a43aada5c0b141f2a19ac52ef53fcae.tar.gz drakx-backup-do-not-use-bd2443801a43aada5c0b141f2a19ac52ef53fcae.tar.bz2 drakx-backup-do-not-use-bd2443801a43aada5c0b141f2a19ac52ef53fcae.tar.xz drakx-backup-do-not-use-bd2443801a43aada5c0b141f2a19ac52ef53fcae.zip | |
handle --embedded xxx xxx
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index 260244cf5..7bef9bc9d 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -36,14 +36,19 @@ use log; use c; -$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; -if ($::isEmbedded) { - print "EMBED\n"; - print "parent XID\t$::XID\n"; - print "mcc pid\t$::CCPID\n"; +my %options; +my @l = @ARGV; +while (my $e = shift @l) { + my ($option) = $e =~ /--?(.*)/ or next; + if ($option eq 'embedded') { + $::isEmbedded = 1; + ($::XID, $::CCPID, @l) = @l; + } elsif ($option =~ /(.*?)=(.*)/) { + $options{$1} = $2; + } else { + $options{$option} = ''; + } } - -my %options = map { /(.*?)=(.*)/ ? ($1,$2) : ($_,'') } map { if_(/--?(.*)/, $1) } @ARGV; $::expert = delete $options{expert}; $::testing = delete $options{testing}; |