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

Diff for /loncom/init.d/loncontrol between versions 1.10 and 1.11

version 1.10, 2003/02/03 18:03:52 version 1.11, 2003/09/16 21:01:39
Line 22  $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','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 "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','lonhttpd') {
    &stop_daemon($daemon);
       }
 }  }
 elsif ($command eq "start") {  elsif ($command eq "start") {
     print 'Starting LON-CAPA'."\n";      print 'Starting LON-CAPA'."\n";
Removed from v.1.10  
changed lines
  Added in v.1.11

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