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

Last change on this file since 1938 was 1938, checked in by achernya, 13 years ago
Merge r1878-r1937 from trunk to branches/fc15-dev
  • 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.