--- loncom/configuration/Firewall.pm 2009/06/11 13:01:56 1.2 +++ loncom/configuration/Firewall.pm 2009/07/03 17:59:01 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Firewall configuration to allow internal LON-CAPA communication between servers # -# $Id: Firewall.pm,v 1.2 2009/06/11 13:01:56 raeburn Exp $ +# $Id: Firewall.pm,v 1.3 2009/07/03 17:59:01 raeburn Exp $ # # The LearningOnline Network with CAPA # @@ -302,6 +302,11 @@ sub get_fw_chain { if (!-e '/etc/sysconfig/iptables') { print("Unable to find iptables file containing static definitions\n"); } + my $count = `$iptables -L -n 2>/dev/null |grep $fw_chain |wc -l`; + chomp($count); + if (!$count) { + $fw_chain ='INPUT'; + } } return $fw_chain; }