Diff for /loncom/configuration/Firewall.pm between versions 1.13 and 1.14

version 1.13, 2013/09/22 15:50:35 version 1.14, 2014/03/17 14:47:46
Line 51  sub firewall_open_port { Line 51  sub firewall_open_port {
         }          }
     }      }
     if (!@okchains) {      if (!@okchains) {
         return 'None of the chain names has the expected format'."\n";          return 'None of the chain names has the expected format.'."\n";
     }      }
     if (ref($ports) ne 'ARRAY') {      if (ref($ports) ne 'ARRAY') {
         return 'List of ports to open needed.';          return 'List of ports to open needed.';
Line 61  sub firewall_open_port { Line 61  sub firewall_open_port {
         if ($portnum =~ /^(\d+)$/) {          if ($portnum =~ /^(\d+)$/) {
             $port = $1;              $port = $1;
         } else {          } else {
             print "Skipped non-numeric port: $portnum\n";              print "Skipped non-numeric port: $portnum.\n";
             next;              next;
         }          }
         print "Opening firewall access on port $port.\n";          print "Opening firewall access on port $port.\n";
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";                                  print "IP address: $key does not have expected format.\n";
                                 next;                                  next;
                             }                              }
                         } else {                          } else {
                             print "IP address: $key does not have expected format\n";                              print "IP address: $key does not have expected format.\n";
                             next;                              next;
                         }                          }
                         if ($curropen{$ip}) {                          if ($curropen{$ip}) {
Line 122  sub firewall_open_port { Line 122  sub firewall_open_port {
                 unless (grep(/^\Q$port\E$/,@opened)) {                  unless (grep(/^\Q$port\E$/,@opened)) {
                     push(@opened,$port);                      push(@opened,$port);
                 }                  }
                 print "Port already open for ".scalar(@lond_port_curropen)." IP addresses\n";                  print "Port already open for ".scalar(@lond_port_curropen)." IP addresses.\n";
             }              }
             if (@lond_port_open) {              if (@lond_port_open) {
                 unless (grep(/^\Q$port\E$/,@opened)) {                     unless (grep(/^\Q$port\E$/,@opened)) {   
                     push(@opened,$port);                      push(@opened,$port);
                 }                  }
                 print "Port opened for ".scalar(@lond_port_open)." IP addresses\n";                  print "Port opened for ".scalar(@lond_port_open)." IP addresses.\n";
             }              }
             if (@port_error) {              if (@port_error) {
                 print "Error opening port for following IP addresses: ".join(', ',@port_error)."\n";                  print "Error opening port for following IP addresses: ".join(', ',@port_error)."\n";
Line 238  sub firewall_close_port { Line 238  sub firewall_close_port {
         }          }
     }      }
     if (!@okchains) {      if (!@okchains) {
         return 'None of the chain names has the expected format'."\n";          return 'None of the chain names has the expected format.'."\n";
     }      }
     if (ref($ports) ne 'ARRAY') {      if (ref($ports) ne 'ARRAY') {
         return 'List of ports to close needed.';          return 'List of ports to close needed.';
Line 292  sub firewall_close_port { Line 292  sub firewall_close_port {
                     }                      }
                 }                  }
                 if (@lond_port_close) {                  if (@lond_port_close) {
                     $output .= "Port closed for ".scalar(@lond_port_close)." IP addresses\n";                      $output .= "Port closed for ".scalar(@lond_port_close)." IP addresses.\n";
                 }                  }
                 if (@port_error) {                  if (@port_error) {
                     $output .= "Error closing port for following IP addresses: ".join(', ',@port_error)."\n";                      $output .= "Error closing port for following IP addresses: ".join(', ',@port_error)."\n";
Line 353  sub firewall_close_anywhere { Line 353  sub firewall_close_anywhere {
                 system($firewall_command);                  system($firewall_command);
                 my $return_status = $?>>8;                  my $return_status = $?>>8;
                 if ($return_status == 1) {                  if ($return_status == 1) {
                     print 'Error closing port '.$port.' for source "anywhere"'."\n";                      print 'Error closing port '.$port.' for source "anywhere".'."\n";
                 } elsif ($return_status == 2) {                  } elsif ($return_status == 2) {
                     print 'Bad command error closing port '.$port.' for source "anywhere".  Command was'."\n".                      print 'Bad command error closing port '.$port.' for source "anywhere".  Command was'."\n".
                           ' '.$firewall_command."\n";                            ' '.$firewall_command."\n";
Line 401  sub get_fw_chains { Line 401  sub get_fw_chains {
             if (!-e '/etc/sysconfig/iptables') {              if (!-e '/etc/sysconfig/iptables') {
                 if (!-e '/var/lib/iptables') {                  if (!-e '/var/lib/iptables') {
                     unless ($distro =~ /^(debian|ubuntu)/) {                      unless ($distro =~ /^(debian|ubuntu)/) {
                         print("Unable to find iptables file containing static definitions\n");                          print("Unable to find iptables file containing static definitions.\n");
                     }                      }
                 }                  }
                 if ($distro =~ /^(fedora|rhes|centos|scientific)/) {                  if ($distro =~ /^(fedora|rhes|centos|scientific)/) {
Line 441  sub get_pathto_iptables { Line 441  sub get_pathto_iptables {
     } elsif (-e '/usr/sbin/iptables') {      } elsif (-e '/usr/sbin/iptables') {
         $iptables = '/usr/sbin/iptables';          $iptables = '/usr/sbin/iptables';
     } else {      } else {
         print("Unable to find iptables command\n");          print("Unable to find iptables command.\n");
     }      }
     return $iptables;      return $iptables;
 }  }

Removed from v.1.13  
changed lines
  Added in v.1.14


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>