From 36f4161bcf60020ca4fec2446f699d9f1d55a6f0 Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 6 May 2010 09:26:17 +0000
Subject: [PATCH] ipv6 support: ishostinsubnet, a temp version, to avoid break
 IPv4 functions

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5987 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Utils.pm | 45 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 351156f6f..f0918d01d 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -5921,5 +5921,50 @@ sub linklocaladdr {
     return $laddr;
 }
 
+#-------------------------------------------------------------------------------
+
+=head3  ishostinsubnet
+    Works for both IPv4 and IPv6.
+    Takes an ip address, the netmask and a subnet,
+    chcek if the ip address is in the subnet
+    Arguments:
+       ip address, netmask, subnet
+    Returns: 
+       1 - if the ip address is in the subnet
+       0 - if the ip address is NOT in the subnet
+    Globals:
+    Error:
+        none
+    Example:
+        if(xCAT::Utils->ishostinsubnet($ip, $netmask, $subnet);
+    Comments:
+        none
+=cut
+
+#-------------------------------------------------------------------------------
+sub ishostinsubnet {
+    my ($class, $ip) = shift;
+    my $mask = shift;
+    my $subnet =shift;
+ 
+    if ($ip =~ /\d+\.\d+\.\d+\.\d+/) {# ipv4 address
+       $ip =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/;
+       my $ipnum = ($1<<24)+($2<<16)+($3<<8)+$4;
+
+       $mask =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/;
+       my $masknum = ($1<<24)+($2<<16)+($3<<8)+$4;
+
+       $subnet =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/;
+       my $netnum = ($1<<24)+($2<<16)+($3<<8)+$4;
+
+       if (($ipnum & $masknum) == $netnum) {
+          return 1;
+       } else {
+          return 0;
+       }
+    } else { # for ipv6
+        #TODO
+    }
+}
 
 1;