418 |
my $mac = delete $conf->{mac} || ''; |
my $mac = delete $conf->{mac} || ''; |
419 |
my $dev = $arp->{$mac}; |
my $dev = $arp->{$mac}; |
420 |
|
|
421 |
next unless $dev || $param->{all}; |
my $in_dhcp_range = ip::in_dhcp_range($ip); |
422 |
|
|
423 |
|
next unless $dev || $param->{all} || $in_dhcp_range; |
424 |
|
|
425 |
my $style |
my $style |
426 |
= 'style="color:' |
= 'style="color:' |
430 |
|
|
431 |
$style ||= ''; |
$style ||= ''; |
432 |
my $ip_text = qq|<tt>$ip</tt>|; |
my $ip_text = qq|<tt>$ip</tt>|; |
433 |
$ip_text = qq|<tt><b>$ip</b></tt>| if ip::in_dhcp_range($ip); |
$ip_text = qq|<tt><b>$ip</b></tt>| if $in_dhcp_range; |
434 |
|
|
435 |
$dev = qq|<tt>$dev</tt>| if $dev; |
$dev = qq|<tt>$dev</tt>| if $dev; |
436 |
|
|