#!/usr/bin/perl
#
# Startup script for the LON-CAPA network processes
# Scott Harrison 10/25/2000
#
# chkconfig: 345 95 5
# description: LON-CAPA is an knowledge network server. It is used to distribute \
# knowledge resources and instructional management.
# processnames: lonc, lond, lonsql
# pidfiles: /home/httpd/perl/logs/lon*.pid
# config: /etc/httpd/conf/access.conf
# config: /home/httpd/lonTabs/hosts.tab
# config: /home/httpd/lonTabs/spare.tab
$command=$ARGV[0]; $command=~s/[^a-z]//g;
$ENV{'PATH'}="/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin:/root/bin";
$ENV{'BASH_ENV'}="";
if (($command eq "restart") or ($command eq "reload")) {
print "Restarting LON-CAPA\n";
print "Ending LON-CAPA client and daemon processes\n";
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";
system("su -c '/home/httpd/perl/loncron quick' www");
}
elsif ($command eq "stop") {
print "Stopping LON-CAPA\n";
print `su -c '/bin/kill \`/bin/cat /home/httpd/perl/logs/*.pid\`' www`;
}
elsif ($command eq "start") {
print "Starting LON-CAPA\n";
print "Starting LON-CAPA client and daemon processes (please be patient)\n";
system("su -c '/home/httpd/perl/loncron quick' www");
}
elsif ($command eq "status") {
$response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;
if ($response=~/No such file or directory/) {
print "LON-CAPA is not running.\n";
}
else {
print "LON-CAPA is running.\n";
}
}
else {
print "You need to specify restart|stop|start|status on the command line argument.\n";
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>