Changeset 139

Timestamp:

Jan 30, 2007, 2:53:58 AM (17 years ago)

Author:

jbarnold

Message:

removed access log code since we have no access logs

File:

• server/common/oursrc/logview/logview.pl (modified) (2 diffs)

server/common/oursrc/logview/logview.pl

@@ -4 +4 @@
 $ENV{'PATH'} = '/bin:/usr/bin';
 my $elogsrc = '/var/log/httpd/error_log';
-#my $alogsrc = '/var/log/httpd/access_log';
 # get by uid the caller's name to find the corresponding locker name
 my $caller = (getpwuid $<)[0];
@@ -16 +15 @@
 my @el = grep((m|/([^/]+)/web_scripts/| && $caller eq $1), grep(m|/afs/athena.mit.edu/|, @elogs));
 print @el;
-
-#print "--- Access logs for $caller ---";
-#open FOO, $alogsrc;
-#my @alogs = <FOO>;
-#close FOO;
-#my @al = grep(m|\"GET /~$caller|, @alogs);
-#print @al;