summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-03-17 13:47:44 +0000
committerDaouda Lo <daouda@mandriva.com>2004-03-17 13:47:44 +0000
commit1f1b75e9345298c25b123d15c086552398014e9a (patch)
treefeaa9941fe7f6609c4730dae2c3ae6b20fd56e3c
parentc97409b32a632e85ac3f37a7a85e2d8c7cc1ce28 (diff)
downloadmgaonline-1f1b75e9345298c25b123d15c086552398014e9a.tar
mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.tar.gz
mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.tar.bz2
mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.tar.xz
mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.zip
- prefill machine name
-rwxr-xr-xmdkonline3
1 files changed, 2 insertions, 1 deletions
diff --git a/mdkonline b/mdkonline
index 7cf99067..f0f941b2 100755
--- a/mdkonline
+++ b/mdkonline
@@ -199,7 +199,8 @@ sub checkErrors {
}
sub setEntryWithConf {
my %t = getVarsFromSh($wideconf);
- $t{MACHINE} ||= chomp_(`hostname`);
+ my $host = chomp_(`hostname`) ; $host =~ /(\w+)(.*)/;
+ $t{MACHINE} ||= $1;
foreach (qw(login machine)) { $o->{$_}->get_text or $o->{$_}->set_text($t{uc($_)}) }
}
sub sendConfig {