[LON-CAPA-cvs] cvs: loncom / loncron
raeburn
raeburn at source.lon-capa.org
Tue Dec 24 21:32:47 EST 2024
raeburn Wed Dec 25 02:32:47 2024 EDT
Modified files:
/loncom loncron
Log:
- Fix typo and remove trailing white space.
Index: loncom/loncron
diff -u loncom/loncron:1.136 loncom/loncron:1.137
--- loncom/loncron:1.136 Thu Oct 24 21:24:43 2024
+++ loncom/loncron Wed Dec 25 02:32:47 2024
@@ -2,7 +2,7 @@
# Housekeeping program, started by cron, loncontrol and loncron.pl
#
-# $Id: loncron,v 1.136 2024/10/24 21:24:43 raeburn Exp $
+# $Id: loncron,v 1.137 2024/12/25 02:32:47 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -134,7 +134,7 @@
}
my $pidfile="$perlvar{'lonDaemons'}/logs/$daemon.pid";
-
+
my $restartflag=1;
my $daemonpid;
if (-e $pidfile) {
@@ -206,7 +206,7 @@
if (-e "$perlvar{'lonDaemons'}/logs/$daemon.log"){
&log($fh,"<p><pre>");
if (open(DFH,"tail -n100 $perlvar{'lonDaemons'}/logs/$daemon.log|")) {
- while (my $line=<DFH>) {
+ while (my $line=<DFH>) {
&log($fh,"$line");
if ($line=~/WARNING/) { $notices++; }
if ($line=~/CRITICAL/) { $notices++; }
@@ -249,7 +249,7 @@
open (LOADAVGH,"/proc/loadavg");
my $loadavg=<LOADAVGH>;
close (LOADAVGH);
-
+
&log($fh,"<tt>$loadavg</tt>");
my @parts=split(/\s+/,$loadavg);
@@ -312,7 +312,7 @@
%simplestatus=();
my $now=time;
my $date=localtime($now);
-
+
&log($fh,(<<ENDHEADERS));
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
@@ -426,7 +426,7 @@
} else {
$innerdir = $subdir.'/'.$file;
}
- ($cleaned,$old,$removed) =
+ ($cleaned,$old,$removed) =
&recursive_clean_tmp($innerdir,$cleaned,$old,$removed,$errors);
my @doms = &Apache::lonnet::current_machine_domains();
@@ -472,7 +472,7 @@
if ($line=~/^CHECKOUTTOKEN\&/) {
if ($since>365*$perlvar{'lonExpire'}) {
if (unlink($fname)) {
- $cleaned++;
+ $cleaned++;
} elsif (ref($errors->{file}) eq 'ARRAY') {
push(@{$errors->{file}},$fname);
}
@@ -638,7 +638,7 @@
my $cleaned=0;
opendir(SOCKETS,$perlvar{'lonSockDir'});
while (my $fname=readdir(SOCKETS)) {
- next if (-d $fname
+ next if (-d $fname
|| $fname=~/(mysqlsock|maximasock|rsock|\Q$perlvar{'lonSockDir'}\E)/);
$cleaned++;
&log($fh,"Unlinking $fname<br />");
@@ -745,7 +745,7 @@
my ($fh,$weightsref,$exclusionsref)=@_;
&log($fh,'<hr /><a name="delayed" /><h2>Delayed Messages</h2>');
print "Checking buffers.\n";
-
+
&log($fh,'<h3>Scanning Permanent Log</h3>');
my $unsend=0;
@@ -816,7 +816,7 @@
last;
}
undef $dfh;
- }
+ }
if ($checkbackwards) {
if (tie *BW, 'File::ReadBackwards', "$perlvar{'lonDaemons'}/logs/lonnet.perm.log") {
@@ -996,7 +996,7 @@
sub log_simplestatus {
rename("$statusdir/newstatus.html","$statusdir/index.html");
-
+
my $sfh=IO::File->new(">$statusdir/loncron_simple.txt");
if (defined($sfh)) {
foreach my $key (keys(%simplestatus)) {
@@ -1024,7 +1024,7 @@
alarm(0);
};
if ($@ && $@ =~ m/TIMEOUT/) {
- print "Time out while contacting lonHost: $id for version.\n";
+ print "Time out while contacting lonHost: $id for version.\n";
}
if ($loncaparev =~ /^[\w.\-]+$/) {
$output .= $id.':'.$loncaparev."\n";
@@ -1037,7 +1037,7 @@
close($fh);
&Apache::lonnet::load_loncaparevs();
} else {
- print "Could not write to $perlvar{'lonTabDir'}/loncaparevs.tab\n";
+ print "Could not write to $perlvar{'lonTabDir'}/loncaparevs.tab\n";
}
}
return;
@@ -1059,7 +1059,7 @@
alarm(0);
};
if ($@ && $@ =~ m/TIMEOUT/) {
- print "Time out while contacting server: $name\n";
+ print "Time out while contacting server: $name\n";
}
if ($serverhomeID ne '') {
$output .= $name.':'.$serverhomeID."\n";
@@ -1096,7 +1096,7 @@
}
print "File version retrieved and checksumming completed for $numchksums files.\n";
} else {
- print "File version retrieval and checksumming skipped - could not determine Linux distro.\n";
+ print "File version retrieval and checksumming skipped - could not determine Linux distro.\n";
}
return;
}
@@ -1240,7 +1240,7 @@
}
}
if (keys(%connectssl)) {
- my %currconf;
+ my %currconf;
if (open(my $fh,'<',"$perlvar{'lonTabDir'}/connectionrules.tab")) {
while (my $line = <$fh>) {
chomp($line);
@@ -1255,7 +1255,7 @@
}
if (open(my $fh,'>',"$perlvar{'lonTabDir'}/connectionrules.tab")) {
my $count = 0;
- foreach my $key (sort(keys(%connectssl))) {
+ foreach my $key (sort(keys(%connectssl))) {
print $fh "$key=$connectssl{$key}\n";
if (exists($currconf{$key})) {
unless ($currconf{$key} eq $connectssl{$key}) {
@@ -1538,7 +1538,7 @@
$bracketed_warning = 1;
}
} else {
- print "Unable to check if bracketed paste is set to off for www user's shell\n";
+ print "Unable to check if bracketed paste is set to off for www user's shell\n";
}
}
return ($bracketed_warning,$check_bracketed_paste);
@@ -1682,7 +1682,7 @@
"Subject: ".$subj."\n".
"Content-type: text/html\; charset=UTF-8\n".
"MIME-Version: 1.0\n\n";
- if (open(my $fh,'<',$statusdir/index.html")) {
+ if (open(my $fh,'<',"$statusdir/index.html")) {
while (<$fh>) {
$loncronmail .= $_;
}
@@ -1705,7 +1705,7 @@
loncron - housekeeping program that checks up on various parts of LON-CAPA
Options:
- --help Display
+ --help Display
--noemail Do not send the status email
--justcheckconnections Only check the current status of the lonc/d
connections, do not send emails do not
@@ -1848,7 +1848,7 @@
&clean_nosslverify($fh);
&write_connection_config();
&write_hosttypes();
- &update_revocation_list();
+ &update_revocation_list();
&checkon_daemon($fh,'lond',40000,'USR2');
&checkon_daemon($fh,'lonc',40000,'USR2');
}
@@ -1876,7 +1876,7 @@
&log($fh,'<p>'.$bash_update.'</p>'."\n");
}
} else {
- &log($fh,'<p>No action needed; /home/www/.inputrc already set.</p>'."\n");
+ &log($fh,'<p>No action needed; /home/www/.inputrc already set.</p>'."\n");
}
} else {
&log($fh,'<hr /><a name="bashconf" /><h2>bash readline config</h2><h3>Bracketed Paste</h3>'.
More information about the LON-CAPA-cvs
mailing list