loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.107, 2018/08/07 17:12:09	version 1.108, 2018/08/08 11:49:48
Line 1028 sub update_revocation_list {	Line 1028 sub update_revocation_list {
}	}

sub reset_nosslverify_pids {	sub reset_nosslverify_pids {
my (%sslrem) = @_;	my ($fh,%sslrem) = @_;
&checkon_daemon($fh,'lond',40000,'USR2');	&checkon_daemon($fh,'lond',40000,'USR2');
my $loncpidfile="$perlvar{'lonDaemons'}/logs/lonc.pid";	my $loncpidfile="$perlvar{'lonDaemons'}/logs/lonc.pid";
my $loncppid;	my $loncppid;
Line 1274 sub main () {	Line 1274 sub main () {
&write_serverhomeIDs();	&write_serverhomeIDs();
&write_checksums();	&write_checksums();
my %sslrem = &clean_nosslverify($fh);	my %sslrem = &clean_nosslverify($fh);
&finish_logging($fh);
my %conchgs = &write_connection_config();	my %conchgs = &write_connection_config();
my %hosttypechgs = &write_hosttypes();	my %hosttypechgs = &write_hosttypes();
my $hadcrlchg = &update_revocation_list();	my $hadcrlchg = &update_revocation_list();
if ((keys(%{$conchgs}) > 0) \|\| (keys(%hosttypechgs) > 0) \|\|	if ((keys(%conchgs) > 0) \|\| (keys(%hosttypechgs) > 0) \|\|
$hadcrlchg \|\| (keys(%sslrem) > 0)) {	$hadcrlchg \|\| (keys(%sslrem) > 0)) {
&checkon_daemon($fh,'lond',40000,'USR2');	&checkon_daemon($fh,'lond',40000,'USR2');
&reset_nosslverify_pids(%sslrem);	&reset_nosslverify_pids($fh,%sslrem);
}	}
	&finish_logging($fh);
if ($totalcount>200 && !$noemail) { &send_mail(); }	if ($totalcount>200 && !$noemail) { &send_mail(); }
}	}
}	}