index 4d109684f37373877307f7613457f0acda37d2ac..b6a84898f79776247c7154c2bb95e80339cfc835 100755 (executable)
if($server_ip =~ /^[a-z][a-z0-9\.]$/i) {
my $ip_address = inet_ntoa(scalar gethostbyname($server_ip));
- if(defined($ip_address) && $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ && $port =~ /^\d+$/) {
+ if(defined($ip_address) && $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
# Write ip address to $server_ip variable
$server_ip = $ip_address;
}