summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-26 16:16:48 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-26 16:16:48 +0000
commitd7c8df1e16e5c95036616d2e2e89df5c8a528ae4 (patch)
treeee8ad60f8736bf255e41c1a94091db9373118bdb /perl-install
parent514e03837074b04180fa861327bc2698bf07cb6e (diff)
downloaddrakx-d7c8df1e16e5c95036616d2e2e89df5c8a528ae4.tar
drakx-d7c8df1e16e5c95036616d2e2e89df5c8a528ae4.tar.gz
drakx-d7c8df1e16e5c95036616d2e2e89df5c8a528ae4.tar.bz2
drakx-d7c8df1e16e5c95036616d2e2e89df5c8a528ae4.tar.xz
drakx-d7c8df1e16e5c95036616d2e2e89df5c8a528ae4.zip
kill unused down_it() and up_it() functions
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/network.pm16
1 files changed, 1 insertions, 15 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index ede607792..e2c062355 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -16,7 +16,7 @@ use vars qw(@ISA @EXPORT);
use log;
@ISA = qw(Exporter);
-@EXPORT = qw(add2hosts addDefaultRoute configureNetwork2 dns dnsServers down_it findIntf gateway guessHostname is_ip is_ip_forbidden masked_ip netmask read_all_conf read_conf read_interface_conf read_resolv_conf resolv sethostname up_it write_conf write_resolv_conf);
+@EXPORT = qw(add2hosts addDefaultRoute configureNetwork2 dns dnsServers findIntf gateway guessHostname is_ip is_ip_forbidden masked_ip netmask read_all_conf read_conf read_interface_conf read_resolv_conf resolv sethostname write_conf write_resolv_conf);
#-######################################################################################
#- Functions
@@ -85,20 +85,6 @@ sub read_tmdns_conf {
\%outf;
}
-sub up_it {
- my ($prefix, $intfs) = @_;
- $_->{isUp} and return foreach values %$intfs;
- my $f = "/etc/resolv.conf"; symlink "$prefix/$f", $f;
- run_program::rooted($prefix, "/etc/rc.d/init.d/network", "start");
- $_->{isUp} = 1 foreach values %$intfs;
-}
-
-sub down_it {
- my ($prefix, $intfs) = @_;
- run_program::rooted($prefix, "/etc/rc.d/init.d/network", "stop");
- $_->{isUp} = 1 foreach values %$intfs;
-}
-
sub write_conf {
my ($file, $netc) = @_;