From 7753ffd69ed8c7b42f426eb196ae668cad9933b4 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 3 Jun 2005 07:21:58 +0000 Subject: drop unused subs --- perl-install/standalone/drakconnect | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 81a15d7dc..ea61079a5 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -794,7 +794,6 @@ sub apply { } sub ethisup { `LC_ALL=C LANGUAGE=C /sbin/ifconfig $_[0]` =~ /inet/ } -sub chk_internet() { `LC_ALL=C LANGUAGE=C /sbin/chkconfig --list | grep internet` =~ /:on/ ? 1 : 0 } sub update_intbutt() { $int_state->set($isconnected ? N("Connected") : N("Not connected")); @@ -821,24 +820,6 @@ sub in_ifconfig { `/sbin/ifconfig` =~ /$intf/; } -sub update2() { - undef $to_update; - network::tools::connected_bg(\$to_update); - if (defined $to_update) { - $isconnected = $to_update; - if ($isconnected != -1) { - if ($isconnected && !in_ifconfig($net->{net_interface})) { - $warning_label1->set(N("Warning, another Internet connection has been detected, maybe using your network")); - $isconnected = 0; - } else { $warning_label1->set("") } - update_intbutt(); - } - } - update(); - 1; -} - - my $net_test; sub update_network_status() { unless ($net_test) { -- cgit v1.2.1