--- loncom/init.d/loncontrol	2003/09/16 21:01:39	1.11
+++ loncom/init.d/loncontrol	2003/12/18 21:23:01	1.15
@@ -58,6 +58,16 @@ if (($command eq "restart") or ($command
 	"\n";
     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','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") {
     print 'Stopping LON-CAPA'."\n";
     foreach my $daemon ('lonsql','lond','lonc','lonhttpd') {
@@ -70,6 +80,12 @@ elsif ($command eq "start") {
 	"\n"; 
     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") {
     $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;
     if ($response=~/No such file or directory/) {