#!/bin/sh
#
# uuspeed - a script to parse a Taylor UUCP Stats file into pretty results.
# Zacharias J. Beckman.
#
# modified by Andreas Klemm <andreas@knobel.knirsch.de>
# Sat Jan  8 18:33:24 GMT+0100 1994
# a) Test if Stats file is present
# b) changed /usr/spool to /var/spool

if [ ! -f /var/spool/uucp/Stats ]; then
	echo "uuspeed: no Stats file in /var/spool/uucp !"
	exit 1
fi

grep bytes /usr/spool/uucp/Stats | grep -v 'bytes 0.00 secs' | grep -v 'failed after' | tail -80 | \
gawk '
  BEGIN {
    printf("          UUCP transmission history:\n");
    format=" %8d bytes %8s(%8s) in %7.2f sec = %5.0f baud, %4.1fK / min\n";
    average=0.01;
    samples=0;
  }

  {
  if ($6 > 100) {
      printf (format, $6, $5, $2, $9, $6/$9*10, ($6/$9*60)/1000);

      average += ($6/$9*10);
      samples += 1;
    }
  }

  END {
    printf ("          average speed %d baud\n", average/samples);
  }
'
