From 94160aa5a7ecb90a18f0b689070b8a0a01a3d480 Mon Sep 17 00:00:00 2001 From: swaggboi Date: Thu, 15 Apr 2021 21:52:41 -0400 Subject: [PATCH] Minor clean up --- www-swagg.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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;