[LON-CAPA-cvs] cvs: loncom /configuration Firewall.pm

[raeburn]

raeburn		Sun Sep 22 15:50:35 2013 EDT

  Modified files:              
    /loncom/configuration	Firewall.pm 
  Log:
  - Additional output for unexpected states.
  
  
Index: loncom/configuration/Firewall.pm
diff -u loncom/configuration/Firewall.pm:1.12 loncom/configuration/Firewall.pm:1.13
--- loncom/configuration/Firewall.pm:1.12	Fri Feb  8 14:55:12 2013
+++ loncom/configuration/Firewall.pm	Sun Sep 22 15:50:35 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Firewall configuration to allow internal LON-CAPA communication between servers   
 #
-# $Id: Firewall.pm,v 1.12 2013/02/08 14:55:12 raeburn Exp $
+# $Id: Firewall.pm,v 1.13 2013/09/22 15:50:35 raeburn Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -84,9 +84,11 @@
                             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}) {
@@ -110,7 +112,11 @@
                             }
                         }
                     }
+                } 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$/, at opened)) {