home *** CD-ROM | disk | FTP | other *** search
- cat <<'E_O_F' >/tmp/$$a
- BEGIN {
- printf("\n\t\t\t\tUUCP Traffic Summary\n\n")
- printf("\t\t\t\tFor the previous 30 days\n\n")
- printf("\t Calls Minutes Files Bytes Effective Unused\n")
- printf("Site To/From To/From To/From Sent/Received Baudrate Bwidth\n")
- E_O_F
- awk '$1 !~ /#/ && $1 !~ /xxx/{print $1,$3}' /etc/uucp/L.sys | sort -u |
- sed 's/\(.*\) \(.*\)/ type["\1"] = "\2"/' >>/tmp/$$a
- cat <<'E_O_F' >>/tmp/$$a
- }
- {
- how = type[$1]
- tcallsto[how] += $2
- tcallsfrom[how] += $3
- tminto[how] += $4
- tminfrom[how] += $5
- tfilesto[how] += $6
- tfilesfrom[how] += $7
- tbytesto[how] += $8
- tbytesfrom[how] += $9
- tbaudrate[how] += $10
- tpercent[how] += $11
- tfailed[how] += $12
- tretry[how] += $13
- tn[how]++
- }
- name == $1 {
- callsto += $2
- callsfrom += $3
- minto += $4
- minfrom += $5
- filesto += $6
- filesfrom += $7
- bytesto += $8
- bytesfrom += $9
- baudrate += $10
- percent += $11
- failed += $12
- retry += $13
- n++
- }
- name != $1 {
- if (NR > 1) {
- s = name
- if (failed > 0) {
- s = s "[" failed
- if (retry > 0)
- s = s "/" retry "]"
- else
- s = s "]"
- } else {
- if (retry > 0)
- s = s "[/" retry "]"
- }
- printf("%-12s %4d/%-4d %5d/%-5d %5d/%-5d %9d/%-9d %6d %5d%%\n", \
- s, callsto, callsfrom, minto, minfrom, filesto, \
- filesfrom, bytesto, bytesfrom, baudrate/n, percent/n)
- }
-
- callsto = $2
- callsfrom = $3
- minto = $4
- minfrom = $5
- filesto = $6
- filesfrom = $7
- bytesto = $8
- bytesfrom = $9
- baudrate = $10
- percent = $11
- failed = $12
- retry = $13
- n = 1
- name = $1
- }
- END {
- printf("%-12s %4d/%-4d %5d/%-5d %5d/%-5d %9d/%-9d %6d %5d%%\n", \
- name, callsto, callsfrom, minto, minfrom, filesto, \
- filesfrom, bytesto, bytesfrom, baudrate/n, percent/n)
- printf("------------ ----/---- -----/----- -----/----- ---------/--------- ------ -----\n")
- for (i in tn) {
-
- s = i
- if (tfailed[i] > 0) {
- s = s "[" tfailed[i]
- if (tretry[i] > 0)
- s = s "/" tretry[i] "]"
- else
- s = s "]"
- } else {
- if (tretry[i] > 0)
- s = s "[/" tretry[i] "]"
- }
- printf("%-12s %4d/%-4d %5d/%-5d %5d/%-5d %10d/%-10d %6d %3d%%\n", \
- s, tcallsto[i], tcallsfrom[i], tminto[i], tminfrom[i], \
- tfilesto[i], tfilesfrom[i], tbytesto[i], tbytesfrom[i], \
- tbaudrate[i]/tn[i], tpercent[i]/tn[i])
- totcallsto += tcallsto[i]
- totcallsfrom += tcallsfrom[i]
- totminto += tminto[i]
- totminfrom += tminfrom[i]
- totfilesto += tfilesto[i]
- totfilesfrom += tfilesfrom[i]
- totbytesto += tbytesto[i]
- totbytesfrom += tbytesfrom[i]
- totbaudrate += tbaudrate[i]
- totpercent += tpercent[i]
- totfailed += tfailed[i]
- totretry += tretry[i]
- totn += tn[i]
- }
- printf("%-12s %4d/%-4d %5d/%-5d %5d/%-5d %10d/%-10d %6d %3d%%\n", \
- "Total", totcallsto, totcallsfrom, totminto, \
- totminfrom, totfilesto, totfilesfrom, totbytesto, \
- totbytesfrom , totbaudrate/totn, totpercen/totn)
- }
- E_O_F
- for i in `grep -l 'UUCP Summary' /usr/msgs/*`
- do
- sed '1,/^Site/d
- /^[ ]*$/,$d
- s;\[/;[0/;
- s;\[\([0-9]*\)\];[\1/0];
- /\[/s;\([^\[]*\)\[\(.*\)/\(.*\)\]\(.*\);\1 \4 \2 \3;
- s!/! !g
- s/ */ /g
- s/%//
- ' $i
- done | sort | awk -f /tmp/$$a
- rm -f /tmp/$$*
-