--- loncom/configuration/Firewall.pm	2011/05/15 00:49:41	1.11
+++ loncom/configuration/Firewall.pm	2013/09/22 15:50:35	1.13
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Firewall configuration to allow internal LON-CAPA communication between servers   
 #
-# $Id: Firewall.pm,v 1.11 2011/05/15 00:49:41 raeburn Exp $
+# $Id: Firewall.pm,v 1.13 2013/09/22 15:50:35 raeburn Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -35,6 +35,7 @@ package LONCAPA::Firewall;
 use strict;
 use lib '/home/httpd/perl/lib';
 use LONCAPA::Configuration;
+use LONCAPA;
 
 sub firewall_open_port {
     my ($iptables,$fw_chains,$lond_port,$iphost,$ports) = @_;
@@ -83,9 +84,11 @@ sub firewall_open_port {
                             if (($1<=255) && ($2<=255) && ($3<=255) && ($4<=255)) {
                                 $ip = "$1.$2.$3.$4";
                             } else {
+                                print "IP address: $key does not have expected format\n";
                                 next;
                             }
                         } else {
+                            print "IP address: $key does not have expected format\n";
                             next;
                         }
                         if ($curropen{$ip}) {
@@ -109,7 +112,11 @@ 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) {
                 unless (grep(/^\Q$port\E$/,@opened)) {
@@ -375,11 +382,7 @@ sub get_lond_port {
 
 sub get_fw_chains {
     my ($iptables) = @_;
-    my $distro;
-    if (open(PIPE,"/home/httpd/perl/distprobe|")) {
-        $distro = <PIPE>;
-        close(PIPE);
-    }
+    my $distro = &LONCAPA::distro();
     my @fw_chains;
     my $suse_config = "/etc/sysconfig/SuSEfirewall2";
     my $ubuntu_config = "/etc/ufw/ufw.conf";