Changeset 1894 for trunk/server/common/oursrc/logview

Timestamp:

Jun 11, 2011, 12:03:07 AM (14 years ago)

Author:

andersk

Message:

logview: Simplify, fix spurious newlines, get rid of sketchy regexes

File:

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

trunk/server/common/oursrc/logview/logview.pl

@@ -1 +1 @@
 #!/usr/bin/perl -T -w
 
-%ENV = ();
-$ENV{'PATH'} = '/bin:/usr/bin';
 my $elogsrc = '/home/logview/error_log';
 # get by uid the caller's name to find the corresponding locker name
-my $caller = (getpwuid $<)[0];
-$\ = "\n";
+my ($caller, $home) = (getpwuid($<))[0, 7];
+my $search = "$home/";
 
-print "--- Error logs for $caller ---";
-open FOO, $elogsrc;
+print "--- Error logs for $caller ---\n";
+open FOO, '<', $elogsrc or die $!;
 while (<FOO>) {
-    # Prevent deviousness, like web_scripts directories within web_scripts
-    if (m(/afs/(?:athena|sipb).mit.edu/) &&
-        m(/([^/]+)/web_scripts/) && $caller eq $1) {
-        print;
-    }
+    print if index($_, $search) != -1;
 }