--- loncom/init.d/loncontrol	2004/01/05 22:36:48	1.16
+++ loncom/init.d/loncontrol	2004/04/01 22:14:42	1.17
@@ -56,7 +56,7 @@ if (($command eq "restartold") or ($comm
     }
     print 'Starting LON-CAPA client and daemon processes (please be patient)'.
 	"\n";
-    system("su -c '/home/httpd/perl/loncron' www");
+    system("su www -c '/home/httpd/perl/loncron'");
 } elsif (($command eq "restart") or ($command eq "reload")) {
     print 'Restarting LON-CAPA'."\n";
     print 'Ending LON-CAPA client and daemon processes'."\n";
@@ -65,7 +65,7 @@ if (($command eq "restartold") or ($comm
     }
     print 'Starting LON-CAPA client and daemon processes (please be patient)'.
 	"\n";
-    system("su -c '/home/httpd/perl/loncron new' www");
+    system("su www -c '/home/httpd/perl/loncron new'");
 } elsif ($command eq "stop") {
     print 'Stopping LON-CAPA'."\n";
     foreach my $daemon ('lonsql','lond','lonc','lonhttpd') {
@@ -75,12 +75,12 @@ if (($command eq "restartold") or ($comm
     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");
+    system("su www -c '/home/httpd/perl/loncron'");
 } 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 new' www");
+    system("su www -c '/home/httpd/perl/loncron new'");
 } elsif ($command eq "status") {
     $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;
     if ($response=~/No such file or directory/) {