From 1f1b75e9345298c25b123d15c086552398014e9a Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Wed, 17 Mar 2004 13:47:44 +0000
Subject: - prefill machine name

---
 mdkonline | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'mdkonline')

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 {
-- 
cgit v1.2.1