version 1.29, 2002/05/27 19:21:59
|
version 1.30, 2002/06/08 14:59:04
|
Line 352 if ($perlvar{'lonRole'} eq "library") {
|
Line 352 if ($perlvar{'lonRole'} eq "library") {
|
$errors++; |
$errors++; |
print $fh '<br><font color="red">Killall lonsql: '. |
print $fh '<br><font color="red">Killall lonsql: '. |
system('killall lonsql').' - '; |
system('killall lonsql').' - '; |
sleep 60; |
sleep 2; |
print $fh unlink($lonsqlfile).' - '. |
print $fh unlink($lonsqlfile).' - '. |
system('killall -9 lonsql'). |
system('killall -9 lonsql'). |
'</font><br>'; |
'</font><br>'; |
print $fh "<h3>lonsql not running, trying to start</h3>"; |
print $fh "<h3>lonsql not running, trying to start</h3>"; |
system( |
system( |
"$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors"); |
"$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors"); |
sleep 10; |
sleep 2; |
if (-e $lonsqlfile) { |
if (-e $lonsqlfile) { |
print $fh "Seems like it started ...<p>"; |
print $fh "Seems like it started ...<p>"; |
my $lfh=IO::File->new("$lonsqlfile"); |
my $lfh=IO::File->new("$lonsqlfile"); |
my $lonsqlpid=<$lfh>; |
my $lonsqlpid=<$lfh>; |
chomp($lonsqlpid); |
chomp($lonsqlpid); |
sleep 30; |
sleep 2; |
if (kill 0 => $lonsqlpid) { |
if (kill 0 => $lonsqlpid) { |
print $fh "<h3>lonsql at pid $lonsqlpid responding</h3>"; |
print $fh "<h3>lonsql at pid $lonsqlpid responding</h3>"; |
} else { |
} else { |
Line 374 if ($perlvar{'lonRole'} eq "library") {
|
Line 374 if ($perlvar{'lonRole'} eq "library") {
|
print $fh "Give it one more try ...<p>"; |
print $fh "Give it one more try ...<p>"; |
system( |
system( |
"$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors"); |
"$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors"); |
sleep 10; |
sleep 2; |
} |
} |
} else { |
} else { |
print $fh "Seems like that did not work!<p>"; |
print $fh "Seems like that did not work!<p>"; |
Line 449 if ($restartflag==1) {
|
Line 449 if ($restartflag==1) {
|
$errors++; |
$errors++; |
print $fh '<br><font color="red">Killall lond: '. |
print $fh '<br><font color="red">Killall lond: '. |
system('killall lond').' - '; |
system('killall lond').' - '; |
sleep 60; |
sleep 2; |
print $fh unlink($londfile).' - '.system('killall -9 lond'). |
print $fh unlink($londfile).' - '.system('killall -9 lond'). |
'</font><br>'; |
'</font><br>'; |
print $fh "<h3>lond not running, trying to start</h3>"; |
print $fh "<h3>lond not running, trying to start</h3>"; |
system( |
system( |
"$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors"); |
"$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors"); |
sleep 10; |
sleep 2; |
if (-e $londfile) { |
if (-e $londfile) { |
print $fh "Seems like it started ...<p>"; |
print $fh "Seems like it started ...<p>"; |
my $lfh=IO::File->new("$londfile"); |
my $lfh=IO::File->new("$londfile"); |
my $londpid=<$lfh>; |
my $londpid=<$lfh>; |
chomp($londpid); |
chomp($londpid); |
sleep 30; |
sleep 2; |
if (kill 0 => $londpid) { |
if (kill 0 => $londpid) { |
print $fh "<h3>lond at pid $londpid responding</h3>"; |
print $fh "<h3>lond at pid $londpid responding</h3>"; |
} else { |
} else { |
Line 470 if ($restartflag==1) {
|
Line 470 if ($restartflag==1) {
|
print $fh "Give it one more try ...<p>"; |
print $fh "Give it one more try ...<p>"; |
system( |
system( |
"$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors"); |
"$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors"); |
sleep 10; |
sleep 2; |
} |
} |
} else { |
} else { |
print $fh "Seems like that did not work!<p>"; |
print $fh "Seems like that did not work!<p>"; |
Line 545 if ($restartflag==1) {
|
Line 545 if ($restartflag==1) {
|
$errors++; |
$errors++; |
print $fh '<br><font color="red">Killall lonc: '. |
print $fh '<br><font color="red">Killall lonc: '. |
system('killall lonc').' - '; |
system('killall lonc').' - '; |
sleep 60; |
sleep 2; |
print $fh unlink($loncfile).' - '.system('killall -9 lonc'). |
print $fh unlink($loncfile).' - '.system('killall -9 lonc'). |
'</font><br>'; |
'</font><br>'; |
print $fh "<h3>lonc not running, trying to start</h3>"; |
print $fh "<h3>lonc not running, trying to start</h3>"; |
system( |
system( |
"$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); |
"$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); |
sleep 10; |
sleep 2; |
if (-e $loncfile) { |
if (-e $loncfile) { |
print $fh "Seems like it started ...<p>"; |
print $fh "Seems like it started ...<p>"; |
my $lfh=IO::File->new("$loncfile"); |
my $lfh=IO::File->new("$loncfile"); |
my $loncpid=<$lfh>; |
my $loncpid=<$lfh>; |
chomp($loncpid); |
chomp($loncpid); |
sleep 30; |
sleep 2; |
if (kill 0 => $loncpid) { |
if (kill 0 => $loncpid) { |
print $fh "<h3>lonc at pid $loncpid responding</h3>"; |
print $fh "<h3>lonc at pid $loncpid responding</h3>"; |
} else { |
} else { |
Line 566 if ($restartflag==1) {
|
Line 566 if ($restartflag==1) {
|
print $fh "Give it one more try ...<p>"; |
print $fh "Give it one more try ...<p>"; |
system( |
system( |
"$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); |
"$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); |
sleep 10; |
sleep 2; |
} |
} |
} else { |
} else { |
print $fh "Seems like that did not work!<p>"; |
print $fh "Seems like that did not work!<p>"; |