version 1.553, 2018/12/03 13:20:21
|
version 1.555, 2018/12/11 13:05:40
|
Line 833 sub PushFile {
|
Line 833 sub PushFile {
|
# hosts.tab ($filename eq host). |
# hosts.tab ($filename eq host). |
# domain.tab ($filename eq domain). |
# domain.tab ($filename eq domain). |
# dns_hosts.tab ($filename eq dns_host). |
# dns_hosts.tab ($filename eq dns_host). |
# dns_domain.tab ($filename eq dns_domain). |
# dns_domain.tab ($filename eq dns_domain). |
# loncapaCAcrl.pem ($filename eq loncapaCAcrl); |
# loncapaCAcrl.pem ($filename eq loncapaCAcrl). |
# Construct the destination filename or reject the request. |
# Construct the destination filename or reject the request. |
# |
# |
# lonManage is supposed to ensure this, however this session could be |
# lonManage is supposed to ensure this, however this session could be |
Line 5552 sub del_balcookie_handler {
|
Line 5552 sub del_balcookie_handler {
|
chomp($line); |
chomp($line); |
if ($line eq $clientname) { |
if ($line eq $clientname) { |
$dodelete = 1; |
$dodelete = 1; |
last; |
last; |
} |
} |
} |
} |
close($fh); |
close($fh); |
if ($dodelete) { |
if ($dodelete) { |
if (unlink("$execdir/$cookie.id")) { |
if (unlink("$execdir/$cookie.id")) { |
$deleted = 1; |
$deleted = 1; |
Line 7099 sub UpdateHosts {
|
Line 7099 sub UpdateHosts {
|
|
|
my %oldconf = %secureconf; |
my %oldconf = %secureconf; |
my %connchange; |
my %connchange; |
if (lonssl::Read_Connect_Config(\%secureconf,\%crlchecked,\%perlvar) eq 'ok') { |
if (lonssl::Read_Connect_Config(\%secureconf,\%perlvar,\%crlchecked) eq 'ok') { |
logthis('<font color="blue"> Reloaded SSL connection rules and cleared CRL checking history </font>'); |
logthis('<font color="blue"> Reloaded SSL connection rules and cleared CRL checking history </font>'); |
} else { |
} else { |
logthis('<font color="yellow"> Failed to reload SSL connection rules and clear CRL checking history </font>'); |
logthis('<font color="yellow"> Failed to reload SSL connection rules and clear CRL checking history </font>'); |
Line 7381 if ($arch eq 'unknown') {
|
Line 7381 if ($arch eq 'unknown') {
|
chomp($arch); |
chomp($arch); |
} |
} |
|
|
unless (lonssl::Read_Connect_Config(\%secureconf,\%crlchecked,\%perlvar) eq 'ok') { |
unless (lonssl::Read_Connect_Config(\%secureconf,\%perlvar,\%crlchecked) eq 'ok') { |
&logthis('<font color="blue">No connectionrules table. Will fallback to loncapa.conf</font>'); |
&logthis('<font color="blue">No connectionrules table. Will fallback to loncapa.conf</font>'); |
} |
} |
|
|