source: trunk/server/common/oursrc/logview/logview.pl @ 1890

#!/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";

print "--- Error logs for $caller ---";
open FOO, $elogsrc;
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;
    }
}