Changeset 189 for server/common/oursrc/logview

Timestamp:

Feb 27, 2007, 3:56:20 AM (18 years ago)

Author:

jbarnold

Message:

yoz rewrote logview.pl to do more streamlike processing

File:

• server/common/oursrc/logview/logview.pl (modified) (1 diff)

server/common/oursrc/logview/logview.pl

@@ -10 +10 @@
 print "--- Error logs for $caller ---";
 open FOO, $elogsrc;
-my @elogs = <FOO>;
-close FOO;
-# Prevent deviousness, like web_scripts directories within web_scripts
-my @el = grep((m|/([^/]+)/web_scripts/| && $caller eq $1), grep(m|/afs/athena.mit.edu/|, @elogs));
-print @el;
+while (<FOO>) {
+    # Prevent deviousness, like web_scripts directories within web_scripts
+    if (m|/afs/athena.mit.edu/| &&
+        m|/([^/]+)/web_scripts/| && $caller eq $1) {
+        print;
+    }
+}