summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-07-29 08:11:08 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-07-29 08:11:08 +0000
commit4ca362b3a21249513ac7b820690f9a62aea74c82 (patch)
tree3fbe2eb8301a61044a47f0045097d64923c8b084 /perl-install
parent971bc1013b1ad338afbfa59c71cf990947cde73f (diff)
downloaddrakx-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')
-rw-r--r--perl-install/install_any.pm7
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 {