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

Diff for /loncom/loncron between versions 1.30 and 1.32

version 1.30, 2002/06/08 14:59:04 version 1.32, 2002/07/27 19:06:41
Line 93  if ($wwwid!=$<) { Line 93  if ($wwwid!=$<) {
     my $config=IO::File->new("$perlvar{'lonTabDir'}/hosts.tab");      my $config=IO::File->new("$perlvar{'lonTabDir'}/hosts.tab");
   
     while (my $configline=<$config>) {      while (my $configline=<$config>) {
        my ($id,$domain,$role,$name,$ip)=split(/:/,$configline);   my ($id,$domain,$role,$name,$ip,$domdescr)=split(/:/,$configline);
        $hostname{$id}=$name;   if ($id && $domain && $role && $name && $ip) {
        $hostdom{$id}=$domain;      $hostname{$id}=$name;
        $hostrole{$id}=$role;      $hostdom{$id}=$domain;
        $hostip{$id}=$ip;      $hostip{$id}=$ip;
        if (($role eq 'library') && ($id ne $perlvar{'lonHostID'})) {      $hostrole{$id}=$role;
    $libserv{$id}=$name;      if ($domdescr) { $domaindescription{$domain}=$domdescr; }
        }      if (($role eq 'library') && ($id ne $perlvar{'lonHostID'})) {
    $libserv{$id}=$name;
       }
    } else {
       if ($configline) {
   # &logthis("Skipping hosts.tab line -$configline-");
       }
    }
     }      }
 }  }
   
Line 160  print $fh (<<ENDHEADERS); Line 167  print $fh (<<ENDHEADERS);
 <table border=2>  <table border=2>
 ENDHEADERS  ENDHEADERS
   
 foreach $varname (keys %perlvar) {  foreach $varname (sort(keys(%perlvar))) {
     print $fh "<tr><td>$varname</td><td>$perlvar{$varname}</td></tr>\n";      print $fh "<tr><td>$varname</td><td>$perlvar{$varname}</td></tr>\n";
 }  }
 print $fh "</table><h3>Hosts</h3><table border=2>";  print $fh "</table><h3>Hosts</h3><table border=2>";
 foreach $id (keys %hostname) {  foreach $id (sort(keys(%hostname))) {
 print $fh       print $fh 
     "<tr><td>$id</td><td>$hostdom{$id}</td><td>$hostrole{$id}</td>";   "<tr><td>$id</td><td>$hostdom{$id}</td><td>$hostrole{$id}</td>";
 print $fh "<td>$hostname{$id}</td><td>$hostip{$id}</td></tr>\n";      print $fh "<td>$hostname{$id}</td><td>$hostip{$id}</td></tr>\n";
 }  }
 print $fh "</table><h3>Spare Hosts</h3><ol>";  print $fh "</table><h3>Spare Hosts</h3><ol>";
 foreach $id (keys %spareid) {  foreach $id (sort(keys(%spareid))) {
     print $fh "<li>$id\n";      print $fh "<li>$id\n";
 }  }
   
Line 257  while ($fname=<$perlvar{'lonDaemons'}/tm Line 264  while ($fname=<$perlvar{'lonDaemons'}/tm
                                  $cleaned++;                                   $cleaned++;
                                  unlink("$fname");                                   unlink("$fname");
       } else {        } else {
   if ($since>100*$perlvar{'lonExpire'}) {    if ($since>365*$perlvar{'lonExpire'}) {
                                      $cleaned++;                                       $cleaned++;
                                      unlink("$fname");                                       unlink("$fname");
  } else { $old++; }   } else { $old++; }
Line 643  print $fh "</pre>"; Line 650  print $fh "</pre>";
 print $fh '<hr><a name="connections"><h2>Connections</h2>';  print $fh '<hr><a name="connections"><h2>Connections</h2>';
   
 print $fh "<table border=2>";  print $fh "<table border=2>";
 foreach $tryserver (keys %hostname) {  foreach $tryserver (sort(keys(%hostname))) {
   
     $answer=reply("pong",$tryserver);      $answer=reply("pong",$tryserver);
     if ($answer eq "$tryserver:$perlvar{'lonHostID'}") {      if ($answer eq "$tryserver:$perlvar{'lonHostID'}") {
Removed from v.1.30  
changed lines
  Added in v.1.32

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