|
|
Name | $Lang::tr{'ip address'} | $Lang::tr{'fwhost type'} | ||||
"; if($customgrp{$key}[3] eq 'Standard Network'){ print &get_name($customgrp{$key}[2])." | "; }else{ print "$customgrp{$key}[2]"; } if ($ip eq '' && $customgrp{$key}[2] ne $Lang::tr{'fwhost empty'}){ print "$Lang::tr{'fwhost deleted'} | $customgrp{$key}[3] | ".&Header::colorize($ip)." | $customgrp{$key}[3] | |
Name | $Lang::tr{'port'} | $Lang::tr{'fwhost prot'} | |
$customservicegrp{$key}[2] | "; foreach my $srv (sort keys %customservice){ if ($customservicegrp{$key}[2] eq $customservice{$srv}[0]){ $protocol=$customservice{$srv}[2]; $port=$customservice{$srv}[1]; last; } } print"$port | $protocol |