Return to loncron CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/loncron between versions 1.6 and 1.28

version 1.6, 2000/10/26 22:21:02	version 1.28, 2002/05/22 21:41:34
Line 9	Line 9
#	#
# 7/14,7/15,7/19,7/21,7/22,11/18,	# 7/14,7/15,7/19,7/21,7/22,11/18,
# 2/8 Gerd Kortemeyer	# 2/8 Gerd Kortemeyer
	# 12/6/2000,12/8 Scott Harrison
	# 12/23 Gerd Kortemeyer
	# YEAR=2001
	# 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21,8/27 Scott Harrison
	# 09/04,09/06,11/26 Gerd Kortemeyer
	# YEAR=2002
	# 5/11/2002 Scott Harrison

	$\|=1;

	use lib '/home/httpd/lib/perl/';
	use LONCAPA::Configuration;

use IO::File;	use IO::File;
use IO::Socket;	use IO::Socket;
Line 43 ENDERROUT	Line 55 ENDERROUT

# ================================================================ Main Program	# ================================================================ Main Program

	# --------------------------------- Read loncapa_apache.conf and loncapa.conf
# ------------------------------------------------------------ Read access.conf	my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf',
{	'loncapa.conf');
my $config=IO::File->new("/etc/httpd/conf/access.conf");	%perlvar=%{$perlvarref};
	undef $perlvarref;
while (my $configline=<$config>) {	delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
if ($configline =~ /PerlSetVar/) {	delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
$perlvar{$varname}=$varvalue;	# --------------------------------------- Make sure that LON-CAPA is configured
}	# I only test for one thing here (lonHostID). This is just a safeguard.
}	if ('{[[[[lonHostID]]]]}' eq $perlvar{'lonHostID'}) {
	print("Unconfigured machine.\n");
	$emailto=$perlvar{'lonSysEMail'};
	$hostname=`/bin/hostname`;
	chop $hostname;
	$hostname=~s/[^\w\.]//g; # make sure is safe to pass through shell
	$subj="LON: Unconfigured machine $hostname";
	system("echo 'Unconfigured machine $hostname.' \|\
	mailto $emailto -s '$subj' > /dev/null");
	exit 1;
	}

	# ----------------------------- Make sure this process is running from user=www
	my $wwwid=getpwnam('www');
	if ($wwwid!=$<) {
	print("User ID mismatch. This program must be run as user 'www'\n");
	$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
	$subj="LON: $perlvar{'lonHostID'} User ID mismatch";
	system("echo 'User ID mismatch. loncron must be run as user www.' \|\
	mailto $emailto -s '$subj' > /dev/null");
	exit 1;
}	}

# ------------------------------------------------------------- Read hosts file	# ------------------------------------------------------------- Read hosts file
Line 110 print $fh (<<ENDHEADERS);	Line 142 print $fh (<<ENDHEADERS);
<ol>	<ol>
<li><a href="#configuration">Configuration</a>	<li><a href="#configuration">Configuration</a>
<li><a href="#machine">Machine Information</a>	<li><a href="#machine">Machine Information</a>
	<li><a href="#tmp">Temporary Files</a>
	<li><a href="#tokens">Session Tokens</a>
<li><a href="#httpd">httpd</a>	<li><a href="#httpd">httpd</a>
	<li><a href="#lonsql">lonsql</a>
