From 1d3ac921d66022bb6e19a96dce95472cc31f0987 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 9 Sep 1999 09:02:47 +0000 Subject: no_comment --- perl-install/network.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/network.pm') diff --git a/perl-install/network.pm b/perl-install/network.pm index cc5c74fa6..7529261bd 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -48,7 +48,7 @@ sub write_conf { sub write_resolv_conf { my ($file, $netc) = @_; - # We always write these, even if they were autoconfigured. Otherwise, the reverse name lookup in the install doesn't work. + #- We always write these, even if they were autoconfigured. Otherwise, the reverse name lookup in the install doesn't work. unless ($netc->{DOMAINNAME} || dnsServers($netc)) { unlink($file); log::l("neither domain name nor dns server are configured"); @@ -62,7 +62,7 @@ sub write_resolv_conf { print F "nameserver $_\n" foreach dnsServers($netc); print F "#$_" foreach @l; - #res_init(); # reinit the resolver so DNS changes take affect + #-res_init(); # reinit the resolver so DNS changes take affect 1; } @@ -158,13 +158,13 @@ sub netmask { return "255.255.255.0" unless is_ip($ip); $ip =~ $ip_regexp; if ($1 >= 1 && $1 < 127) { - return "255.0.0.0"; #1.0.0.0 to 127.0.0.0 + return "255.0.0.0"; #-1.0.0.0 to 127.0.0.0 } elsif ($1 >= 128 && $1 <= 191 ){ - return "255.255.0.0"; #128.0.0.0 to 191.255.0.0 + return "255.255.0.0"; #-128.0.0.0 to 191.255.0.0 } elsif ($1 >= 192 && $1 <= 223) { return "255.255.255.0"; } else { - return "255.255.255.255"; #experimental classes + return "255.255.255.255"; #-experimental classes } } @@ -198,4 +198,4 @@ sub gateway { #-###################################################################################### #- Wonderful perl :( #-###################################################################################### -1; # +1; -- cgit v1.2.1