return 0;
}
+sub validproxyport
+{
+ $_ = $_[0];
+
+ if (!/^\d+$/) {
+ return 0; }
+ if (/^0./) {
+ return 0; }
+ if ($_ == 53 || $_ == 222 || $_ == 444 || $_ == 81 ) {
+ return 0; }
+ elsif ($_ >= 1 && $_ <= 65535) {
+ return 1; }
+ return 0;
+}
+
sub validmac
{
my $checkmac = $_[0];
$errormessage = $Lang::tr{'invalid input'};
goto ERROR;
}
- if (!(&General::validport($proxysettings{'PROXY_PORT'})))
+ if (!(&General::validproxyport($proxysettings{'PROXY_PORT'})))
{
$errormessage = $Lang::tr{'advproxy errmsg invalid proxy port'};
goto ERROR;