diff --git a/www-swagg.pl b/www-swagg.pl index 4a07eed..83d9759 100755 --- a/www-swagg.pl +++ b/www-swagg.pl @@ -57,7 +57,7 @@ get '/ula6' => sub { my ($mac, $ula6); # Check the MAC - $mac = ($c->param('macaddr')) ? lc $c->param('macaddr') : ''; + $mac = $c->param('macaddr') ? lc $c->param('macaddr') : ''; if ($mac =~ /$RE{net}{MAC}/) { # Local vars for this bit my ( @@ -75,8 +75,7 @@ get '/ula6' => sub { # EUI64 @fields = split(/:/, $mac); - $halfone = $fields[0] . $fields[1] . $fields[2] . "ff"; - $halftwo = "fe" . $fields[3] . $fields[4] . $fields[5]; + $halftwo = "fe" . $fields[3] . $fields[4] . $fields[5]; $binfield = sprintf "%b", hex $fields[0]; $decfield = sprintf "%d", hex $fields[0]; $decfield = ($binfield =~ /1[01]$/) ? $decfield - 2 : $decfield + 2;