source: branches/fc15-dev/server/common/oursrc/logview/logview.pl @ 1908

Last change on this file since 1908 was 189, checked in by jbarnold, 17 years ago
yoz rewrote logview.pl to do more streamlike processing
  • Property svn:executable set to *
File size: 481 bytes
Line 
1#!/usr/bin/perl -T -w
2
3%ENV = ();
4$ENV{'PATH'} = '/bin:/usr/bin';
5my $elogsrc = '/home/logview/error_log';
6# get by uid the caller's name to find the corresponding locker name
7my $caller = (getpwuid $<)[0];
8$\ = "\n";
9
10print "--- Error logs for $caller ---";
11open FOO, $elogsrc;
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 TracBrowser for help on using the repository browser.