diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-03-17 13:47:44 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-03-17 13:47:44 +0000 |
| commit | 1f1b75e9345298c25b123d15c086552398014e9a (patch) | |
| tree | feaa9941fe7f6609c4730dae2c3ae6b20fd56e3c | |
| parent | c97409b32a632e85ac3f37a7a85e2d8c7cc1ce28 (diff) | |
| download | mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.tar mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.tar.gz mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.tar.bz2 mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.tar.xz mgaonline-1f1b75e9345298c25b123d15c086552398014e9a.zip | |
- prefill machine name
| -rwxr-xr-x | mdkonline | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 { |