loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

-version 1.92, 2011/10/28 18:38:00
+version 1.93, 2011/11/03 22:32:04
  Line 515  sub clean_sockets {
  # ----------------------------------------------------------------------- httpd
  sub check_httpd_logs {
      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);
  }