Last change
on this file since 2362 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 | |
---|
3 | my $elogsrc = '/home/logview/error_log'; |
---|
4 | # get by uid the caller's name to find the corresponding locker name |
---|
5 | my ($caller, $home) = (getpwuid($<))[0, 7]; |
---|
6 | my $search = "$home/"; |
---|
7 | |
---|
8 | print "--- Error logs for $caller ---\n"; |
---|
9 | open FOO, '<', $elogsrc or die $!; |
---|
10 | while (<FOO>) { |
---|
11 | print if index($_, $search) != -1; |
---|
12 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.