loncom/init.d/loncontrol - diff

Return to loncontrol CVS log

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

version 1.4, 2000/10/27 18:06:00	version 1.5, 2001/04/21 15:29:05
Line 22 if (($command eq "restart") or ($command	Line 22 if (($command eq "restart") or ($command
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`;	print `su -c '/bin/kill \`/bin/cat /home/httpd/perl/logs/*.pid\`' www`;
print "Starting LON-CAPA client and daemon processes (please be patient)\n";	print "Starting LON-CAPA client and daemon processes (please be patient)\n";
system("su -c '/home/httpd/perl/loncron' www");	system("su -c '/home/httpd/perl/loncron quick' www");
}	}
elsif ($command eq "stop") {	elsif ($command eq "stop") {
print "Stopping LON-CAPA\n";	print "Stopping LON-CAPA\n";
Line 31 elsif ($command eq "stop") {	Line 31 elsif ($command eq "stop") {
elsif ($command eq "start") {	elsif ($command eq "start") {
print "Starting LON-CAPA\n";	print "Starting LON-CAPA\n";
print "Starting LON-CAPA client and daemon processes (please be patient)\n";	print "Starting LON-CAPA client and daemon processes (please be patient)\n";
system("su -c /home/httpd/perl/loncron www");	system("su -c '/home/httpd/perl/loncron quick' 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`;