From 4ca362b3a21249513ac7b820690f9a62aea74c82 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 29 Jul 2002 08:11:08 +0000 Subject: use aliases for stage1 params to reduce kernel msg --- perl-install/install_any.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') 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 { -- cgit v1.2.1