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

Last change on this file since 2558 was 1894, checked in by andersk, 13 years ago
logview: Simplify, fix spurious newlines, get rid of sketchy regexes
  • Property svn:executable set to *
File size: 335 bytes
Line 
1#!/usr/bin/perl -T -w
2
3my $elogsrc = '/home/logview/error_log';
4# get by uid the caller's name to find the corresponding locker name
5my ($caller, $home) = (getpwuid($<))[0, 7];
6my $search = "$home/";
7
8print "--- Error logs for $caller ---\n";
9open FOO, '<', $elogsrc or die $!;
10while (<FOO>) {
11    print if index($_, $search) != -1;
12}
Note: See TracBrowser for help on using the repository browser.