diff options
| -rwxr-xr-x | perl-install/standalone/net_monitor | 4 |
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; } |