loncom/configuration/Firewall.pm - diff

Return to Firewall.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.19, 2019/07/02 19:40:22	version 1.20, 2020/01/11 22:07:54
Line 276 sub firewall_is_port_open {	Line 276 sub firewall_is_port_open {
# for other ports returns 1 if the firewall port is open, 0 if not.	# for other ports returns 1 if the firewall port is open, 0 if not.
# if firewalld is in use, checks for rich rules only.	# if firewalld is in use, checks for rich rules only.
my $count = 0;	my $count = 0;
	# check if firewall is active or installed
return $count if (! &firewall_is_active());	return $count if (! &firewall_is_active());
if ($firewalld) {	if ($firewalld) {
my $zone = &get_default_zone();	my $zone = &get_default_zone();
Line 307 sub firewall_is_port_open {	Line 308 sub firewall_is_port_open {
close(PIPE);	close(PIPE);
}	}
}	}
return $count;	} elsif (($fw_chain =~ /^[\w-]+$/) && (open(PIPE,"$iptables -L $fw_chain -n \|"))) {
}
return $count unless ($fw_chain !~ /^[\w-]+$/);
if (open(PIPE,"$iptables -L $fw_chain -n \|")) {
# check if firewall is active or installed
return if (! &firewall_is_active());
while(<PIPE>) {	while(<PIPE>) {
if ($port eq $lond_port) {	if ($port eq $lond_port) {
if (ref($iphost) eq 'HASH') {	if (ref($iphost) eq 'HASH') {