loncom/configuration/Firewall.pm - diff

Return to Firewall.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.12, 2013/02/08 14:55:12	version 1.13, 2013/09/22 15:50:35
Line 84 sub firewall_open_port {	Line 84 sub firewall_open_port {
if (($1<=255) && ($2<=255) && ($3<=255) && ($4<=255)) {	if (($1<=255) && ($2<=255) && ($3<=255) && ($4<=255)) {
$ip = "$1.$2.$3.$4";	$ip = "$1.$2.$3.$4";
} else {	} else {
	print "IP address: $key does not have expected format\n";
next;	next;
}	}
} else {	} else {
	print "IP address: $key does not have expected format\n";
next;	next;
}	}
if ($curropen{$ip}) {	if ($curropen{$ip}) {
Line 110 sub firewall_open_port {	Line 112 sub firewall_open_port {
}	}
}	}
}	}
	} else {
	print "no key found in $iphost hash ref\n";
}	}
	} else {
	print "$iphost is not a reference to a hash\n";
}	}
if (@lond_port_curropen) {	if (@lond_port_curropen) {
unless (grep(/^\Q$port\E$/,@opened)) {	unless (grep(/^\Q$port\E$/,@opened)) {