$Lang::tr{'fwdfw use srv'} $Lang::tr{'fwhost cust service'}
+ $Lang::tr{'fwdfw use srv'} $Lang::tr{'fwhost cust service'}
END
&General::readhasharray("$configsrv", \%customservice);
foreach my $key (sort { ncmp($customservice{$a}[0],$customservice{$b}[0]) } keys %customservice){
@@ -1647,7 +1622,7 @@ END
}
print<
- $Lang::tr{'fwhost cust srvgrp'}:
+ $Lang::tr{'fwhost cust srvgrp'}
END
&General::readhasharray("$configsrvgrp", \%customservicegrp);
my $helper;
@@ -1661,7 +1636,7 @@ END
}
print<
- $Lang::tr{'fwdfw man port'}
+ $Lang::tr{'fwdfw man port'}
END
foreach ("TCP","UDP","GRE","ESP","AH","ICMP")
{
@@ -1674,7 +1649,7 @@ END
}
$fwdfwsettings{'TGT_PORT'} =~ s/\|/,/g;
print<
+
$Lang::tr{'fwhost icmptype'}
END
&General::readhasharray("${General::swroot}/fwhosts/icmp-types", \%icmptypes);
@@ -1696,31 +1671,29 @@ END
&Header::openbox('100%', 'left', 'NAT');
print<
- $Lang::tr{'fwdfw use nat'}
- $Lang::tr{'fwdfw dnat'}
+ $Lang::tr{'fwdfw use nat'}
+ $Lang::tr{'fwdfw dnat'}
END
- print"IPFire: ";
+ print"Firewall: ";
print "$Lang::tr{'all'} ";
print "Default IP ";
foreach my $alias (sort keys %aliases)
{
print "$alias ";
}
- print" ";
+ print" ";
$fwdfwsettings{'dnatport'}=~ tr/|/,/;
- print"Port: ";
+ print"Port: ";
print" ";
#SNAT
- print"$Lang::tr{'fwdfw snat'} ";
- print"IPFire: ";
- print "Default IP ";
+ print"$Lang::tr{'fwdfw snat'} ";
+ print"Firewall: ";
foreach my $alias (sort keys %aliases)
{
print "$alias ";
}
foreach my $network (sort keys %defaultNetworks)
{
- next if($defaultNetworks{$network}{'NAME'} eq "RED");
next if($defaultNetworks{$network}{'NAME'} eq "IPFire");
next if($defaultNetworks{$network}{'NAME'} eq "ALL");
next if($defaultNetworks{$network}{'NAME'} =~ /OpenVPN/i);
@@ -1728,7 +1701,7 @@ END
print " selected='selected'" if ($fwdfwsettings{$fwdfwsettings{'nat'}} eq $defaultNetworks{$network}{'NAME'});
print ">$network";
}
- print"