diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-09-01 05:09:40 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-09-01 05:09:40 +0000 |
| commit | 61b18fa96b09b3fcdc67b2d0107ca638ecb79542 (patch) | |
| tree | e627a3e491bbcb8f375e6fbd7293377f15c85449 /perl-install | |
| parent | 8a2f5e13412eed5bc9816595b1d14482faac68da (diff) | |
| download | drakx-61b18fa96b09b3fcdc67b2d0107ca638ecb79542.tar drakx-61b18fa96b09b3fcdc67b2d0107ca638ecb79542.tar.gz drakx-61b18fa96b09b3fcdc67b2d0107ca638ecb79542.tar.bz2 drakx-61b18fa96b09b3fcdc67b2d0107ca638ecb79542.tar.xz drakx-61b18fa96b09b3fcdc67b2d0107ca638ecb79542.zip | |
add notconfigured state
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone/net_applet | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index 4d77bf5e7..5790d3370 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -36,7 +36,16 @@ my %appletstate = ( #-PO: keep the "Configure Network" substring synced with the "Configure Network" message below N_("Network is down on interface %s. Click on \"Configure Network\"") ] - } + }, + notconfigured => { + colour => [ 'disconnected' ], + changes => [ 'connected' ], + menu => [ 'confNetwork', 'refresh', 'help' ], + tt => [ + N_("You don't have any configured Internet connection. +Run the \"Add Connection\" assistant from the Mandrakelinux Control Center") + ] + } ); my %actions = ( @@ -101,9 +110,7 @@ sub checkNetwork() { my $intf = {}; network::netconnect::read_net_conf($netcnx, $netc, $intf); my ($gw_intf, $is_up, $gw_address, $dns_server) = network::tools::get_internet_connection($netc, $intf); - if ($gw_address) { - go2State('connected', $gw_intf) - } else { go2State('disconnected', $gw_intf) } + go2State($gw_address ? 'connected' : $gw_intf ? 'disconnected' : 'notconfigured', $gw_intf); my $new_md5 = md5file($prog_name); if ($new_md5 ne $current_md5) { exec($prog_name) }; |