From 5a7cda2aaf3a0ecbbb6673095b2f0eed982a480d Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 6 May 2010 08:28:53 +0000
Subject: [PATCH] add IPv6 subroutine linklocaladdr

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

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index c33a828b7..9de2d1386 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -5866,5 +5866,60 @@ sub getipaddr()
     }
 } 
 
+#-------------------------------------------------------------------------------
+
+=head3  linklocaladdr
+    Only for IPv6.               
+    Takes a mac address, calculate the IPv6 link local address
+    Arguments:
+       mac address
+    Returns:
+       ipv6 link local address. returns undef if passed in a invalid mac address
+    Globals:
+    Error:
+        none
+    Example:
+        my $linklocaladdr = xCAT::Utils->linklocaladdr($mac);                   
+    Comments:
+        none
+=cut
+
+#-------------------------------------------------------------------------------
+sub linklocaladdr {
+    my $mac = shift;
+    $mac = lc($mac);
+    my $localprefix = "fe80";
+
+    my ($m1, $m2, $m3, $m6, $m7, $m8);
+    # mac address can be 00215EA376B0 or 00:21:5E:A3:76:B0
+    if($mac =~ /^([0-9A-Fa-f]{2}).*?([0-9A-Fa-f]{2}).*?([0-9A-Fa-f]{2}).*?([0-9A-Fa-f]{2}).*?([0-9A-Fa-f]{2}).*?([0-9A-Fa-f]{2})$/)
+    {
+        ($m1, $m2, $m3, $m6, $m7, $m8) = ($1, $2, $3, $4, $5, $6);
+    }
+    else
+    {
+        #not a valid mac address
+        return undef;
+    }
+    my ($m4, $m5)  = ("ff","fe");
+
+    my $bit = (int $m1) & 2;
+    if ($bit) {
+       $m1 = $m1 - 2;
+    } else {
+       $m1 = $m1 + 2;
+    }
+
+    $m1 = $m1 . $m2;
+    $m3 = $m3 . $m4;
+    $m5 = $m5 . $m6;
+    $m7 = $m7 . $m8;
+
+    my $laddr = join ":", $m1, $m3, $m5, $m7;
+    $laddr = join "::", $localprefix, $laddr;
+
+    return $laddr;
+}
+
 
 1;