home *** CD-ROM | disk | FTP | other *** search
/ Unix System Administration Handbook 1997 October / usah_oct97.iso / news / cnews.tar / util / queuelen.sub < prev    next >
Text File  |  1994-09-15  |  615b  |  35 lines
  1. #! /bin/sh
  2. # Find size of current queue of news outbound to $1.  Old-uucp version.
  3.  
  4. # =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
  5. . ${NEWSCONFIG-/etc/news/bin/config}
  6.  
  7. PATH=$NEWSCTL/bin:$NEWSBIN:$NEWSPATH ; export PATH
  8. umask $NEWSUMASK
  9.  
  10. if test -d /usr/spool/uucp
  11. then
  12.     cd /usr/spool/uucp
  13. elif test -d /var/spool/uucp
  14. then
  15.     cd /var/spool/uucp
  16. else
  17.     echo "$0: can't find uucp spool directory" >&2
  18.     echo 9999
  19.     exit 1
  20. fi
  21. grade=d
  22.  
  23. case "$1" in
  24. ?|??|???|????|?????|??????|???????)    site="$1" ;;
  25. *)    site=`expr "$1" : '^\(.......\).*'`
  26. esac
  27.  
  28. if test -d C.
  29. then
  30.     cd C.
  31.     ls | egrep "^C\.$site$grade....\$" | wc -l
  32. else
  33.     echo 0
  34. fi
  35.