home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume25 / trn / part01 / mbox.saver.SH < prev    next >
Encoding:
Text File  |  1991-12-02  |  1.8 KB  |  66 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. # $Id: mbox.saver.SH,v 4.4 1991/09/09 20:23:31 sob Exp sob $
  8. # 
  9. # $Log: mbox.saver.SH,v $
  10. # Revision 4.4  1991/09/09  20:23:31  sob
  11. # release 4.4
  12. #
  13. # 
  14. # This software is Copyright 1991 by Stan Barber. 
  15. #
  16. # Permission is hereby granted to copy, reproduce, redistribute or otherwise
  17. # use this software as long as: there is no monetary profit gained
  18. # specifically from the use or reproduction of this software, it is not
  19. # sold, rented, traded or otherwise marketed, and this copyright notice is
  20. # included prominently in any copy made. 
  21. #
  22. # The author make no claims as to the fitness or correctness of this software
  23. # for any use whatsoever, and it is provided as is. Any use of this software
  24. # is at the user's own risk. 
  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. !GROK!THIS!
  39. case $mboxchar in
  40. "$CTRLA")
  41.     $spitshell >>mbox.saver <<!GROK!THIS!
  42. ( $echo "$CTRLA$CTRLA$CTRLA$CTRLA"
  43.   if $test "\$5" = 0 -a ! "\$4" = 0 ; then
  44.     $echo "Article: \$4 of \$6"
  45.   fi
  46.   $tail +\$5c \$1
  47.   $echo ""
  48.   $echo ""
  49.   $echo "$CTRLA$CTRLA$CTRLA$CTRLA" ) >> \$7
  50. !GROK!THIS!
  51.     ;;
  52. *)
  53.     $spitshell >>mbox.saver <<!GROK!THIS!
  54.  ( $echo "\$8"
  55.   if $test "\$5" = 0 -a ! "\$4" = 0 ; then
  56.     $echo "Article: \$4 of \$6"
  57.   fi
  58.   $tail +\$5c \$1 | $sed "s/^From />From /"
  59.   $echo ""
  60.   $echo "" ) >> \$7
  61. !GROK!THIS!
  62.     ;;
  63. esac
  64. $eunicefix mbox.saver
  65. chmod 755 mbox.saver
  66.