Diff for /loncom/loncron between versions 1.91 and 1.93

version 1.91, 2011/10/28 14:26:15 version 1.93, 2011/11/03 22:32:04
Line 515  sub clean_sockets { Line 515  sub clean_sockets {
 # ----------------------------------------------------------------------- httpd  # ----------------------------------------------------------------------- httpd
 sub check_httpd_logs {  sub check_httpd_logs {
     my ($fh)=@_;      my ($fh)=@_;
     &log($fh,'<hr /><a name="httpd" /><h2>httpd</h2><h3>Access Log</h3><pre>');      if (open(PIPE,"lchttpdlogs|")) {
               while (my $line=<PIPE>) {
     open (DFH,"tail -n25 /etc/httpd/logs/access_log|");              &log($fh,$line);
     while (my $line=<DFH>) { &log($fh,&encode_entities($line,'<>&"')) };              if ($line=~/\[error\]/) { $notices++; }
     close (DFH);          }
           close(PIPE);
     &log($fh,"</pre><h3>Error Log</h3><pre>");  
   
     open (DFH,"tail -n25 /etc/httpd/logs/error_log|");  
     while (my $line=<DFH>) {   
  &log($fh,"$line");  
  if ($line=~/\[error\]/) { $notices++; }   
     }      }
     close (DFH);  
     &log($fh,"</pre>");  
     &errout($fh);      &errout($fh);
 }  }
   
Line 660  sub check_delayed_msg { Line 652  sub check_delayed_msg {
             alarm(0);              alarm(0);
         };          };
         if ($@ && $@ =~ m/TIMEOUT/) {          if ($@ && $@ =~ m/TIMEOUT/) {
              print "time out while contacting: $tryserver for pong\n";              print "time out while contacting: $tryserver for pong\n";
         } else {          } else {
      &log($fh,"Pong to $tryserver: $answer<br />");              &log($fh,"Pong to $tryserver: $answer<br />");
         }          }
     }      }
 }  }

Removed from v.1.91  
changed lines
  Added in v.1.93


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