added online host on GUI submitted by rwira

1 files changed, 2 insertions, 0 deletions

diff --git a/mdkapplet b/mdkapplet
index 8c4bbae3..0efe0c67 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -203,6 +203,7 @@ sub refresh_status {
 sub refresh_contents {
     my $status = shift;
     my $color = {};
+    my %h = getVarsFromSh($conffile); 
     foreach my $l (['first', 'red'], ['second', 'royalblue3'], ['third', 'green']) { 
 	$color->{$l->[0]} = { 'foreground' => $l->[1], 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD } 
     }
@@ -210,6 +211,7 @@ sub refresh_contents {
     my $last = lastCheck();
     my $contents = [ [ N("Network Connection: "), $color->{second} ], [ isNetwork() ? N("Up") . "\n" : N("Down") . "\n", isNetwork() ? $color->{third} : $color->{first} ], 
 		     [ N("Last check: "), $color->{second} ], [ "$last\n", $fixed_tag ],
+		     [ N("Machine name:"), $color->{second} ], [ $h{MACHINE} . "\n", $fixed_tag ],
 		     [ N("Updates: "), $color->{second} ], [ common::sprintf_fixutf8($state{$status}{tt}[0]), $status eq 'okay' ? $color->{third} : $color->{first} ],
 		   ];
     $contents