diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-09 09:02:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-09 09:02:47 +0000 |
| commit | 1d3ac921d66022bb6e19a96dce95472cc31f0987 (patch) | |
| tree | 4da18678cee71134f6cec6004f0b41afe6d25145 /perl-install/network.pm | |
| parent | db4013c2a40eaeb3752cc69623037e4bb274693b (diff) | |
| download | drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.gz drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.bz2 drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.xz drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.zip | |
no_comment
Diffstat (limited to 'perl-install/network.pm')
| -rw-r--r-- | perl-install/network.pm | 12 |
1 files changed, 6 insertions, 6 deletions
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; |