Index: server/common/oursrc/logview/logview.pl
===================================================================
--- server/common/oursrc/logview/logview.pl	(revision 138)
+++ server/common/oursrc/logview/logview.pl	(revision 139)
@@ -4,5 +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,9 +15,2 @@
 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;