Return to loncron CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/loncron between versions 1.115 and 1.125

version 1.115, 2018/11/24 16:19:09	version 1.125, 2021/01/30 21:26:04
Line 34 use lib '/home/httpd/lib/perl/';	Line 34 use lib '/home/httpd/lib/perl/';
use LONCAPA::Configuration;	use LONCAPA::Configuration;
use LONCAPA::Checksumming;	use LONCAPA::Checksumming;
use LONCAPA;	use LONCAPA;
	use LONCAPA::LWPReq;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;

Line 44 use Getopt::Long;	Line 45 use Getopt::Long;
use GDBM_File;	use GDBM_File;
use Storable qw(thaw);	use Storable qw(thaw);
use File::ReadBackwards;	use File::ReadBackwards;
	use File::Copy;
	use Sys::Hostname::FQDN();

#globals	#globals
use vars qw (%perlvar %simplestatus $errors $warnings $notices $totalcount);	use vars qw (%perlvar %simplestatus $errors $warnings $notices $totalcount);

Line 76 sub rotate_logfile {	Line 80 sub rotate_logfile {
rename("$file.2","$file.3");	rename("$file.2","$file.3");
rename("$file.1","$file.2");	rename("$file.1","$file.2");
rename("$file","$file.1");	rename("$file","$file.1");
}	}
}	}

