$_ | "; - #} - #print"
$Lang::tr{'mode'} 0: | $Lang::tr{'outgoing firewall mode0'} | ||||||||||||||||||||||||||||||
$Lang::tr{'mode'} 1: | $Lang::tr{'outgoing firewall mode1'} | ||||||||||||||||||||||||||||||
$Lang::tr{'mode'} 2: | $Lang::tr{'outgoing firewall mode2'} |
FORWARD | ||
$Lang::tr{'fwdfw pol text'} | ||
- | - | + |
+ | + END - if ($fwdfwsettings{'POLICY'} ne 'MODE0'&& $fwdfwsettings{'POLICY'} ne '' ) { - print "$Lang::tr{'outgoing firewall reset'}: "; - } + print "$Lang::tr{'outgoing firewall reset'}: |
OUTGOING | ||
$Lang::tr{'fwdfw pol text1'} | ||
+ | + +END + print "$Lang::tr{'outgoing firewall reset'}: |
$Lang::tr{'fwhost stdnet'} | ||
$Lang::tr{'fwhost cust net'} | "; + } + #custom hosts + if (! -z $confighost || $optionsfw{'SHOWDROPDOWN'} eq 'on'){ + print" | |
$Lang::tr{'fwhost cust addr'} | "; + } + #custom groups + if (! -z $configgrp || $optionsfw{'SHOWDROPDOWN'} eq 'on'){ + print" | |
$Lang::tr{'fwhost cust grp'} | "; + } + #End left table. start right table (vpn) + print" |
$Lang::tr{'fwhost ccdnet'} | |||||
$Lang::tr{'fwhost ccdhost'} | |||||
$Lang::tr{'fwhost ovpn_n2n'}: | $Lang::tr{'fwhost ovpn_n2n'} | | |||
$Lang::tr{'fwhost ipsec net'} | $Lang::tr{'fwhost ipsec net'} | |
- | |||||||
$Lang::tr{'fwhost icmptype'} | |||||||
$Lang::tr{'fwhost icmptype'} |
$Lang::tr{'fwdfw use srv'} | $Lang::tr{'fwhost cust service'} | ||||||||||||||||||||||||
$Lang::tr{'fwhost cust srvgrp'}: | $Lang::tr{'fwhost cust srvgrp'}: | $Lang::tr{'fwhost icmptype'} | $Lang::tr{'fwhost icmptype'} | |
$Lang::tr{'fwdfw rule activate'} | |
$Lang::tr{'fwdfw log rule'} |
# | $Lang::tr{'fwdfw source'} | Log | $Lang::tr{'fwdfw target'} | $Lang::tr{'remark'} | $Lang::tr{'fwdfw action'} |
# | $Lang::tr{'fwdfw source'} | Log | $Lang::tr{'fwdfw target'} | $Lang::tr{'protocol'} | $Lang::tr{'fwdfw time'} | $Lang::tr{'fwdfw action'} | |||||||
$key | END if ($$hash{$key}[0] eq 'ACCEPT'){ $ruletype='A'; @@ -1730,13 +2107,15 @@ END $tooltip='REJECT'; $rulecolor=$color{'color16'}; } - print"$ruletype | "; - print""; + print" | $ruletype | "; + &getcolor($$hash{$key}[3],$$hash{$key}[4],\%customhost); + print"";
if ($$hash{$key}[3] eq 'std_net_src'){
print &get_name($$hash{$key}[4]);
}else{
print $$hash{$key}[4];
}
+ $tdcolor='';
&getsrcport(\%$hash,$key);
if ($$hash{$key}[17] eq 'ON'){
$log="/images/on.gif";
@@ -1746,25 +2125,56 @@ END
print<
END
if ($$hash{$key}[5] eq 'std_net_tgt'){
print &get_name($$hash{$key}[6]);
}else{
print $$hash{$key}[6];
}
+ $tdcolor='';
&gettgtport(\%$hash,$key);
- ################################################################################
- print" | $$hash{$key}[16] | ";
-
+ print" | ";
+ #Get Protocol
+ my $prot;
+ if ($$hash{$key}[12]){ #target prot if manual
+ push (@protocols,$$hash{$key}[12]);
+ }elsif($$hash{$key}[8]){ #source prot if manual
+ push (@protocols,$$hash{$key}[8]);
+ }elsif($$hash{$key}[14] eq 'cust_srv'){
+ &get_serviceports("service",$$hash{$key}[15]);
+ }elsif($$hash{$key}[14] eq 'cust_srvgrp'){
+ &get_serviceports("group",$$hash{$key}[15]);
+ }else{
+ push (@protocols,$Lang::tr{'all'});
+ }
+ my $protz=join(",",@protocols);
+ print"$protz | "; + @protocols=(); + if ($$hash{$key}[18] eq 'ON'){ + my @days=(); + if($$hash{$key}[19] ne ''){push (@days,$Lang::tr{'fwdfw wd_mon'});} + if($$hash{$key}[20] ne ''){push (@days,$Lang::tr{'fwdfw wd_tue'});} + if($$hash{$key}[21] ne ''){push (@days,$Lang::tr{'fwdfw wd_wed'});} + if($$hash{$key}[22] ne ''){push (@days,$Lang::tr{'fwdfw wd_thu'});} + if($$hash{$key}[23] ne ''){push (@days,$Lang::tr{'fwdfw wd_fri'});} + if($$hash{$key}[24] ne ''){push (@days,$Lang::tr{'fwdfw wd_sat'});} + if($$hash{$key}[25] ne ''){push (@days,$Lang::tr{'fwdfw wd_sun'});} + my $weekdays=join(",",@days); + if (@days){ + print"$weekdays   $$hash{$key}[26] - $$hash{$key}[27] | "; + } + }else{ + print"24/7 | "; + } if($$hash{$key}[2] eq 'ON'){ $gif="/images/on.gif" @@ -1773,25 +2183,25 @@ END } print<+ | "; + print" | "; } - #if timeframe set, print new line in table - if ($$hash{$key}[18] eq 'ON'){ - my @days=(); - if($$hash{$key}[19] ne ''){push (@days,$Lang::tr{'fwdfw wd_mon'});} - if($$hash{$key}[20] ne ''){push (@days,$Lang::tr{'fwdfw wd_tue'});} - if($$hash{$key}[21] ne ''){push (@days,$Lang::tr{'fwdfw wd_wed'});} - if($$hash{$key}[22] ne ''){push (@days,$Lang::tr{'fwdfw wd_thu'});} - if($$hash{$key}[23] ne ''){push (@days,$Lang::tr{'fwdfw wd_fri'});} - if($$hash{$key}[24] ne ''){push (@days,$Lang::tr{'fwdfw wd_sat'});} - if($$hash{$key}[25] ne ''){push (@days,$Lang::tr{'fwdfw wd_sun'});} - my $weekdays=join(",",@days); - if (@days){ - print" | |
$Lang::tr{'fwdfw time'} "; - print"$weekdays"; - print "  $Lang::tr{'fwdfw from'} $$hash{$key}[26]   $Lang::tr{'fwdfw till'} $$hash{$key}[27] | |||||||||||||
  |   $$hash{$key}[16] | ||||||||||||
$Lang::tr{'fwhost empty'} |