summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_monitor
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/net_monitor')
-rwxr-xr-xperl-install/standalone/net_monitor4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 44dcc5074..9d0985c35 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -361,6 +361,10 @@ sub update {
$statusbar->push(1, connected() ? _("Connected") : _("Not connected"));
$isconnected ? $pix_c->set($pix_c_map, $pix_c_mask) : $pix_c->set($pix_d_map, $pix_d_mask);
}
+ if (!(-e $connect_file && -e $disconnect_file)) {
+ $button_connect->set_sensitive(0);
+ $label_c->set("No internet connection configured");
+ }
$time_tag2 = Gtk->timeout_add(5000, \&update);
0;
}