arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix ishostinsubnet

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6014 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc
2010-05-07 03:49:05 +00:00
parent 0aa31123d5
commit 7b1275b4ad
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
perl-xCAT/xCAT/NetworkUtils.pm
View File

@@ -248,6 +248,7 @@ sub linklocaladdr {
return $laddr;
}
#-------------------------------------------------------------------------------
=head3 ishostinsubnet
@@ -270,9 +271,7 @@ sub linklocaladdr {
#-------------------------------------------------------------------------------
sub ishostinsubnet {
my ($class, $ip) = shift;
my $mask = shift;
my $subnet =shift;
my ($class, $ip, $mask, $subnet) = @_;
if ($ip =~ /\d+\.\d+\.\d+\.\d+/) {# ipv4 address
$ip =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/;
@@ -290,7 +289,7 @@ sub ishostinsubnet {
return 0;
}
} else { # for ipv6
#TODO
#todo
}
}