summaryrefslogtreecommitdiffstats
path: root/perl-install/network/network.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-22 09:21:36 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-22 09:21:36 +0000
commit9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61 (patch)
tree0d93dec98e05e5007a943449917c9ef121f20721 /perl-install/network/network.pm
parent4f1c80d9f6dc0648e93fcfeec1606baad0a0cdbb (diff)
downloaddrakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.tar
drakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.tar.gz
drakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.tar.bz2
drakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.tar.xz
drakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.zip
perl_checker fixes
Diffstat (limited to 'perl-install/network/network.pm')
-rw-r--r--perl-install/network/network.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index d156f257e..f182d8013 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -70,7 +70,7 @@ sub write_conf {
if_(!$netc->{DHCP}, HOSTNAME => "localhost.$netc->{DOMAINNAME}"),
});
- setVarsInSh($file, $netc, if_(!$netc->{DHCP}, HOSTNAME), qw(NETWORKING FORWARD_IPV4 DOMAINNAME GATEWAY GATEWAYDEV NISDOMAIN));
+ setVarsInSh($file, $netc, if_(!$netc->{DHCP}, 'HOSTNAME'), qw(NETWORKING FORWARD_IPV4 DOMAINNAME GATEWAY GATEWAYDEV NISDOMAIN));
}
sub write_resolv_conf {
@@ -146,7 +146,7 @@ sub write_interface_conf {
$intf->{BOOTPROTO} =~ s/dhcp.*/dhcp/; #- TODO: avoid obfuscating BOOTPROTO, waiting for zeroconf conf details
- setVarsInSh($file, $intf, qw(DEVICE BOOTPROTO IPADDR NETMASK NETWORK BROADCAST ONBOOT HWADDR), if_($intf->{wireless_eth}, qw(WIRELESS_MODE WIRELESS_ESSID WIRELESS_NWID WIRELESS_FREQ WIRELESS_SENS WIRELESS_RATE WIRELESS_ENC_KEY WIRELESS_RTS WIRELESS_FRAG WIRELESS_IWCONFIG WIRELESS_IWSPY WIRELESS_IWPRIV)), if_($dhcp_hostname, DHCP_HOSTNAME), if_(!$dhcp_hostname, NEEDHOSTNAME));
+ setVarsInSh($file, $intf, qw(DEVICE BOOTPROTO IPADDR NETMASK NETWORK BROADCAST ONBOOT HWADDR), if_($intf->{wireless_eth}, qw(WIRELESS_MODE WIRELESS_ESSID WIRELESS_NWID WIRELESS_FREQ WIRELESS_SENS WIRELESS_RATE WIRELESS_ENC_KEY WIRELESS_RTS WIRELESS_FRAG WIRELESS_IWCONFIG WIRELESS_IWSPY WIRELESS_IWPRIV)), if_($dhcp_hostname, 'DHCP_HOSTNAME'), if_(!$dhcp_hostname, 'NEEDHOSTNAME'));
}
sub add2hosts {
@@ -330,9 +330,9 @@ notation (for example, 1.2.3.4).");
],
complete => sub {
$intf->{BOOTPROTO} = $pump ? if_($dhcp, "dhcp") . if_($zeroconf, "zeroconf") : "static";
- if ($pump and !$dhcp and !$zeroconf ) {
+ if ($pump and !$dhcp and !$zeroconf) {
$in->ask_warn('', N("For an Automatic IP you have to select at least one protocol : dhcp or zeroconf"));
- return (1,$i);
+ return 1;
}
return 0 if $pump;
for (my $i = 0; $i < @fields; $i++) {
@@ -433,7 +433,7 @@ sub read_all_conf {
}
sub easy_dhcp {
- my ($in, $netc, $intf) = @_;
+ my ($_in, $netc, $intf) = @_;
return if text2bool($netc->{NETWORKING});