--- loncom/init.d/loncontrol 2000/10/26 02:46:57 1.3 +++ loncom/init.d/loncontrol 2000/10/27 18:06:00 1.4 @@ -23,21 +23,15 @@ if (($command eq "restart") or ($command 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' www"); - print "Restarting web server\n"; - print `/etc/rc.d/init.d/httpd restart`; } elsif ($command eq "stop") { print "Stopping LON-CAPA\n"; print `su -c '/bin/kill \`/bin/cat /home/httpd/perl/logs/*.pid\`' www`; - print "Stopping web server\n"; - print `/etc/rc.d/init.d/httpd stop`; } 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 www"); - print "Starting web server\n"; - print `/etc/rc.d/init.d/httpd start`; } elsif ($command eq "status") { $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;