Changeset 189 for server/common/oursrc
- Timestamp:
- Feb 27, 2007, 3:56:20 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/common/oursrc/logview/logview.pl
r148 r189 10 10 print "--- Error logs for $caller ---"; 11 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; 12 while (<FOO>) { 13 # Prevent deviousness, like web_scripts directories within web_scripts 14 if (m|/afs/athena.mit.edu/| && 15 m|/([^/]+)/web_scripts/| && $caller eq $1) { 16 print; 17 } 18 }
Note: See TracChangeset
for help on using the changeset viewer.