diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-12-09 16:55:58 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-12-09 16:55:58 -0800 |
| commit | af0bf1fd5b9cb1316d6e34bff0ed41061e14443d (patch) | |
| tree | 5bfc1aa8eba7213b2126d9f076010f836fd0cc1e /httemplate/view/elements/svc_radius_usage.html | |
| parent | f263d9c5f3fa07442faadd9000aaad7275892f8e (diff) | |
deal when Net::MAC::Vendor-lookup doesn't return an arrayref, RT#39384
Diffstat (limited to 'httemplate/view/elements/svc_radius_usage.html')
| -rw-r--r-- | httemplate/view/elements/svc_radius_usage.html | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/httemplate/view/elements/svc_radius_usage.html b/httemplate/view/elements/svc_radius_usage.html index 471969175..56198524c 100644 --- a/httemplate/view/elements/svc_radius_usage.html +++ b/httemplate/view/elements/svc_radius_usage.html @@ -27,8 +27,11 @@ % ) / 1073741824; % % my $last_mac = $svc->attribute_last_sqlradacct( 'CallingStationId' ); -% if ( $last_mac =~ /^\s*(([\dA-F]{2}[\-:]){5}[\dA-F]{2})/i ) { -% $last_mac .= ' ('. (Net::MAC::Vendor::lookup($1))->[0]. ')'; +% if ( $last_mac =~ /^\s*(([\dA-F]{2}[\-:]){5}[\dA-F]{2})/i +% && my $vendor = Net::MAC::Vendor::lookup($1) +% ) +% { +% $last_mac .= ' ('. $vendor->[0]. ')'; % } |