swaggboi/www2.0
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Minor clean up

Browse source
This commit is contained in:
swagg boi 2021-04-15 21:52:41 -04:00
parent 2e6630eff9
commit 94160aa5a7
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
www-swagg.pl
View file

@ -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;