home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / source / bsnews.src / pn.proto < prev    next >
Encoding:
Text File  |  1989-08-07  |  928 b   |  56 lines
  1. :
  2. #! /bin/sh
  3. # pn - news poster for bootstrap news 
  4. # Copyright 1989 Ronald Florence (ron@mlfarm, 7/30/89)
  5. #
  6.  
  7. Hostname=BigNode
  8. Seqfile=/usr/lib/news/seq
  9. set `date`
  10. Datestr="$3 $2 `expr $6 % 100` $4 $5"
  11. ID=`cat $Seqfile`
  12. Sys=`uuname -l`
  13. User=`logname`
  14.  
  15. echo "Newsgroups: \c"
  16. read Groups rest
  17. echo "Subject: \c"
  18. read Subject rest
  19.  
  20. Tmpart=/tmp/newsart.$$
  21.  
  22. cat > $Tmpart <<EOH
  23. Path: $Sys!$User
  24. From: $User@$Sys.UUCP
  25. Newsgroups: $Groups
  26. Subject: $Subject
  27. Message-ID: <$ID@$Sys.UUCP>
  28. Date: $Datestr
  29. Followup-To: 
  30. Distribution:
  31. Keywords: 
  32. Organization:
  33. Lines: 
  34.  
  35.  
  36. EOH
  37.  
  38. vi +13 $Tmpart
  39.  
  40. cls
  41. more $Tmpart
  42. echo "----------"
  43. echo "\nPost this article to all of usenet? \c"
  44. while read yn
  45.   do case $yn in
  46.     y*|Y*) uux - -r $Hostname!rnews < $Tmpart ; 
  47.        echo `expr $ID + 1` > $Seqfile ;
  48.        echo "Posted!" ;
  49.        break ;;
  50.     n*|N*) echo "Article cancelled!" ;
  51.        break ;;
  52.         *) echo "Yes or no? \c" ;;
  53.     esac
  54.   done
  55. rm -f $Tmpart
  56.