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

Diff for /loncom/init.d/loncontrol between versions 1.43 and 1.45

version 1.43, 2011/05/15 01:10:02 version 1.45, 2018/08/07 17:12:17
Line 93  sub stop_daemon { Line 93  sub stop_daemon {
  print(", killed off extraneous processes");   print(", killed off extraneous processes");
     }      }
     unlink($pidfile);      unlink($pidfile);
       if ($killallname eq 'loncnew') {
           &clean_nossl_loncpids();
       }
     print("\n");      print("\n");
 }  }
   
Line 107  sub clean_sockets { Line 110  sub clean_sockets {
     }      }
 }  }
   
   sub clean_nossl_loncpids {
       my $childpiddir = '/home/httpd/perl/logs/loncpids';
       my $nossldir = '/home/httpd/sockets/nosslverify';
       foreach my $dir ($childpiddir,$nossldir) {
           if (-d $dir) {
               if (opendir(my $dh,$dir)) {
                   while (my $fname=readdir($dh)) {
                       next if ($fname =~ /^\./);
                       unlink("$dir/$fname");
                   }
                   closedir($dh);
               }
           }
       }
   }
   
 if (($command eq "restart") || ($command eq 'stop') ||   if (($command eq "restart") || ($command eq 'stop') || 
     ($command eq 'start') || ($command eq "status")) {      ($command eq 'start') || ($command eq "status")) {
     my $iptables = &LONCAPA::Firewall::get_pathto_iptables();      my $iptables = &LONCAPA::Firewall::get_pathto_iptables();
Line 121  if (($command eq "restart") || ($command Line 140  if (($command eq "restart") || ($command
             if ($daemon eq 'lonc') { $killallname='loncnew'; }              if ($daemon eq 'lonc') { $killallname='loncnew'; }
             &stop_daemon($daemon,$killallname);              &stop_daemon($daemon,$killallname);
         }          }
         %iphost = &Apache::lonnet::get_iphost();          %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]);
Line 155  if (($command eq "restart") || ($command Line 174  if (($command eq "restart") || ($command
         }          }
         &clean_sockets();          &clean_sockets();
     } elsif ($command eq "start") {      } elsif ($command eq "start") {
         %iphost = &Apache::lonnet::get_iphost();          %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]);
         if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {          if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {
Removed from v.1.43  
changed lines
  Added in v.1.45

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