From f8bd2945ce571a80d00dde3fa2cb87c1610285f4 Mon Sep 17 00:00:00 2001
From: Michael Scherer <misc@mageia.org>
Date: Mon, 13 Dec 2010 23:15:43 +0000
Subject: - patch from Maarten Vanraes to fix the issue of keyprefix with ipv6

---
 lib/CatDap/Controller/user.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/lib/CatDap/Controller/user.pm b/lib/CatDap/Controller/user.pm
index abae4dd..5c58d48 100644
--- a/lib/CatDap/Controller/user.pm
+++ b/lib/CatDap/Controller/user.pm
@@ -114,8 +114,20 @@ sub auto : Private {
 
 sub get_keyprefix : Private {
     my ( $self, $c ) = @_;
-    return sprintf("%02x%02x%02x",split /\./,$c->req->address);
+    my $keyprefix;
+    if ($c->req->address =~ m/:/) {
+        my $address = $c->req->address;
+        $address =~ s/\[\]://;
+
+        # if we shift right 104 bits from 128 we have 24 bits left or 3 bytes.
+        $keyprefix = sprintf( "%06x", $address >> 104 );
+    }
+    else {
+        $keyprefix = sprintf( "%02x%02x%02x", split /\./, $c->req->address );
+    }
+    return $keyprefix;
 }
+
 =head2 index
 
 =cut
-- 
cgit v1.2.1