Diff for /loncom/init.d/loncontrol between versions 1.8 and 1.12

version 1.8, 2002/10/19 21:39:38 version 1.12, 2003/10/14 15:36:21
Line 5 Line 5
 # Startup script for the LON-CAPA network processes  # Startup script for the LON-CAPA network processes
 #  #
 # YEAR=2000  # YEAR=2000
 # 10/25 Scott Harrison  
 # YEAR=2001  # YEAR=2001
 # 10/2 Scott Harrison  
 # YEAR=2002  # YEAR=2002
 # 5/11 Scott Harrison  
   
 # chkconfig: 345 95 5  # chkconfig: 345 95 5
 # description: LON-CAPA is an knowledge network server.  It is used to  # description: LON-CAPA is a "network of knowledge".  It is used to
 # distribute knowledge resources and instructional management.  # distribute knowledge resources and instructional management.
 # processnames: lonc, lond, lonsql  # processnames: lonc, lond, lonsql
 # pidfiles: /home/httpd/perl/logs/lon*.pid  # pidfiles: /home/httpd/perl/logs/lon*.pid
Line 25  $command=$ARGV[0]; $command=~s/[^a-z]//g Line 22  $command=$ARGV[0]; $command=~s/[^a-z]//g
 $ENV{'PATH'}="/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin:/root/bin";  $ENV{'PATH'}="/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin:/root/bin";
 $ENV{'BASH_ENV'}="";  $ENV{'BASH_ENV'}="";
   
   sub stop_daemon {
       my ($daemon)=@_;
       my $pidfile="/home/httpd/perl/logs/$daemon.pid";
       
       printf("%-10s ",$daemon);
       if (-e $pidfile) {
    open(PIDFILE,$pidfile);
    my $daemonpid=<PIDFILE>;
    chomp($daemonpid);
    kill TERM => $daemonpid;
    sleep 2;
    if (kill 0 => $daemonpid) {
       kill KILL => $daemonpid;
       sleep 2;
       if (kill 0 => $daemonpid) {
    print("failed to kill\n"); return;
       } else {
    print("killed\n"); return;
       }
    } else {
       print("stopped\n"); return;
    }
       }
       print("not running\n");
   }
   
 if (($command eq "restart") or ($command eq "reload")) {  if (($command eq "restart") or ($command eq "reload")) {
     print 'Restarting LON-CAPA'."\n";      print 'Restarting LON-CAPA'."\n";
     print 'Ending LON-CAPA client and daemon processes'."\n";      print 'Ending LON-CAPA client and daemon processes'."\n";
     print `su -c '/bin/kill \`/bin/cat /home/httpd/perl/logs/*.pid\`' www`;      foreach my $daemon ('lonsql','lond','lonc','loncnew','lonhttpd') {
    &stop_daemon($daemon);
       }
     print 'Starting LON-CAPA client and daemon processes (please be patient)'.      print 'Starting LON-CAPA client and daemon processes (please be patient)'.
  "\n";   "\n";
     system("su -c '/home/httpd/perl/loncron' www");      system("su -c '/home/httpd/perl/loncron' www");
 }  }
   elsif (($command eq "restartnew") or ($command eq "reloadnew")) {
       print 'Restarting LON-CAPA'."\n";
       print 'Ending LON-CAPA client and daemon processes'."\n";
       foreach my $daemon ('lonsql','lond','lonc','loncnew','lonhttpd') {
    &stop_daemon($daemon);
       }
       print 'Starting LON-CAPA client and daemon processes (please be patient)'.
    "\n";
       system("su -c '/home/httpd/perl/loncron new' www");
   }
 elsif ($command eq "stop") {  elsif ($command eq "stop") {
     print 'Stopping LON-CAPA'."\n";      print 'Stopping LON-CAPA'."\n";
     print `su -c '/bin/kill \`/bin/cat /home/httpd/perl/logs/*.pid\`' www`;      foreach my $daemon ('lonsql','lond','lonc','loncnew','lonhttpd') {
    &stop_daemon($daemon);
       }
 }  }
 elsif ($command eq "start") {  elsif ($command eq "start") {
     print 'Starting LON-CAPA'."\n";      print 'Starting LON-CAPA'."\n";
Line 43  elsif ($command eq "start") { Line 80  elsif ($command eq "start") {
  "\n";    "\n"; 
     system("su -c '/home/httpd/perl/loncron' www");      system("su -c '/home/httpd/perl/loncron' www");
 }  }
   elsif ($command eq "startnew") {
       print 'Starting LON-CAPA'."\n";
       print 'Starting LON-CAPA client and daemon processes (please be patient)'.
    "\n"; 
       system("su -c '/home/httpd/perl/loncron new' www");
   }
 elsif ($command eq "status") {  elsif ($command eq "status") {
     $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;      $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;
     if ($response=~/No such file or directory/) {      if ($response=~/No such file or directory/) {

Removed from v.1.8  
changed lines
  Added in v.1.12


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