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

Diff for /loncom/loncron between versions 1.84 and 1.89

version 1.84, 2010/07/17 20:01:56 version 1.89, 2011/05/14 16:12:53
Line 32  use strict; Line 32  use strict;
   
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;  use LONCAPA::Configuration;
   use LONCAPA;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
   
Line 691  sub write_loncaparevs { Line 692  sub write_loncaparevs {
         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 = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');
                 if ($loncaparev =~ /^[\d.\-]+$/) {                  if ($loncaparev =~ /^[\w.\-]+$/) {
                     print $fh $id.':'.$loncaparev."\n";                      print $fh $id.':'.$loncaparev."\n";
                 }                  }
             }              }
Line 701  sub write_loncaparevs { Line 702  sub write_loncaparevs {
     return;      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 {  sub send_mail {
     print "sending mail\n";      print "sending mail\n";
     my $defdom = $perlvar{'lonDefDomain'};      my $defdom = $perlvar{'lonDefDomain'};
Line 801  sub main () { Line 822  sub main () {
                 print $fh "$key\n";                  print $fh "$key\n";
             }              }
             close($fh);              close($fh);
             my $execpath = $perlvar{'lonDaemons'}.'/lciptables';              if (&LONCAPA::try_to_lock('/tmp/lock_lciptables')) {
             system("$execpath $tmpfile");                  my $execpath = $perlvar{'lonDaemons'}.'/lciptables';
             unlink($fh);                  system("$execpath $tmpfile");
                   unlink('/tmp/lock_lciptables');  # Remove the lock file. 
               }
               unlink($tmpfile);
         }          }
     }      }
   
Line 846  sub main () { Line 870  sub main () {
  &check_delayed_msg($fh);   &check_delayed_msg($fh);
  &finish_logging($fh);   &finish_logging($fh);
  &log_simplestatus();   &log_simplestatus();
           &write_loncaparevs();
           &write_serverhomeIDs();
   
  if ($totalcount>200 && !$noemail) { &send_mail(); }   if ($totalcount>200 && !$noemail) { &send_mail(); }
     }      }
     if (!$justcheckconnections && !$justreload) {  
         &write_loncaparevs();  
     }  
 }  }
   
 &main();  &main();
Removed from v.1.84  
changed lines
  Added in v.1.89

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