diff options
| -rw-r--r-- | lib/CatDap/Controller/user.pm | 14 |
1 files changed, 13 insertions, 1 deletions
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 |