--- loncom/loncron	2010/07/17 20:01:56	1.84
+++ loncom/loncron	2010/07/20 02:42:27	1.85
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.84 2010/07/17 20:01:56 raeburn Exp $
+# $Id: loncron,v 1.85 2010/07/20 02:42:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -701,6 +701,26 @@ sub write_loncaparevs {
     return;
 }
 
+sub write_serverhomeIDs {
+    if (open(my $fh,">$perlvar{'lonTabDir'}/serverhomeIDs.tab")) {
+        my %name_to_host = &Apache::lonnet::all_names();
+        foreach my $name (sort(keys(%name_to_host))) {
+            if ($name ne '') {
+                if (ref($name_to_host{$name}) eq 'ARRAY') {
+                    my $serverhomeID = &Apache::lonnet::get_server_homeID($name,1,'loncron');
+                    if ($serverhomeID ne '') {
+                        print $fh $name.':'.$serverhomeID."\n";
+                    } else {
+                        print $fh $name.':'.$name_to_host{$name}->[0]."\n";
+                    }
+                }
+            }
+        }
+        close($fh);
+    }
+    return;
+}
+
 sub send_mail {
     print "sending mail\n";
     my $defdom = $perlvar{'lonDefDomain'};
@@ -851,6 +871,7 @@ sub main () {
     }
     if (!$justcheckconnections && !$justreload) {
         &write_loncaparevs();
+        &write_serverhomeIDs();
     }
 }