Annotation of loncom/init.d/loncontrol, revision 1.43

1.1       harris41    1: #!/usr/bin/perl
1.2       harris41    2: #
1.43    ! raeburn     3: # $Id: loncontrol,v 1.42 2011/05/13 01:36:30 raeburn Exp $
1.23      matthew     4: #
1.6       harris41    5: # The LearningOnline Network with CAPA
                      6: #
1.21      matthew     7: # Copyright Michigan State University Board of Trustees
                      8: #
                      9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                     10: #
                     11: # LON-CAPA is free software; you can redistribute it and/or modify
                     12: # it under the terms of the GNU General Public License as published by
                     13: # the Free Software Foundation; either version 2 of the License, or
                     14: # (at your option) any later version.
                     15: #
                     16: # LON-CAPA is distributed in the hope that it will be useful,
                     17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     19: # GNU General Public License for more details.
                     20: #
                     21: # You should have received a copy of the GNU General Public License
                     22: # along with LON-CAPA; if not, write to the Free Software
                     23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     24: #
                     25: # /home/httpd/html/adm/gpl.txt
                     26: #
                     27: # http://www.lon-capa.org/
                     28: #
1.2       harris41   29: # Startup script for the LON-CAPA network processes
1.6       harris41   30: #
1.7       harris41   31: 
1.3       harris41   32: # chkconfig: 345 95 5
1.21      matthew    33: # description: LON-CAPA is a "network of knowledge".  It is used to \
1.6       harris41   34: # distribute knowledge resources and instructional management.
1.35      raeburn    35: # processnames: lonc, lond, lonsql, lonmaxima, lonr
1.2       harris41   36: # pidfiles: /home/httpd/perl/logs/lon*.pid
1.7       harris41   37: # config: /etc/httpd/conf/loncapa.conf
1.2       harris41   38: # config: /home/httpd/lonTabs/hosts.tab
                     39: # config: /home/httpd/lonTabs/spare.tab
1.31      albertel   40: # SuSE chkconfig/insserv info
                     41: ### BEGIN INIT INFO
                     42: # Provides:       loncapa
1.40      raeburn    43: # Required-Start: SuSEfirewall2_setup mysql apache2 $network $remote_fs
                     44: # Should-Start:   $ALL
1.31      albertel   45: # Required-Stop:
1.42      raeburn    46: # Default-Start:  3 5
1.31      albertel   47: # Default-Stop:
                     48: # Description:    Starts the LON-CAPA services
                     49: ### END INIT INFO
                     50: 
1.34      raeburn    51: use strict;
                     52: use lib '/home/httpd/lib/perl/';
                     53: use LONCAPA::Configuration;
1.37      raeburn    54: use LONCAPA::Firewall;
1.36      raeburn    55: use Apache::lonnet;
1.2       harris41   56: 
1.34      raeburn    57: my $command=$ARGV[0]; $command=~s/[^a-z]//g;
1.1       harris41   58: 
                     59: $ENV{'PATH'}="/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin:/root/bin";
                     60: $ENV{'BASH_ENV'}="";
                     61: 
1.11      albertel   62: sub stop_daemon {
1.19      albertel   63:     my ($daemon,$killallname)=@_;
1.11      albertel   64:     my $pidfile="/home/httpd/perl/logs/$daemon.pid";
                     65:     
1.24      albertel   66:     printf("%-15s ",$daemon);
1.11      albertel   67:     if (-e $pidfile) {
                     68: 	open(PIDFILE,$pidfile);
                     69: 	my $daemonpid=<PIDFILE>;
                     70: 	chomp($daemonpid);
                     71: 	kill TERM => $daemonpid;
1.32      albertel   72: 	my $count=0;
                     73: 	while ($count++ < 5 && kill(0 => $daemonpid)) {
                     74: 	    sleep 1;
                     75: 	}
1.11      albertel   76: 	if (kill 0 => $daemonpid) {
                     77: 	    kill KILL => $daemonpid;
1.26      albertel   78: 	    sleep 1;
1.11      albertel   79: 	    if (kill 0 => $daemonpid) {
1.19      albertel   80: 		print("failed to kill");
1.11      albertel   81: 	    } else {
1.19      albertel   82: 		print("killed");
1.11      albertel   83: 	    }
                     84: 	} else {
1.19      albertel   85: 	    print("stopped");
1.11      albertel   86: 	}
1.19      albertel   87:     } else {
                     88: 	print("not running");
                     89:     }
                     90:     system("killall -q -0 $killallname");
                     91:     if ($? == 0) {
                     92: 	system("killall -q $killallname");
                     93: 	print(", killed off extraneous processes");
1.11      albertel   94:     }
1.24      albertel   95:     unlink($pidfile);
1.19      albertel   96:     print("\n");
1.11      albertel   97: }
                     98: 
1.30      albertel   99: sub clean_sockets {
                    100:     opendir(SOCKETS,"/home/httpd/sockets/");
1.34      raeburn   101:     my $perlvarref=&LONCAPA::Configuration::read_conf();
                    102:     return if (ref($perlvarref) ne 'HASH');
1.30      albertel  103:     while (my $fname=readdir(SOCKETS)) {
                    104: 	next if (-d $fname
1.34      raeburn   105: 		 || $fname=~/(mysqlsock|maximasock|\Q$perlvarref->{'lonSockDir'}\E)/);
1.30      albertel  106: 	unlink("/home/httpd/sockets/$fname");
                    107:     }
                    108: }
