Mercurial > notdcc

comparison misc/list-clients.in @ 0:c7f6b056b673

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First import of vendor version
author Peter Gervai <grin@grin.hu>
date Tue, 10 Mar 2009 13:49:58 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:c7f6b056b673
1 #! /bin/sh
2
3 # generate periodic list of a DCC server's clients
4
5 # This script should be run at midnight UTC, which is rarely midnight local
6 # time.
7 # It prefers to generates a new HTML file based on an existing file, but
8 # will start from scratch if the output file does not already exist.
9
10 # -A all, not just anonymous clients
11 # -T do not tell dccd to clear its counters
12 # -I do not wrap the result with <HTML></HTML> etc. so that
13 # it can be server-side included into a web page
14 # -Z timezone in case dccd is far away
15 # -O cdcc-op something else to tell cdcc to do
16 # -d ndays keep this many days of snapshots instead of 7
17 # -n clients number of clients in each snapshot
18 # -s server host running dccd instead of localhost
19 # -i server-ID DCC server-ID of the server
20 # -o ofile output file
21
22 # Rhyolite Software DCC 1.3.103-1.30 $Revision$
23 # @configure_input@
24
25 DCC_HOMEDIR=@prefix@
26 DEBUG=
27 ARGS="xATIh:Z:O:d:n:s:p:i:o:"
28 # check the args once to get the home directory to get server name and ID
29 while getopts ":$ARGS" c; do
30 case $c in
31 x) set -x;;
32 h) DCC_HOMEDIR="$OPTARG";;
33 *) ;;
34 esac
35 done
36 if test -s $DCC_HOMEDIR/dcc_conf; then
37 . $DCC_HOMEDIR/dcc_conf
38 fi
39
40 CDCC=@bindir@/cdcc
41 ALL=As
42 CLEAR=clear
43 INCLUDE=no
44 OPS=
45 NDAYS=7
46 NCLIENTS=100
47 TZ=UTC
48 SERVER=localhost
49 TITLE=`hostname`
50 ID=$SRVR_ID
51 PASSWD=
52 OUT=
53 USAGE="`basename $0`: [-xATI] [-Z timezone] [-O cdcc-op] [-d ndays] [-n nclients]
54 [-s server] [-p password] -i server-ID -o ofile"
55 OPTIND=1
56 while getopts "$ARGS" c; do
57 case $c in
58 x) set -x;;
59 A) ALL=;;
60 T) CLEAR=;;
61 I) INCLUDE=yes;;
62 h) ;;
63 Z) TZ=$OPTARG;;
64 O) OPS="$OPS$OPTARG; ";;
65 d) NDAYS="$OPTARG";;
66 n) NCLIENTS="$OPTARG";;
67 s) SERVER="$OPTARG"; TITLE="$OPTARG";;
68 p) PASSWD="; password $OPTARG";;
69 i) ID="$OPTARG";;
70 o) OUT="$OPTARG";;
71 *) echo "$USAGE" 1>&2; exit 1;;
72 esac
73 done
74 shift `expr $OPTIND - 1 || true`
75 if test "$#" -ne 0; then
76 echo "$USAGE" 1>&2
77 exit 1
78 fi
79
80 # check that the ID is not 1
81 if expr "$ID" - 1 >/dev/null 2>&1; then :
82 else
83 echo "$USAGE" 1>&2
84 exit 1
85 fi
86
87 # we need an output file
88 if test "$OUT" = ""; then
89 echo "use '-o ofile' to specify an output file" 1>&2
90 exit 1
91 fi
92
93 CMD="${OPS}server $SERVER; id $ID$PASSWD"
94
95 NCLIENTS5=`expr $NCLIENTS + 5`
96
97 export TZ
98
99 set -e
100
101
102 # prefer the target directory for temporary files
103 OUTDIR=`dirname $OUT`
104 if test -z "$OUTDIR" -o -w "$OUTDIR"; then
105 NEW=$OUT.new$$
106 TMP=$OUT.tmp$$
107 else
108 NEW=/tmp/list-clients-new$$
109 TMP=/tmp/list-clients-tmp$$
110 fi
111 trap "set +e; /bin/rm -f $NEW $TMP; exit" 0 1 2 15
112
113
114 # create or add to the HTML file
115 makeout () {
116 if test -s $OUT; then
117 # start the new file with the head of the old file
118 sed -e '/<!--clients sample-->/,$d' \
119 -e '/<\/BODY>/,$d' -e '/<\/body>,$/d' \
120 -e '/<\/HTML>/,$d' -e '/<\/html>/,$d' $OUT >$NEW
121 else
122 # create a new ouptut file
123 if test "$INCLUDE" != yes; then
124 cat >>$NEW <<EOF
125 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
126 <HTML>
127 <HEAD>
128 <TITLE>$TITLE Clients</TITLE>
129 <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
130 </HEAD>
131
132 <BODY>
133
134 <H1>Recent $TITLE Clients</H1>
135 <P>
136 EOF
137 fi
138 fi
139
140 if test -z "$HEADING"; then
141 HEADING=`date`
142 fi
143
144 cat >>$NEW <<EOF
145 <!--clients sample-->
146 <H3>$HEADING</H3>
147 <P>
148 <PRE>
149 EOF
150 if test -s $TMP; then
151 sed -e '1,/^ *server-ID/d' -e '/^$/d' -e '/^version/,$d' $TMP >>$NEW
152 else
153 echo "$*" >>$NEW
154 fi
155
156 cat >>$NEW <<EOF
157 </PRE>
158
159 EOF
160
161 # save a limited number samples from the old file
162 if test -s $OUT; then
163 IGNORECASE=1 awk '/<!--clients sample-->/{ ++nsample; }
164 /<!--end clients samples-->/{ nsample = 1; }
165 /<\/body>/{ nsample = 1; }
166 /<\/html>/{ nsample = 1; }
167 { if (nsample < '$NDAYS' && nsample > 0) print $0;
168 }' $OUT >>$NEW
169 else
170 echo '<!--end clients samples-->' >>$NEW
171 fi
172
173 if test "$INCLUDE" != yes; then
174 if grep -i '</body>' $NEW >/dev/null; then :
175 else
176 echo '</BODY>' >>$NEW
177 fi
178 if grep -i '</html>' $NEW >/dev/null; then :
179 else
180 echo '</HTML>' >>$NEW
181 fi
182 fi
183
184 cp -f $NEW $OUT
185
186 if test ! -s $TMP; then
187 echo "$*" 2>&1
188 exit 1
189 fi
190 }
191
192
193
194
195
196 # See if the server knows about client versions
197 eval `$CDCC "$CMD; stats" 2>&1 \
198 | sed -n -e 's/^ *version [1-9]\.\([0-9]\{1,\}\)\.\([0-9]\{1,\}\) .*/VERS1=\1 VERS2=\2/p'\
199 -e 's/.*no working DCC server.*/VERS1=dead/p'`
200 if test "$VERS1" = dead; then
201 makeout "$SERVER is not responding"
202 fi
203 if test -z "$VERS1" -o -z "$VERS2"; then
204 makeout "$SERVER of an unrecognized version"
205 fi
206 SVERS=`expr "${VERS1}000" + $VERS2`
207 # dccd versions starting with *.3.32 answer `cdcc "clients -V"`
208 # Starting with 3.67, dccd understands `cdcc "clients -A"`
209 if test "$SVERS" -ge 3032; then
210 if test "$SVERS" -ge 3067; then
211 COPTS="-V$ALL"
212 else
213 COPTS="-Vs"
214 fi
215 else
216 COPTS="-s"
217 fi
218
219 # Prime reverse DNS resolution with a dummy run and then do it for real
220 $CDCC "$CMD; clients $COPTS $NCLIENTS5" >/dev/null
221 $CDCC "$CMD; clients $COPTS $NCLIENTS5" >$TMP
222
223 if test ! -s $TMP; then
224 makeout "obtained no data from $SERVER"
225 fi
226
227 HEADING=`$CDCC "$CMD; stats $CLEAR" \
228 | sed -n \
229 -e '/clients since/h' \
230 -e 's@.* \([0-9]\{1,\}\) clients since.*@\1 Clients@p' \
231 -e 's@.* \([0-9]\{1,\}\) clients in.*@\1 Clients@p' \
232 -e '/reports added between/{' \
233 -e x -e G \
234 -e 's@.*clients since \(.*\)\n.*\( and .*\)@between \1\2@p' \
235 -e 's@.*ween \([^.]*\)\.[0-9]*\(.*\)@between \1\2@p' \
236 -e '}'`
237
238 makeout "missing $TMP"