home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff319.lzh / CNewsSrc / cnews.orig.lzh / conf / queuelen.sub < prev    next >
Text File  |  1989-06-27  |  473b  |  25 lines
  1. #! /bin/sh
  2. # Find size of current queue of news outbound to $1.  Old-uucp version.
  3.  
  4. # =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
  5. . ${NEWSCONFIG-/usr/lib/news/bin/config}
  6.  
  7. PATH=$NEWSCTL/bin:$NEWSBIN:$NEWSPATH ; export PATH
  8. umask $NEWSUMASK
  9.  
  10. cd /usr/spool/uucp
  11. grade=d
  12.  
  13. case "$1" in
  14. ?|??|???|????|?????|??????|???????)    site="$1" ;;
  15. *)    site=`expr "$1" : '^\(.......\).*'`
  16. esac
  17.  
  18. if test -d C.
  19. then
  20.     cd C.
  21.     ls | egrep "^C\.$site$grade....\$" | wc | awk '{print $1}'
  22. else
  23.     echo 0
  24. fi
  25.