loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.105, 2017/10/20 11:54:54	version 1.106, 2018/07/18 13:44:55
Line 942 sub write_hosttypes {	Line 942 sub write_hosttypes {
}	}
}	}

	sub update_revocation_list {
	if (&Apache::lonnet::fetch_crl_pemfile() eq 'ok') {
	print "Certificate Revocation List (from CA) updated.\n";
	} else {
	print "Certificate Revocation List from (CA) not updated.\n";
	}
	}

sub send_mail {	sub send_mail {
my $defdom = $perlvar{'lonDefDomain'};	my $defdom = $perlvar{'lonDefDomain'};
my $origmail = $perlvar{'lonAdmEMail'};	my $origmail = $perlvar{'lonAdmEMail'};
Line 1134 sub main () {	Line 1142 sub main () {
&write_checksums();	&write_checksums();
&write_connection_config();	&write_connection_config();
&write_hosttypes();	&write_hosttypes();
	&update_revocation_list();
if ($totalcount>200 && !$noemail) { &send_mail(); }	if ($totalcount>200 && !$noemail) { &send_mail(); }
}	}
}	}