--- loncom/loncron	2017/10/20 11:54:54	1.105
+++ loncom/loncron	2018/07/18 13:44:55	1.106
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.105 2017/10/20 11:54:54 raeburn Exp $
+# $Id: loncron,v 1.106 2018/07/18 13:44:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -942,6 +942,14 @@ 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 {
     my $defdom = $perlvar{'lonDefDomain'};
     my $origmail = $perlvar{'lonAdmEMail'};
@@ -1134,6 +1142,7 @@ sub main () {
 	&write_checksums();
         &write_connection_config();
         &write_hosttypes();
+        &update_revocation_list();
 	if ($totalcount>200 && !$noemail) { &send_mail(); }
     }
 }