1#!/bin/sh
2# Copyright (c) 1998 by Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
3# All rights reserved.
4#
5# Redistribution and use in source and binary forms, with or without
6# modification, are permitted provided that the following conditions
7# are met:
8# 1. Redistributions of source code must retain the above copyright
9#    notice, this list of conditions and the following disclaimer.
10# 2. Redistributions in binary form must reproduce the above copyright
11#    notice, this list of conditions and the following disclaimer in the
12#    documentation and/or other materials provided with the distribution.
13#
14# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24# SUCH DAMAGE.
25#
26#
27# httpd-error - check for Web files which do not exist on your host
28#
29# $FreeBSD: src/tools/diag/httpd-error/httpd-error,v 1.5 2000/03/03 09:25:00 sheldonh Exp $
30# $DragonFly: src/tools/diag/httpd-error/httpd-error,v 1.2 2003/06/17 04:29:11 dillon Exp $
31
32mode=${1}
33
34case "$mode" in
35    -host)
36	grep 'File does not exist$' |
37	    awk '{print $11}' |
38	    sort | uniq -c | sort -nr | perl -npe 's/,$//'
39	;;
40    -filehits)
41	grep 'File does not exist$' |
42	    awk '{print $8}' |
43	    sort | uniq -c | sort -nr
44	;;
45    -user)
46	grep 'File does not exist$' |
47	    awk '{print $8}' |
48	    sort | uniq -c | sort +1
49	;;
50    -userhits)
51	grep 'File does not exist$' |
52		awk '{print $8}' | sort |
53		perl -npe 's#/home/([^/]+)/public_html.*#/~$1/#;
54	                   s#/usr/local/www/data/.*#/usr/local/www/data/#' |
55		uniq -c | sort -nr
56	;;
57
58    *) echo "usage $0 {-host|-filehits|-user|-userhits} < error.log" >&2
59       exit 1
60       ;;
61esac
62
63
64