version 1.103.2.9, 2021/01/30 22:25:53
|
version 1.136, 2024/10/24 21:24:43
|
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; |
|
|
use LWP::UserAgent(); |
|
use HTTP::Request(); |
|
use IO::File; |
use IO::File; |
use IO::Socket; |
use IO::Socket; |
use HTML::Entities; |
use HTML::Entities; |
use Getopt::Long; |
use Getopt::Long; |
|
use GDBM_File qw(GDBM_READER); |
|
use Storable qw(thaw); |
use File::ReadBackwards; |
use File::ReadBackwards; |
use File::Copy; |
use File::Copy; |
use Sys::Hostname::FQDN(); |
use Sys::Hostname::FQDN(); |
Line 172 sub checkon_daemon {
|
Line 173 sub checkon_daemon {
|
&log($fh,unlink($pidfile).' - '. |
&log($fh,unlink($pidfile).' - '. |
`killall -9 $kadaemon 2>&1`. |
`killall -9 $kadaemon 2>&1`. |
'</font><br />'); |
'</font><br />'); |
|
if ($kadaemon eq 'loncnew') { |
|
&clean_lonc_childpids(); |
|
} |
&log($fh,"<h3>$daemon not running, trying to start</h3>"); |
&log($fh,"<h3>$daemon not running, trying to start</h3>"); |
|
|
if (&start_daemon($fh,$daemon,$pidfile,$args)) { |
if (&start_daemon($fh,$daemon,$pidfile,$args)) { |
Line 210 sub checkon_daemon {
|
Line 214 sub checkon_daemon {
|
close (DFH); |
close (DFH); |
} |
} |
&log($fh,"</pre></p>"); |
&log($fh,"</pre></p>"); |
} |
} |
} |
} |
} |
} |
|
|
my $fname="$perlvar{'lonDaemons'}/logs/$daemon.log"; |
my $fname="$perlvar{'lonDaemons'}/logs/$daemon.log"; |
Line 227 sub log_machine_info {
|
Line 231 sub log_machine_info {
|
&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>"); |
|
|
|
my $cpucount; |
|
if (open(PIPE,"lscpu |grep '^CPU(s)' 2>&1 |")) { |
|
my $info = <PIPE>; |
|
chomp($info); |
|
($cpucount) = ($info =~ /^\QCPU(s):\E\s+(\d+)$/); |
|
close(PIPE); |
|
} |
|
if (!$cpucount) { |
|
$cpucount = 1; |
|
} |
|
my %loadtarget = ( |
|
error => 4.0*$cpucount, |
|
warn => 2.0*$cpucount, |
|
note => 1.0*$cpucount, |
|
); |
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]>$loadtarget{'error'}) { |
$errors++; |
$errors++; |
} elsif ($parts[1]>2.0) { |
} elsif ($parts[1]>$loadtarget{'warn'}) { |
$warnings++; |
$warnings++; |
} elsif ($parts[1]>1.0) { |
} elsif ($parts[1]>$loadtarget{'note'}) { |
$notices++; |
$notices++; |
} |
} |
|
|
Line 290 sub log_machine_info {
|
Line 309 sub log_machine_info {
|
|
|
sub start_logging { |
sub start_logging { |
my $fh=IO::File->new(">$statusdir/newstatus.html"); |
my $fh=IO::File->new(">$statusdir/newstatus.html"); |
my %simplestatus=(); |
%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 318 sub start_logging {
|
Line 337 sub start_logging {
|
<li><a href="#lonc">lonc</a></li> |
<li><a href="#lonc">lonc</a></li> |
<li><a href="#lonnet">lonnet</a></li> |
<li><a href="#lonnet">lonnet</a></li> |
<li><a href="#connections">Connections</a></li> |
<li><a href="#connections">Connections</a></li> |
|
<li><a href="#bashconf">bash readline config</a></li> |
<li><a href="#delayed">Delayed Messages</a></li> |
<li><a href="#delayed">Delayed Messages</a></li> |
<li><a href="#errcount">Error Count</a></li> |
<li><a href="#errcount">Error Count</a></li> |
</ol> |
</ol> |
Line 584 sub clean_webDAV_sessionIDs {
|
Line 604 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 761 sub check_delayed_msg {
|
Line 809 sub check_delayed_msg {
|
my $dfh=IO::File->new("$perlvar{'lonDaemons'}/logs/lonnet.perm.log","r"); |
my $dfh=IO::File->new("$perlvar{'lonDaemons'}/logs/lonnet.perm.log","r"); |
if (defined($dfh)) { |
if (defined($dfh)) { |
while (my $line=<$dfh>) { |
while (my $line=<$dfh>) { |
my ($time,$sdf,$rest)=split(/:/,$line,3); |
my ($time,$sdf,$rest)=split(/:/,$line,3); |
if ($time < 1541185772) { |
if ($time < 1541185772) { |
$checkbackwards = 1; |
$checkbackwards = 1; |
} |
} |
last; |
last; |
} |
} |
undef $dfh; |
undef $dfh; |
} |
} |
|
|
if ($checkbackwards) { |
if ($checkbackwards) { |
if (tie *BW, 'File::ReadBackwards', "$perlvar{'lonDaemons'}/logs/lonnet.perm.log") { |
if (tie *BW, 'File::ReadBackwards', "$perlvar{'lonDaemons'}/logs/lonnet.perm.log") { |
Line 950 sub log_simplestatus {
|
Line 998 sub log_simplestatus {
|
rename("$statusdir/newstatus.html","$statusdir/index.html"); |
rename("$statusdir/newstatus.html","$statusdir/index.html"); |
|
|
my $sfh=IO::File->new(">$statusdir/loncron_simple.txt"); |
my $sfh=IO::File->new(">$statusdir/loncron_simple.txt"); |
foreach (keys %simplestatus) { |
if (defined($sfh)) { |
print $sfh $_.'='.$simplestatus{$_}.'&'; |
foreach my $key (keys(%simplestatus)) { |
|
print $sfh $key.'='.$simplestatus{$key}.'&'; |
|
} |
|
print $sfh "\n"; |
|
$sfh->close(); |
|
} else { |
|
print "Could not write to $statusdir/loncron_simple.txt\n"; |
} |
} |
print $sfh "\n"; |
|
$sfh->close(); |
|
} |
} |
|
|
sub write_loncaparevs { |
sub write_loncaparevs { |
Line 980 sub write_loncaparevs {
|
Line 1032 sub write_loncaparevs {
|
} |
} |
} |
} |
if ($output) { |
if ($output) { |
if (open(my $fh,">$perlvar{'lonTabDir'}/loncaparevs.tab")) { |
if (open(my $fh,'>',"$perlvar{'lonTabDir'}/loncaparevs.tab")) { |
print $fh $output; |
print $fh $output; |
close($fh); |
close($fh); |
&Apache::lonnet::load_loncaparevs(); |
&Apache::lonnet::load_loncaparevs(); |
|
} else { |
|
print "Could not write to $perlvar{'lonTabDir'}/loncaparevs.tab\n"; |
} |
} |
} |
} |
return; |
return; |
Line 1016 sub write_serverhomeIDs {
|
Line 1070 sub write_serverhomeIDs {
|
} |
} |
} |
} |
if ($output) { |
if ($output) { |
if (open(my $fh,">$perlvar{'lonTabDir'}/serverhomeIDs.tab")) { |
if (open(my $fh,'>',"$perlvar{'lonTabDir'}/serverhomeIDs.tab")) { |
print $fh $output; |
print $fh $output; |
close($fh); |
close($fh); |
&Apache::lonnet::load_serverhomeIDs(); |
&Apache::lonnet::load_serverhomeIDs(); |
|
} else { |
|
print "Could not write to $perlvar{'lonTabDir'}/serverhomeIDs.tab\n"; |
} |
} |
} |
} |
return; |
return; |
Line 1080 sub write_hostips {
|
Line 1136 sub write_hostips {
|
} |
} |
close($fh); |
close($fh); |
chmod(0644,$newfile); |
chmod(0644,$newfile); |
|
} else { |
|
print "Could not write to $lontabdir/currhostips.tab\n"; |
} |
} |
} |
} |
if (keys(%prevhosts) && keys(%currhosts)) { |
if (keys(%prevhosts) && keys(%currhosts)) { |
Line 1105 sub write_hostips {
|
Line 1163 sub write_hostips {
|
} |
} |
print $fh "\n*******************\n\n"; |
print $fh "\n*******************\n\n"; |
close($fh); |
close($fh); |
|
} else { |
|
print "Could not write to $perlvar{'lonDaemons'}/logs/hostip.log\n"; |
} |
} |
my $emailto = &Apache::loncommon::build_recipient_list(undef, |
my $emailto = &Apache::loncommon::build_recipient_list(undef, |
'hostipmail',$defdom); |
'hostipmail',$defdom); |
Line 1133 sub write_hostips {
|
Line 1193 sub write_hostips {
|
return; |
return; |
} |
} |
|
|
|
sub clean_nosslverify { |
|
my ($fh) = @_; |
|
my %unlinked; |
|
if (-d "$perlvar{'lonSockDir'}/nosslverify") { |
|
if (opendir(my $dh,"$perlvar{'lonSockDir'}/nosslverify")) { |
|
while (my $fname=readdir($dh)) { |
|
next if ($fname =~ /^\.+$/); |
|
if (unlink("/home/httpd/sockets/nosslverify/$fname")) { |
|
&log($fh,"Unlinking $fname<br />"); |
|
$unlinked{$fname} = 1; |
|
} |
|
} |
|
closedir($dh); |
|
} |
|
} |
|
&log($fh,"<p>Removed ".scalar(keys(%unlinked))." nosslverify clients</p>"); |
|
return %unlinked; |
|
} |
|
sub clean_lonc_childpids { |
|
my $childpiddir = "$perlvar{'lonDocRoot'}/lon-status/loncchld"; |
|
if (-d $childpiddir) { |
|
if (opendir(my $dh,$childpiddir)) { |
|
while (my $fname=readdir($dh)) { |
|
next if ($fname =~ /^\.+$/); |
|
unlink("$childpiddir/$fname"); |
|
} |
|
closedir($dh); |
|
} |
|
} |
|
} |
|
|
|
sub write_connection_config { |
|
my ($domconf,%connectssl,%changes); |
|
$domconf = &get_domain_config(); |
|
if (ref($domconf) eq 'HASH') { |
|
if (ref($domconf->{'ssl'}) eq 'HASH') { |
|
foreach my $connect ('connto','connfrom') { |
|
if (ref($domconf->{'ssl'}->{$connect}) eq 'HASH') { |
|
my ($sslreq,$sslnoreq,$currsetting); |
|
my %contypes; |
|
foreach my $type ('dom','intdom','other') { |
|
$connectssl{$connect.'_'.$type} = $domconf->{'ssl'}->{$connect}->{$type}; |
|
} |
|
} |
|
} |
|
} |
|
if (keys(%connectssl)) { |
|
my %currconf; |
|
if (open(my $fh,'<',"$perlvar{'lonTabDir'}/connectionrules.tab")) { |
|
while (my $line = <$fh>) { |
|
chomp($line); |
|
my ($name,$value) = split(/=/,$line); |
|
if ($value =~ /^(?:no|yes|req)$/) { |
|
if ($name =~ /^conn(to|from)_(dom|intdom|other)$/) { |
|
$currconf{$name} = $value; |
|
} |
|
} |
|
} |
|
close($fh); |
|
} |
|
if (open(my $fh,'>',"$perlvar{'lonTabDir'}/connectionrules.tab")) { |
|
my $count = 0; |
|
foreach my $key (sort(keys(%connectssl))) { |
|
print $fh "$key=$connectssl{$key}\n"; |
|
if (exists($currconf{$key})) { |
|
unless ($currconf{$key} eq $connectssl{$key}) { |
|
$changes{$key} = 1; |
|
} |
|
} else { |
|
$changes{$key} = 1; |
|
} |
|
$count ++; |
|
} |
|
close($fh); |
|
print "Completed writing SSL options for lonc/lond for $count items.\n"; |
|
} else { |
|
print "Could not write to $perlvar{'lonTabDir'}/connectionrules.tab\n"; |
|
} |
|
} else { |
|
print "Writing of SSL options skipped - no connection rules in domain configuration.\n"; |
|
} |
|
} else { |
|
print "Retrieval of SSL options for lonc/lond skipped - no configuration data available for domain.\n"; |
|
} |
|
return %changes; |
|
} |
|
|
sub get_domain_config { |
sub get_domain_config { |
my ($dom,$primlibserv,$isprimary,$url,%confhash); |
my ($dom,$primlibserv,$isprimary,$url,%confhash); |
$dom = $perlvar{'lonDefDomain'}; |
$dom = $perlvar{'lonDefDomain'}; |
Line 1166 sub get_domain_config {
|
Line 1313 sub get_domain_config {
|
} |
} |
} |
} |
} else { |
} else { |
my $ua=new LWP::UserAgent; |
|
$ua->timeout(5); |
|
my $request=new HTTP::Request('GET',$url); |
my $request=new HTTP::Request('GET',$url); |
my $response=$ua->request($request); |
my $response=&LONCAPA::LWPReq::makerequest($primlibserv,$request,'',\%perlvar,5); |
unless ($response->is_error()) { |
unless ($response->is_error()) { |
my $content = $response->content; |
my $content = $response->content; |
if ($content) { |
if ($content) { |
Line 1190 sub get_domain_config {
|
Line 1335 sub get_domain_config {
|
return \%confhash; |
return \%confhash; |
} |
} |
|
|
|
sub write_hosttypes { |
|
my %intdom = &Apache::lonnet::all_host_intdom(); |
|
my %hostdom = &Apache::lonnet::all_host_domain(); |
|
my $dom = $hostdom{$perlvar{'lonHostID'}}; |
|
my $internetdom = $intdom{$perlvar{'lonHostID'}}; |
|
my %changes; |
|
if (($dom ne '') && ($internetdom ne '')) { |
|
if (keys(%hostdom)) { |
|
my %currhosttypes; |
|
if (open(my $fh,'<',"$perlvar{'lonTabDir'}/hosttypes.tab")) { |
|
while (my $line = <$fh>) { |
|
chomp($line); |
|
my ($name,$value) = split(/:/,$line); |
|
if (($name ne '') && ($value =~ /^(dom|intdom|other)$/)) { |
|
$currhosttypes{$name} = $value; |
|
} |
|
} |
|
close($fh); |
|
} |
|
if (open(my $fh,'>',"$perlvar{'lonTabDir'}/hosttypes.tab")) { |
|
my $count = 0; |
|
foreach my $lonid (sort(keys(%hostdom))) { |
|
my $type = 'other'; |
|
if ($hostdom{$lonid} eq $dom) { |
|
$type = 'dom'; |
|
} elsif ($intdom{$lonid} eq $internetdom) { |
|
$type = 'intdom'; |
|
} |
|
print $fh "$lonid:$type\n"; |
|
if (exists($currhosttypes{$lonid})) { |
|
if ($type ne $currhosttypes{$lonid}) { |
|
$changes{$lonid} = 1; |
|
} |
|
} else { |
|
$changes{$lonid} = 1; |
|
} |
|
$count ++; |
|
} |
|
close($fh); |
|
print "Completed writing host type data for $count hosts.\n"; |
|
} else { |
|
print "Could not write to $perlvar{'lonTabDir'}/hosttypes.tab\n"; |
|
} |
|
} else { |
|
print "Writing of host types skipped - no hosts found.\n"; |
|
} |
|
} else { |
|
print "Writing of host types skipped - could not determine this host's LON-CAPA domain or 'internet' domain.\n"; |
|
} |
|
return %changes; |
|
} |
|
|
|
sub update_revocation_list { |
|
my ($result,$changed) = &Apache::lonnet::fetch_crl_pemfile(); |
|
if ($result eq 'ok') { |
|
print "Certificate Revocation List (from CA) updated.\n"; |
|
} else { |
|
print "Certificate Revocation List from (CA) not updated.\n"; |
|
} |
|
return $changed; |
|
} |
|
|
|
sub reset_nosslverify_pids { |
|
my ($fh,%sslrem) = @_; |
|
&checkon_daemon($fh,'lond',40000,'USR2'); |
|
my $loncpidfile="$perlvar{'lonDaemons'}/logs/lonc.pid"; |
|
my $loncppid; |
|
if ((-e $loncpidfile) && (open(my $pfh,'<',$loncpidfile))) { |
|
$loncppid=<$pfh>; |
|
chomp($loncppid); |
|
close($pfh); |
|
if ($loncppid =~ /^\d+$/) { |
|
my %pids_by_host; |
|
my $docdir = $perlvar{'lonDocRoot'}; |
|
if (-d "$docdir/lon-status/loncchld") { |
|
if (opendir(my $dh,"$docdir/lon-status/loncchld")) { |
|
while (my $file = readdir($dh)) { |
|
next if ($file =~ /^\./); |
|
if (open(my $fh,'<',"$docdir/lon-status/loncchld/$file")) { |
|
my $record = <$fh>; |
|
chomp($record); |
|
close($fh); |
|
my ($remotehost,$authmode) = split(/:/,$record); |
|
$pids_by_host{$remotehost}{$authmode}{$file} = 1; |
|
} |
|
} |
|
closedir($dh); |
|
if (keys(%pids_by_host)) { |
|
foreach my $host (keys(%pids_by_host)) { |
|
if ($sslrem{$host}) { |
|
if (ref($pids_by_host{$host}) eq 'HASH') { |
|
if (ref($pids_by_host{$host}{'insecure'}) eq 'HASH') { |
|
if (keys(%{$pids_by_host{$host}{'insecure'}})) { |
|
foreach my $pid (keys(%{$pids_by_host{$host}{'insecure'}})) { |
|
if (open(PIPE,"ps -o ppid= -p $pid |")) { |
|
my $ppid = <PIPE>; |
|
chomp($ppid); |
|
close(PIPE); |
|
$ppid =~ s/(^\s+|\s+$)//g; |
|
if (($ppid == $loncppid) && (kill 0 => $pid)) { |
|
kill QUIT => $pid; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
|
sub get_permcount_settings { |
sub get_permcount_settings { |
my ($domconf) = @_; |
my ($domconf) = @_; |
my ($defaults,$names) = &Apache::loncommon::lon_status_items(); |
my ($defaults,$names) = &Apache::loncommon::lon_status_items(); |
Line 1246 sub read_serverhomeIDs {
|
Line 1508 sub read_serverhomeIDs {
|
return %server; |
return %server; |
} |
} |
|
|
|
sub check_bash_settings { |
|
my $distro = &LONCAPA::distro(); |
|
my ($check_bracketed_paste,$bracketed_warning); |
|
if ($distro =~ /^debian(\d+)$/) { |
|
if ($1 >= 12) { |
|
$check_bracketed_paste = 1; |
|
} |
|
} elsif ($distro =~ /^ubuntu(\d+)$/) { |
|
if ($1 >= 22) { |
|
$check_bracketed_paste = 1; |
|
} |
|
} elsif ($distro =~ /^(?:redhat|oracle|alma|rocky|centos-stream)(\d+)$/) { |
|
if ($1 >= 9) { |
|
$check_bracketed_paste = 1; |
|
} |
|
} elsif ($distro =~ /^fedora(\d+)/) { |
|
if ($1 >= 34) { |
|
$check_bracketed_paste = 1; |
|
} |
|
} |
|
if ($check_bracketed_paste) { |
|
if (open(PIPE,"bind -V 2>&1 | grep enable-bracketed-paste |")) { |
|
my $info = <PIPE>; |
|
chomp($info); |
|
my ($bracketed) = ($info =~ /^\Qenable-bracketed-paste\E\s+is\s+set\s+to\s+\W(on|off)\W$/); |
|
close(PIPE); |
|
if ($bracketed eq 'on') { |
|
$bracketed_warning = 1; |
|
} |
|
} else { |
|
print "Unable to check if bracketed paste is set to off for www user's shell\n"; |
|
} |
|
} |
|
return ($bracketed_warning,$check_bracketed_paste); |
|
} |
|
|
|
sub set_bracketed_paste_off { |
|
my $bash_www_cnf = '/home/www/.inputrc'; |
|
my $result; |
|
if (!-e $bash_www_cnf) { |
|
system("touch $bash_www_cnf"); |
|
if (open(my $cfh,'>',$bash_www_cnf)) { |
|
print $cfh <<'END'; |
|
$if R |
|
set enable-bracketed-paste off |
|
$endif |
|
|
|
$if maxima |
|
set enable-bracketed-paste off |
|
$endif |
|
END |
|
close($cfh); |
|
$result = "Updated $bash_www_cnf so enable-bracketed-paste is off for R bash shell"; |
|
} else { |
|
$result = "Could not open $bash_www_cnf to add 'set enable-bracketed-paste to off'"; |
|
} |
|
my $wwwuid = getpwnam('www'); |
|
my $wwwgid = getgrnam('www'); |
|
if ($wwwuid!=$<) { |
|
chown($wwwuid,$wwwgid,$bash_www_cnf); |
|
} |
|
} else { |
|
my (%bracketed_paste_on,%bracketed_paste_off,@preserve,$condition); |
|
$condition = ''; |
|
if (open(my $cfh,'<',$bash_www_cnf)) { |
|
while (my $line=<$cfh>) { |
|
chomp($line); |
|
if ($line =~ /^\$if\s+(\w+)\s*$/) { |
|
if ($1 eq 'R') { |
|
$condition = 'r'; |
|
} elsif ($1 eq 'maxima') { |
|
$condition = 'maxima'; |
|
} else { |
|
$condition = 'other'; |
|
} |
|
} elsif ($line =~ /^\$endif\s*$/) { |
|
$condition = ''; |
|
} |
|
if ($line =~ /^\s*set\s+enable\-bracketed\-paste\s+(off|on)\s*$/) { |
|
if ($1 eq 'off') { |
|
if ($condition ne '') { |
|
$bracketed_paste_off{$condition} = 1; |
|
} else { |
|
$bracketed_paste_off{all} = 1; |
|
} |
|
push(@preserve,$line); |
|
} else { |
|
if ($condition ne '') { |
|
$bracketed_paste_on{$condition} = 1; |
|
if (($condition eq 'r') || ($condition eq 'maxima')) { |
|
push(@preserve,' set enable-bracketed-paste off'); |
|
} else { |
|
push(@preserve,$line); |
|
} |
|
} else { |
|
$bracketed_paste_on{all} = 1; |
|
push(@preserve,$line); |
|
} |
|
} |
|
} else { |
|
push(@preserve,$line); |
|
} |
|
} |
|
close($cfh); |
|
} else { |
|
$result = "Could not open $bash_www_cnf to check if a value is included for 'enable-bracketed-paste'."; |
|
} |
|
if (($bracketed_paste_on{r} || $bracketed_paste_on{maxima}) || |
|
(!exists($bracketed_paste_off{r}) && !exists($bracketed_paste_on{r}) && |
|
!exists($bracketed_paste_off{maxima}) && !exists($bracketed_paste_on{maxima}))) { |
|
if (open(my $cfh,'>',$bash_www_cnf)) { |
|
if (@preserve) { |
|
foreach my $entry (@preserve) { |
|
print $cfh "$entry\n"; |
|
} |
|
if (!exists($bracketed_paste_off{r}) && !exists($bracketed_paste_on{r})) { |
|
print $cfh <<'END'; |
|
$if R |
|
set enable-bracketed-paste off |
|
$endif |
|
END |
|
} |
|
if (!exists($bracketed_paste_off{r}) && !exists($bracketed_paste_on{r})) { |
|
print $cfh <<'END'; |
|
$if maxima |
|
set enable-bracketed-paste off |
|
$endif |
|
END |
|
} |
|
} else { |
|
print $cfh <<'END'; |
|
$if R |
|
set enable-bracketed-paste off |
|
$endif |
|
|
|
$if maxima |
|
set enable-bracketed-paste off |
|
$endif |
|
END |
|
} |
|
close($cfh); |
|
$result = "Updated $bash_www_cnf"; |
|
} else { |
|
$result = "Could not open $bash_www_cnf to add 'set enable-bracketed-paste to off'"; |
|
} |
|
} else { |
|
$result = "No action needed; $bash_www_cnf already includes 'set enable-bracketed-paste to off'"; |
|
} |
|
} |
|
return $result; |
|
} |
|
|
sub send_mail { |
sub send_mail { |
my ($sysmail,$reportstatus) = @_; |
my ($sysmail,$reportstatus) = @_; |
my $defdom = $perlvar{'lonDefDomain'}; |
my $defdom = $perlvar{'lonDefDomain'}; |
Line 1268 sub send_mail {
|
Line 1682 sub send_mail {
|
"Subject: ".$subj."\n". |
"Subject: ".$subj."\n". |
"Content-type: text/html\; charset=UTF-8\n". |
"Content-type: text/html\; charset=UTF-8\n". |
"MIME-Version: 1.0\n\n"; |
"MIME-Version: 1.0\n\n"; |
if (open(my $fh,"<$statusdir/index.html")) { |
if (open(my $fh,'<',$statusdir/index.html")) { |
while (<$fh>) { |
while (<$fh>) { |
$loncronmail .= $_; |
$loncronmail .= $_; |
} |
} |
Line 1350 sub main () {
|
Line 1764 sub main () {
|
my $wwwid=getpwnam('www'); |
my $wwwid=getpwnam('www'); |
if ($wwwid!=$<) { |
if ($wwwid!=$<) { |
print("User ID mismatch. This program must be run as user 'www'.\n"); |
print("User ID mismatch. This program must be run as user 'www'.\n"); |
my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
my $emailto="$perlvar{'lonAdmEMail'} $perlvar{'lonSysEMail'}"; |
my $subj="LON: $perlvar{'lonHostID'} User ID mismatch"; |
my $subj="LON: $perlvar{'lonHostID'} User ID mismatch"; |
system("echo 'User ID mismatch. loncron must be run as user www.' |". |
system("echo 'User ID mismatch. loncron must be run as user www.' |". |
" mail -s '$subj' $emailto > /dev/null"); |
" mail -s '$subj' $emailto > /dev/null"); |
Line 1384 sub main () {
|
Line 1798 sub main () {
|
my $now = time; |
my $now = time; |
my $tmpfile = $perlvar{'lonDaemons'}.'/tmp/lciptables_iphost_'. |
my $tmpfile = $perlvar{'lonDaemons'}.'/tmp/lciptables_iphost_'. |
$now.$$.int(rand(10000)); |
$now.$$.int(rand(10000)); |
if (open(my $fh,">$tmpfile")) { |
if (open(my $fh,'>',"$tmpfile")) { |
my %iphosts = &Apache::lonnet::get_iphost(); |
my %iphosts = &Apache::lonnet::get_iphost(); |
foreach my $key (keys(%iphosts)) { |
foreach my $key (keys(%iphosts)) { |
print $fh "$key\n"; |
print $fh "$key\n"; |
Line 1415 sub main () {
|
Line 1829 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); |
Line 1430 sub main () {
|
Line 1845 sub main () {
|
&checkon_daemon($fh,'lonr',40000); |
&checkon_daemon($fh,'lonr',40000); |
} |
} |
if ($justreload) { |
if ($justreload) { |
|
&clean_nosslverify($fh); |
|
&write_connection_config(); |
|
&write_hosttypes(); |
|
&update_revocation_list(); |
&checkon_daemon($fh,'lond',40000,'USR2'); |
&checkon_daemon($fh,'lond',40000,'USR2'); |
&checkon_daemon($fh,'lonc',40000,'USR2'); |
&checkon_daemon($fh,'lonc',40000,'USR2'); |
} |
} |
Line 1437 sub main () {
|
Line 1856 sub main () {
|
&test_connections($fh); |
&test_connections($fh); |
} |
} |
if (!$justcheckdaemons && !$justcheckconnections && !$justreload && !$justiptables) { |
if (!$justcheckdaemons && !$justcheckconnections && !$justreload && !$justiptables) { |
|
my ($bracketed_warning,$check_bracketed_paste) = &check_bash_settings(); |
|
if ($check_bracketed_paste) { |
|
&log($fh,'<hr /><a name="bashconf" /><h2>bash readline config</h2><h3>Bracketed Paste</h3>'. |
|
'<p>Distros using bash readline library 8.1 or later need bracketed paste disabled for the R bash shell for the www user so R commands sent to lonr daemon will be processed.</p>'); |
|
my $bash_www_cnf = '/home/www/.inputrc'; |
|
my $non_empty_conffile; |
|
unless ($bracketed_warning) { |
|
if (-e $bash_www_cnf) { |
|
my $filesize = (stat($bash_www_cnf))[7]; |
|
if ($filesize > 0) { |
|
$non_empty_conffile = 1; |
|
} |
|
} |
|
} |
|
if (($bracketed_warning) || ($non_empty_conffile)) { |
|
my $bash_update = &set_bracketed_paste_off(); |
|
if ($bash_update) { |
|
&log($fh,'<p>'.$bash_update.'</p>'."\n"); |
|
} |
|
} else { |
|
&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>'. |
|
'<p>No action needed for distros using pre-8.1 bash readline library</p>'."\n"); |
|
} |
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); |
&check_delayed_msg($fh,$weightsref,$exclusionsref); |
&check_delayed_msg($fh,$weightsref,$exclusionsref); |
&finish_logging($fh,$weightsref); |
|
&log_simplestatus(); |
|
&write_loncaparevs(); |
&write_loncaparevs(); |
&write_serverhomeIDs(); |
&write_serverhomeIDs(); |
&write_checksums(); |
&write_checksums(); |
&write_hostips(); |
&write_hostips(); |
|
my %sslrem = &clean_nosslverify($fh); |
|
my %conchgs = &write_connection_config(); |
|
my %hosttypechgs = &write_hosttypes(); |
|
my $hadcrlchg = &update_revocation_list(); |
|
if ((keys(%conchgs) > 0) || (keys(%hosttypechgs) > 0) || |
|
$hadcrlchg || (keys(%sslrem) > 0)) { |
|
&checkon_daemon($fh,'lond',40000,'USR2'); |
|
&reset_nosslverify_pids($fh,%sslrem); |
|
} |
|
&finish_logging($fh,$weightsref); |
|
&log_simplestatus(); |
if ($totalcount>$threshold && !$noemail) { &send_mail($sysmail,$reportstatus); } |
if ($totalcount>$threshold && !$noemail) { &send_mail($sysmail,$reportstatus); } |
} |
} |
} |
} |