A quick perl script that returns errors from the access log follows.
#!/usr/bin/perl -w use strict; while(<>) { my($status) = m{^\S+ \S+ \S+ \[.*?\] ".*?" (\d+) \d+ ".*?" ".*?"}; if(not defined $status) { print "failed: $_"; next; } if($status =~ m{^[45]}) { print $_; } }
I probably haven't updated that site in over two years. I have also considered dropping the web site completely, which may still happen after watching the access logs for a while.
No comments:
Post a Comment