|
Last change
on this file since 2201 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.
