|
version 1.24, 2005/02/14 00:29:48
|
version 1.25, 2005/05/26 20:25:00
|
|
Line 162 if (($command eq "restartold") or ($comm
|
Line 162 if (($command eq "restartold") or ($comm
|
| print 'Starting LON-CAPA client and daemon processes (please be patient)'. |
print 'Starting LON-CAPA client and daemon processes (please be patient)'. |
| "\n"; |
"\n"; |
| system("su www -c '/home/httpd/perl/loncron --oldlonc --justcheckdaemons'"); |
system("su www -c '/home/httpd/perl/loncron --oldlonc --justcheckdaemons'"); |
| } elsif (($command eq "restart") or ($command eq "reload")) { |
} elsif ($command eq "restart") { |
| print 'Restarting LON-CAPA'."\n"; |
print 'Restarting LON-CAPA'."\n"; |
| print 'Ending LON-CAPA client and daemon processes'."\n"; |
print 'Ending LON-CAPA client and daemon processes'."\n"; |
| foreach my $daemon ('lonsql','lond','lonc','lonhttpd','lonmemcached') { |
foreach my $daemon ('lonsql','lond','lonc','lonhttpd','lonmemcached') { |
|
Line 193 if (($command eq "restartold") or ($comm
|
Line 193 if (($command eq "restartold") or ($comm
|
| print 'Starting LON-CAPA client and daemon processes (please be patient)'. |
print 'Starting LON-CAPA client and daemon processes (please be patient)'. |
| "\n"; |
"\n"; |
| system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'"); |
system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'"); |
| |
} elsif ($command eq "reload") { |
| |
print 'Reload LON-CAPA config files'."\n"; |
| |
system("su www -c '/home/httpd/perl/loncron --justreload'"); |
| } 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`; |
| if ($response=~/No such file or directory/) { |
if ($response=~/No such file or directory/) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncontrol CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / init.d