#!/bin/sh
#$Header: /cygdrive/h/CVSROOT/www2/246/toys/mail/froms,v 1.1 2001/01/22 17:51:21 miura Exp $
#
# froms - mailのfromを見続ける
#
# by Miurasoft

SPOOL=/usr/spool/mail/$USER

if [ -f /bin/quota ]
then
  QUOTA=/bin/quota
elif [ -f /usr/ucb/quota ]
then
  QUOTA=/usr/ucb/quota
elif [ -f /usr/sbin/quota ]
then
  QUOTA=/usr/sbin/quota
else
  QUOTA=/bin/true
fi 

if [ -f /bin/ping ]
then
  PING=/bin/ping
elif [ -f /usr/etc/ping ]
then
  PING=/usr/etc/ping
elif [ -f /usr/sbin/ping ]
then
  PING=/usr/sbin/ping
else
  PING=/bin/true
fi 

EQ=true
EP=true
while [ "$1" != "" ];
do
  case $1 in
  -h)
    cat <<END_HELP
usage: froms [-q] [-p host]
  -q       quota
  -p host  ping to the host
END_HELP
    exit
    ;;
  -q)
    EQ="${QUOTA} -v ${USER}"
    ;;
  -p)
    if [ "$2" = "" ];
    then
      echo froms error: host needed for -p option
      exit
    fi  
    EP="${PING} $2"
    shift
    ;;
  esac
  shift
done

while true; do
  clear
  date
  $EQ
  $EP
  if [ -f $SPOOL ]; then
    awk '/^From / || /^Subject: /' $SPOOL | ( nkf -m 2>/dev/null ) ;
  else
    echo 'no mail';
  fi
  sleep 60
done