Return to loncontrol CVS log

Up to [LON-CAPA] / loncom / init.d

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

1.1       harris41    1: #!/usr/bin/perl
1.2       harris41    2: #
1.6     ! harris41    3: # The LearningOnline Network with CAPA
        !             4: #
1.2       harris41    5: # Startup script for the LON-CAPA network processes
1.6     ! harris41    6: #
        !             7: # YEAR=2000
        !             8: # 10/25 Scott Harrison
        !             9: # YEAR=2001
        !            10: # 10/2 Scott Harrison
1.2       harris41   11: #
1.3       harris41   12: # chkconfig: 345 95 5
1.6     ! harris41   13: # description: LON-CAPA is an knowledge network server.  It is used to
        !            14: # distribute knowledge resources and instructional management.
1.2       harris41   15: # processnames: lonc, lond, lonsql
                     16: # pidfiles: /home/httpd/perl/logs/lon*.pid
                     17: # config: /etc/httpd/conf/access.conf
                     18: # config: /home/httpd/lonTabs/hosts.tab
                     19: # config: /home/httpd/lonTabs/spare.tab
                     20: 
1.1       harris41   21: $command=$ARGV[0]; $command=~s/[^a-z]//g;
                     22: 
                     23: $ENV{'PATH'}="/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin:/root/bin";
                     24: $ENV{'BASH_ENV'}="";
                     25: 
                     26: if (($command eq "restart") or ($command eq "reload")) {
1.6     ! harris41   27:     print 'Restarting LON-CAPA'."\n";
        !            28:     print 'Ending LON-CAPA client and daemon processes'."\n";
1.3       harris41   29:     print `su -c '/bin/kill \`/bin/cat /home/httpd/perl/logs/*.pid\`' www`;
1.6     ! harris41   30:     print 'Starting LON-CAPA client and daemon processes (please be patient)'.
        !            31: 	"\n";
        !            32:     system("su -c '/home/httpd/perl/loncron' www");
1.1       harris41   33: }
                     34: elsif ($command eq "stop") {
1.6     ! harris41   35:     print 'Stopping LON-CAPA'."\n";
1.3       harris41   36:     print `su -c '/bin/kill \`/bin/cat /home/httpd/perl/logs/*.pid\`' www`;
1.1       harris41   37: }
                     38: elsif ($command eq "start") {
1.6     ! harris41   39:     print 'Starting LON-CAPA'."\n";
        !            40:     print 'Starting LON-CAPA client and daemon processes (please be patient)'.
        !            41: 	"\n"; 
        !            42:     system("su -c '/home/httpd/perl/loncron' www");
1.1       harris41   43: }
                     44: elsif ($command eq "status") {
                     45:     $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;
                     46:     if ($response=~/No such file or directory/) {
1.6     ! harris41   47: 	print 'LON-CAPA is not running.'."\n";
1.1       harris41   48:     }
                     49:     else {
1.6     ! harris41   50: 	print 'LON-CAPA is running.'."\n";
1.1       harris41   51:     }
                     52: }
                     53: else {
1.6     ! harris41   54:     print 'You need to specify restart|stop|start|status on the command line'.
        !            55: 	' argument.'."\n";
1.1       harris41   56: }