#748 always call NetAddr::MAC->new() with named mac param

This commit is contained in:
Oliver Gorwits
2020-10-17 13:05:46 +01:00
parent 4cd0c3eef9
commit c7b8c3bcbd
5 changed files with 6 additions and 5 deletions

View File

@@ -3,6 +3,7 @@
[BUG FIXES]
* #747 handle missing snmpEngineID
* #748 always call NetAddr::MAC->new() with named mac param
2.046002 - 2020-08-07

View File

@@ -288,7 +288,7 @@ sub search_by_field {
}
# get IEEE MAC format
my $mac = NetAddr::MAC->new($p->{mac});
my $mac = NetAddr::MAC->new(mac => $p->{mac});
undef $mac if
($mac and $mac->as_ieee
and (($mac->as_ieee eq '00:00:00:00:00:00')
@@ -401,7 +401,7 @@ sub search_fuzzy {
}
# get IEEE MAC format
my $mac = NetAddr::MAC->new($q);
my $mac = NetAddr::MAC->new(mac => $q);
undef $mac if
($mac and $mac->as_ieee
and (($mac->as_ieee eq '00:00:00:00:00:00')

View File

@@ -168,7 +168,7 @@ sub store_arp {
my ($hash_ref, $now) = @_;
$now ||= 'now()';
my $ip = $hash_ref->{'ip'};
my $mac = NetAddr::MAC->new($hash_ref->{'node'});
my $mac = NetAddr::MAC->new(mac => $hash_ref->{'node'});
my $name = $hash_ref->{'dns'};
return if !defined $mac or $mac->errstr;

View File

@@ -60,7 +60,7 @@ get '/ajax/content/search/port' => require_login sub {
}
else {
my ( $likeval, $likeclause ) = sql_match($q);
my $mac = NetAddr::MAC->new($q);
my $mac = NetAddr::MAC->new(mac => $q);
undef $mac if
($mac and $mac->as_ieee

View File

@@ -38,7 +38,7 @@ get '/search' => require_login sub {
else {
my $nd = $s->resultset('Device')->search_fuzzy($q);
my ($likeval, $likeclause) = sql_match($q);
my $mac = NetAddr::MAC->new($q);
my $mac = NetAddr::MAC->new(mac => $q);
undef $mac if
($mac and $mac->as_ieee