From b37a8657e750d9944280930c4bacd8b62dc60dc7 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 17 Feb 2005 17:23:39 +0000 Subject: remove unused network::netconnect::get_net_device --- perl-install/network/netconnect.pm | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index e967b8428..252ace3f8 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1522,20 +1522,6 @@ sub get_profiles() { map { if_(m!([^/]*)/$!, $1) } glob("$::prefix/etc/netprofile/profiles/*/"); } -sub get_net_device() { - my $connect_file = $network::tools::connect_file; - my $network_file = "$::prefix/etc/sysconfig/network"; - if (cat_("$::prefix$connect_file") =~ /ifup/) { - if_(cat_($connect_file) =~ /^\s*ifup\s+(.*)/m, split(' ', $1)); - } elsif (cat_("$::prefix$connect_file") =~ /network/) { - ${{ getVarsFromSh("$::prefix$network_file") }}{GATEWAYDEV}; - } elsif (cat_("$::prefix$connect_file") =~ /isdn/) { - "ippp+"; - } else { - "ppp+"; - } -} - sub read_net_conf { my ($netcnx, $netc, $intf) = @_; my $current = { getVarsFromSh("$::prefix/etc/netprofile/current") }; -- cgit v1.2.1