[BACK]Return to loncontrol CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / init.d

Diff for /loncom/init.d/loncontrol between versions 1.44 and 1.44.2.1

version 1.44, 2015/09/20 18:31:33 version 1.44.2.1, 2019/07/07 20:49:02
Line 112  if (($command eq "restart") || ($command Line 112  if (($command eq "restart") || ($command
     my $iptables = &LONCAPA::Firewall::get_pathto_iptables();      my $iptables = &LONCAPA::Firewall::get_pathto_iptables();
     my @fw_chains = &LONCAPA::Firewall::get_fw_chains($iptables);      my @fw_chains = &LONCAPA::Firewall::get_fw_chains($iptables);
     my $lond_port = &LONCAPA::Firewall::get_lond_port();      my $lond_port = &LONCAPA::Firewall::get_lond_port();
       my $firewalld = &LONCAPA::Firewall::uses_firewalld();
     my %iphost;      my %iphost;
     if ($command eq 'restart') {      if ($command eq 'restart') {
         print 'Restarting LON-CAPA'."\n";          print 'Restarting LON-CAPA'."\n";
Line 124  if (($command eq "restart") || ($command Line 125  if (($command eq "restart") || ($command
         %iphost = &Apache::lonnet::get_iphost('',1);          %iphost = &Apache::lonnet::get_iphost('',1);
         my $firewall_result =          my $firewall_result =
             &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,              &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,
                                              $lond_port,\%iphost,[$lond_port]);                                               $lond_port,\%iphost,[$lond_port],
                                                $firewalld);
         if ($firewall_result) {          if ($firewall_result) {
             print "$firewall_result\n";              print "$firewall_result\n";
         }          }
         $firewall_result =          $firewall_result =
             &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,              &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,
                                             $lond_port, \%iphost,[$lond_port]);                                              $lond_port, \%iphost,[$lond_port],
                                               $firewalld);
         if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {          if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {
             if ($firewall_result eq 'inactive firewall') {              if ($firewall_result eq 'inactive firewall') {
                 print "WARNING: iptables firewall is currently inactive\n";                  print "WARNING: iptables firewall is currently inactive\n";
Line 149  if (($command eq "restart") || ($command Line 152  if (($command eq "restart") || ($command
     &stop_daemon($daemon,$killallname);      &stop_daemon($daemon,$killallname);
         }          }
         my $firewall_result =           my $firewall_result = 
             &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,$lond_port,\%iphost,[$lond_port]);              &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,
                                                       $lond_port,\%iphost,[$lond_port],
                                                       $firewalld);
         if ($firewall_result) {          if ($firewall_result) {
             print "$firewall_result\n";              print "$firewall_result\n";
         }          }
Line 157  if (($command eq "restart") || ($command Line 162  if (($command eq "restart") || ($command
     } elsif ($command eq "start") {      } elsif ($command eq "start") {
         %iphost = &Apache::lonnet::get_iphost('',1);          %iphost = &Apache::lonnet::get_iphost('',1);
         my $firewall_result =           my $firewall_result = 
             &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,$lond_port,\%iphost,[$lond_port]);              &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,
                                                      $lond_port,\%iphost,[$lond_port],
                                                      $firewalld);
         if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {          if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {
             if ($firewall_result eq 'inactive firewall') {              if ($firewall_result eq 'inactive firewall') {
                 print "WARNING: iptables firewall is currently inactive\n";                  print "WARNING: iptables firewall is currently inactive\n";
Line 189  if (($command eq "restart") || ($command Line 196  if (($command eq "restart") || ($command
         if ($lond_port) {          if ($lond_port) {
             my $londopen;              my $londopen;
             foreach my $fw_chain (@fw_chains) {               foreach my $fw_chain (@fw_chains) { 
                 my $numopen = &LONCAPA::Firewall::firewall_is_port_open($iptables,$fw_chain,$lond_port,$lond_port,\%iphost);                  my $numopen = &LONCAPA::Firewall::firewall_is_port_open($iptables,$fw_chain,$lond_port,$lond_port,\%iphost,$firewalld);
                 $londopen += $numopen;                   $londopen += $numopen; 
             }              }
             if ($londopen) {              if ($londopen) {
                 print "The LON-CAPA port ($lond_port) is open in firewall.\n";                  print "The LON-CAPA port ($lond_port) is open in firewall.\n";
             } elsif (&LONCAPA::Firewall::firewall_is_active) {              } elsif (&LONCAPA::Firewall::firewall_is_active()) {
                 print "The LON-CAPA port ($lond_port) is NOT open in running firewall!\n";                  print "The LON-CAPA port ($lond_port) is NOT open in running firewall!\n";
             }              }
         } else {          } else {
Removed from v.1.44  
changed lines
  Added in v.1.44.2.1

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