source: server/common/oursrc/logview/logview.pl @ 147

Last change on this file since 147 was 147, checked in by jbarnold, 16 years ago
moving apache error log to /home/logs
  • Property svn:executable set to *
File size: 487 bytes
Line 
1#!/usr/bin/perl -T -w
2
3%ENV = ();
4$ENV{'PATH'} = '/bin:/usr/bin';
5my $elogsrc = '/home/logs/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;
12my @elogs = <FOO>;
13close FOO;
14# Prevent deviousness, like web_scripts directories within web_scripts
15my @el = grep((m|/([^/]+)/web_scripts/| && $caller eq $1), grep(m|/afs/athena.mit.edu/|, @elogs));
16print @el;
Note: See TracBrowser for help on using the repository browser.