home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / TELECOM / rn_4_3_blars.lzh / mbox.saver.SH < prev    next >
Text File  |  1990-08-22  |  1KB  |  48 lines
  1. case $CONFIG in
  2.     '') . config.sh ;;
  3. esac
  4. echo "Extracting mbox.saver (with variable substitutions)"
  5. $spitshell >mbox.saver <<!GROK!THIS!
  6. $startsh
  7. # $Header: mbox.saver.SH,v 4.3.2.2 90/03/17 20:44:54 sob Exp $
  8. # 
  9. # $Log:    mbox.saver.SH,v $
  10. # Revision 4.3.2.2  90/03/17  20:44:54  sob
  11. # Modify Article header to place the colon after Article.
  12. # 
  13. # Revision 4.3.2.1  89/11/28  00:05:47  sob
  14. # Branch for RN/RRN combo patches
  15. # 
  16. # Revision 4.3.1.2  85/05/20  15:55:37  lwall
  17. # Turned $5 into \$5.
  18. # 
  19. # Revision 4.3.1.1  85/05/10  11:35:30  lwall
  20. # Branch for patches.
  21. # 
  22. # Revision 4.3  85/05/01  11:42:51  lwall
  23. # Baseline for release with 4.3bsd.
  24. # 
  25. # 
  26. #    Arguments:
  27. #    1 Full name of article (%A)
  28. #    2 Public news spool directory (%P)
  29. #    3 Directory of current newsgroup (%c)
  30. #    4 Article number (%a)
  31. #    5 Where in article to start (%B)
  32. #    6 Newsgroup name (%C)
  33. #    7 Save destination (%b)
  34. #    8 First line of message, normally From...
  35. #
  36. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  37.  
  38. ( $echo "\$8"
  39.   case "\$5" in
  40.   0) $echo "Article: \$4 of \$6" ;;
  41.   esac
  42.   $tail +\$5c \$1 | $sed "s/^From />From /"
  43.   $echo ""
  44.   $echo "" ) >> \$7
  45. !GROK!THIS!
  46. $eunicefix mbox.saver
  47. chmod 755 mbox.saver
  48.