Changeset 189 for server/common/oursrc


Ignore:
Timestamp:
Feb 27, 2007, 3:56:20 AM (18 years ago)
Author:
jbarnold
Message:
yoz rewrote logview.pl to do more streamlike processing
File:
1 edited

Legend:

Unmodified
Added
Removed
  • server/common/oursrc/logview/logview.pl

    r148 r189  
    1010print "--- Error logs for $caller ---";
    1111open FOO, $elogsrc;
    12 my @elogs = <FOO>;
    13 close FOO;
    14 # Prevent deviousness, like web_scripts directories within web_scripts
    15 my @el = grep((m|/([^/]+)/web_scripts/| && $caller eq $1), grep(m|/afs/athena.mit.edu/|, @elogs));
    16 print @el;
     12while (<FOO>) {
     13    # Prevent deviousness, like web_scripts directories within web_scripts
     14    if (m|/afs/athena.mit.edu/| &&
     15        m|/([^/]+)/web_scripts/| && $caller eq $1) {
     16        print;
     17    }
     18}
Note: See TracChangeset for help on using the changeset viewer.