summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 {