[BACK]Return to loncron CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/loncron between versions 1.89 and 1.90

version 1.89, 2011/05/14 16:12:53 version 1.90, 2011/06/03 20:45:10
Line 687  sub log_simplestatus { Line 687  sub log_simplestatus {
 }  }
   
 sub write_loncaparevs {  sub write_loncaparevs {
       print "Retrieving LON-CAPA version information\n";
     if (open(my $fh,">$perlvar{'lonTabDir'}/loncaparevs.tab")) {      if (open(my $fh,">$perlvar{'lonTabDir'}/loncaparevs.tab")) {
         my %hostname = &Apache::lonnet::all_hostnames();          my %hostname = &Apache::lonnet::all_hostnames();
         foreach my $id (sort(keys(%hostname))) {          foreach my $id (sort(keys(%hostname))) {
             if ($id ne '') {              if ($id ne '') {
                 my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');                  my $loncaparev;
                   eval {
                       local $SIG{ ALRM } = sub { die "TIMEOUT" };
                       alarm(10);
                       $loncaparev =
                           &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');
                       alarm(0);
                   };
                   if ($@ && $@ =~ m/TIMEOUT/) {
                       print "time out while contacting lonHost: $id for version\n";   
                   }
                 if ($loncaparev =~ /^[\w.\-]+$/) {                  if ($loncaparev =~ /^[\w.\-]+$/) {
                     print $fh $id.':'.$loncaparev."\n";                      print $fh $id.':'.$loncaparev."\n";
                 }                  }
Line 703  sub write_loncaparevs { Line 714  sub write_loncaparevs {
 }  }
   
 sub write_serverhomeIDs {  sub write_serverhomeIDs {
       print "Retrieving LON-CAPA lonHostID information\n";
     if (open(my $fh,">$perlvar{'lonTabDir'}/serverhomeIDs.tab")) {      if (open(my $fh,">$perlvar{'lonTabDir'}/serverhomeIDs.tab")) {
         my %name_to_host = &Apache::lonnet::all_names();          my %name_to_host = &Apache::lonnet::all_names();
         foreach my $name (sort(keys(%name_to_host))) {          foreach my $name (sort(keys(%name_to_host))) {
             if ($name ne '') {              if ($name ne '') {
                 if (ref($name_to_host{$name}) eq 'ARRAY') {                  if (ref($name_to_host{$name}) eq 'ARRAY') {
                     my $serverhomeID = &Apache::lonnet::get_server_homeID($name,1,'loncron');                      my $serverhomeID;
                       eval {
                           local $SIG{ ALRM } = sub { die "TIMEOUT" };
                           alarm(10);
                           $serverhomeID = 
                               &Apache::lonnet::get_server_homeID($name,1,'loncron');
                           alarm(0);
                       };
                       if ($@ && $@ =~ m/TIMEOUT/) {
                           print "Time out while contacting server: $name\n"; 
                       }
                     if ($serverhomeID ne '') {                      if ($serverhomeID ne '') {
                         print $fh $name.':'.$serverhomeID."\n";                          print $fh $name.':'.$serverhomeID."\n";
                     } else {                      } else {
Removed from v.1.89  
changed lines
  Added in v.1.90

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>