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