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

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

version 1.42, 2011/05/13 01:36:30 version 1.43, 2011/05/15 01:10:02
Line 107  sub clean_sockets { Line 107  sub clean_sockets {
     }      }
 }  }
   
 if ($command eq "restart") {  if (($command eq "restart") || ($command eq 'stop') || 
     print 'Restarting LON-CAPA'."\n";      ($command eq 'start') || ($command eq "status")) {
     print 'Ending LON-CAPA client and daemon processes'."\n";  
     foreach my $daemon ('lonsql','lond','lonc','lonmemcached','lonmaxima','lonr') {  
  my $killallname=$daemon;  
  if ($daemon eq 'lonc') { $killallname='loncnew'; }  
  &stop_daemon($daemon,$killallname);  
     }  
     print 'Starting LON-CAPA client and daemon processes (please be patient)'.  
  "\n";  
     system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'");  
 } elsif (($command eq "stop") || ($command eq 'start') || ($command eq 'status')) {  
     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 %iphost;      my %iphost;
     if ($command eq 'stop') {      if ($command eq 'restart') {
           print 'Restarting LON-CAPA'."\n";
           print 'Ending LON-CAPA client and daemon processes'."\n";
           foreach my $daemon ('lonsql','lond','lonc','lonmemcached','lonmaxima','lonr') {
               my $killallname=$daemon;
               if ($daemon eq 'lonc') { $killallname='loncnew'; }
               &stop_daemon($daemon,$killallname);
           }
           %iphost = &Apache::lonnet::get_iphost();
           my $firewall_result =
               &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,
                                                $lond_port,\%iphost,[$lond_port]);
           if ($firewall_result) {
               print "$firewall_result\n";
           }
           $firewall_result =
               &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 'inactive firewall') {
                   print "WARNING: iptables firewall is currently inactive\n";
               }
           } elsif ($firewall_result) {
               print "$firewall_result\n";
           }
           print 'Starting LON-CAPA client and daemon processes (please be patient)'.
                 "\n";
           system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'");
       } elsif ($command eq 'stop') {
         print 'Stopping LON-CAPA'."\n";          print 'Stopping LON-CAPA'."\n";
         foreach my $daemon ('lonsql','lond','lonc','lonmemcached','lonmaxima','lonr') {          foreach my $daemon ('lonsql','lond','lonc','lonmemcached','lonmaxima','lonr') {
     my $killallname=$daemon;      my $killallname=$daemon;
Removed from v.1.42  
changed lines
  Added in v.1.43

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