--- loncom/loncron	2010/03/24 18:57:49	1.83
+++ loncom/loncron	2010/07/17 20:01:56	1.84
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.83 2010/03/24 18:57:49 raeburn Exp $
+# $Id: loncron,v 1.84 2010/07/17 20:01:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -685,6 +685,22 @@ sub log_simplestatus {
     $sfh->close();
 }
 
+sub write_loncaparevs {
+    if (open(my $fh,">$perlvar{'lonTabDir'}/loncaparevs.tab")) {
+        my %hostname = &Apache::lonnet::all_hostnames();
+        foreach my $id (sort(keys(%hostname))) {
+            if ($id ne '') {
+                my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');
+                if ($loncaparev =~ /^[\d.\-]+$/) {
+                    print $fh $id.':'.$loncaparev."\n";
+                }
+            }
+        }
+        close($fh);
+    }
+    return;
+}
+
 sub send_mail {
     print "sending mail\n";
     my $defdom = $perlvar{'lonDefDomain'};
@@ -833,6 +849,9 @@ sub main () {
 	
 	if ($totalcount>200 && !$noemail) { &send_mail(); }
     }
+    if (!$justcheckconnections && !$justreload) {
+        &write_loncaparevs();
+    }
 }
 
 &main();