loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

-version 1.84, 2010/07/17 20:01:56
+version 1.85, 2010/07/20 02:42:27
  Line 701  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'};
- Line 851  sub main () {
+ Line 871  sub main () {
      }
      if (!$justcheckconnections && !$justreload) {
          &write_loncaparevs();
+         &write_serverhomeIDs();
      }
  }