projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 9c4b96b4 C |
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.1.2 85/05/20 15:55:37 lwall Exp $ | |
| 8 | # | |
| 9 | # $Log: mbox.saver.SH,v $ | |
| 10 | # Revision 4.3.1.2 85/05/20 15:55:37 lwall | |
| 11 | # Turned $5 into \$5. | |
| 12 | # | |
| 13 | # Revision 4.3.1.1 85/05/10 11:35:30 lwall | |
| 14 | # Branch for patches. | |
| 15 | # | |
| 16 | # Revision 4.3 85/05/01 11:42:51 lwall | |
| 17 | # Baseline for release with 4.3bsd. | |
| 18 | # | |
| 19 | # | |
| 20 | # Arguments: | |
| 21 | # 1 Full name of article (%A) | |
| 22 | # 2 Public news spool directory (%P) | |
| 23 | # 3 Directory of current newsgroup (%c) | |
| 24 | # 4 Article number (%a) | |
| 25 | # 5 Where in article to start (%B) | |
| 26 | # 6 Newsgroup name (%C) | |
| 27 | # 7 Save destination (%b) | |
| 28 | # 8 First line of message, normally From... | |
| 29 | # | |
| 30 | export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$) | |
| 31 | ||
| 32 | ( $echo "\$8" | |
| 33 | case "\$5" in | |
| 34 | 0) $echo "Article \$4 of \$6:" ;; | |
| 35 | esac | |
| 36 | $tail +\$5c \$1 | $sed "s/^From/>From/" | |
| 37 | $echo "" | |
| 38 | $echo "" ) >> \$7 | |
| 39 | !GROK!THIS! | |
| 40 | $eunicefix mbox.saver | |
| 41 | chmod 755 mbox.saver |