1.20      matthew   109: 
1.43    ! raeburn   110: if (($command eq "restart") || ($command eq 'stop') || 
        !           111:     ($command eq 'start') || ($command eq "status")) {
1.37      raeburn   112:     my $iptables = &LONCAPA::Firewall::get_pathto_iptables();
1.39      raeburn   113:     my @fw_chains = &LONCAPA::Firewall::get_fw_chains($iptables);
1.37      raeburn   114:     my $lond_port = &LONCAPA::Firewall::get_lond_port();
1.41      raeburn   115:     my %iphost;
1.43    ! raeburn   116:     if ($command eq 'restart') {
        !           117:         print 'Restarting LON-CAPA'."\n";
        !           118:         print 'Ending LON-CAPA client and daemon processes'."\n";
        !           119:         foreach my $daemon ('lonsql','lond','lonc','lonmemcached','lonmaxima','lonr') {
        !           120:             my $killallname=$daemon;
        !           121:             if ($daemon eq 'lonc') { $killallname='loncnew'; }
        !           122:             &stop_daemon($daemon,$killallname);
        !           123:         }
        !           124:         %iphost = &Apache::lonnet::get_iphost();
        !           125:         my $firewall_result =
        !           126:             &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,
        !           127:                                              $lond_port,\%iphost,[$lond_port]);
        !           128:         if ($firewall_result) {
        !           129:             print "$firewall_result\n";
        !           130:         }
        !           131:         $firewall_result =
        !           132:             &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,
        !           133:                                             $lond_port, \%iphost,[$lond_port]);
        !           134:         if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {
        !           135:             if ($firewall_result eq 'inactive firewall') {
        !           136:                 print "WARNING: iptables firewall is currently inactive\n";
        !           137:             }
        !           138:         } elsif ($firewall_result) {
        !           139:             print "$firewall_result\n";
        !           140:         }
        !           141:         print 'Starting LON-CAPA client and daemon processes (please be patient)'.
        !           142:               "\n";
        !           143:         system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'");
        !           144:     } elsif ($command eq 'stop') {
1.37      raeburn   145:         print 'Stopping LON-CAPA'."\n";
                    146:         foreach my $daemon ('lonsql','lond','lonc','lonmemcached','lonmaxima','lonr') {
                    147: 	    my $killallname=$daemon;
                    148: 	    if ($daemon eq 'lonc') { $killallname='loncnew'; }
                    149: 	    &stop_daemon($daemon,$killallname);
                    150:         }
                    151:         my $firewall_result = 
1.41      raeburn   152:             &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,$lond_port,\%iphost,[$lond_port]);
1.37      raeburn   153:         if ($firewall_result) {
                    154:             print "$firewall_result\n";
                    155:         }
                    156:         &clean_sockets();
                    157:     } elsif ($command eq "start") {
1.41      raeburn   158:         %iphost = &Apache::lonnet::get_iphost();
1.37      raeburn   159:         my $firewall_result = 
1.39      raeburn   160:             &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,$lond_port,\%iphost,[$lond_port]);
1.37      raeburn   161:         if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {
                    162:             if ($firewall_result eq 'inactive firewall') {
                    163:                 print "WARNING: iptables firewall is currently inactive\n";
                    164:             }
                    165:             print 'Starting LON-CAPA'."\n";
                    166:             print 'Starting LON-CAPA client and daemon processes (please be patient)'.
                    167: 	          "\n";
                    168:             system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'");
                    169:         } else {
                    170:             print "Not starting LON-CAPA\n";
                    171:             if ($firewall_result eq 'port number unknown') {
                    172:                 print "Could not check for status of LON-CAPA port in running firewall - port number unknown.  \n";
                    173:             } elsif ($firewall_result) {
                    174:                 print "$firewall_result\n";
                    175:             }
                    176:         }
                    177:     } elsif ($command eq "status") {
1.41      raeburn   178:         %iphost = &Apache::lonnet::get_iphost();
1.37      raeburn   179:         my $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;
                    180:         if ($response=~/No such file or directory/) {
                    181: 	    print 'LON-CAPA is not running.'."\n";
                    182:         } else {
                    183: 	    print 'LON-CAPA is running.'."\n";
                    184: 	    system("su www -c '/home/httpd/perl/loncron --justcheckconnections'");
                    185:         }
                    186:         if (! &LONCAPA::Firewall::firewall_is_active()) {
                    187:             print 'The iptables firewall is not active'."\n";
1.34      raeburn   188:         }
1.37      raeburn   189:         if ($lond_port) {
1.39      raeburn   190:             my $londopen;
                    191:             foreach my $fw_chain (@fw_chains) { 
                    192:                 my $numopen = &LONCAPA::Firewall::firewall_is_port_open($iptables,$fw_chain,$lond_port,$lond_port,\%iphost);
                    193:                 $londopen += $numopen; 
                    194:             }
                    195:             if ($londopen) {
1.37      raeburn   196:                 print "The LON-CAPA port ($lond_port) is open in firewall.\n";
                    197:             } elsif (&LONCAPA::Firewall::firewall_is_active) {
                    198:                 print "The LON-CAPA port ($lond_port) is NOT open in running firewall!\n";
                    199:             }
                    200:         } else {
                    201:             if (&LONCAPA::Firewall::firewall_is_active()) {
                    202:                 print "Could not check for status of LON-CAPA port in running firewall - port number unknown.\n";
                    203:             } else {
                    204:                 print "LON-CAPA port number is unknown, and firewall is not running.\n";
                    205:             }
1.34      raeburn   206:         }
                    207:     }
1.25      albertel  208: } elsif ($command eq "reload") {
                    209:     print 'Reload LON-CAPA config files'."\n";
                    210:     system("su www -c '/home/httpd/perl/loncron --justreload'");
1.16      albertel  211: } else {
1.37      raeburn   212:     print "You need to specify one of reload|restart|stop|start|status on the command line.\n";
1.1       harris41  213: }

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