/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1334

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 63 68 | 69 70 40 74 63 74 2e 75 |From: ch|ip@tct.u|
|00000010| 75 63 70 20 28 43 68 69 | 70 20 53 61 6c 7a 65 6e |ucp (Chi|p Salzen|
|00000020| 62 65 72 67 29 0a 4e 65 | 77 73 67 72 6f 75 70 73 |berg).Ne|wsgroups|
|00000030| 3a 20 63 6f 6d 70 2e 6d | 61 69 6c 2e 6d 69 73 63 |: comp.m|ail.misc|
|00000040| 2c 61 6c 74 2e 73 6f 75 | 72 63 65 73 0a 53 75 62 |,alt.sou|rces.Sub|
|00000050| 6a 65 63 74 3a 20 41 75 | 74 6f 6d 61 74 69 63 20 |ject: Au|tomatic |
|00000060| 45 2d 4d 61 69 6c 20 61 | 72 63 68 69 76 61 6c 0a |E-Mail a|rchival.|
|00000070| 4d 65 73 73 61 67 65 2d | 49 44 3a 20 3c 32 36 34 |Message-|ID: <264|
|00000080| 46 30 39 39 41 2e 36 46 | 44 46 40 74 63 74 2e 75 |F099A.6F|DF@tct.u|
|00000090| 75 63 70 3e 0a 44 61 74 | 65 3a 20 31 34 20 4d 61 |ucp>.Dat|e: 14 Ma|
|000000a0| 79 20 39 30 20 31 39 3a | 34 30 3a 30 39 20 47 4d |y 90 19:|40:09 GM|
|000000b0| 54 0a 0a 41 63 63 6f 72 | 64 69 6e 67 20 74 6f 20 |T..Accor|ding to |
|000000c0| 6c 65 73 40 63 68 69 6e | 65 74 2e 63 68 69 2e 69 |les@chin|et.chi.i|
|000000d0| 6c 2e 75 73 20 28 4c 65 | 73 6c 69 65 20 4d 69 6b |l.us (Le|slie Mik|
|000000e0| 65 73 65 6c 6c 29 3a 0a | 3e 54 68 65 20 69 64 65 |esell):.|>The ide|
|000000f0| 61 20 68 65 72 65 20 69 | 73 20 74 6f 20 61 72 63 |a here i|s to arc|
|00000100| 68 69 76 65 20 61 20 73 | 69 6e 67 6c 65 20 63 6f |hive a s|ingle co|
|00000110| 70 79 20 6f 66 20 65 61 | 63 68 20 6d 65 73 73 61 |py of ea|ch messa|
|00000120| 67 65 20 63 6f 6d 69 6e | 67 20 69 6e 74 6f 0a 3e |ge comin|g into.>|
|00000130| 28 6f 72 20 6f 72 69 67 | 69 6e 61 74 69 6e 67 20 |(or orig|inating |
|00000140| 61 74 29 20 61 20 67 72 | 6f 75 70 20 6f 66 20 6d |at) a gr|oup of m|
|00000150| 61 63 68 69 6e 65 73 2c | 20 65 76 65 6e 20 69 66 |achines,| even if|
|00000160| 20 74 68 65 20 64 65 73 | 74 69 6e 61 74 69 6f 6e | the des|tination|
|00000170| 20 69 73 0a 3e 6d 75 6c | 74 69 70 6c 65 20 61 64 | is.>mul|tiple ad|
|00000180| 64 72 65 73 73 65 73 20 | 6f 72 20 61 20 6d 61 69 |dresses |or a mai|
|00000190| 6c 69 6e 67 20 6c 69 73 | 74 2e 20 20 54 68 65 6e |ling lis|t.  Then|
|000001a0| 20 61 74 20 64 65 6c 69 | 76 65 72 79 20 28 77 68 | at deli|very (wh|
|000001b0| 69 63 68 20 6d 61 79 20 | 62 65 0a 3e 6f 6e 20 61 |ich may |be.>on a|
|000001c0| 6e 6f 74 68 65 72 20 6d | 61 63 68 69 6e 65 29 20 |nother m|achine) |
|000001d0| 49 20 77 61 6e 74 20 61 | 20 6c 6f 67 20 65 6e 74 |I want a| log ent|
|000001e0| 72 79 20 74 68 61 74 20 | 77 69 6c 6c 20 61 6c 6c |ry that |will all|
|000001f0| 6f 77 20 6d 65 20 74 6f | 20 66 69 6e 64 20 74 68 |ow me to| find th|
|00000200| 65 0a 3e 61 72 63 68 69 | 76 65 20 63 6f 70 79 2e |e.>archi|ve copy.|
|00000210| 0a 0a 49 74 20 73 74 69 | 6c 6c 20 73 6f 75 6e 64 |..It sti|ll sound|
|00000220| 73 20 6c 69 6b 65 20 61 | 20 44 65 6c 69 76 65 72 |s like a| Deliver|
|00000230| 20 73 70 65 63 69 61 6c | 2e 20 20 42 65 6c 6f 77 | special|.  Below|
|00000240| 20 69 73 20 61 20 73 61 | 6d 70 6c 65 20 70 6f 73 | is a sa|mple pos|
|00000250| 74 2d 75 73 65 72 0a 64 | 65 6c 69 76 65 72 79 20 |t-user.d|elivery |
|00000260| 66 69 6c 65 20 74 68 61 | 74 20 77 69 6c 6c 20 61 |file tha|t will a|
|00000270| 72 63 68 69 76 65 2c 20 | 61 6e 64 20 61 64 64 20 |rchive, |and add |
|00000280| 61 6e 20 22 58 2d 41 72 | 63 68 69 76 65 64 3a 22 |an "X-Ar|chived:"|
|00000290| 20 68 65 61 64 65 72 20 | 74 6f 2c 0a 6d 65 73 73 | header |to,.mess|
|000002a0| 61 67 65 73 20 74 68 61 | 74 20 61 72 65 20 66 72 |ages tha|t are fr|
|000002b0| 6f 6d 20 6f 72 20 74 6f | 20 61 20 67 69 76 65 6e |om or to| a given|
|000002c0| 20 73 65 74 20 6f 66 20 | 73 69 74 65 73 2e 20 20 | set of |sites.  |
|000002d0| 49 74 20 77 69 6c 6c 20 | 61 6c 73 6f 20 6c 6f 67 |It will |also log|
|000002e0| 0a 61 6c 6c 20 6d 65 73 | 73 61 67 65 73 20 64 65 |.all mes|sages de|
|000002f0| 6c 69 76 65 72 65 64 20 | 74 68 61 74 20 61 6c 72 |livered |that alr|
|00000300| 65 61 64 79 20 68 61 76 | 65 20 61 6e 20 22 58 2d |eady hav|e an "X-|
|00000310| 41 72 63 68 69 76 65 64 | 3a 22 20 68 65 61 64 65 |Archived|:" heade|
|00000320| 72 2e 0a 0a 46 75 72 74 | 68 65 72 20 65 6c 61 62 |r...Furt|her elab|
|00000330| 6f 72 61 74 69 6f 6e 20 | 6d 61 79 20 62 65 20 64 |oration |may be d|
|00000340| 65 73 69 72 61 62 6c 65 | 2e 20 20 46 6f 72 20 65 |esirable|.  For e|
|00000350| 78 61 6d 70 6c 65 2c 20 | 63 68 65 63 6b 69 6e 67 |xample, |checking|
|00000360| 20 66 6f 72 20 74 68 65 | 0a 73 65 6e 64 65 72 27 | for the|.sender'|
|00000370| 73 20 68 6f 73 74 20 69 | 73 20 6d 65 6e 74 69 6f |s host i|s mentio|
|00000380| 6e 65 64 3b 20 74 68 61 | 74 27 73 20 65 61 73 69 |ned; tha|t's easi|
|00000390| 6c 79 20 67 6c 6f 6d 6d | 65 64 20 6f 6e 20 62 79 |ly glomm|ed on by|
|000003a0| 20 63 68 65 63 6b 69 6e | 67 0a 24 53 45 4e 44 45 | checkin|g.$SENDE|
|000003b0| 52 20 61 66 74 65 72 20 | 63 68 65 63 6b 69 6e 67 |R after |checking|
|000003c0| 20 61 6c 6c 20 74 68 65 | 20 64 65 73 74 69 6e 61 | all the| destina|
|000003d0| 74 69 6f 6e 73 2e 0a 0a | 4e 6f 74 65 20 74 68 61 |tions...|Note tha|
|000003e0| 74 20 74 68 65 20 61 72 | 63 68 69 76 65 20 66 69 |t the ar|chive fi|
|000003f0| 6c 65 2c 20 61 73 20 77 | 65 6c 6c 20 61 73 20 74 |le, as w|ell as t|
|00000400| 68 65 20 61 72 63 68 69 | 76 65 20 6c 6f 67 20 66 |he archi|ve log f|
|00000410| 69 6c 65 2c 20 61 72 65 | 0a 77 72 69 74 74 65 6e |ile, are|.written|
|00000420| 20 61 73 20 6d 61 69 6c | 62 6f 78 65 73 2c 20 62 | as mail|boxes, b|
|00000430| 79 20 73 70 61 77 6e 69 | 6e 67 20 63 68 69 6c 64 |y spawni|ng child|
|00000440| 20 44 65 6c 69 76 65 72 | 73 20 77 69 74 68 20 22 | Deliver|s with "|
|00000450| 2d 62 22 2e 20 20 49 20 | 64 6f 20 69 74 0a 74 68 |-b".  I |do it.th|
|00000460| 61 74 20 77 61 79 20 62 | 65 63 61 75 73 65 20 44 |at way b|ecause D|
|00000470| 65 6c 69 76 65 72 20 61 | 75 74 6f 6d 61 74 69 63 |eliver a|utomatic|
|00000480| 61 6c 6c 79 20 6c 6f 63 | 6b 73 20 6d 61 69 6c 62 |ally loc|ks mailb|
|00000490| 6f 78 65 73 20 62 65 66 | 6f 72 65 20 77 72 69 74 |oxes bef|ore writ|
|000004a0| 69 6e 67 0a 74 6f 20 74 | 68 65 6d 2c 20 77 68 69 |ing.to t|hem, whi|
|000004b0| 63 68 20 69 73 20 6e 69 | 63 65 20 66 6f 72 20 6c |ch is ni|ce for l|
|000004c0| 6f 67 73 2e 0a 0a 28 50 | 6c 65 61 73 65 20 69 6e |ogs...(P|lease in|
|000004d0| 64 75 6c 67 65 20 6d 79 | 20 63 68 6f 69 63 65 20 |dulge my| choice |
|000004e0| 6f 66 20 50 65 72 6c 20 | 61 73 20 74 68 65 20 6c |of Perl |as the l|
|000004f0| 61 6e 67 75 61 67 65 20 | 6f 66 20 63 68 6f 69 63 |anguage |of choic|
|00000500| 65 20 66 6f 72 0a 70 6f | 73 74 2d 75 73 65 72 20 |e for.po|st-user |
|00000510| 64 65 6c 69 76 65 72 79 | 20 66 69 6c 65 73 2e 20 |delivery| files. |
|00000520| 20 49 27 6d 20 61 20 62 | 69 74 20 74 69 72 65 64 | I'm a b|it tired|
|00000530| 20 6f 66 20 73 70 61 77 | 6e 69 6e 67 20 61 20 64 | of spaw|ning a d|
|00000540| 6f 7a 65 6e 0a 70 72 6f | 63 65 73 73 65 73 20 66 |ozen.pro|cesses f|
|00000550| 6f 72 20 65 61 63 68 20 | 6d 65 73 73 61 67 65 2c |or each |message,|
|00000560| 20 61 6e 64 20 77 6f 72 | 72 79 69 6e 67 20 61 62 | and wor|rying ab|
|00000570| 6f 75 74 20 73 68 65 6c | 6c 20 6d 65 74 61 63 68 |out shel|l metach|
|00000580| 61 72 61 63 74 65 72 73 | 0a 61 6e 64 20 6e 75 6c |aracters|.and nul|
|00000590| 6c 20 61 72 67 75 6d 65 | 6e 74 73 20 61 6e 64 20 |l argume|nts and |
|000005a0| 74 68 65 20 63 6f 72 72 | 65 63 74 20 6e 75 6d 62 |the corr|ect numb|
|000005b0| 65 72 20 6f 66 20 62 61 | 63 6b 73 6c 61 73 68 65 |er of ba|ckslashe|
|000005c0| 73 2e 29 0a 0a 49 6e 73 | 74 61 6c 6c 20 74 68 69 |s.)..Ins|tall thi|
|000005d0| 73 20 66 69 6c 65 20 61 | 73 20 61 20 70 6f 73 74 |s file a|s a post|
|000005e0| 2d 75 73 65 72 20 64 65 | 6c 69 76 65 72 79 20 66 |-user de|livery f|
|000005f0| 69 6c 65 20 77 69 74 68 | 20 44 65 6c 69 76 65 72 |ile with| Deliver|
|00000600| 20 32 2e 30 20 61 6e 64 | 0a 50 65 72 6c 20 33 2e | 2.0 and|.Perl 3.|
|00000610| 20 20 50 72 65 73 74 6f | 3a 20 6d 61 69 6c 20 61 |  Presto|: mail a|
|00000620| 72 63 68 69 76 69 6e 67 | 20 77 69 74 68 20 61 20 |rchiving| with a |
|00000630| 6c 6f 67 2e 20 20 48 65 | 79 2c 20 74 68 65 20 70 |log.  He|y, the p|
|00000640| 72 69 63 65 20 69 73 20 | 72 69 67 68 74 2e 0a 0a |rice is |right...|
|00000650| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|00000660| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|00000670| 68 69 76 65 2e 20 20 52 | 65 6d 6f 76 65 20 61 6e |hive.  R|emove an|
|00000680| 79 74 68 69 6e 67 20 62 | 65 66 6f 72 65 20 74 68 |ything b|efore th|
|00000690| 69 73 20 6c 69 6e 65 2c | 20 74 68 65 6e 20 75 6e |is line,| then un|
|000006a0| 70 61 63 6b 0a 23 20 69 | 74 20 62 79 20 73 61 76 |pack.# i|t by sav|
|000006b0| 69 6e 67 20 69 74 20 69 | 6e 74 6f 20 61 20 66 69 |ing it i|nto a fi|
|000006c0| 6c 65 20 61 6e 64 20 74 | 79 70 69 6e 67 20 22 73 |le and t|yping "s|
|000006d0| 68 20 66 69 6c 65 22 2e | 20 20 54 6f 20 6f 76 65 |h file".|  To ove|
|000006e0| 72 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 0a |rwrite e|xisting.|
|000006f0| 23 20 66 69 6c 65 73 2c | 20 74 79 70 65 20 22 73 |# files,| type "s|
|00000700| 68 20 66 69 6c 65 20 2d | 63 22 2e 20 20 59 6f 75 |h file -|c".  You|
|00000710| 20 63 61 6e 20 61 6c 73 | 6f 20 66 65 65 64 20 74 | can als|o feed t|
|00000720| 68 69 73 20 61 73 20 73 | 74 61 6e 64 61 72 64 20 |his as s|tandard |
|00000730| 69 6e 70 75 74 20 76 69 | 61 0a 23 20 75 6e 73 68 |input vi|a.# unsh|
|00000740| 61 72 2c 20 6f 72 20 62 | 79 20 74 79 70 69 6e 67 |ar, or b|y typing|
|00000750| 20 22 73 68 20 3c 66 69 | 6c 65 22 2c 20 65 2e 67 | "sh <fi|le", e.g|
|00000760| 2e 2e 20 20 49 66 20 74 | 68 69 73 20 61 72 63 68 |..  If t|his arch|
|00000770| 69 76 65 20 69 73 20 63 | 6f 6d 70 6c 65 74 65 2c |ive is c|omplete,|
|00000780| 20 79 6f 75 0a 23 20 77 | 69 6c 6c 20 73 65 65 20 | you.# w|ill see |
|00000790| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 65 |the foll|owing me|
|000007a0| 73 73 61 67 65 20 61 74 | 20 74 68 65 20 65 6e 64 |ssage at| the end|
|000007b0| 3a 0a 23 09 09 22 45 6e | 64 20 6f 66 20 73 68 65 |:.#.."En|d of she|
|000007c0| 6c 6c 20 61 72 63 68 69 | 76 65 2e 22 0a 23 20 43 |ll archi|ve.".# C|
|000007d0| 6f 6e 74 65 6e 74 73 3a | 20 20 64 65 6c 2d 61 72 |ontents:|  del-ar|
|000007e0| 63 68 69 76 65 0a 23 20 | 57 72 61 70 70 65 64 20 |chive.# |Wrapped |
|000007f0| 62 79 20 63 68 69 70 40 | 74 63 74 20 6f 6e 20 4d |by chip@|tct on M|
|00000800| 6f 6e 20 4d 61 79 20 31 | 34 20 31 35 3a 33 35 3a |on May 1|4 15:35:|
|00000810| 34 39 20 31 39 39 30 0a | 50 41 54 48 3d 2f 62 69 |49 1990.|PATH=/bi|
|00000820| 6e 3a 2f 75 73 72 2f 62 | 69 6e 3a 2f 75 73 72 2f |n:/usr/b|in:/usr/|
|00000830| 75 63 62 20 3b 20 65 78 | 70 6f 72 74 20 50 41 54 |ucb ; ex|port PAT|
|00000840| 48 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 64 65 |H.if tes|t -f 'de|
|00000850| 6c 2d 61 72 63 68 69 76 | 65 27 20 2d 61 20 22 24 |l-archiv|e' -a "$|
|00000860| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|00000870| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen .  e|cho shar|
|00000880| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 63 6c 6f 62 62 |: Will n|ot clobb|
|00000890| 65 72 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |er exist|ing file|
|000008a0| 20 5c 22 27 64 65 6c 2d | 61 72 63 68 69 76 65 27 | \"'del-|archive'|
|000008b0| 5c 22 0a 65 6c 73 65 0a | 65 63 68 6f 20 73 68 61 |\".else.|echo sha|
|000008c0| 72 3a 20 45 78 74 72 61 | 63 74 69 6e 67 20 5c 22 |r: Extra|cting \"|
|000008d0| 27 64 65 6c 2d 61 72 63 | 68 69 76 65 27 5c 22 20 |'del-arc|hive'\" |
|000008e0| 5c 28 32 32 38 33 20 63 | 68 61 72 61 63 74 65 72 |\(2283 c|haracter|
|000008f0| 73 5c 29 0a 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |s\).sed |"s/^X//"|
|00000900| 20 3e 27 64 65 6c 2d 61 | 72 63 68 69 76 65 27 20 | >'del-a|rchive' |
|00000910| 3c 3c 27 45 4e 44 5f 4f | 46 5f 46 49 4c 45 27 0a |<<'END_O|F_FILE'.|
|00000920| 58 23 21 2f 62 69 6e 2f | 70 65 72 6c 0a 58 23 20 |X#!/bin/|perl.X# |
|00000930| 41 72 63 68 69 76 65 20 | 6d 61 69 6c 20 61 6e 64 |Archive |mail and|
|00000940| 20 6c 6f 67 20 61 72 63 | 68 69 76 65 64 20 6d 65 | log arc|hived me|
|00000950| 73 73 61 67 65 73 2e 0a | 58 0a 58 23 23 20 43 4f |ssages..|X.X## CO|
|00000960| 4e 46 49 47 55 52 41 54 | 49 4f 4e 3a 20 54 61 72 |NFIGURAT|ION: Tar|
|00000970| 67 65 74 20 73 69 74 65 | 73 20 74 68 61 74 20 72 |get site|s that r|
|00000980| 65 71 75 69 72 65 20 61 | 72 63 68 69 76 69 6e 67 |equire a|rchiving|
|00000990| 2e 0a 58 0a 58 40 41 52 | 43 48 53 49 54 45 53 20 |..X.X@AR|CHSITES |
|000009a0| 3d 20 28 22 73 69 74 65 | 61 22 2c 20 22 73 69 74 |= ("site|a", "sit|
|000009b0| 65 62 22 2c 20 22 75 75 | 6e 65 74 22 29 3b 20 20 |eb", "uu|net");  |
|000009c0| 20 23 23 20 61 20 6a 6f | 6b 65 2c 20 73 6f 6e 0a | ## a jo|ke, son.|
|000009d0| 58 0a 58 23 23 20 43 4f | 4e 46 49 47 55 52 41 54 |X.X## CO|NFIGURAT|
|000009e0| 49 4f 4e 3a 20 57 68 65 | 72 65 20 77 69 6c 6c 20 |ION: Whe|re will |
|000009f0| 49 20 61 72 63 68 69 76 | 65 20 6d 61 69 6c 20 69 |I archiv|e mail i|
|00000a00| 66 20 72 65 71 75 69 72 | 65 64 3f 0a 58 0a 58 24 |f requir|ed?.X.X$|
|00000a10| 41 52 43 48 46 49 4c 45 | 20 3d 20 22 2f 75 73 72 |ARCHFILE| = "/usr|
|00000a20| 2f 74 6d 70 2f 6d 61 69 | 6c 2d 24 24 22 3b 09 09 |/tmp/mai|l-$$";..|
|00000a30| 23 23 20 79 6f 75 20 6e | 65 65 64 20 74 6f 20 66 |## you n|eed to f|
|00000a40| 69 78 20 74 68 69 73 0a | 58 0a 58 23 23 20 43 6f |ix this.|X.X## Co|
|00000a50| 6c 6c 65 63 74 20 69 6d | 70 6f 72 74 61 6e 74 20 |llect im|portant |
|00000a60| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 76 61 72 69 |environm|ent vari|
|00000a70| 61 62 6c 65 73 2e 0a 58 | 0a 58 24 53 45 4e 44 45 |ables..X|.X$SENDE|
|00000a80| 52 20 20 20 3d 20 24 45 | 4e 56 7b 27 53 45 4e 44 |R   = $E|NV{'SEND|
|00000a90| 45 52 27 7d 3b 0a 58 24 | 48 45 41 44 45 52 20 20 |ER'};.X$|HEADER  |
|00000aa0| 20 3d 20 24 45 4e 56 7b | 27 48 45 41 44 45 52 27 | = $ENV{|'HEADER'|
|00000ab0| 7d 3b 0a 58 24 42 4f 44 | 59 20 20 20 20 20 3d 20 |};.X$BOD|Y     = |
|00000ac0| 24 45 4e 56 7b 27 42 4f | 44 59 27 7d 3b 0a 58 24 |$ENV{'BO|DY'};.X$|
|00000ad0| 48 4f 53 54 4e 41 4d 45 | 20 3d 20 24 45 4e 56 7b |HOSTNAME| = $ENV{|
|00000ae0| 27 48 4f 53 54 4e 41 4d | 45 27 7d 3b 0a 58 0a 58 |'HOSTNAM|E'};.X.X|
|00000af0| 23 23 20 43 6f 6c 6c 65 | 63 74 20 69 6d 70 6f 72 |## Colle|ct impor|
|00000b00| 74 61 6e 74 20 68 65 61 | 64 65 72 20 66 69 65 6c |tant hea|der fiel|
|00000b10| 64 73 2e 0a 58 0a 58 24 | 48 5f 46 72 6f 6d 20 20 |ds..X.X$|H_From  |
|00000b20| 20 20 20 20 20 3d 20 60 | 68 65 61 64 65 72 20 2d |     = `|header -|
|00000b30| 6e 66 20 46 72 6f 6d 20 | 20 20 20 20 20 20 24 48 |nf From |      $H|
|00000b40| 45 41 44 45 52 60 3b 0a | 58 24 48 5f 54 6f 20 20 |EADER`;.|X$H_To  |
|00000b50| 20 20 20 20 20 20 20 3d | 20 60 68 65 61 64 65 72 |       =| `header|
|00000b60| 20 2d 6e 66 20 54 6f 20 | 20 20 20 20 20 20 20 20 | -nf To |        |
|00000b70| 24 48 45 41 44 45 52 60 | 3b 0a 58 24 48 5f 53 75 |$HEADER`|;.X$H_Su|
|00000b80| 62 6a 65 63 74 20 20 20 | 20 3d 20 60 68 65 61 64 |bject   | = `head|
|00000b90| 65 72 20 2d 6e 66 20 53 | 75 62 6a 65 63 74 20 20 |er -nf S|ubject  |
|00000ba0| 20 20 24 48 45 41 44 45 | 52 60 3b 0a 58 24 48 5f |  $HEADE|R`;.X$H_|
|00000bb0| 58 5f 41 72 63 68 69 76 | 65 64 20 3d 20 60 68 65 |X_Archiv|ed = `he|
|00000bc0| 61 64 65 72 20 2d 6e 66 | 20 58 2d 41 72 63 68 69 |ader -nf| X-Archi|
|00000bd0| 76 65 64 20 24 48 45 41 | 44 45 52 60 3b 0a 58 0a |ved $HEA|DER`;.X.|
|00000be0| 58 23 23 20 43 68 65 63 | 6b 20 74 6f 20 73 65 65 |X## Chec|k to see|
|00000bf0| 20 69 66 20 61 72 63 68 | 69 76 69 6e 67 20 69 73 | if arch|iving is|
|00000c00| 20 72 65 71 75 69 72 65 | 64 2e 0a 58 0a 58 24 61 | require|d..X.X$a|
|00000c10| 72 63 68 69 76 65 20 3d | 20 30 3b 0a 58 66 6f 72 |rchive =| 0;.Xfor|
|00000c20| 65 61 63 68 20 28 40 41 | 52 47 56 29 20 7b 0a 58 |each (@A|RGV) {.X|
|00000c30| 09 40 42 20 3d 20 73 70 | 6c 69 74 28 2f 21 2f 29 |.@B = sp|lit(/!/)|
|00000c40| 3b 0a 58 09 6e 65 78 74 | 20 75 6e 6c 65 73 73 20 |;.X.next| unless |
|00000c50| 40 42 20 3e 20 31 3b 0a | 58 09 24 64 65 73 74 20 |@B > 1;.|X.$dest |
|00000c60| 3d 20 24 42 5b 24 23 42 | 20 2d 20 31 5d 3b 0a 58 |= $B[$#B| - 1];.X|
|00000c70| 09 2b 2b 24 61 72 63 68 | 69 76 65 20 69 66 20 67 |.++$arch|ive if g|
|00000c80| 72 65 70 28 24 5f 20 65 | 71 20 24 64 65 73 74 2c |rep($_ e|q $dest,|
|00000c90| 20 40 41 52 43 48 53 49 | 54 45 53 29 3b 0a 58 7d | @ARCHSI|TES);.X}|
|00000ca0| 0a 58 0a 58 23 23 20 49 | 66 20 74 68 69 73 20 6d |.X.X## I|f this m|
|00000cb0| 65 73 73 61 67 65 20 69 | 73 20 61 6c 72 65 61 64 |essage i|s alread|
|00000cc0| 79 20 61 72 63 68 69 76 | 65 64 20 65 6c 73 65 77 |y archiv|ed elsew|
|00000cd0| 68 65 72 65 2c 0a 58 23 | 23 20 6f 72 20 69 66 20 |here,.X#|# or if |
|00000ce0| 77 65 27 72 65 20 61 62 | 6f 75 74 20 74 6f 20 61 |we're ab|out to a|
|00000cf0| 72 63 68 69 76 65 20 69 | 74 2c 20 6c 6f 67 20 69 |rchive i|t, log i|
|00000d00| 74 2e 0a 58 0a 58 69 66 | 20 28 24 61 72 63 68 69 |t..X.Xif| ($archi|
|00000d10| 76 65 20 7c 7c 20 24 48 | 5f 58 5f 41 72 63 68 69 |ve || $H|_X_Archi|
|00000d20| 76 65 64 29 20 7b 0a 58 | 20 20 20 20 26 44 45 4c |ved) {.X|    &DEL|
|00000d30| 28 22 2d 72 22 2c 20 24 | 53 45 4e 44 45 52 2c 20 |("-r", $|SENDER, |
|00000d40| 22 2d 62 22 2c 20 22 2f | 75 73 72 2f 61 64 6d 2f |"-b", "/|usr/adm/|
|00000d50| 64 65 6c 2d 61 72 63 68 | 2e 6c 6f 67 22 29 3b 0a |del-arch|.log");.|
|00000d60| 58 20 20 20 20 70 72 69 | 6e 74 20 44 45 4c 20 24 |X    pri|nt DEL $|
|00000d70| 48 5f 46 72 6f 6d 2c 20 | 24 48 5f 54 6f 2c 20 24 |H_From, |$H_To, $|
|00000d80| 48 5f 53 75 62 6a 65 63 | 74 2c 20 24 48 5f 58 5f |H_Subjec|t, $H_X_|
|00000d90| 41 72 63 68 69 76 65 64 | 3b 0a 58 20 20 20 20 70 |Archived|;.X    p|
|00000da0| 72 69 6e 74 20 44 45 4c | 20 22 5c 6e 22 3b 0a 58 |rint DEL| "\n";.X|
|00000db0| 20 20 20 20 70 72 69 6e | 74 20 44 45 4c 20 22 41 |    prin|t DEL "A|
|00000dc0| 72 63 68 69 76 65 64 20 | 6c 6f 63 61 6c 6c 79 20 |rchived |locally |
|00000dd0| 61 73 20 24 41 52 43 48 | 46 49 4c 45 22 20 69 66 |as $ARCH|FILE" if|
|00000de0| 20 24 61 72 63 68 69 76 | 65 3b 0a 58 20 20 20 20 | $archiv|e;.X    |
|00000df0| 63 6c 6f 73 65 28 44 45 | 4c 29 3b 0a 58 7d 0a 58 |close(DE|L);.X}.X|
|00000e00| 0a 58 23 23 20 49 66 20 | 6e 6f 20 61 72 63 68 69 |.X## If |no archi|
|00000e10| 76 69 6e 67 20 72 65 71 | 75 65 73 74 65 64 2c 20 |ving req|uested, |
|00000e20| 64 65 6c 69 76 65 72 20 | 6e 6f 72 6d 61 6c 6c 79 |deliver |normally|
|00000e30| 2e 0a 58 0a 58 75 6e 6c | 65 73 73 20 28 24 61 72 |..X.Xunl|ess ($ar|
|00000e40| 63 68 69 76 65 29 20 7b | 0a 58 09 66 6f 72 65 61 |chive) {|.X.forea|
|00000e50| 63 68 20 28 40 41 52 47 | 56 29 20 7b 0a 58 09 09 |ch (@ARG|V) {.X..|
|00000e60| 70 72 69 6e 74 20 24 5f | 2c 20 22 5c 6e 22 3b 0a |print $_|, "\n";.|
|00000e70| 58 09 7d 0a 58 09 65 78 | 69 74 3b 0a 58 7d 0a 58 |X.}.X.ex|it;.X}.X|
|00000e80| 0a 58 23 23 20 53 65 6e | 64 20 74 68 65 20 6d 65 |.X## Sen|d the me|
|00000e90| 73 73 61 67 65 20 77 69 | 74 68 20 61 6e 20 58 2d |ssage wi|th an X-|
|00000ea0| 41 72 63 68 69 76 65 64 | 20 68 65 61 64 65 72 20 |Archived| header |
|00000eb0| 6c 69 6e 65 20 61 64 64 | 65 64 2e 0a 58 23 23 20 |line add|ed..X## |
|00000ec0| 4e 6f 74 65 20 74 68 65 | 20 22 2d 6e 22 20 66 6c |Note the| "-n" fl|
|00000ed0| 61 67 20 2d 2d 20 64 6f | 6e 27 74 20 65 78 65 63 |ag -- do|n't exec|
|00000ee0| 75 74 65 20 74 68 69 73 | 20 72 65 63 75 72 73 69 |ute this| recursi|
|00000ef0| 76 65 6c 79 21 0a 58 0a | 58 26 44 45 4c 28 22 2d |vely!.X.|X&DEL("-|
|00000f00| 6e 22 2c 20 40 41 52 47 | 56 29 3b 0a 58 26 43 4f |n", @ARG|V);.X&CO|
|00000f10| 50 59 4d 53 47 3b 0a 58 | 63 6c 6f 73 65 28 44 45 |PYMSG;.X|close(DE|
|00000f20| 4c 29 3b 0a 58 0a 58 23 | 23 20 48 61 76 65 20 44 |L);.X.X#|# Have D|
|00000f30| 65 6c 69 76 65 72 20 77 | 72 69 74 65 20 74 68 65 |eliver w|rite the|
|00000f40| 20 61 72 63 68 69 76 65 | 20 63 6f 70 79 20 6c 69 | archive| copy li|
|00000f50| 6b 65 20 61 20 6d 61 69 | 6c 62 6f 78 2e 0a 58 23 |ke a mai|lbox..X#|
|00000f60| 23 20 44 6f 20 74 68 69 | 73 20 6c 61 73 74 2c 20 |# Do thi|s last, |
|00000f70| 69 6e 20 63 61 73 65 20 | 74 68 65 20 73 63 72 69 |in case |the scri|
|00000f80| 70 74 20 61 62 6f 72 74 | 73 20 65 61 72 6c 79 2e |pt abort|s early.|
|00000f90| 0a 58 0a 58 26 44 45 4c | 28 22 2d 62 22 2c 20 24 |.X.X&DEL|("-b", $|
|00000fa0| 41 52 43 48 46 49 4c 45 | 29 3b 0a 58 26 43 4f 50 |ARCHFILE|);.X&COP|
|00000fb0| 59 4d 53 47 3b 0a 58 63 | 6c 6f 73 65 28 44 45 4c |YMSG;.Xc|lose(DEL|
|00000fc0| 29 3b 0a 58 0a 58 23 23 | 20 57 65 20 61 72 65 20 |);.X.X##| We are |
|00000fd0| 6f 75 74 61 68 65 72 65 | 21 0a 58 0a 58 65 78 69 |outahere|!.X.Xexi|
|00000fe0| 74 3b 0a 58 0a 58 23 23 | 20 53 75 62 72 6f 75 74 |t;.X.X##| Subrout|
|00000ff0| 69 6e 65 20 74 6f 20 73 | 70 61 77 6e 20 61 20 63 |ine to s|pawn a c|
|00001000| 68 69 6c 64 20 44 65 6c | 69 76 65 72 20 70 72 6f |hild Del|iver pro|
|00001010| 63 65 73 73 2e 0a 58 0a | 58 73 75 62 20 44 45 4c |cess..X.|Xsub DEL|
|00001020| 20 7b 0a 58 09 6c 6f 63 | 61 6c 28 24 70 69 64 29 | {.X.loc|al($pid)|
|00001030| 3b 0a 58 09 24 70 69 64 | 20 3d 20 6f 70 65 6e 28 |;.X.$pid| = open(|
|00001040| 44 45 4c 2c 20 22 7c 2d | 22 29 3b 0a 58 09 77 61 |DEL, "|-|");.X.wa|
|00001050| 72 6e 20 22 43 61 6e 27 | 74 20 6f 70 65 6e 20 63 |rn "Can'|t open c|
|00001060| 68 69 6c 64 20 64 65 6c | 69 76 65 72 3a 20 24 21 |hild del|iver: $!|
|00001070| 22 20 75 6e 6c 65 73 73 | 20 64 65 66 69 6e 65 64 |" unless| defined|
|00001080| 28 24 70 69 64 29 3b 0a | 58 09 65 78 65 63 20 22 |($pid);.|X.exec "|
|00001090| 64 65 6c 69 76 65 72 22 | 2c 20 40 5f 20 69 66 20 |deliver"|, @_ if |
|000010a0| 64 65 66 69 6e 65 64 28 | 24 70 69 64 29 20 26 26 |defined(|$pid) &&|
|000010b0| 20 24 70 69 64 20 3d 3d | 20 30 3b 0a 58 7d 0a 58 | $pid ==| 0;.X}.X|
|000010c0| 0a 58 23 23 20 53 75 62 | 72 6f 75 74 69 6e 65 20 |.X## Sub|routine |
|000010d0| 74 6f 20 73 65 6e 64 20 | 61 20 63 6f 70 79 20 6f |to send |a copy o|
|000010e0| 66 20 74 68 65 20 6d 65 | 73 73 61 67 65 20 74 6f |f the me|ssage to|
|000010f0| 20 61 20 63 68 69 6c 64 | 20 44 65 6c 69 76 65 72 | a child| Deliver|
|00001100| 2e 0a 58 23 23 20 54 68 | 65 20 63 6f 70 79 20 69 |..X## Th|e copy i|
|00001110| 6e 63 6c 75 64 65 73 20 | 61 6e 20 58 2d 41 72 63 |ncludes |an X-Arc|
|00001120| 68 69 76 65 64 20 68 65 | 61 64 65 72 2e 0a 58 0a |hived he|ader..X.|
|00001130| 58 73 75 62 20 43 4f 50 | 59 4d 53 47 20 7b 0a 58 |Xsub COP|YMSG {.X|
|00001140| 09 6f 70 65 6e 28 48 45 | 41 44 45 52 29 20 7c 7c |.open(HE|ADER) |||
|00001150| 20 77 61 72 6e 20 22 43 | 61 6e 27 74 20 6f 70 65 | warn "C|an't ope|
|00001160| 6e 20 24 48 45 41 44 45 | 52 3a 20 24 21 22 3b 0a |n $HEADE|R: $!";.|
|00001170| 58 09 77 68 69 6c 65 20 | 28 3c 48 45 41 44 45 52 |X.while |(<HEADER|
|00001180| 3e 29 20 7b 0a 58 09 09 | 70 72 69 6e 74 20 44 45 |>) {.X..|print DE|
|00001190| 4c 20 24 5f 20 75 6e 6c | 65 73 73 20 2f 5e 24 2f |L $_ unl|ess /^$/|
|000011a0| 3b 0a 58 09 7d 0a 58 09 | 63 6c 6f 73 65 28 48 45 |;.X.}.X.|close(HE|
|000011b0| 41 44 45 52 29 3b 0a 58 | 0a 58 09 70 72 69 6e 74 |ADER);.X|.X.print|
|000011c0| 20 44 45 4c 20 22 58 2d | 41 72 63 68 69 76 65 64 | DEL "X-|Archived|
|000011d0| 3a 20 68 6f 73 74 20 24 | 48 4f 53 54 4e 41 4d 45 |: host $|HOSTNAME|
|000011e0| 2c 20 66 69 6c 65 20 24 | 41 52 43 48 46 49 4c 45 |, file $|ARCHFILE|
|000011f0| 5c 6e 22 3b 0a 58 09 70 | 72 69 6e 74 20 44 45 4c |\n";.X.p|rint DEL|
|00001200| 20 22 5c 6e 22 3b 0a 58 | 0a 58 09 6f 70 65 6e 28 | "\n";.X|.X.open(|
|00001210| 42 4f 44 59 29 20 7c 7c | 20 77 61 72 6e 20 22 43 |BODY) ||| warn "C|
|00001220| 61 6e 27 74 20 6f 70 65 | 6e 20 24 42 4f 44 59 3a |an't ope|n $BODY:|
|00001230| 20 24 21 22 3b 0a 58 09 | 77 68 69 6c 65 20 28 3c | $!";.X.|while (<|
|00001240| 42 4f 44 59 3e 29 20 7b | 0a 58 09 09 70 72 69 6e |BODY>) {|.X..prin|
|00001250| 74 20 44 45 4c 20 24 5f | 3b 0a 58 09 7d 0a 58 09 |t DEL $_|;.X.}.X.|
|00001260| 63 6c 6f 73 65 28 42 4f | 44 59 29 3b 0a 58 7d 0a |close(BO|DY);.X}.|
|00001270| 45 4e 44 5f 4f 46 5f 46 | 49 4c 45 0a 69 66 20 74 |END_OF_F|ILE.if t|
|00001280| 65 73 74 20 32 32 38 33 | 20 2d 6e 65 20 60 77 63 |est 2283| -ne `wc|
|00001290| 20 2d 63 20 3c 27 64 65 | 6c 2d 61 72 63 68 69 76 | -c <'de|l-archiv|
|000012a0| 65 27 60 3b 20 74 68 65 | 6e 0a 20 20 20 20 65 63 |e'`; the|n.    ec|
|000012b0| 68 6f 20 73 68 61 72 3a | 20 5c 22 27 64 65 6c 2d |ho shar:| \"'del-|
|000012c0| 61 72 63 68 69 76 65 27 | 5c 22 20 75 6e 70 61 63 |archive'|\" unpac|
|000012d0| 6b 65 64 20 77 69 74 68 | 20 77 72 6f 6e 67 20 73 |ked with| wrong s|
|000012e0| 69 7a 65 21 0a 66 69 0a | 23 20 65 6e 64 20 6f 66 |ize!.fi.|# end of|
|000012f0| 20 27 64 65 6c 2d 61 72 | 63 68 69 76 65 27 0a 66 | 'del-ar|chive'.f|
|00001300| 69 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 6e 64 |i.echo s|har: End|
|00001310| 20 6f 66 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 | of shel|l archiv|
|00001320| 65 2e 0a 65 78 69 74 20 | 30 0a 2d 2d 20 0a 43 68 |e..exit |0.-- .Ch|
|00001330| 69 70 20 53 61 6c 7a 65 | 6e 62 65 72 67 20 61 74 |ip Salze|nberg at|
|00001340| 20 43 6f 6d 44 65 76 2f | 54 43 54 20 20 20 3c 63 | ComDev/|TCT   <c|
|00001350| 68 69 70 25 74 63 74 40 | 61 74 65 6e 67 2e 63 6f |hip%tct@|ateng.co|
|00001360| 6d 3e 2c 20 3c 75 75 6e | 65 74 21 61 74 65 6e 67 |m>, <uun|et!ateng|
|00001370| 21 74 63 74 21 63 68 69 | 70 3e 0a                |!tct!chi|p>.     |
+--------+-------------------------+-------------------------+--------+--------+