diff options
| author | Darkelarious <darkelarious@333networks.com> | 2017-09-25 22:41:59 +0200 |
|---|---|---|
| committer | Darkelarious <darkelarious@333networks.com> | 2017-09-25 22:41:59 +0200 |
| commit | 18fc4c931e75d8de804c601b46dc8c8b339db3d9 (patch) | |
| tree | 58a78c8c7841f649fa2e98ddd94456a55951dfa7 /lib/MasterServer/Core/Util.pm | |
| parent | c06322da38b4cb76b2036af1a5448083adb8ff20 (diff) | |
| download | MasterServer-Perl-18fc4c931e75d8de804c601b46dc8c8b339db3d9.tar.gz MasterServer-Perl-18fc4c931e75d8de804c601b46dc8c8b339db3d9.zip | |
game statistics for all servers, numerous small fixes
Diffstat (limited to 'lib/MasterServer/Core/Util.pm')
| -rwxr-xr-x | lib/MasterServer/Core/Util.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MasterServer/Core/Util.pm b/lib/MasterServer/Core/Util.pm index 5af8264..3ca009d 100755 --- a/lib/MasterServer/Core/Util.pm +++ b/lib/MasterServer/Core/Util.pm @@ -54,8 +54,8 @@ sub valid_address { my $val_addr = ($a =~ '^(?:(?:25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)\.){3}(?:25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)$') if $a; my $val_port = ($p =~ m/^\d+$/ && 0 < $p && $p <= 65535) if $p; - # exclude addresses where we don't want people sniffing - for (qw|192.168.(.\d*).(.\d*) 127.0.(.\d*).(.\d*) 10.0.(.\d*).(.\d*)|){$val_addr = 0 if ($a =~ m/$_/)} + # exclude local addresses + if ($a =~ m/192.168.(\d).(\d)/ || $a =~ m/127.0.(\d).(\d)/ || $a =~ m/10.0.(\d).(\d)/) { $val_addr = 0; } # only return true if both are valid return ($val_addr && $val_port); |