END
@@ -1406,7 +1410,7 @@ sub viewtablehost
}else{
print<
-
$Lang::tr{'name'}
$Lang::tr{'fwhost ip_mac'}
$Lang::tr{'used'}
+
$Lang::tr{'name'}
$Lang::tr{'fwhost ip_mac'}
$Lang::tr{'remark'}
$Lang::tr{'used'}
END
}
my $count=0;
@@ -1416,17 +1420,18 @@ END
}elsif ($count % 2){ print"
";}
else{ print"
";}
my ($ip,$sub)=split(/\//,$customhost{$key}[2]);
- $customhost{$key}[3]=~s/\s+//g;
+ $customhost{$key}[4]=~s/\s+//g;
print<
END
- if($customhost{$key}[3] == '0')
+ if($customhost{$key}[4] == '0')
{
print"
";
}else{
@@ -1511,7 +1516,7 @@ sub viewtablegrp
if ($delflag > '1' && $ip ne ''){
print"";
}
- print"";
+ print"";
$helper=$customgrp{$key}[0];
$number++;
@@ -1750,7 +1755,6 @@ sub deletefromgrp
}
sub plausicheck
{
-
my $edit=shift;
#check hostname
if (!&validhostname($fwhostsettings{'HOSTNAME'}))
@@ -1761,7 +1765,6 @@ sub plausicheck
if ($fwhostsettings{'update'} eq 'on'){$fwhostsettings{'ACTION'}=$edit;}
}
#check if name collides with CCD Netname
-
&General::readhasharray("$configccdnet", \%ccdnet);
foreach my $key (keys %ccdnet) {
if($ccdnet{$key}[0] eq $fwhostsettings{'HOSTNAME'}){
@@ -1771,7 +1774,6 @@ sub plausicheck
last;
}
}
-
#check if IP collides with CCD NetIP
if ($fwhostsettings{'type'} ne 'mac'){
&General::readhasharray("$configccdnet", \%ccdnet);
@@ -1786,9 +1788,6 @@ sub plausicheck
}
}
}
-
-
-
#check if name collides with CCD Hostname
&General::readhasharray("$configccdhost", \%ccdhost);
foreach my $key (keys %ccdhost) {
@@ -1838,8 +1837,6 @@ sub plausicheck
{
$errormessage=$errormessage." ".$Lang::tr{'fwhost err ipcheck'};
}
-
-
return;
}
sub getipforgroup
@@ -2083,13 +2080,13 @@ sub validremark
if (length ($remark) < 1 || length ($remark) > 255) {
return 0;}
# Only valid characters are a-z, A-Z, 0-9 and -
- if ($remark !~ /^[a-zäöüA-ZÖÄÜ0-9-.:;_\/\s]*$/) {
+ if ($remark !~ /^[a-zäöüA-ZÖÄÜ0-9-.:;()_\/\s]*$/) {
return 0;}
# First character can only be a letter or a digit
if (substr ($remark, 0, 1) !~ /^[a-zäöüA-ZÖÄÜ0-9]*$/) {
return 0;}
# Last character can only be a letter or a digit
- if (substr ($remark, -1, 1) !~ /^[a-zöäüA-ZÖÄÜ0-9.]*$/) {
+ if (substr ($remark, -1, 1) !~ /^[a-zöäüA-ZÖÄÜ0-9).]*$/) {
return 0;}
return 1;
}