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

Minor clean up

Browse Source
This commit is contained in:
swaggboi 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); my ($mac, $ula6);
# Check the MAC # Check the MAC
$mac = ($c->param('macaddr')) ? lc $c->param('macaddr') : ''; $mac = $c->param('macaddr') ? lc $c->param('macaddr') : '';
if ($mac =~ /$RE{net}{MAC}/) { if ($mac =~ /$RE{net}{MAC}/) {
# Local vars for this bit # Local vars for this bit
my ( my (
@ -75,8 +75,7 @@ get '/ula6' => sub {
# EUI64 # EUI64
@fields = split(/:/, $mac); @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]; $binfield = sprintf "%b", hex $fields[0];
$decfield = sprintf "%d", hex $fields[0]; $decfield = sprintf "%d", hex $fields[0];
$decfield = ($binfield =~ /1[01]$/) ? $decfield - 2 : $decfield + 2; $decfield = ($binfield =~ /1[01]$/) ? $decfield - 2 : $decfield + 2;