diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-07-29 08:11:08 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-07-29 08:11:08 +0000 |
| commit | 4ca362b3a21249513ac7b820690f9a62aea74c82 (patch) | |
| tree | 3fbe2eb8301a61044a47f0045097d64923c8b084 /perl-install/install_any.pm | |
| parent | 971bc1013b1ad338afbfa59c71cf990947cde73f (diff) | |
| download | drakx-4ca362b3a21249513ac7b820690f9a62aea74c82.tar drakx-4ca362b3a21249513ac7b820690f9a62aea74c82.tar.gz drakx-4ca362b3a21249513ac7b820690f9a62aea74c82.tar.bz2 drakx-4ca362b3a21249513ac7b820690f9a62aea74c82.tar.xz drakx-4ca362b3a21249513ac7b820690f9a62aea74c82.zip | |
use aliases for stage1 params to reduce kernel msg
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index c1bfc3988..89a43aecd 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -912,8 +912,13 @@ sub generate_automatic_stage1_params { push @ks, "dns:$dnss[0]" if @dnss; } } + + #- sync it with ../mdk-stage1/automatic.c + my %aliases = (method => 'met', network => 'netw', interface => 'int', gateway => 'gat', netmask => 'netm', + adsluser => 'adslu', adslpass => 'adslp', hostname => 'hos', domain => 'dom', server => 'ser', + directory => 'dir', user => 'use', pass => 'pas', disk => 'dis', partition => 'par'); - "automatic=".join(',', @ks); + 'automatic='.join(',', map { (/^([^:]+)(:.*)/ && $aliases{$1}) ? $aliases{$1}.$2 : $_ } @ks); } sub guess_mount_point { |