$_ | "; - #} - #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{'fwdfw rule activate'} | |
$Lang::tr{'fwdfw log rule'} |
# | $Lang::tr{'fwdfw source'} | Log | $Lang::tr{'fwdfw target'} | $Lang::tr{'protocol'} | $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'; @@ -1797,13 +1915,15 @@ END $tooltip='REJECT'; $rulecolor=$color{'color16'}; } - print"$ruletype | "; - print""; + print" | $ruletype | "; + &getcolor($$hash{$key}[3],$$hash{$key}[4]); + 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";
@@ -1813,23 +1933,23 @@ 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" | ";
#Get Protocol
my $prot;
@@ -1845,9 +1965,22 @@ END
$prot=$Lang::tr{'all'};
}
print"$prot | ";
-
- print"$$hash{$key}[16] | ";
-
+ 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"
@@ -1856,25 +1989,25 @@ END
}
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] | "; } + #REMARK + print" | ||||||||||||
"; + print"$Lang::tr{'remark'}: $$hash{$key}[16] |