sub start_daemon {	sub start_daemon {
my ($fh,$daemon,$pidfile,$args) = @_;	my ($fh,$daemon,$pidfile,$args) = @_;
my $progname=$daemon;	my $progname=$daemon;
if ($daemon eq 'lonc') {	if ($daemon eq 'lonc') {
$progname='loncnew';	$progname='loncnew';
}	}
my $error_fname="$perlvar{'lonDaemons'}/logs/${daemon}_errors";	my $error_fname="$perlvar{'lonDaemons'}/logs/${daemon}_errors";
&rotate_logfile($error_fname,$fh,'error logs');	&rotate_logfile($error_fname,$fh,'error logs');
Line 117 sub checkon_daemon {	Line 121 sub checkon_daemon {
if ($fh) {	if ($fh) {
if (-e "$perlvar{'lonDaemons'}/logs/$daemon.log"){	if (-e "$perlvar{'lonDaemons'}/logs/$daemon.log"){
if (open(DFH,"tail -n25 $perlvar{'lonDaemons'}/logs/$daemon.log\|")) {	if (open(DFH,"tail -n25 $perlvar{'lonDaemons'}/logs/$daemon.log\|")) {
while (my $line=<DFH>) {	while (my $line=<DFH>) {
&log($fh,"$line");	&log($fh,"$line");
if ($line=~/INFO/) { $notices++; }	if ($line=~/INFO/) { $notices++; }
if ($line=~/WARNING/) { $notices++; }	if ($line=~/WARNING/) { $notices++; }
Line 128 sub checkon_daemon {	Line 132 sub checkon_daemon {
}	}
&log($fh,"</tt></p>");	&log($fh,"</tt></p>");
}	}

my $pidfile="$perlvar{'lonDaemons'}/logs/$daemon.pid";	my $pidfile="$perlvar{'lonDaemons'}/logs/$daemon.pid";

my $restartflag=1;	my $restartflag=1;
my $daemonpid;	my $daemonpid;
if (-e $pidfile) {	if (-e $pidfile) {
Line 213 sub checkon_daemon {	Line 217 sub checkon_daemon {
}	}
}	}
}	}

my $fname="$perlvar{'lonDaemons'}/logs/$daemon.log";	my $fname="$perlvar{'lonDaemons'}/logs/$daemon.log";
&rotate_logfile($fname,$fh,'logs');	&rotate_logfile($fname,$fh,'logs');

Line 226 sub log_machine_info {	Line 230 sub log_machine_info {
my ($fh)=@_;	my ($fh)=@_;
&log($fh,'<hr /><a name="machine" /><h2>Machine Information</h2>');	&log($fh,'<hr /><a name="machine" /><h2>Machine Information</h2>');
&log($fh,"<h3>loadavg</h3>");	&log($fh,"<h3>loadavg</h3>");

open (LOADAVGH,"/proc/loadavg");	open (LOADAVGH,"/proc/loadavg");
my $loadavg=<LOADAVGH>;	my $loadavg=<LOADAVGH>;
close (LOADAVGH);	close (LOADAVGH);

&log($fh,"<tt>$loadavg</tt>");	&log($fh,"<tt>$loadavg</tt>");

my @parts=split(/\s+/,$loadavg);	my @parts=split(/\s+/,$loadavg);
if ($parts[1]>4.0) {	if ($parts[1]>4.0) {
$errors++;	$errors++;
Line 246 sub log_machine_info {	Line 250 sub log_machine_info {
&log($fh,"<pre>");	&log($fh,"<pre>");

open (DFH,"df\|");	open (DFH,"df\|");
while (my $line=<DFH>) {	while (my $line=<DFH>) {
&log($fh,&encode_entities($line,'<>&"'));	&log($fh,&encode_entities($line,'<>&"'));
@parts=split(/\s+/,$line);	@parts=split(/\s+/,$line);
my $usage=$parts[4];	my $usage=$parts[4];
$usage=~s/\W//g;	$usage=~s/\W//g;
if ($usage>90) {	if ($usage>90) {
$warnings++;	$warnings++;
$notices++;	$notices++;
} elsif ($usage>80) {	} elsif ($usage>80) {
$warnings++;	$warnings++;
} elsif ($usage>60) {	} elsif ($usage>60) {
Line 270 sub log_machine_info {	Line 274 sub log_machine_info {
my $psproc=0;	my $psproc=0;

open (PSH,"ps aux --cols 140 \|");	open (PSH,"ps aux --cols 140 \|");
while (my $line=<PSH>) {	while (my $line=<PSH>) {
&log($fh,&encode_entities($line,'<>&"'));	&log($fh,&encode_entities($line,'<>&"'));
$psproc++;	$psproc++;
}	}
close (PSH);	close (PSH);
Line 293 sub start_logging {	Line 297 sub start_logging {
my %simplestatus=();	my %simplestatus=();
my $now=time;	my $now=time;
my $date=localtime($now);	my $date=localtime($now);


&log($fh,(<<ENDHEADERS));	&log($fh,(<<ENDHEADERS));
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
Line 409 sub recursive_clean_tmp {	Line 413 sub recursive_clean_tmp {
($cleaned,$old,$removed) =	($cleaned,$old,$removed) =
&recursive_clean_tmp($innerdir,$cleaned,$old,$removed,$errors);	&recursive_clean_tmp($innerdir,$cleaned,$old,$removed,$errors);
my @doms = &Apache::lonnet::current_machine_domains();	my @doms = &Apache::lonnet::current_machine_domains();

if (open(my $dirhandle,$fname)) {	if (open(my $dirhandle,$fname)) {
unless (($innerdir eq 'helprequests') \|\|	unless (($innerdir eq 'helprequests') \|\|
(($innerdir =~ /^addcourse/) && ($innerdir !~ m{/\d+$}))) {	(($innerdir =~ /^addcourse/) && ($innerdir !~ m{/\d+$}))) {
my @contents = grep {!/^\.\.?$/} readdir($dirhandle);	my @contents = grep {!/^\.\.?$/} readdir($dirhandle);
join('&&',@contents)."\n";	join('&&',@contents)."\n";
if (scalar(grep {!/^\.\.?$/} readdir($dirhandle)) == 0) {	if (scalar(grep {!/^\.\.?$/} readdir($dirhandle)) == 0) {
closedir($dirhandle);	closedir($dirhandle);
if ($fname =~ m{^\Q$perlvar{'lonDaemons'}\E/tmp/}) {	if ($fname =~ m{^\Q$perlvar{'lonDaemons'}\E/tmp/}) {
Line 467 sub recursive_clean_tmp {	Line 471 sub recursive_clean_tmp {
}	}
}	}
} elsif (ref($errors->{failopen}) eq 'ARRAY') {	} elsif (ref($errors->{failopen}) eq 'ARRAY') {
push(@{$errors->{failopen}},$fname);	push(@{$errors->{failopen}},$fname);
}	}
} else {	} else {
if (unlink($fname)) {	if (unlink($fname)) {
Line 493 sub clean_lonIDs {	Line 497 sub clean_lonIDs {
my $cleaned=0;	my $cleaned=0;
my $active=0;	my $active=0;
while (my $fname=<$perlvar{'lonIDsDir'}/*>) {	while (my $fname=<$perlvar{'lonIDsDir'}/*>) {
my ($dev,$ino,$mode,$nlink,	my $now=time;
$uid,$gid,$rdev,$size,	if (-l $fname) {
$atime,$mtime,$ctime,	my $linkfname = readlink($fname);
$blksize,$blocks)=stat($fname);	if (-f $linkfname) {
my $now=time;	if ($linkfname =~ m{^$perlvar{'lonIDsDir'}/[^/]+\.id$}) {
my $since=$now-$mtime;	my @data = stat($linkfname);
if ($since>$perlvar{'lonExpire'}) {	my $mtime = $data[9];
$cleaned++;	my $since=$now-$mtime;
&log($fh,"Unlinking $fname<br />");	if ($since>$perlvar{'lonExpire'}) {
unlink("$fname");	if (unlink($linkfname)) {
} else {	$cleaned++;
$active++;	&log($fh,"Unlinking $linkfname<br />");
}	unlink($fname);
	}
	}
	}
	} else {
	unlink($fname);
	}
	} elsif (-f $fname) {
	my @data = stat($fname);
	my $mtime = $data[9];
	my $since=$now-$mtime;
	if ($since>$perlvar{'lonExpire'}) {
	if (unlink($fname)) {
	$cleaned++;
	&log($fh,"Unlinking $fname<br />");
	}
	} else {
	$active++;
	}
	}
}	}
&log($fh,"<p>Cleaned up ".$cleaned." stale session token(s).</p>");	&log($fh,"<p>Cleaned up ".$cleaned." stale session token(s).</p>");
&log($fh,"<h3>$active open session(s)</h3>");	&log($fh,"<h3>$active open session(s)</h3>");
Line 519 sub clean_balanceIDs {	Line 542 sub clean_balanceIDs {
my $cleaned=0;	my $cleaned=0;
my $active=0;	my $active=0;
if (-d $perlvar{'lonBalanceDir'}) {	if (-d $perlvar{'lonBalanceDir'}) {
while (my $fname=<$perlvar{'balanceDir'}/*.id>) {	while (my $fname=<$perlvar{'lonBalanceDir'}/*.id>) {
my ($dev,$ino,$mode,$nlink,	my ($dev,$ino,$mode,$nlink,
$uid,$gid,$rdev,$size,	$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,	$atime,$mtime,$ctime,
Line 565 sub clean_webDAV_sessionIDs {	Line 588 sub clean_webDAV_sessionIDs {
}	}
}	}

	# ------------------------------------------------------------ clean out ltiIDs

	sub clean_ltiIDs {
	my ($fh)=@_;
	&log($fh,'<hr /><a name="ltisessions" /><h2>LTI Session Pointers</h2>');
	my $cleaned=0;
	my $active=0;
	if (-d $perlvar{'ltiIDsDir'}) {
	while (my $fname=<$perlvar{'ltiIDsDir'}/*>) {
	my ($dev,$ino,$mode,$nlink,
	$uid,$gid,$rdev,$size,
	$atime,$mtime,$ctime,
	$blksize,$blocks)=stat($fname);
	my $now=time;
	my $since=$now-$mtime;
	if ($since>$perlvar{'lonExpire'}) {
	$cleaned++;
	&log($fh,"Unlinking $fname<br />");
	unlink("$fname");
	} else {
	$active++;
	}
	}
	}
	&log($fh,"<p>Cleaned up ".$cleaned." old LTI session pointers.</p>");
	&log($fh,"<h3>$active unexpired LTI session pointers</h3>");
	}

# ----------------------------------------------------------- clean out sockets	# ----------------------------------------------------------- clean out sockets
sub clean_sockets {	sub clean_sockets {
my ($fh)=@_;	my ($fh)=@_;
Line 602 sub rotate_lonnet_logs {	Line 653 sub rotate_lonnet_logs {
print "Checking logs.\n";	print "Checking logs.\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 (my $line=<DFH>) {	while (my $line=<DFH>) {
&log($fh,&encode_entities($line,'<>&"'));	&log($fh,&encode_entities($line,'<>&"'));
}	}
close (DFH);	close (DFH);
}	}
&log($fh,"</pre><h3>Perm Log</h3><pre>");	&log($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\|");
while (my $line=<DFH>) {	while (my $line=<DFH>) {
&log($fh,&encode_entities($line,'<>&"'));	&log($fh,&encode_entities($line,'<>&"'));
}	}
close (DFH);	close (DFH);
Line 981 sub write_serverhomeIDs {	Line 1032 sub write_serverhomeIDs {
eval {	eval {
local $SIG{ ALRM } = sub { die "TIMEOUT" };	local $SIG{ ALRM } = sub { die "TIMEOUT" };
alarm(10);	alarm(10);
$serverhomeID =	$serverhomeID =
&Apache::lonnet::get_server_homeID($name,1,'loncron');	&Apache::lonnet::get_server_homeID($name,1,'loncron');
alarm(0);	alarm(0);
};	};
Line 1026 sub write_checksums {	Line 1077 sub write_checksums {
return;	return;
}	}

	sub write_hostips {
	my $lontabdir = $perlvar{'lonTabDir'};
	my $defdom = $perlvar{'lonDefDomain'};
	my $lonhost = $perlvar{'lonHostID'};
	my $newfile = "$lontabdir/currhostips.tab";
	my $oldfile = "$lontabdir/prevhostips.tab";
	my (%prevhosts,%currhosts,%ipchange);
	if ((-e $newfile) && (-s $newfile)) {
	move($newfile,$oldfile);
	chmod(0644,$oldfile);
	if (open(my $fh,'<',$oldfile)) {
	while (my $line=<$fh>) {
	chomp($line);
	if ($line =~ /^([^:]+):([\d.]+)$/) {
	$prevhosts{$1} = $2;
	}
	}
	close($fh);
	}
	}
	my ($ip_info,$cached) =
	&Apache::lonnet::is_cached_new('iphost','iphost');
	if (!$cached) {
	&Apache::lonnet::get_iphost();
	($ip_info,$cached) =
	&Apache::lonnet::is_cached_new('iphost','iphost');
	}
	if (ref($ip_info) eq 'ARRAY') {
	%currhosts = %{$ip_info->[1]};
	if (open(my $fh,'>',$newfile)) {
	foreach my $key (keys(%currhosts)) {
	print $fh "$key:$currhosts{$key}\n";
	}
	close($fh);
	chmod(0644,$newfile);
	}
	}
	if (keys(%prevhosts) && keys(%currhosts)) {
	foreach my $key (keys(%prevhosts)) {
	unless ($currhosts{$key} eq $prevhosts{$key}) {
	$ipchange{$key} = $prevhosts{$key}.' \| '.$currhosts{$key};
	}
	}
	foreach my $key (keys(%currhosts)) {
	unless ($currhosts{$key} eq $prevhosts{$key}) {
	$ipchange{$key} = $prevhosts{$key}.' \| '.$currhosts{$key};
	}
	}
	}
	if (&Apache::lonnet::domain($defdom,'primary') eq $lonhost) {
	if (keys(%ipchange)) {
	if (open(my $fh,'>>',$perlvar{'lonDaemons'}.'/logs/hostip.log')) {
	print $fh "********************\n".localtime(time).' Changes --'."\n".
	"\| Hostname \| Previous IP \| New IP \|\n".
	" --------------------------------- \n";
	foreach my $hostname (sort(keys(%ipchange))) {
	print $fh "\| $hostname \| $ipchange{$hostname} \|\n";
	}
	print $fh "\n*******************\n\n";
	close($fh);
	}
	my $emailto = &Apache::loncommon::build_recipient_list(undef,
	'hostipmail',$defdom);
	if ($emailto) {
	my $subject = "LON-CAPA Hostname to IP change ($perlvar{'lonHostID'})";
	my $chgmail = "To: $emailto\n".
	"Subject: $subject\n".
	"Content-type: text/plain\; charset=UTF-8\n".
	"MIME-Version: 1.0\n\n".
	"Host/IP changes\n".
	" \n".
	"\| Hostname \| Previous IP \| New IP \|\n".
	" --------------------------------- \n";
	foreach my $hostname (sort(keys(%ipchange))) {
	$chgmail .= "\| $hostname \| $ipchange{$hostname} \|\n";
	}
	$chgmail .= "\n\n";
	if (open(my $mailh, "\|/usr/lib/sendmail -oi -t -odb")) {
	print $mailh $chgmail;
	close($mailh);
	print "Sending mail notification of hostname/IP changes.\n";
	}
	}
	}
	}
	return;
	}

sub clean_nosslverify {	sub clean_nosslverify {
my ($fh) = @_;	my ($fh) = @_;
my %unlinked;	my %unlinked;
if (-d "$perlvar{'lonSockDir'}/nosslverify") {	if (-d "$perlvar{'lonSockDir'}/nosslverify") {
if (opendir(my $dh,"$perlvar{'lonSockDir'}/nosslverify")) {	if (opendir(my $dh,"$perlvar{'lonSockDir'}/nosslverify")) {
while (my $fname=readdir($dh)) {	while (my $fname=readdir($dh)) {
Line 1123 sub get_domain_config {	Line 1262 sub get_domain_config {
unless ($protocol eq 'https') {	unless ($protocol eq 'https') {
$protocol = 'http';	$protocol = 'http';
}	}
$url = $protocol.'://'.$hostname.'/cgi-bin/listdomconfig.pl';	$url = $protocol.'://'.$hostname.'/cgi-bin/listdomconfig.pl?primary='.$primlibserv.'&format=raw';
}	}
if ($isprimary) {	if ($isprimary) {
my $lonusersdir = $perlvar{'lonUsersDir'};	my $lonusersdir = $perlvar{'lonUsersDir'};
Line 1144 sub get_domain_config {	Line 1283 sub get_domain_config {
}	}
}	}
} else {	} else {
if (open(PIPE,"wget --no-check-certificate '$url?primary=$primlibserv&format=raw' \|")) {	my $request=new HTTP::Request('GET',$url);
my $config = '';	my $response=&LONCAPA::LWPReq::makerequest($primlibserv,$request,'',\%perlvar,5);
while (<PIPE>) {	unless ($response->is_error()) {
$config .= $_;	my $content = $response->content;
}	if ($content) {
close(PIPE);	my @pairs=split(/\&/,$content);
if ($config) {
my @pairs=split(/\&/,$config);
foreach my $item (@pairs) {	foreach my $item (@pairs) {
my ($key,$value)=split(/=/,$item,2);	my ($key,$value)=split(/=/,$item,2);
my $what = &LONCAPA::unescape($key);	my $what = &LONCAPA::unescape($key);
Line 1192 sub write_hosttypes {	Line 1329 sub write_hosttypes {
foreach my $lonid (sort(keys(%hostdom))) {	foreach my $lonid (sort(keys(%hostdom))) {
my $type = 'other';	my $type = 'other';
if ($hostdom{$lonid} eq $dom) {	if ($hostdom{$lonid} eq $dom) {
$type = 'dom';	$type = 'dom';
} elsif ($intdom{$lonid} eq $internetdom) {	} elsif ($intdom{$lonid} eq $internetdom) {
$type = 'intdom';	$type = 'intdom';
}	}
Line 1398 Options:	Line 1535 Options:
do not send emails do not	do not send emails do not
check if the daemons are running, do not	check if the daemons are running, do not
generate lon-status	generate lon-status
	--justiptables Only update the dynamic iptables rules for the
	lond port; do not send emails, do not
	check if the daemons are running, do not
	generate lon-status
USAGE	USAGE
}	}

# ================================================================ Main Program	# ================================================================ Main Program
sub main () {	sub main () {
my ($help,$justcheckdaemons,$noemail,$justcheckconnections,	my ($help,$justcheckdaemons,$noemail,$justcheckconnections,
$justreload);	$justreload,$justiptables);
&GetOptions("help" => \$help,	&GetOptions("help" => \$help,
"justcheckdaemons" => \$justcheckdaemons,	"justcheckdaemons" => \$justcheckdaemons,
"noemail" => \$noemail,	"noemail" => \$noemail,
"justcheckconnections" => \$justcheckconnections,	"justcheckconnections" => \$justcheckconnections,
"justreload" => \$justreload	"justreload" => \$justreload,
	"justiptables" => \$justiptables
);	);
if ($help) { &usage(); return; }	if ($help) { &usage(); return; }
# --------------------------------- Read loncapa_apache.conf and loncapa.conf	# --------------------------------- Read loncapa_apache.conf and loncapa.conf
Line 1425 sub main () {	Line 1566 sub main () {
if ('{[[[[lonHostID]]]]}' eq $perlvar{'lonHostID'}) {	if ('{[[[[lonHostID]]]]}' eq $perlvar{'lonHostID'}) {
print("Unconfigured machine.\n");	print("Unconfigured machine.\n");
my $emailto=$perlvar{'lonSysEMail'};	my $emailto=$perlvar{'lonSysEMail'};
my $hostname=`/bin/hostname`;	my $hostname = Sys::Hostname::FQDN::fqdn();
chop $hostname;	$hostname=~s/\.+/./g;
$hostname=~s/[^\w\.]//g; # make sure is safe to pass through shell	$hostname=~s/\-+/-/g;
	$hostname=~s/[^\w\.-]//g; # make sure is safe to pass through shell
my $subj="LON: Unconfigured machine $hostname";	my $subj="LON: Unconfigured machine $hostname";
system("echo 'Unconfigured machine $hostname.' \|".	system("echo 'Unconfigured machine $hostname.' \|".
" mail -s '$subj' $emailto > /dev/null");	" mail -s '$subj' $emailto > /dev/null");
Line 1460 sub main () {	Line 1602 sub main () {
}	}
}	}
}	}
&Apache::lonnet::load_hosts_tab(1,$nomemcache);	if (!$justiptables) {
&Apache::lonnet::load_domain_tab(1,$nomemcache);	&Apache::lonnet::load_hosts_tab(1,$nomemcache);
&Apache::lonnet::get_iphost(1,$nomemcache);	&Apache::lonnet::load_domain_tab(1,$nomemcache);
	&Apache::lonnet::get_iphost(1,$nomemcache);
	}

# ----------------------------------------- Force firewall update for lond port	# ----------------------------------------- Force firewall update for lond port

if ((!$justcheckdaemons) && (!$justreload)) {	if ((!$justcheckdaemons) && (!$justreload)) {
my $now = time;	my $now = time;
Line 1479 sub main () {	Line 1623 sub main () {
if (&LONCAPA::try_to_lock('/tmp/lock_lciptables')) {	if (&LONCAPA::try_to_lock('/tmp/lock_lciptables')) {
my $execpath = $perlvar{'lonDaemons'}.'/lciptables';	my $execpath = $perlvar{'lonDaemons'}.'/lciptables';
system("$execpath $tmpfile");	system("$execpath $tmpfile");
unlink('/tmp/lock_lciptables'); # Remove the lock file.	unlink('/tmp/lock_lciptables'); # Remove the lock file.
}	}
unlink($tmpfile);	unlink($tmpfile);
}	}
Line 1491 sub main () {	Line 1635 sub main () {
$warnings=0;	$warnings=0;
$notices=0;	$notices=0;


my $fh;	my $fh;
if (!$justcheckdaemons && !$justcheckconnections && !$justreload) {	if (!$justcheckdaemons && !$justcheckconnections && !$justreload && !$justiptables) {
$fh=&start_logging();	$fh=&start_logging();

&log_machine_info($fh);	&log_machine_info($fh);
Line 1501 sub main () {	Line 1645 sub main () {
&clean_lonIDs($fh);	&clean_lonIDs($fh);
&clean_balanceIDs($fh);	&clean_balanceIDs($fh);
&clean_webDAV_sessionIDs($fh);	&clean_webDAV_sessionIDs($fh);
	&clean_ltiIDs($fh);
&check_httpd_logs($fh);	&check_httpd_logs($fh);
&rotate_lonnet_logs($fh);	&rotate_lonnet_logs($fh);
&rotate_other_logs($fh);	&rotate_other_logs($fh);
}	}
if (!$justcheckconnections && !$justreload) {	if (!$justcheckconnections && !$justreload && !$justiptables) {
&checkon_daemon($fh,'lonmemcached',40000);	&checkon_daemon($fh,'lonmemcached',40000);
&checkon_daemon($fh,'lonsql',200000);	&checkon_daemon($fh,'lonsql',200000);
if ( &checkon_daemon($fh,'lond',40000,'USR1') eq 'running') {	if ( &checkon_daemon($fh,'lond',40000,'USR1') eq 'running') {
Line 1526 sub main () {	Line 1671 sub main () {
if ($justcheckconnections) {	if ($justcheckconnections) {
&test_connections($fh);	&test_connections($fh);
}	}
if (!$justcheckdaemons && !$justcheckconnections && !$justreload) {	if (!$justcheckdaemons && !$justcheckconnections && !$justreload && !$justiptables) {
my $domconf = &get_domain_config();	my $domconf = &get_domain_config();
my ($threshold,$sysmail,$reportstatus,$weightsref,$exclusionsref) =	my ($threshold,$sysmail,$reportstatus,$weightsref,$exclusionsref) =
&get_permcount_settings($domconf);	&get_permcount_settings($domconf);
Line 1534 sub main () {	Line 1679 sub main () {
&write_loncaparevs();	&write_loncaparevs();
&write_serverhomeIDs();	&write_serverhomeIDs();
&write_checksums();	&write_checksums();
	&write_hostips();
my %sslrem = &clean_nosslverify($fh);	my %sslrem = &clean_nosslverify($fh);
my %conchgs = &write_connection_config();	my %conchgs = &write_connection_config();
my %hosttypechgs = &write_hosttypes();	my %hosttypechgs = &write_hosttypes();

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.115
changed lines
	Added in v.1.125