summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-09-28 13:41:03 +0000
committerOlivier Blin <oblin@mandriva.org>2004-09-28 13:41:03 +0000
commit2e5ca5976437bf44af152b3b78d40538e4190c72 (patch)
treeb6dba8f0f9fff2bf321b3242c35c147d3df9943d /perl-install
parent03ee1000ba5c742fac21dc329f68ac583e34d163 (diff)
downloaddrakx-2e5ca5976437bf44af152b3b78d40538e4190c72.tar
drakx-2e5ca5976437bf44af152b3b78d40538e4190c72.tar.gz
drakx-2e5ca5976437bf44af152b3b78d40538e4190c72.tar.bz2
drakx-2e5ca5976437bf44af152b3b78d40538e4190c72.tar.xz
drakx-2e5ca5976437bf44af152b3b78d40538e4190c72.zip
test if IP address is already used for static interfaces
(do not test for sagem DSL devices since it may use many ifcfg files)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index b43165a0c..9f39506d6 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -990,6 +990,8 @@ notation (for example, 1.2.3.4).")),
return 1, $bad[0];
}
$in->ask_warn(N("Error"), N("Warning: IP address %s is usually reserved!", $ethntf->{IPADDR})) if is_ip_forbidden($ethntf->{IPADDR});
+ #- test if IP address is already used (do not test for sagem DSL devices since it may use many ifcfg files)
+ $in->ask_warn(N("Error"), N("%s already in use\n", $ethntf->{IPADDR})) if $ethntf != $intf->{sagem} && find { $_->{DEVICE} ne $ethntf->{DEVICE} && $_->{IPADDR} eq $ethntf->{IPADDR} } values %$intf;
},
focus_out => sub {
$ethntf->{NETMASK} ||= netmask($ethntf->{IPADDR}) unless $_[0]