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