<li><a href="#lond">lond</a>	<li><a href="#lond">lond</a>
<li><a href="#lonc">lonc</a>	<li><a href="#lonc">lonc</a>
<li><a href="#lonnet">lonnet</a>	<li><a href="#lonnet">lonnet</a>
Line 171 while ($line=<DFH>) {	Line 206 while ($line=<DFH>) {
$usage=$parts[4];	$usage=$parts[4];
$usage=~s/\W//g;	$usage=~s/\W//g;
if ($usage>90) {	if ($usage>90) {
$warnings++;	$warnings++;
	$notices++;
} elsif ($usage>80) {	} elsif ($usage>80) {
$warnings++;	$warnings++;
} elsif ($usage>60) {	} elsif ($usage>60) {
Line 181 while ($line=<DFH>) {	Line 217 while ($line=<DFH>) {
}	}
close (DFH);	close (DFH);
print $fh "</pre>";	print $fh "</pre>";


	print $fh "<h3>ps</h3>";
	print $fh "<pre>";
	$psproc=0;

	open (PSH,"ps -aux\|");
	while ($line=<PSH>) {
	print $fh "$line";
	$psproc++;
	}
	close (PSH);
	print $fh "</pre>";

	if ($psproc>200) { $notices++; }
	if ($psproc>250) { $notices++; }

&errout($fh);	&errout($fh);

	# --------------------------------------------------------------- clean out tmp
	print $fh '<hr><a name="tmp"><h2>Temporary Files</h2>';
	$cleaned=0;
	while ($fname=<$perlvar{'lonDaemons'}/tmp/*>) {
	my ($dev,$ino,$mode,$nlink,
	$uid,$gid,$rdev,$size,
	$atime,$mtime,$ctime,
	$blksize,$blocks)=stat($fname);
	$now=time;
	$since=$now-$mtime;
	if ($since>$perlvar{'lonExpire'}) {
	$cleaned++;
	unlink("$fname");
	}

	}
	print $fh "Cleaned up ".$cleaned." files.";

	# ------------------------------------------------------------ clean out lonIDs
	print $fh '<hr><a name="tokens"><h2>Session Tokens</h2>';
	$cleaned=0;
	$active=0;
	while ($fname=<$perlvar{'lonIDsDir'}/*>) {
	my ($dev,$ino,$mode,$nlink,
	$uid,$gid,$rdev,$size,
	$atime,$mtime,$ctime,
	$blksize,$blocks)=stat($fname);
	$now=time;
	$since=$now-$mtime;
	if ($since>$perlvar{'lonExpire'}) {
	$cleaned++;
	print $fh "Unlinking $fname<br>";
	unlink("$fname");
	} else {
	$active++;
	}

	}
	print $fh "<p>Cleaned up ".$cleaned." stale session token(s).";
	print $fh "<h3>$active open session(s)</h3>";

# ----------------------------------------------------------------------- httpd	# ----------------------------------------------------------------------- httpd

print $fh '<hr><a name="httpd"><h2>httpd</h2><h3>Access Log</h3><pre>';	print $fh '<hr><a name="httpd"><h2>httpd</h2><h3>Access Log</h3><pre>';

open (DFH,"tail -n40 /etc/httpd/logs/access_log\|");	open (DFH,"tail -n25 /etc/httpd/logs/access_log\|");
while ($line=<DFH>) { print $fh "$line" };	while ($line=<DFH>) { print $fh "$line" };
close (DFH);	close (DFH);

print $fh "</pre><h3>Error Log</h3><pre>";	print $fh "</pre><h3>Error Log</h3><pre>";

open (DFH,"tail -n50 /etc/httpd/logs/error_log\|");	open (DFH,"tail -n25 /etc/httpd/logs/error_log\|");
while ($line=<DFH>) {	while ($line=<DFH>) {
print $fh "$line";	print $fh "$line";
if ($line=~/\[error\]/) { $notices++; }	if ($line=~/\[error\]/) { $notices++; }
Line 202 print $fh "</pre>";	Line 297 print $fh "</pre>";
&errout($fh);	&errout($fh);


# ------------------------------------------------------------------------ lonsql	# ---------------------------------------------------------------------- lonsql

if ($perlvar{'lonRole'} eq "library" && 1==0) {	my $restartflag=1;
	if ($perlvar{'lonRole'} eq "library") {

print $fh '<hr><a name="lond"><h2>lonsql</h2><h3>Log</h3><pre>';	print $fh '<hr><a name="lonsql"><h2>lonsql</h2><h3>Log</h3><pre>';
	print "lonsql\n";
if (-e "$perlvar{'lonDaemons'}/logs/lonsql.log"){	if (-e "$perlvar{'lonDaemons'}/logs/lonsql.log"){
open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lonsql.log\|");	open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lonsql.log\|");
while ($line=<DFH>) {	while ($line=<DFH>) {
Line 221 if ($perlvar{'lonRole'} eq "library" &&	Line 317 if ($perlvar{'lonRole'} eq "library" &&
print $fh "</pre>";	print $fh "</pre>";

my $lonsqlfile="$perlvar{'lonDaemons'}/logs/lonsql.pid";	my $lonsqlfile="$perlvar{'lonDaemons'}/logs/lonsql.pid";

	$restartflag=1;

if (-e $lonsqlfile) {	if (-e $lonsqlfile) {
my $lfh=IO::File->new("$lonsqlfile");	my $lfh=IO::File->new("$lonsqlfile");
my $lonsqlpid=<$lfh>;	my $lonsqlpid=<$lfh>;
chomp($lonsqlpid);	chomp($lonsqlpid);
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>";
	$restartflag=0;
} else {	} else {
$errors++; $errors++;	$errors++; $errors++;
print $fh "<h3>lonsql at pid $lonsqlpid not responding</h3>";	print $fh "<h3>lonsql at pid $lonsqlpid not responding</h3>";
	$restartflag=1;
	print $fh
	"<h3>Decided to clean up stale .pid file and restart lonsql</h3>";
}	}
} else {	}
	if ($restartflag==1) {
$errors++;	$errors++;
	print $fh '<br><font color="red">Killall lonsql: '.
	system('killall lonsql').' - ';
	sleep 60;
	print $fh unlink($lonsqlfile).' - '.
	system('killall -9 lonsql').
	'</font><br>';
print $fh "<h3>lonsql not running, trying to start</h3>";	print $fh "<h3>lonsql not running, trying to start</h3>";
system("$perlvar{'lonDaemons'}/lonsql");	system(
sleep 120;	"$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors");
	sleep 10;
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");
Line 249 if ($perlvar{'lonRole'} eq "library" &&	Line 359 if ($perlvar{'lonRole'} eq "library" &&
$errors++; $errors++;	$errors++; $errors++;
print $fh "<h3>lonsql at pid $lonsqlpid not responding</h3>";	print $fh "<h3>lonsql at pid $lonsqlpid not responding</h3>";
print $fh "Give it one more try ...<p>";	print $fh "Give it one more try ...<p>";
system("$perlvar{'lonDaemons'}/lonsql");	system(
sleep 120;	"$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors");
	sleep 10;
}	}
} else {	} else {
print $fh "Seems like that did not work!<p>";	print $fh "Seems like that did not work!<p>";
Line 288 if ($perlvar{'lonRole'} eq "library" &&	Line 399 if ($perlvar{'lonRole'} eq "library" &&
# ------------------------------------------------------------------------ lond	# ------------------------------------------------------------------------ lond

print $fh '<hr><a name="lond"><h2>lond</h2><h3>Log</h3><pre>';	print $fh '<hr><a name="lond"><h2>lond</h2><h3>Log</h3><pre>';
	print "lond\n";

if (-e "$perlvar{'lonDaemons'}/logs/lond.log"){	if (-e "$perlvar{'lonDaemons'}/logs/lond.log"){
open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lond.log\|");	open (DFH,"tail -n25 $perlvar{'lonDaemons'}/logs/lond.log\|");
while ($line=<DFH>) {	while ($line=<DFH>) {
print $fh "$line";	print $fh "$line";
if ($line=~/INFO/) { $notices++; }	if ($line=~/INFO/) { $notices++; }
Line 303 print $fh "</pre>";	Line 415 print $fh "</pre>";

my $londfile="$perlvar{'lonDaemons'}/logs/lond.pid";	my $londfile="$perlvar{'lonDaemons'}/logs/lond.pid";

if (-e $londfile) {	$restartflag=1;
	if (-e $londfile) {
my $lfh=IO::File->new("$londfile");	my $lfh=IO::File->new("$londfile");
my $londpid=<$lfh>;	my $londpid=<$lfh>;
chomp($londpid);	chomp($londpid);
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, sending USR1</h3>";
	kill USR1 => $londpid;
	$restartflag=0;
} else {	} else {
$errors++; $errors++;	$errors++;
print $fh "<h3>lond at pid $londpid not responding</h3>";	print $fh "<h3>lond at pid $londpid not responding</h3>";
	$restartflag=1;
	print $fh
	"<h3>Decided to clean up stale .pid file and restart lond</h3>";
}	}
} else {	}
	if ($restartflag==1) {
$errors++;	$errors++;
	print $fh '<br><font color="red">Killall lond: '.
	system('killall lond').' - ';
	sleep 60;
	print $fh unlink($londfile).' - '.system('killall -9 lond').
	'</font><br>';
print $fh "<h3>lond not running, trying to start</h3>";	print $fh "<h3>lond not running, trying to start</h3>";
system("$perlvar{'lonDaemons'}/lond");	system(
sleep 120;	"$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors");
	sleep 10;
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");
Line 330 if (-e $londfile) {	Line 455 if (-e $londfile) {
$errors++; $errors++;	$errors++; $errors++;
print $fh "<h3>lond at pid $londpid not responding</h3>";	print $fh "<h3>lond at pid $londpid not responding</h3>";
print $fh "Give it one more try ...<p>";	print $fh "Give it one more try ...<p>";
system("$perlvar{'lonDaemons'}/lond");	system(
sleep 120;	"$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors");
	sleep 10;
}	}
} else {	} else {
print $fh "Seems like that did not work!<p>";	print $fh "Seems like that did not work!<p>";
Line 368 if ($size>40000) {	Line 494 if ($size>40000) {
# ------------------------------------------------------------------------ lonc	# ------------------------------------------------------------------------ lonc

print $fh '<hr><a name="lonc"><h2>lonc</h2><h3>Log</h3><pre>';	print $fh '<hr><a name="lonc"><h2>lonc</h2><h3>Log</h3><pre>';
	print "lonc\n";

if (-e "$perlvar{'lonDaemons'}/logs/lonc.log"){	if (-e "$perlvar{'lonDaemons'}/logs/lonc.log"){
open (DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/lonc.log\|");	open (DFH,"tail -n25 $perlvar{'lonDaemons'}/logs/lonc.log\|");
while ($line=<DFH>) {	while ($line=<DFH>) {
print $fh "$line";	print $fh "$line";
if ($line=~/INFO/) { $notices++; }	if ($line=~/INFO/) { $notices++; }
Line 383 print $fh "</pre>";	Line 510 print $fh "</pre>";

my $loncfile="$perlvar{'lonDaemons'}/logs/lonc.pid";	my $loncfile="$perlvar{'lonDaemons'}/logs/lonc.pid";

	$restartflag=1;
if (-e $loncfile) {	if (-e $loncfile) {
my $lfh=IO::File->new("$loncfile");	my $lfh=IO::File->new("$loncfile");
my $loncpid=<$lfh>;	my $loncpid=<$lfh>;
Line 390 if (-e $loncfile) {	Line 518 if (-e $loncfile) {
if (kill 0 => $loncpid) {	if (kill 0 => $loncpid) {
print $fh "<h3>lonc at pid $loncpid responding, sending USR1</h3>";	print $fh "<h3>lonc at pid $loncpid responding, sending USR1</h3>";
kill USR1 => $loncpid;	kill USR1 => $loncpid;
	$restartflag=0;
} else {	} else {
$errors++; $errors++;	$errors++;
print $fh "<h3>lonc at pid $loncpid not responding</h3>";	print $fh "<h3>lonc at pid $loncpid not responding</h3>";
	# Solution: kill parent and children processes, remove .pid and restart
	$restartflag=1;
	print $fh
	"<h3>Decided to clean up stale .pid file and restart lonc</h3>";
}	}
} else {	}
	if ($restartflag==1) {
$errors++;	$errors++;
	print $fh '<br><font color="red">Killall lonc: '.
	system('killall lonc').' - ';
	sleep 60;
	print $fh unlink($loncfile).' - '.system('killall -9 lonc').
	'</font><br>';
print $fh "<h3>lonc not running, trying to start</h3>";	print $fh "<h3>lonc not running, trying to start</h3>";
system("$perlvar{'lonDaemons'}/lonc");	system(
sleep 120;	"$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors");
	sleep 10;
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");
Line 411 if (-e $loncfile) {	Line 551 if (-e $loncfile) {
$errors++; $errors++;	$errors++; $errors++;
print $fh "<h3>lonc at pid $loncpid not responding</h3>";	print $fh "<h3>lonc at pid $loncpid not responding</h3>";
print $fh "Give it one more try ...<p>";	print $fh "Give it one more try ...<p>";
system("$perlvar{'lonDaemons'}/lonc");	system(
sleep 120;	"$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors");
	sleep 10;
}	}
} else {	} else {
print $fh "Seems like that did not work!<p>";	print $fh "Seems like that did not work!<p>";
Line 450 if ($size>40000) {	Line 591 if ($size>40000) {
# ---------------------------------------------------------------------- lonnet	# ---------------------------------------------------------------------- lonnet

print $fh '<hr><a name="lonnet"><h2>lonnet</h2><h3>Temp Log</h3><pre>';	print $fh '<hr><a name="lonnet"><h2>lonnet</h2><h3>Temp Log</h3><pre>';
	print "lonnet\n";
if (-e "$perlvar{'lonDaemons'}/logs/lonnet.log"){	if (-e "$perlvar{'lonDaemons'}/logs/lonnet.log"){
open (DFH,"tail -n50 $perlvar{'lonDaemons'}/logs/lonnet.log\|");	open (DFH,"tail -n50 $perlvar{'lonDaemons'}/logs/lonnet.log\|");
while ($line=<DFH>) {	while ($line=<DFH>) {
Line 457 while ($line=<DFH>) {	Line 599 while ($line=<DFH>) {
};	};
close (DFH);	close (DFH);
}	}
print $fh "</pre><h3>Perm Log</h3>";	print $fh "</pre><h3>Perm Log</h3><pre>";

if (-e "$perlvar{'lonDaemons'}/logs/lonnet.perm.log") {	if (-e "$perlvar{'lonDaemons'}/logs/lonnet.perm.log") {
open(DFH,"tail -n10 $perlvar{'lonDaemons'}/logs/lonnet.perm.log\|");	open(DFH,"tail -n10 $perlvar{'lonDaemons'}/logs/lonnet.perm.log\|");
Line 507 print $fh "</table>";	Line 649 print $fh "</table>";
# ------------------------------------------------------------ Delayed messages	# ------------------------------------------------------------ Delayed messages

print $fh '<hr><a name="delayed"><h2>Delayed Messages</h2>';	print $fh '<hr><a name="delayed"><h2>Delayed Messages</h2>';
	print "buffers\n";

print $fh '<h3>Scanning Permanent Log</h3>';	print $fh '<h3>Scanning Permanent Log</h3>';

Line 543 print $fh "<h1>Total Error Count: $total	Line 686 print $fh "<h1>Total Error Count: $total
$now=time;	$now=time;
$date=localtime($now);	$date=localtime($now);
print $fh "<hr>$date ($now)</body></html>\n";	print $fh "<hr>$date ($now)</body></html>\n";
	print "writing done\n";
}	}

rename ("$statusdir/newstatus.html","$statusdir/index.html");	rename ("$statusdir/newstatus.html","$statusdir/index.html");

if ($totalcount>200) {	if ($totalcount>200) {
	print "mailing\n";
$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";	$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
$subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";	$subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";
system(	system(

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.6
changed lines
	Added in v.1.28