- added check for dns test

1 files changed, 11 insertions, 6 deletions

diff --git a/mdkapplet b/mdkapplet
index 737410e9..8aa6f03f 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -352,12 +352,17 @@ sub go2State {
     defined $textvw and refresh_status($state);
 }
 sub isNetwork {
-    my $netcnx = {};
-    my $netc = {};
-    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);
-    my $network = $gw_address ? 1 : 0;
+    my ($netcnx, $netc, $intf) = ({}, {}, {});
+    my $r = mdkonline::get_release();
+    #    my $h = mdkonline::get_distro_type();
+    my $network;
+    if ($r <= 10.0) {
+	$network = gethostbyname("mandrakeonline.net") ? 1 : 0;
+    } else {
+    	network::netconnect::read_net_conf($netcnx, $netc, $intf);
+	my ($gw_intf, $is_up, $gw_address, $dns_server) = network::tools::get_internet_connection($netc, $intf);
+	$network = $gw_address ? 1 : 0;
+    }
     $network;
 }
 sub configure {