|
Last change
on this file since 172 was
148,
checked in by jbarnold, 19 years ago
|
|
athena already has a "logs" user
|
-
Property svn:executable set to
*
|
|
File size:
490 bytes
|
| Rev | Line | |
|---|
| [138] | 1 | #!/usr/bin/perl -T -w |
|---|
| 2 | |
|---|
| 3 | %ENV = (); |
|---|
| 4 | $ENV{'PATH'} = '/bin:/usr/bin'; |
|---|
| [148] | 5 | my $elogsrc = '/home/logview/error_log'; |
|---|
| [138] | 6 | # get by uid the caller's name to find the corresponding locker name |
|---|
| 7 | my $caller = (getpwuid $<)[0]; |
|---|
| 8 | $\ = "\n"; |
|---|
| 9 | |
|---|
| 10 | print "--- Error logs for $caller ---"; |
|---|
| 11 | open FOO, $elogsrc; |
|---|
| 12 | my @elogs = <FOO>; |
|---|
| 13 | close FOO; |
|---|
| 14 | # Prevent deviousness, like web_scripts directories within web_scripts |
|---|
| 15 | my @el = grep((m|/([^/]+)/web_scripts/| && $caller eq $1), grep(m|/afs/athena.mit.edu/|, @elogs)); |
|---|
| 16 | print @el; |
|---|
Note: See
TracBrowser
for help on using the repository browser.
