/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume04 / lmail

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 64 65 63 | 77 72 6c 21 6c 61 62 72 |From dec|wrl!labr|
|00000010| 65 61 21 61 67 61 74 65 | 21 70 61 73 74 65 75 72 |ea!agate|!pasteur|
|00000020| 21 61 6d 65 73 21 6d 61 | 69 6c 72 75 73 21 6e 63 |!ames!ma|ilrus!nc|
|00000030| 61 72 21 74 61 6e 6b 21 | 6e 69 63 2e 4d 52 2e 4e |ar!tank!|nic.MR.N|
|00000040| 45 54 21 68 61 6c 21 6e | 63 6f 61 73 74 21 61 6c |ET!hal!n|coast!al|
|00000050| 6c 62 65 72 79 20 53 61 | 74 20 4f 63 74 20 32 32 |lbery Sa|t Oct 22|
|00000060| 20 31 36 3a 35 31 3a 34 | 32 20 50 44 54 20 31 39 | 16:51:4|2 PDT 19|
|00000070| 38 38 0a 41 72 74 69 63 | 6c 65 20 36 37 32 20 6f |88.Artic|le 672 o|
|00000080| 66 20 63 6f 6d 70 2e 73 | 6f 75 72 63 65 73 2e 6d |f comp.s|ources.m|
|00000090| 69 73 63 3a 0a 50 61 74 | 68 3a 20 67 72 61 6e 69 |isc:.Pat|h: grani|
|000000a0| 74 65 21 64 65 63 77 72 | 6c 21 6c 61 62 72 65 61 |te!decwr|l!labrea|
|000000b0| 21 61 67 61 74 65 21 70 | 61 73 74 65 75 72 21 61 |!agate!p|asteur!a|
|000000c0| 6d 65 73 21 6d 61 69 6c | 72 75 73 21 6e 63 61 72 |mes!mail|rus!ncar|
|000000d0| 21 74 61 6e 6b 21 6e 69 | 63 2e 4d 52 2e 4e 45 54 |!tank!ni|c.MR.NET|
|000000e0| 21 68 61 6c 21 6e 63 6f | 61 73 74 21 61 6c 6c 62 |!hal!nco|ast!allb|
|000000f0| 65 72 79 0a 46 72 6f 6d | 3a 20 7a 65 65 66 66 40 |ery.From|: zeeff@|
|00000100| 62 2d 74 65 63 68 2e 61 | 6e 6e 2d 61 72 62 6f 72 |b-tech.a|nn-arbor|
|00000110| 2e 6d 69 2e 75 73 2e 55 | 55 43 50 20 28 4a 6f 6e |.mi.us.U|UCP (Jon|
|00000120| 20 5a 65 65 66 66 29 0a | 4e 65 77 73 67 72 6f 75 | Zeeff).|Newsgrou|
|00000130| 70 73 3a 20 63 6f 6d 70 | 2e 73 6f 75 72 63 65 73 |ps: comp|.sources|
|00000140| 2e 6d 69 73 63 0a 53 75 | 62 6a 65 63 74 3a 20 76 |.misc.Su|bject: v|
|00000150| 30 34 69 31 33 30 3a 20 | 6c 6d 61 69 6c 2c 20 61 |04i130: |lmail, a|
|00000160| 20 6c 6f 63 61 6c 20 6d | 61 69 6c 20 64 65 6c 69 | local m|ail deli|
|00000170| 76 65 72 79 20 70 72 6f | 67 72 61 6d 0a 4b 65 79 |very pro|gram.Key|
|00000180| 77 6f 72 64 73 3a 20 6c | 6d 61 69 6c 2c 20 73 6d |words: l|mail, sm|
|00000190| 61 69 6c 0a 4d 65 73 73 | 61 67 65 2d 49 44 3a 20 |ail.Mess|age-ID: |
|000001a0| 3c 34 38 37 35 40 62 2d | 74 65 63 68 2e 61 6e 6e |<4875@b-|tech.ann|
|000001b0| 2d 61 72 62 6f 72 2e 6d | 69 2e 75 73 3e 0a 44 61 |-arbor.m|i.us>.Da|
|000001c0| 74 65 3a 20 32 32 20 4f | 63 74 20 38 38 20 30 31 |te: 22 O|ct 88 01|
|000001d0| 3a 32 32 3a 31 37 20 47 | 4d 54 0a 53 65 6e 64 65 |:22:17 G|MT.Sende|
|000001e0| 72 3a 20 61 6c 6c 62 65 | 72 79 40 6e 63 6f 61 73 |r: allbe|ry@ncoas|
|000001f0| 74 2e 55 55 43 50 0a 52 | 65 70 6c 79 2d 54 6f 3a |t.UUCP.R|eply-To:|
|00000200| 20 7a 65 65 66 66 40 62 | 2d 74 65 63 68 2e 61 6e | zeeff@b|-tech.an|
|00000210| 6e 2d 61 72 62 6f 72 2e | 6d 69 2e 75 73 2e 55 55 |n-arbor.|mi.us.UU|
|00000220| 43 50 20 28 4a 6f 6e 20 | 5a 65 65 66 66 29 0a 4f |CP (Jon |Zeeff).O|
|00000230| 72 67 61 6e 69 7a 61 74 | 69 6f 6e 3a 20 42 72 61 |rganizat|ion: Bra|
|00000240| 6e 63 68 20 54 65 63 68 | 6e 6f 6c 6f 67 79 2c 20 |nch Tech|nology, |
|00000250| 41 6e 6e 20 41 72 62 6f | 72 2c 20 4d 49 0a 4c 69 |Ann Arbo|r, MI.Li|
|00000260| 6e 65 73 3a 20 36 36 36 | 0a 41 70 70 72 6f 76 65 |nes: 666|.Approve|
|00000270| 64 3a 20 61 6c 6c 62 65 | 72 79 40 6e 63 6f 61 73 |d: allbe|ry@ncoas|
|00000280| 74 2e 55 55 43 50 0a 0a | 50 6f 73 74 69 6e 67 2d |t.UUCP..|Posting-|
|00000290| 6e 75 6d 62 65 72 3a 20 | 56 6f 6c 75 6d 65 20 34 |number: |Volume 4|
|000002a0| 2c 20 49 73 73 75 65 20 | 31 33 30 0a 53 75 62 6d |, Issue |130.Subm|
|000002b0| 69 74 74 65 64 2d 62 79 | 3a 20 22 4a 6f 6e 20 5a |itted-by|: "Jon Z|
|000002c0| 65 65 66 66 22 20 3c 7a | 65 65 66 66 40 62 2d 74 |eeff" <z|eeff@b-t|
|000002d0| 65 63 68 2e 61 6e 6e 2d | 61 72 62 6f 72 2e 6d 69 |ech.ann-|arbor.mi|
|000002e0| 2e 75 73 2e 55 55 43 50 | 3e 0a 41 72 63 68 69 76 |.us.UUCP|>.Archiv|
|000002f0| 65 2d 6e 61 6d 65 3a 20 | 6c 6d 61 69 6c 0a 0a 54 |e-name: |lmail..T|
|00000300| 6f 6f 20 6d 61 6e 79 20 | 70 65 6f 70 6c 65 20 61 |oo many |people a|
|00000310| 72 65 20 72 65 71 75 65 | 73 74 69 6e 67 20 74 68 |re reque|sting th|
|00000320| 69 73 20 73 6f 20 49 20 | 67 75 65 73 73 20 69 74 |is so I |guess it|
|00000330| 20 73 68 6f 75 6c 64 20 | 67 6f 20 74 6f 0a 63 6f | should |go to.co|
|00000340| 6d 70 2e 73 6f 75 72 63 | 65 73 2e 6d 69 73 63 2e |mp.sourc|es.misc.|
|00000350| 0a 0a 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 69 |..This p|rogram i|
|00000360| 73 20 61 20 6c 6f 63 61 | 6c 20 6d 61 69 6c 20 64 |s a loca|l mail d|
|00000370| 65 6c 69 76 65 72 79 20 | 61 67 65 6e 74 2e 20 20 |elivery |agent.  |
|00000380| 49 74 27 73 20 70 72 69 | 6d 61 72 79 20 75 73 65 |It's pri|mary use|
|00000390| 20 69 73 20 74 6f 0a 61 | 64 64 20 70 69 70 69 6e | is to.a|dd pipin|
|000003a0| 67 20 74 6f 20 66 69 6c | 65 73 20 61 6e 64 20 70 |g to fil|es and p|
|000003b0| 72 6f 67 72 61 6d 73 20 | 66 6f 72 20 73 69 74 65 |rograms |for site|
|000003c0| 73 20 72 75 6e 6e 69 6e | 67 20 73 6d 61 69 6c 32 |s runnin|g smail2|
|000003d0| 2e 35 2e 20 20 4d 61 6b | 65 20 73 75 72 65 20 74 |.5.  Mak|e sure t|
|000003e0| 68 61 74 0a 69 74 20 64 | 6f 65 73 20 6c 6f 63 6b |hat.it d|oes lock|
|000003f0| 69 6e 67 20 74 68 65 20 | 77 61 79 20 79 6f 75 20 |ing the |way you |
|00000400| 77 61 6e 74 20 69 74 20 | 74 6f 2e 0a 0a 23 21 20 |want it |to...#! |
|00000410| 2f 62 69 6e 2f 73 68 0a | 23 20 54 68 69 73 20 69 |/bin/sh.|# This i|
|00000420| 73 20 61 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 |s a shel|l archiv|
|00000430| 65 2e 20 20 52 65 6d 6f | 76 65 20 61 6e 79 74 68 |e.  Remo|ve anyth|
|00000440| 69 6e 67 20 62 65 66 6f | 72 65 20 74 68 69 73 20 |ing befo|re this |
|00000450| 6c 69 6e 65 2c 20 74 68 | 65 6e 20 75 6e 70 61 63 |line, th|en unpac|
|00000460| 6b 0a 23 20 69 74 20 62 | 79 20 73 61 76 69 6e 67 |k.# it b|y saving|
|00000470| 20 69 74 20 69 6e 74 6f | 20 61 20 66 69 6c 65 20 | it into| a file |
|00000480| 61 6e 64 20 74 79 70 69 | 6e 67 20 22 73 68 20 66 |and typi|ng "sh f|
|00000490| 69 6c 65 22 2e 20 20 54 | 6f 20 6f 76 65 72 77 72 |ile".  T|o overwr|
|000004a0| 69 74 65 20 65 78 69 73 | 74 69 6e 67 0a 23 20 66 |ite exis|ting.# f|
|000004b0| 69 6c 65 73 2c 20 74 79 | 70 65 20 22 73 68 20 66 |iles, ty|pe "sh f|
|000004c0| 69 6c 65 20 2d 63 22 2e | 20 20 59 6f 75 20 63 61 |ile -c".|  You ca|
|000004d0| 6e 20 61 6c 73 6f 20 66 | 65 65 64 20 74 68 69 73 |n also f|eed this|
|000004e0| 20 61 73 20 73 74 61 6e | 64 61 72 64 20 69 6e 70 | as stan|dard inp|
|000004f0| 75 74 20 76 69 61 0a 23 | 20 75 6e 73 68 61 72 2c |ut via.#| unshar,|
|00000500| 20 6f 72 20 62 79 20 74 | 79 70 69 6e 67 20 22 73 | or by t|yping "s|
|00000510| 68 20 3c 66 69 6c 65 22 | 2c 20 65 2e 67 2e 2e 20 |h <file"|, e.g.. |
|00000520| 20 49 66 20 74 68 69 73 | 20 61 72 63 68 69 76 65 | If this| archive|
|00000530| 20 69 73 20 63 6f 6d 70 | 6c 65 74 65 2c 20 79 6f | is comp|lete, yo|
|00000540| 75 0a 23 20 77 69 6c 6c | 20 73 65 65 20 74 68 65 |u.# will| see the|
|00000550| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6d 65 73 73 61 | followi|ng messa|
|00000560| 67 65 20 61 74 20 74 68 | 65 20 65 6e 64 3a 0a 23 |ge at th|e end:.#|
|00000570| 09 09 22 45 6e 64 20 6f | 66 20 73 68 65 6c 6c 20 |.."End o|f shell |
|00000580| 61 72 63 68 69 76 65 2e | 22 0a 23 20 43 6f 6e 74 |archive.|".# Cont|
|00000590| 65 6e 74 73 3a 20 20 6c | 6d 61 69 6c 2e 63 0a 23 |ents:  l|mail.c.#|
|000005a0| 20 57 72 61 70 70 65 64 | 20 62 79 20 7a 65 65 66 | Wrapped| by zeef|
|000005b0| 66 40 62 2d 74 65 63 68 | 20 6f 6e 20 4d 6f 6e 20 |f@b-tech| on Mon |
|000005c0| 4f 63 74 20 31 37 20 31 | 30 3a 32 36 3a 34 30 20 |Oct 17 1|0:26:40 |
|000005d0| 31 39 38 38 0a 50 41 54 | 48 3d 2f 62 69 6e 3a 2f |1988.PAT|H=/bin:/|
|000005e0| 75 73 72 2f 62 69 6e 3a | 2f 75 73 72 2f 75 63 62 |usr/bin:|/usr/ucb|
|000005f0| 20 3b 20 65 78 70 6f 72 | 74 20 50 41 54 48 0a 69 | ; expor|t PATH.i|
|00000600| 66 20 74 65 73 74 20 2d | 66 20 6c 6d 61 69 6c 2e |f test -|f lmail.|
|00000610| 63 20 2d 61 20 22 24 7b | 31 7d 22 20 21 3d 20 22 |c -a "${|1}" != "|
|00000620| 2d 63 22 20 3b 20 74 68 | 65 6e 20 0a 20 20 65 63 |-c" ; th|en .  ec|
|00000630| 68 6f 20 73 68 61 72 3a | 20 57 69 6c 6c 20 6e 6f |ho shar:| Will no|
|00000640| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00000650| 73 74 69 6e 67 20 66 69 | 6c 65 20 5c 22 6c 6d 61 |sting fi|le \"lma|
|00000660| 69 6c 2e 63 5c 22 0a 65 | 6c 73 65 0a 65 63 68 6f |il.c\".e|lse.echo|
|00000670| 20 73 68 61 72 3a 20 45 | 78 74 72 61 63 74 69 6e | shar: E|xtractin|
|00000680| 67 20 5c 22 6c 6d 61 69 | 6c 2e 63 5c 22 20 5c 28 |g \"lmai|l.c\" \(|
|00000690| 31 35 39 38 39 20 63 68 | 61 72 61 63 74 65 72 73 |15989 ch|aracters|
|000006a0| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|000006b0| 3e 6c 6d 61 69 6c 2e 63 | 20 3c 3c 27 45 4e 44 5f |>lmail.c| <<'END_|
|000006c0| 4f 46 5f 6c 6d 61 69 6c | 2e 63 27 0a 58 2f 2a 20 |OF_lmail|.c'.X/* |
|000006d0| 23 69 64 65 6e 74 20 22 | 40 28 23 29 6c 6d 61 69 |#ident "|@(#)lmai|
|000006e0| 6c 2e 63 09 31 2e 31 2e | 31 2e 31 09 38 38 2f 30 |l.c.1.1.|1.1.88/0|
|000006f0| 39 2f 30 39 20 31 35 3a | 30 37 3a 35 32 20 22 20 |9/09 15:|07:52 " |
|00000700| 2a 2f 0a 58 2f 2a 0a 58 | 20 2a 09 6c 6d 61 69 6c |*/.X/*.X| *.lmail|
|00000710| 20 72 65 70 6c 61 63 65 | 6d 65 6e 74 20 20 56 20 | replace|ment  V |
|00000720| 32 2e 37 20 0a 58 20 2a | 0a 58 20 2a 20 43 6f 70 |2.7 .X *|.X * Cop|
|00000730| 79 72 69 67 68 74 20 31 | 39 38 38 20 4a 6f 6e 20 |yright 1|988 Jon |
|00000740| 5a 65 65 66 66 09 28 75 | 6d 69 78 21 62 2d 74 65 |Zeeff.(u|mix!b-te|
|00000750| 63 68 21 7a 65 65 66 66 | 29 0a 58 20 2a 20 55 70 |ch!zeeff|).X * Up|
|00000760| 64 61 74 65 64 20 62 79 | 20 22 47 72 65 67 20 41 |dated by| "Greg A|
|00000770| 2e 20 57 6f 6f 64 73 22 | 20 3c 75 6d 69 78 21 69 |. Woods"| <umix!i|
|00000780| 78 70 69 65 72 72 65 21 | 77 6f 6f 64 73 3e 0a 58 |xpierre!|woods>.X|
|00000790| 20 2a 0a 58 20 2a 20 50 | 65 72 6d 69 73 73 69 6f | *.X * P|ermissio|
|000007a0| 6e 20 69 73 20 67 72 61 | 6e 74 65 64 20 74 6f 20 |n is gra|nted to |
|000007b0| 75 73 65 20 74 68 69 73 | 20 69 6e 20 61 6e 79 20 |use this| in any |
|000007c0| 6d 61 6e 6e 65 72 20 70 | 72 6f 76 69 64 65 64 20 |manner p|rovided |
|000007d0| 74 68 61 74 20 20 20 20 | 0a 58 20 2a 20 31 29 20 |that    |.X * 1) |
|000007e0| 74 68 65 20 63 6f 70 79 | 72 69 67 68 74 20 6e 6f |the copy|right no|
|000007f0| 74 69 63 65 20 69 73 20 | 6c 65 66 74 20 69 6e 74 |tice is |left int|
|00000800| 61 63 74 2c 20 32 29 20 | 79 6f 75 20 64 6f 6e 27 |act, 2) |you don'|
|00000810| 74 20 68 6f 6c 64 20 6d | 65 20 0a 58 20 2a 20 72 |t hold m|e .X * r|
|00000820| 65 73 70 6f 6e 73 69 62 | 6c 65 20 66 6f 72 20 61 |esponsib|le for a|
|00000830| 6e 79 20 62 75 67 73 20 | 61 6e 64 20 33 29 20 79 |ny bugs |and 3) y|
|00000840| 6f 75 20 6d 61 69 6c 20 | 6d 65 20 61 6e 79 20 69 |ou mail |me any i|
|00000850| 6d 70 72 6f 76 65 6d 65 | 6e 74 73 20 74 68 61 74 |mproveme|nts that|
|00000860| 20 79 6f 75 20 0a 58 20 | 2a 20 6d 61 6b 65 2e 20 | you .X |* make. |
|00000870| 20 0a 58 20 2a 20 0a 58 | 20 2a 20 54 68 69 73 20 | .X * .X| * This |
|00000880| 70 72 6f 67 72 61 6d 20 | 63 61 6e 20 62 65 20 75 |program |can be u|
|00000890| 73 65 64 20 77 69 74 68 | 20 73 6d 61 69 6c 20 61 |sed with| smail a|
|000008a0| 73 20 74 68 65 20 6c 6f | 63 61 6c 20 64 65 6c 69 |s the lo|cal deli|
|000008b0| 76 65 72 79 20 61 67 65 | 6e 74 20 28 6c 6d 61 69 |very age|nt (lmai|
|000008c0| 6c 29 2e 0a 58 20 2a 20 | 49 74 27 73 20 70 72 69 |l)..X * |It's pri|
|000008d0| 6d 61 72 79 20 62 65 6e | 65 66 69 74 20 69 73 20 |mary ben|efit is |
|000008e0| 74 68 61 74 20 69 74 20 | 61 6c 6c 6f 77 73 20 66 |that it |allows f|
|000008f0| 6f 72 77 61 72 64 69 6e | 67 20 74 6f 20 70 72 6f |orwardin|g to pro|
|00000900| 67 72 61 6d 73 20 61 6e | 64 20 66 69 6c 65 73 2e |grams an|d files.|
|00000910| 0a 58 20 2a 20 49 74 20 | 61 6c 73 6f 20 61 6c 6c |.X * It |also all|
|00000920| 6f 77 73 20 75 6e 64 65 | 6c 69 76 65 72 61 62 6c |ows unde|liverabl|
|00000930| 65 20 6c 6f 63 61 6c 20 | 6d 61 69 6c 20 74 6f 20 |e local |mail to |
|00000940| 62 65 20 73 61 76 65 64 | 2e 0a 58 20 2a 20 0a 58 |be saved|..X * .X|
|00000950| 20 2a 20 43 61 75 74 69 | 6f 6e 3a 20 49 20 77 72 | * Cauti|on: I wr|
|00000960| 6f 74 65 20 74 68 69 73 | 20 66 6f 72 20 6d 79 20 |ote this| for my |
|00000970| 6f 77 6e 20 75 73 65 20 | 61 6e 64 20 69 74 20 64 |own use |and it d|
|00000980| 6f 65 73 20 77 68 61 74 | 20 49 20 77 61 6e 74 2e |oes what| I want.|
|00000990| 20 20 49 20 20 20 20 0a | 58 20 2a 20 68 61 76 65 |  I    .|X * have|
|000009a0| 6e 27 74 20 6c 6f 6f 6b | 65 64 20 69 6e 74 6f 20 |n't look|ed into |
|000009b0| 61 6c 6c 20 70 6f 72 74 | 61 62 69 6c 69 74 79 20 |all port|ability |
|000009c0| 61 6e 64 20 73 65 63 75 | 72 69 74 79 20 69 73 73 |and secu|rity iss|
|000009d0| 75 65 73 20 6e 6f 72 20 | 69 73 20 74 68 65 20 0a |ues nor |is the .|
|000009e0| 58 20 2a 20 63 6f 64 65 | 20 61 73 20 63 6c 65 61 |X * code| as clea|
|000009f0| 6e 20 61 73 20 49 20 77 | 6f 75 6c 64 20 6c 69 6b |n as I w|ould lik|
|00000a00| 65 2e 20 20 55 73 65 20 | 61 74 20 79 6f 75 72 20 |e.  Use |at your |
|00000a10| 6f 77 6e 20 72 69 73 6b | 2e 20 20 0a 58 20 2a 20 |own risk|.  .X * |
|00000a20| 0a 58 20 2a 20 4e 6f 74 | 65 20 74 68 61 74 20 61 |.X * Not|e that a|
|00000a30| 20 2e 66 77 64 20 66 69 | 6c 65 20 69 6e 20 2f 75 | .fwd fi|le in /u|
|00000a40| 73 72 2f 73 70 6f 6f 6c | 2f 75 75 63 70 70 75 62 |sr/spool|/uucppub|
|00000a50| 6c 69 63 20 69 73 20 69 | 67 6e 6f 72 65 64 20 73 |lic is i|gnored s|
|00000a60| 69 6e 63 65 20 20 20 20 | 0a 58 20 2a 20 69 74 20 |ince    |.X * it |
|00000a70| 69 73 20 75 73 75 61 6c | 6c 79 20 70 75 62 6c 69 |is usual|ly publi|
|00000a80| 63 61 6c 6c 79 20 77 72 | 69 74 61 62 6c 65 2e 20 |cally wr|itable. |
|00000a90| 20 49 66 20 79 6f 75 20 | 68 61 76 65 20 6f 74 68 | If you |have oth|
|00000aa0| 65 72 20 70 75 62 6c 69 | 63 61 6c 6c 79 20 0a 58 |er publi|cally .X|
|00000ab0| 20 2a 20 77 72 69 74 61 | 62 6c 65 20 68 6f 6d 65 | * writa|ble home|
|00000ac0| 20 64 69 72 65 63 74 6f | 72 69 65 73 2c 20 79 6f | directo|ries, yo|
|00000ad0| 75 20 6e 65 65 64 20 74 | 6f 20 63 68 61 6e 67 65 |u need t|o change|
|00000ae0| 20 74 68 69 73 20 70 72 | 6f 67 72 61 6d 20 74 6f | this pr|ogram to|
|00000af0| 20 61 6c 73 6f 20 0a 58 | 20 2a 20 65 78 63 6c 75 | also .X| * exclu|
|00000b00| 64 65 20 74 68 65 73 65 | 20 6f 74 68 65 72 20 64 |de these| other d|
|00000b10| 69 72 65 63 74 6f 72 69 | 65 73 2e 20 20 0a 58 20 |irectori|es.  .X |
|00000b20| 2a 20 0a 58 20 2a 20 54 | 68 69 73 20 70 72 6f 67 |* .X * T|his prog|
|00000b30| 72 61 6d 20 73 68 6f 75 | 6c 64 20 62 65 3a 0a 58 |ram shou|ld be:.X|
|00000b40| 20 2a 20 0a 58 20 2a 09 | 2d 72 77 73 2d 2d 78 2d | * .X *.|-rws--x-|
|00000b50| 2d 78 20 20 20 31 20 72 | 6f 6f 74 20 20 20 20 20 |-x   1 r|oot     |
|00000b60| 6d 61 69 6c 20 20 20 20 | 20 20 20 31 39 30 33 30 |mail    |   19030|
|00000b70| 20 53 65 70 20 31 34 20 | 31 32 3a 31 31 20 2f 62 | Sep 14 |12:11 /b|
|00000b80| 69 6e 2f 6c 6d 61 69 6c | 0a 58 20 2a 20 0a 58 20 |in/lmail|.X * .X |
|00000b90| 2a 20 59 6f 75 20 6e 65 | 65 64 20 74 6f 20 63 72 |* You ne|ed to cr|
|00000ba0| 65 61 74 65 20 61 6e 20 | 65 6d 70 74 79 20 66 69 |eate an |empty fi|
|00000bb0| 6c 65 20 2f 75 73 72 2f | 6d 61 69 6c 2f 2e 6c 6f |le /usr/|mail/.lo|
|00000bc0| 63 6b 0a 58 20 2a 20 61 | 6e 64 20 6c 6d 61 69 6c |ck.X * a|nd lmail|
|00000bd0| 2d 61 6c 69 61 73 65 73 | 2e 20 20 41 6c 69 61 73 |-aliases|.  Alias|
|00000be0| 65 73 20 73 68 6f 75 6c | 64 20 63 6f 6e 74 61 69 |es shoul|d contai|
|00000bf0| 6e 20 74 68 65 20 6e 61 | 6d 65 0a 58 20 2a 20 79 |n the na|me.X * y|
|00000c00| 6f 75 20 77 61 6e 74 20 | 61 6c 69 61 73 65 64 20 |ou want |aliased |
|00000c10| 66 6f 6c 6c 6f 77 65 64 | 20 62 79 20 6e 65 77 20 |followed| by new |
|00000c20| 6e 61 6d 65 28 73 29 2e | 20 20 45 67 2e 0a 58 20 |name(s).|  Eg..X |
|00000c30| 2a 20 0a 58 20 2a 09 70 | 6f 73 74 6d 61 73 74 65 |* .X *.p|ostmaste|
|00000c40| 72 20 73 61 6d 20 22 7c | 2f 75 73 72 2f 70 6f 73 |r sam "||/usr/pos|
|00000c50| 74 6d 61 73 74 65 72 2f | 70 6f 73 74 73 61 76 65 |tmaster/|postsave|
|00000c60| 72 20 2d 63 22 0a 58 20 | 2a 20 0a 58 20 2a 20 77 |r -c".X |* .X * w|
|00000c70| 69 6c 6c 20 63 61 75 73 | 65 20 6d 61 69 6c 20 74 |ill caus|e mail t|
|00000c80| 6f 20 70 6f 73 74 6d 61 | 73 74 65 72 20 74 6f 20 |o postma|ster to |
|00000c90| 67 6f 20 74 6f 20 73 61 | 6d 20 61 6e 64 20 62 65 |go to sa|m and be|
|00000ca0| 20 70 69 70 65 64 20 69 | 6e 74 6f 20 20 74 68 65 | piped i|nto  the|
|00000cb0| 20 0a 58 20 2a 20 70 72 | 6f 67 72 61 6d 20 70 6f | .X * pr|ogram po|
|00000cc0| 73 74 73 61 76 65 72 20 | 77 69 74 68 20 74 68 65 |stsaver |with the|
|00000cd0| 20 2d 63 20 6f 70 74 69 | 6f 6e 2e 20 20 42 6f 74 | -c opti|on.  Bot|
|00000ce0| 68 20 77 69 6c 6c 20 62 | 65 20 64 6f 6e 65 20 77 |h will b|e done w|
|00000cf0| 68 69 6c 65 20 73 75 69 | 64 20 0a 58 20 2a 20 4d |hile sui|d .X * M|
|00000d00| 41 49 4c 4d 41 4e 2e 0a | 58 20 2a 20 0a 58 20 2a |AILMAN..|X * .X *|
|00000d10| 20 55 73 65 72 73 20 63 | 61 6e 20 61 6c 73 6f 20 | Users c|an also |
|00000d20| 66 6f 72 77 61 72 64 20 | 6d 61 69 6c 20 77 69 74 |forward |mail wit|
|00000d30| 68 20 61 20 2e 66 77 64 | 20 66 69 6c 65 20 69 6e |h a .fwd| file in|
|00000d40| 20 74 68 65 69 72 20 68 | 6f 6d 65 20 20 20 20 0a | their h|ome    .|
|00000d50| 58 20 2a 20 64 69 72 65 | 63 74 6f 72 79 2e 20 20 |X * dire|ctory.  |
|00000d60| 54 68 69 73 20 63 6f 6e | 74 61 69 6e 73 20 6a 75 |This con|tains ju|
|00000d70| 73 74 20 6e 65 77 20 6e | 61 6d 65 73 2e 20 20 52 |st new n|ames.  R|
|00000d80| 65 66 65 72 65 6e 63 65 | 73 20 74 6f 20 66 69 6c |eference|s to fil|
|00000d90| 65 73 20 61 6e 64 20 0a | 58 20 2a 20 70 72 6f 67 |es and .|X * prog|
|00000da0| 72 61 6d 73 20 69 6e 20 | 75 73 65 72 27 73 20 2e |rams in |user's .|
|00000db0| 66 77 64 20 66 69 6c 65 | 20 77 69 6c 6c 20 62 65 |fwd file| will be|
|00000dc0| 20 65 78 65 63 75 74 65 | 64 20 73 75 69 64 20 74 | execute|d suid t|
|00000dd0| 68 61 74 20 75 73 65 72 | 2e 20 20 0a 58 20 2a 20 |hat user|.  .X * |
|00000de0| 54 68 69 73 20 69 73 20 | 61 20 73 65 63 75 72 69 |This is |a securi|
|00000df0| 74 79 20 68 6f 6c 65 20 | 69 66 20 74 68 65 20 64 |ty hole |if the d|
|00000e00| 69 72 65 63 74 6f 72 79 | 20 69 73 20 77 72 69 74 |irectory| is writ|
|00000e10| 61 62 6c 65 20 62 79 20 | 6f 74 68 65 72 73 21 0a |able by |others!.|
|00000e20| 58 20 2a 20 41 6c 73 6f | 20 62 65 20 63 61 72 65 |X * Also| be care|
|00000e30| 66 75 6c 20 77 69 74 68 | 20 2e 66 77 64 20 66 69 |ful with| .fwd fi|
|00000e40| 6c 65 73 20 77 68 65 72 | 65 20 73 65 76 65 72 61 |les wher|e severa|
|00000e50| 6c 20 69 64 73 20 73 68 | 61 72 65 20 61 20 68 6f |l ids sh|are a ho|
|00000e60| 6d 65 0a 58 20 2a 20 64 | 69 72 65 63 74 6f 72 79 |me.X * d|irectory|
|00000e70| 2e 0a 58 20 2a 20 0a 58 | 20 2a 20 54 68 69 73 20 |..X * .X| * This |
|00000e80| 70 72 6f 67 72 61 6d 20 | 77 61 73 20 77 72 69 74 |program |was writ|
|00000e90| 74 65 6e 20 66 6f 72 20 | 61 20 53 79 73 20 56 2e |ten for |a Sys V.|
|00000ea0| 32 20 6f 72 20 56 2e 33 | 20 73 79 73 74 65 6d 20 |2 or V.3| system |
|00000eb0| 72 75 6e 6e 69 6e 67 20 | 73 6d 61 69 6c 20 32 2e |running |smail 2.|
|00000ec0| 35 2e 0a 58 20 2a 20 0a | 58 20 2a 20 53 74 65 70 |5..X * .|X * Step|
|00000ed0| 20 62 79 20 73 74 65 70 | 20 69 6e 73 74 61 6c 6c | by step| install|
|00000ee0| 61 74 69 6f 6e 3a 0a 58 | 20 2a 20 0a 58 20 2a 20 |ation:.X| * .X * |
|00000ef0| 31 29 20 43 68 61 6e 67 | 65 20 4d 41 49 4c 47 49 |1) Chang|e MAILGI|
|00000f00| 44 20 64 65 66 69 6e 65 | 20 69 66 20 6d 61 69 6c |D define| if mail|
|00000f10| 20 69 73 20 6e 6f 74 20 | 67 72 6f 75 70 20 36 2e | is not |group 6.|
|00000f20| 0a 58 20 2a 20 32 29 20 | 41 64 64 20 6d 61 69 6c |.X * 2) |Add mail|
|00000f30| 6d 61 6e 20 74 6f 20 2f | 65 74 63 2f 70 61 73 73 |man to /|etc/pass|
|00000f40| 77 64 20 77 69 74 68 20 | 6e 6f 20 73 70 65 63 69 |wd with |no speci|
|00000f50| 61 6c 20 75 69 64 20 6f | 72 20 67 72 6f 75 70 2e |al uid o|r group.|
|00000f60| 0a 58 20 2a 20 33 29 20 | 43 6f 6d 70 69 6c 65 20 |.X * 3) |Compile |
|00000f70| 77 69 74 68 20 27 63 63 | 20 6c 6d 61 69 6c 2e 63 |with 'cc| lmail.c|
|00000f80| 20 2d 73 20 2d 4f 20 2d | 6f 20 6c 6d 61 69 6c 27 | -s -O -|o lmail'|
|00000f90| 0a 58 20 2a 20 34 29 20 | 43 72 65 61 74 65 20 65 |.X * 4) |Create e|
|00000fa0| 6d 70 74 79 20 66 69 6c | 65 73 20 6c 6d 61 69 6c |mpty fil|es lmail|
|00000fb0| 2d 61 6c 69 61 73 65 73 | 20 61 6e 64 20 2f 75 73 |-aliases| and /us|
|00000fc0| 72 2f 6d 61 69 6c 2f 2e | 6c 6f 63 6b 0a 58 20 2a |r/mail/.|lock.X *|
|00000fd0| 20 20 20 20 54 68 65 73 | 65 20 73 68 6f 75 6c 64 |    Thes|e should|
|00000fe0| 20 62 65 20 72 77 20 67 | 72 6f 75 70 20 6d 61 69 | be rw g|roup mai|
|00000ff0| 6c 2e 0a 58 20 2a 20 0a | 58 20 2a 20 35 29 20 49 |l..X * .|X * 5) I|
|00001000| 6e 73 74 61 6c 6c 20 61 | 73 20 2f 62 69 6e 2f 6c |nstall a|s /bin/l|
|00001010| 6d 61 69 6c 20 77 69 74 | 68 20 73 75 69 64 20 72 |mail wit|h suid r|
|00001020| 6f 6f 74 20 70 65 72 6d | 73 2e 0a 58 20 2a 20 36 |oot perm|s..X * 6|
|00001030| 29 20 54 65 73 74 20 0a | 58 20 2a 2f 0a 58 0a 58 |) Test .|X */.X.X|
|00001040| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 69 6f 2e |#include| <stdio.|
|00001050| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 6c 69 |h>.X#inc|lude <li|
|00001060| 6d 69 74 73 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |mits.h>.|X#includ|
|00001070| 65 20 3c 73 79 73 2f 74 | 79 70 65 73 2e 68 3e 0a |e <sys/t|ypes.h>.|
|00001080| 58 23 69 6e 63 6c 75 64 | 65 20 3c 70 77 64 2e 68 |X#includ|e <pwd.h|
|00001090| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 67 72 70 |>.X#incl|ude <grp|
|000010a0| 2e 68 3e 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 75 |.h>.X#in|clude <u|
|000010b0| 74 6d 70 2e 68 3e 0a 58 | 23 69 6e 63 6c 75 64 65 |tmp.h>.X|#include|
|000010c0| 20 3c 73 69 67 6e 61 6c | 2e 68 3e 0a 58 23 69 6e | <signal|.h>.X#in|
|000010d0| 63 6c 75 64 65 20 3c 63 | 74 79 70 65 2e 68 3e 0a |clude <c|type.h>.|
|000010e0| 58 23 69 6e 63 6c 75 64 | 65 20 3c 74 69 6d 65 2e |X#includ|e <time.|
|000010f0| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 73 79 |h>.X#inc|lude <sy|
|00001100| 73 2f 73 74 61 74 2e 68 | 3e 0a 58 23 69 6e 63 6c |s/stat.h|>.X#incl|
|00001110| 75 64 65 20 3c 73 65 74 | 6a 6d 70 2e 68 3e 0a 58 |ude <set|jmp.h>.X|
|00001120| 23 69 6e 63 6c 75 64 65 | 20 3c 73 79 73 2f 75 74 |#include| <sys/ut|
|00001130| 73 6e 61 6d 65 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |sname.h>|.X#inclu|
|00001140| 64 65 20 3c 73 74 72 69 | 6e 67 2e 68 3e 0a 58 0a |de <stri|ng.h>.X.|
|00001150| 58 76 6f 69 64 09 09 65 | 78 69 74 28 29 3b 0a 58 |Xvoid..e|xit();.X|
|00001160| 76 6f 69 64 09 09 5f 65 | 78 69 74 28 29 3b 0a 58 |void.._e|xit();.X|
|00001170| 75 6e 73 69 67 6e 65 64 | 20 69 6e 74 09 73 6c 65 |unsigned| int.sle|
|00001180| 65 70 28 29 3b 0a 58 74 | 69 6d 65 5f 74 09 09 74 |ep();.Xt|ime_t..t|
|00001190| 69 6d 65 28 29 3b 0a 58 | 0a 58 2f 2a 0a 58 20 2a |ime();.X|.X/*.X *|
|000011a0| 09 43 68 61 6e 67 65 20 | 74 68 65 73 65 20 64 65 |.Change |these de|
|000011b0| 66 69 6e 65 73 20 74 6f | 20 66 69 74 20 79 6f 75 |fines to| fit you|
|000011c0| 72 20 6e 65 65 64 73 0a | 58 20 2a 2f 0a 58 23 64 |r needs.|X */.X#d|
|000011d0| 65 66 69 6e 65 20 4d 41 | 58 5f 4c 49 4e 45 09 35 |efine MA|X_LINE.5|
|000011e0| 31 32 09 09 09 2f 2a 20 | 69 6e 70 75 74 20 6c 69 |12.../* |input li|
|000011f0| 6e 65 20 62 75 66 66 65 | 72 20 73 69 7a 65 20 2a |ne buffe|r size *|
|00001200| 2f 0a 58 23 64 65 66 69 | 6e 65 20 44 45 46 5f 50 |/.X#defi|ne DEF_P|
|00001210| 41 54 48 09 22 50 41 54 | 48 3d 2f 62 69 6e 3a 2f |ATH."PAT|H=/bin:/|
|00001220| 75 73 72 2f 62 69 6e 3a | 2f 75 73 72 2f 6c 62 69 |usr/bin:|/usr/lbi|
|00001230| 6e 22 0a 58 23 64 65 66 | 69 6e 65 20 4d 41 49 4c |n".X#def|ine MAIL|
|00001240| 5f 54 4d 50 46 49 4c 45 | 09 22 2f 74 6d 70 2f 72 |_TMPFILE|."/tmp/r|
|00001250| 6d 58 58 58 58 58 58 22 | 0a 58 23 64 65 66 69 6e |mXXXXXX"|.X#defin|
|00001260| 65 20 52 4f 4f 54 09 09 | 22 72 6f 6f 74 22 0a 58 |e ROOT..|"root".X|
|00001270| 23 64 65 66 69 6e 65 20 | 44 45 46 5f 49 46 53 09 |#define |DEF_IFS.|
|00001280| 09 22 49 46 53 3d 20 5c | 74 5c 6e 22 0a 58 23 64 |."IFS= \|t\n".X#d|
|00001290| 65 66 69 6e 65 20 44 45 | 46 5f 53 48 45 4c 4c 09 |efine DE|F_SHELL.|
|000012a0| 22 53 48 45 4c 4c 3d 2f | 62 69 6e 2f 73 68 22 0a |"SHELL=/|bin/sh".|
|000012b0| 58 23 64 65 66 69 6e 65 | 20 46 52 4f 4d 5f 4c 49 |X#define| FROM_LI|
|000012c0| 4e 45 09 22 46 72 6f 6d | 20 22 0a 58 23 64 65 66 |NE."From| ".X#def|
|000012d0| 69 6e 65 20 46 52 4f 4d | 5f 46 4d 54 09 22 46 72 |ine FROM|_FMT."Fr|
|000012e0| 6f 6d 20 25 73 20 25 32 | 34 2e 32 34 73 5c 6e 22 |om %s %2|4.24s\n"|
|000012f0| 0a 58 23 64 65 66 69 6e | 65 20 46 52 4f 4d 5f 50 |.X#defin|e FROM_P|
|00001300| 52 45 46 58 09 27 3e 27 | 0a 58 23 64 65 66 69 6e |REFX.'>'|.X#defin|
|00001310| 65 20 52 45 4d 4f 54 45 | 5f 46 52 4f 4d 09 22 20 |e REMOTE|_FROM." |
|00001320| 72 65 6d 6f 74 65 20 66 | 72 6f 6d 20 22 0a 58 23 |remote f|rom ".X#|
|00001330| 64 65 66 69 6e 65 20 41 | 4c 49 41 53 5f 46 49 4c |define A|LIAS_FIL|
|00001340| 45 09 22 2f 75 73 72 2f | 6c 6f 63 61 6c 2f 6c 69 |E."/usr/|local/li|
|00001350| 62 2f 6c 6d 61 69 6c 2d | 61 6c 69 61 73 65 73 22 |b/lmail-|aliases"|
|00001360| 0a 58 23 64 65 66 69 6e | 65 20 4d 41 49 4c 5f 44 |.X#defin|e MAIL_D|
|00001370| 49 52 09 22 2f 75 73 72 | 2f 6d 61 69 6c 2f 22 0a |IR."/usr|/mail/".|
|00001380| 58 23 64 65 66 69 6e 65 | 20 4c 4f 43 4b 5f 53 55 |X#define| LOCK_SU|
|00001390| 46 46 09 22 2e 6c 6f 63 | 6b 22 0a 58 23 64 65 66 |FF.".loc|k".X#def|
|000013a0| 69 6e 65 20 4c 4f 43 4b | 5f 46 49 4c 45 09 22 2f |ine LOCK|_FILE."/|
|000013b0| 75 73 72 2f 6d 61 69 6c | 2f 2e 6c 6f 63 6b 22 0a |usr/mail|/.lock".|
|000013c0| 58 23 64 65 66 69 6e 65 | 20 46 57 44 5f 4c 49 4e |X#define| FWD_LIN|
|000013d0| 45 09 22 46 6f 72 77 61 | 72 64 20 74 6f 20 22 0a |E."Forwa|rd to ".|
|000013e0| 58 23 64 65 66 69 6e 65 | 20 46 57 44 5f 46 49 4c |X#define| FWD_FIL|
|000013f0| 45 09 22 2f 2e 66 77 64 | 22 0a 58 23 64 65 66 69 |E."/.fwd|".X#defi|
|00001400| 6e 65 20 50 55 42 44 49 | 52 5f 46 57 44 09 22 2f |ne PUBDI|R_FWD."/|
|00001410| 75 73 72 2f 73 70 6f 6f | 6c 2f 75 75 63 70 70 75 |usr/spoo|l/uucppu|
|00001420| 62 6c 69 63 2f 2e 66 77 | 64 22 0a 58 23 64 65 66 |blic/.fw|d".X#def|
|00001430| 69 6e 65 20 52 45 4d 4f | 54 45 5f 4d 41 49 4c 45 |ine REMO|TE_MAILE|
|00001440| 52 09 22 2f 62 69 6e 2f | 72 6d 61 69 6c 20 25 73 |R."/bin/|rmail %s|
|00001450| 22 09 20 2f 2a 20 25 73 | 20 77 69 6c 6c 20 62 65 |". /* %s| will be|
|00001460| 20 72 65 70 6c 61 63 65 | 20 62 79 20 61 64 64 72 | replace| by addr|
|00001470| 65 73 73 20 2a 2f 0a 58 | 23 69 66 6e 64 65 66 20 |ess */.X|#ifndef |
|00001480| 50 41 54 48 5f 4d 41 58 | 0a 58 23 64 65 66 69 6e |PATH_MAX|.X#defin|
|00001490| 65 20 50 41 54 48 5f 4d | 41 58 09 31 30 32 34 0a |e PATH_M|AX.1024.|
|000014a0| 58 23 65 6e 64 69 66 0a | 58 0a 58 0a 58 0a 58 2f |X#endif.|X.X.X.X/|
|000014b0| 2a 0a 58 20 2a 20 47 49 | 44 20 6f 66 20 6d 61 69 |*.X * GI|D of mai|
|000014c0| 6c 20 66 6f 72 20 63 72 | 65 61 74 69 6e 67 20 6d |l for cr|eating m|
|000014d0| 61 69 6c 20 66 69 6c 65 | 73 20 69 6e 20 2f 75 73 |ail file|s in /us|
|000014e0| 72 2f 6d 61 69 6c 2e 20 | 49 74 27 73 20 66 61 73 |r/mail. |It's fas|
|000014f0| 74 65 72 20 74 6f 20 6a | 75 73 74 20 74 79 70 65 |ter to j|ust type|
|00001500| 0a 58 20 2a 20 69 74 20 | 69 6e 20 68 65 72 65 2c |.X * it |in here,|
|00001510| 20 61 6e 64 20 69 74 20 | 70 72 6f 62 61 62 6c 79 | and it |probably|
|00001520| 20 77 6f 6e 27 74 20 63 | 68 61 6e 67 65 20 61 6e | won't c|hange an|
|00001530| 79 77 61 79 20 28 77 65 | 20 68 6f 70 65 29 2e 0a |yway (we| hope)..|
|00001540| 58 20 2a 2f 0a 58 23 64 | 65 66 69 6e 65 20 4d 41 |X */.X#d|efine MA|
|00001550| 49 4c 47 49 44 09 09 36 | 0a 58 0a 58 2f 2a 0a 58 |ILGID..6|.X.X/*.X|
|00001560| 20 2a 20 4d 41 49 4c 4d | 41 4e 20 73 68 6f 75 6c | * MAILM|AN shoul|
|00001570| 64 20 62 65 20 61 20 75 | 73 65 72 20 69 64 20 77 |d be a u|ser id w|
|00001580| 69 74 68 20 6e 6f 20 73 | 70 65 63 69 61 6c 20 70 |ith no s|pecial p|
|00001590| 65 72 6d 69 73 73 69 6f | 6e 73 20 6f 72 20 66 69 |ermissio|ns or fi|
|000015a0| 6c 65 73 2e 20 20 4d 61 | 6b 65 0a 58 20 2a 20 73 |les.  Ma|ke.X * s|
|000015b0| 75 72 65 20 79 6f 75 20 | 61 64 64 20 61 20 2f 65 |ure you |add a /e|
|000015c0| 74 63 2f 70 61 73 73 77 | 64 20 65 6e 74 72 79 20 |tc/passw|d entry |
|000015d0| 66 6f 72 20 69 74 2c 20 | 27 63 61 75 73 65 20 49 |for it, |'cause I|
|000015e0| 27 6d 20 67 6f 69 6e 67 | 20 74 6f 20 63 68 65 63 |'m going| to chec|
|000015f0| 6b 2e 0a 58 20 2a 2f 0a | 58 23 64 65 66 69 6e 65 |k..X */.|X#define|
|00001600| 20 4d 41 49 4c 4d 41 4e | 09 09 22 6d 61 69 6c 6d | MAILMAN|.."mailm|
|00001610| 61 6e 22 09 2f 2a 20 22 | 6d 61 69 6c 6d 61 6e 22 |an"./* "|mailman"|
|00001620| 20 2a 2f 0a 58 0a 58 2f | 2a 0a 58 20 2a 20 42 41 | */.X.X/|*.X * BA|
|00001630| 44 4d 41 49 4c 20 69 73 | 20 61 20 6e 61 6d 65 20 |DMAIL is| a name |
|00001640| 74 6f 20 73 65 6e 64 20 | 61 20 63 6f 70 79 20 6f |to send |a copy o|
|00001650| 66 20 62 61 64 20 6d 61 | 69 6c 20 74 6f 2e 20 20 |f bad ma|il to.  |
|00001660| 43 61 6e 20 62 65 20 6c | 65 66 74 20 75 6e 64 65 |Can be l|eft unde|
|00001670| 66 69 6e 65 64 2e 0a 58 | 20 2a 2f 0a 58 23 64 65 |fined..X| */.X#de|
|00001680| 66 69 6e 65 20 42 41 44 | 4d 41 49 4c 09 09 22 2f |fine BAD|MAIL.."/|
|00001690| 75 73 72 2f 6d 61 69 6c | 2f 62 61 64 6d 61 69 6c |usr/mail|/badmail|
|000016a0| 22 09 2f 2a 20 22 2f 75 | 73 72 2f 6d 61 69 6c 2f |"./* "/u|sr/mail/|
|000016b0| 62 61 64 6d 61 69 6c 22 | 20 2a 2f 0a 58 0a 58 2f |badmail"| */.X.X/|
|000016c0| 2a 0a 58 20 2a 20 4d 61 | 78 69 6d 75 6d 20 73 69 |*.X * Ma|ximum si|
|000016d0| 7a 65 20 6f 66 20 61 6c | 69 61 73 69 6e 67 20 74 |ze of al|iasing t|
|000016e0| 61 62 6c 65 20 28 4e 4f | 54 45 3a 20 74 68 69 73 |able (NO|TE: this|
|000016f0| 20 75 73 65 73 20 61 20 | 6c 6f 74 20 6f 66 20 73 | uses a |lot of s|
|00001700| 70 61 63 65 21 29 0a 58 | 20 2a 2f 0a 58 23 64 65 |pace!).X| */.X#de|
|00001710| 66 69 6e 65 20 4d 41 58 | 5f 41 44 44 52 09 35 30 |fine MAX|_ADDR.50|
|00001720| 0a 58 0a 58 73 74 72 75 | 63 74 20 7b 0a 58 09 63 |.X.Xstru|ct {.X.c|
|00001730| 68 61 72 09 64 65 73 74 | 5b 4d 41 58 5f 4c 49 4e |har.dest|[MAX_LIN|
|00001740| 45 5d 3b 09 09 2f 2a 20 | 74 6f 20 77 68 6f 6d 20 |E];../* |to whom |
|00001750| 69 74 20 73 68 6f 75 6c | 64 20 67 6f 20 2a 2f 0a |it shoul|d go */.|
|00001760| 58 09 63 68 61 72 09 73 | 6f 75 72 63 65 5b 4d 41 |X.char.s|ource[MA|
|00001770| 58 5f 4c 49 4e 45 5d 3b | 09 2f 2a 20 77 68 6f 20 |X_LINE];|./* who |
|00001780| 69 74 20 69 73 20 66 72 | 6f 6d 20 2a 2f 0a 58 09 |it is fr|om */.X.|
|00001790| 63 68 61 72 09 75 73 65 | 72 5b 4d 41 58 5f 4c 49 |char.use|r[MAX_LI|
|000017a0| 4e 45 5d 3b 20 09 2f 2a | 20 75 73 65 72 20 74 6f |NE]; ./*| user to|
|000017b0| 20 73 75 69 64 20 74 6f | 20 66 6f 72 20 27 7c 27 | suid to| for '|'|
|000017c0| 20 61 6e 64 20 66 69 6c | 65 73 20 2a 2f 0a 58 7d | and fil|es */.X}|
|000017d0| 20 74 61 62 6c 65 5b 4d | 41 58 5f 41 44 44 52 5d | table[M|AX_ADDR]|
|000017e0| 3b 0a 58 0a 58 63 68 61 | 72 09 09 2a 74 68 69 73 |;.X.Xcha|r..*this|
|000017f0| 73 79 73 3b 09 09 2f 2a | 20 54 68 69 73 20 73 79 |sys;../*| This sy|
|00001800| 73 74 65 6d 27 73 20 6e | 61 6d 65 20 2a 2f 0a 58 |stem's n|ame */.X|
|00001810| 46 49 4c 45 09 09 2a 6d | 61 69 6c 66 69 6c 65 3b |FILE..*m|ailfile;|
|00001820| 09 09 2f 2a 20 46 49 4c | 45 20 70 6f 69 6e 74 65 |../* FIL|E pointe|
|00001830| 72 20 66 6f 72 20 6d 61 | 69 6c 62 6f 78 20 2a 2f |r for ma|ilbox */|
|00001840| 0a 58 69 6e 74 09 09 6e | 75 6d 5f 61 64 64 72 65 |.Xint..n|um_addre|
|00001850| 73 73 65 73 3b 0a 58 6c | 6f 6e 67 09 09 69 6f 70 |sses;.Xl|ong..iop|
|00001860| 3b 0a 58 73 74 72 75 63 | 74 20 75 74 73 6e 61 6d |;.Xstruc|t utsnam|
|00001870| 65 09 75 74 73 6e 3b 0a | 58 73 74 72 75 63 74 20 |e.utsn;.|Xstruct |
|00001880| 70 61 73 73 77 64 09 2a | 70 77 64 3b 0a 58 73 74 |passwd.*|pwd;.Xst|
|00001890| 72 75 63 74 20 70 61 73 | 73 77 64 09 2a 70 77 64 |ruct pas|swd.*pwd|
|000018a0| 5f 6d 61 69 6c 6d 61 6e | 3b 0a 58 0a 58 73 74 72 |_mailman|;.X.Xstr|
|000018b0| 75 63 74 20 70 61 73 73 | 77 64 09 2a 67 65 74 70 |uct pass|wd.*getp|
|000018c0| 77 6e 61 6d 28 29 3b 0a | 58 46 49 4c 45 09 09 2a |wnam();.|XFILE..*|
|000018d0| 66 6f 70 65 6e 28 29 3b | 0a 58 75 6e 73 69 67 6e |fopen();|.Xunsign|
|000018e0| 65 64 20 73 68 6f 72 74 | 09 67 65 74 75 69 64 28 |ed short|.getuid(|
|000018f0| 29 3b 0a 58 63 68 61 72 | 09 09 2a 6d 6b 74 65 6d |);.Xchar|..*mktem|
|00001900| 70 28 29 3b 0a 58 46 49 | 4c 45 09 09 2a 70 6f 70 |p();.XFI|LE..*pop|
|00001910| 65 6e 28 29 3b 0a 58 0a | 58 76 6f 69 64 09 09 61 |en();.X.|Xvoid..a|
|00001920| 6c 69 61 73 28 29 3b 0a | 58 76 6f 69 64 09 09 63 |lias();.|Xvoid..c|
|00001930| 6f 70 79 28 29 3b 0a 58 | 76 6f 69 64 09 09 6c 6f |opy();.X|void..lo|
|00001940| 63 6b 28 29 3b 0a 58 76 | 6f 69 64 09 09 75 6e 6c |ck();.Xv|oid..unl|
|00001950| 6f 63 6b 28 29 3b 0a 58 | 0a 58 2f 2a 20 41 52 47 |ock();.X|.X/* ARG|
|00001960| 53 55 53 45 44 20 2a 2f | 0a 58 69 6e 74 0a 58 6d |SUSED */|.Xint.Xm|
|00001970| 61 69 6e 28 61 72 67 63 | 2c 20 61 72 67 76 2c 20 |ain(argc|, argv, |
|00001980| 65 6e 76 70 29 0a 58 09 | 69 6e 74 09 61 72 67 63 |envp).X.|int.argc|
|00001990| 3b 0a 58 09 63 68 61 72 | 09 2a 61 72 67 76 5b 5d |;.X.char|.*argv[]|
|000019a0| 3b 0a 58 09 63 68 61 72 | 09 2a 65 6e 76 70 5b 5d |;.X.char|.*envp[]|
|000019b0| 3b 0a 58 7b 0a 58 09 63 | 68 61 72 09 2a 61 64 64 |;.X{.X.c|har.*add|
|000019c0| 72 65 73 73 3b 0a 58 09 | 63 68 61 72 09 66 72 6f |ress;.X.|char.fro|
|000019d0| 6d 5b 4d 41 58 5f 4c 49 | 4e 45 5d 3b 09 09 2f 2a |m[MAX_LI|NE];../*|
|000019e0| 20 4f 72 69 67 69 6e 61 | 6c 20 61 75 74 68 6f 72 | Origina|l author|
|000019f0| 20 2a 2f 0a 58 09 63 68 | 61 72 09 6c 69 6e 65 5b | */.X.ch|ar.line[|
|00001a00| 4d 41 58 5f 4c 49 4e 45 | 5d 3b 0a 58 09 69 6e 74 |MAX_LINE|];.X.int|
|00001a10| 09 69 3b 0a 58 09 69 6e | 74 09 65 72 72 6f 72 5f |.i;.X.in|t.error_|
|00001a20| 66 6c 61 67 20 3d 20 30 | 3b 0a 58 09 63 68 61 72 |flag = 0|;.X.char|
|00001a30| 09 2a 70 74 72 3b 0a 58 | 0a 58 09 73 74 61 74 69 |.*ptr;.X|.X.stati|
|00001a40| 63 20 63 68 61 72 09 74 | 65 6d 70 66 6e 61 6d 65 |c char.t|empfname|
|00001a50| 5b 5d 20 3d 20 4d 41 49 | 4c 5f 54 4d 50 46 49 4c |[] = MAI|L_TMPFIL|
|00001a60| 45 3b 0a 58 0a 58 09 69 | 66 20 28 61 72 67 63 20 |E;.X.X.i|f (argc |
|00001a70| 3c 20 32 29 0a 58 09 09 | 65 78 69 74 28 31 29 3b |< 2).X..|exit(1);|
|00001a80| 09 2f 2a 20 72 65 74 75 | 72 6e 20 65 72 72 6f 72 |./* retu|rn error|
|00001a90| 20 69 66 20 6e 6f 74 20 | 61 74 20 6c 65 61 73 74 | if not |at least|
|00001aa0| 20 31 20 61 64 64 72 65 | 73 73 20 2a 2f 0a 58 09 | 1 addre|ss */.X.|
|00001ab0| 75 6d 61 73 6b 28 30 30 | 36 29 3b 09 09 2f 2a 20 |umask(00|6);../* |
|00001ac0| 6d 61 69 6c 20 66 69 6c | 65 73 20 4d 55 53 54 20 |mail fil|es MUST |
|00001ad0| 62 65 20 67 72 6f 75 70 | 20 77 72 69 74 65 2d 61 |be group| write-a|
|00001ae0| 62 6c 65 20 2a 2f 0a 58 | 09 75 6e 61 6d 65 28 26 |ble */.X|.uname(&|
|00001af0| 75 74 73 6e 29 3b 0a 58 | 09 2f 2a 0a 58 09 20 2a |utsn);.X|./*.X. *|
|00001b00| 20 49 66 20 62 65 69 6e | 67 20 66 65 64 20 66 72 | If bein|g fed fr|
|00001b10| 6f 6d 20 61 20 70 69 70 | 65 2c 20 63 6f 70 79 20 |om a pip|e, copy |
|00001b20| 74 6f 20 61 20 74 65 6d | 70 20 66 69 6c 65 20 73 |to a tem|p file s|
|00001b30| 6f 20 77 65 20 63 61 6e | 20 72 65 77 69 6e 64 0a |o we can| rewind.|
|00001b40| 58 09 20 2a 2f 0a 58 09 | 69 66 20 28 66 73 65 65 |X. */.X.|if (fsee|
|00001b50| 6b 28 73 74 64 69 6e 2c | 20 30 4c 2c 20 30 29 20 |k(stdin,| 0L, 0) |
|00001b60| 21 3d 20 30 29 20 7b 0a | 58 09 09 6d 61 69 6c 66 |!= 0) {.|X..mailf|
|00001b70| 69 6c 65 20 3d 20 66 6f | 70 65 6e 28 6d 6b 74 65 |ile = fo|pen(mkte|
|00001b80| 6d 70 28 74 65 6d 70 66 | 6e 61 6d 65 29 2c 20 22 |mp(tempf|name), "|
|00001b90| 77 2b 22 29 3b 0a 58 09 | 09 75 6e 6c 69 6e 6b 28 |w+");.X.|.unlink(|
|00001ba0| 74 65 6d 70 66 6e 61 6d | 65 29 3b 09 09 2f 2a 20 |tempfnam|e);../* |
|00001bb0| 69 74 27 6c 6c 20 62 65 | 20 67 6f 6e 65 20 77 68 |it'll be| gone wh|
|00001bc0| 65 6e 20 77 65 20 61 72 | 65 20 2a 2f 0a 58 09 09 |en we ar|e */.X..|
|00001bd0| 69 66 20 28 6d 61 69 6c | 66 69 6c 65 20 3d 3d 20 |if (mail|file == |
|00001be0| 4e 55 4c 4c 29 20 7b 0a | 58 09 09 09 28 76 6f 69 |NULL) {.|X...(voi|
|00001bf0| 64 29 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |d) fprin|tf(stder|
|00001c00| 72 2c 20 22 43 61 6e 27 | 74 20 63 72 65 61 74 65 |r, "Can'|t create|
|00001c10| 20 74 65 6d 70 20 66 69 | 6c 65 20 2d 20 6e 6f 20 | temp fi|le - no |
|00001c20| 6d 61 69 6c 20 64 65 6c | 69 76 65 72 65 64 5c 6e |mail del|ivered\n|
|00001c30| 22 29 3b 0a 58 09 09 09 | 65 78 69 74 28 33 29 3b |");.X...|exit(3);|
|00001c40| 0a 58 09 09 7d 0a 58 09 | 09 77 68 69 6c 65 20 28 |.X..}.X.|.while (|
|00001c50| 66 67 65 74 73 28 6c 69 | 6e 65 2c 20 4d 41 58 5f |fgets(li|ne, MAX_|
|00001c60| 4c 49 4e 45 2c 20 73 74 | 64 69 6e 29 20 21 3d 20 |LINE, st|din) != |
|00001c70| 4e 55 4c 4c 29 20 7b 0a | 58 09 09 09 69 66 20 28 |NULL) {.|X...if (|
|00001c80| 66 70 75 74 73 28 6c 69 | 6e 65 2c 20 6d 61 69 6c |fputs(li|ne, mail|
|00001c90| 66 69 6c 65 29 20 3d 3d | 20 45 4f 46 29 20 7b 0a |file) ==| EOF) {.|
|00001ca0| 58 09 09 09 09 28 76 6f | 69 64 29 20 66 70 72 69 |X....(vo|id) fpri|
|00001cb0| 6e 74 66 28 73 74 64 65 | 72 72 2c 20 22 43 61 6e |ntf(stde|rr, "Can|
|00001cc0| 27 74 20 77 72 69 74 65 | 20 74 65 6d 70 20 66 69 |'t write| temp fi|
|00001cd0| 6c 65 20 2d 20 6e 6f 20 | 6d 61 69 6c 20 64 65 6c |le - no |mail del|
|00001ce0| 69 76 65 72 65 64 5c 6e | 22 29 3b 0a 58 09 09 09 |ivered\n|");.X...|
|00001cf0| 09 65 78 69 74 28 33 29 | 3b 0a 58 09 09 09 7d 0a |.exit(3)|;.X...}.|
|00001d00| 58 09 09 7d 0a 58 09 09 | 72 65 77 69 6e 64 28 6d |X..}.X..|rewind(m|
|00001d10| 61 69 6c 66 69 6c 65 29 | 3b 0a 58 09 7d 20 65 6c |ailfile)|;.X.} el|
|00001d20| 73 65 0a 58 09 09 6d 61 | 69 6c 66 69 6c 65 20 3d |se.X..ma|ilfile =|
|00001d30| 20 73 74 64 69 6e 3b 0a | 58 09 74 68 69 73 73 79 | stdin;.|X.thissy|
|00001d40| 73 20 3d 20 75 74 73 6e | 2e 6e 6f 64 65 6e 61 6d |s = utsn|.nodenam|
|00001d50| 65 3b 0a 58 09 69 66 20 | 28 28 70 77 64 5f 6d 61 |e;.X.if |((pwd_ma|
|00001d60| 69 6c 6d 61 6e 20 3d 20 | 67 65 74 70 77 6e 61 6d |ilman = |getpwnam|
|00001d70| 28 4d 41 49 4c 4d 41 4e | 29 29 20 3d 3d 20 4e 55 |(MAILMAN|)) == NU|
|00001d80| 4c 4c 29 20 7b 0a 58 09 | 09 28 76 6f 69 64 29 20 |LL) {.X.|.(void) |
|00001d90| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00001da0| 22 2a 2a 2a 20 45 72 72 | 6f 72 20 2d 20 63 61 6e |"*** Err|or - can|
|00001db0| 27 74 20 66 69 6e 64 20 | 6d 61 69 6c 6d 61 6e 20 |'t find |mailman |
|00001dc0| 75 69 64 5c 6e 22 29 3b | 0a 58 09 09 65 78 69 74 |uid\n");|.X..exit|
|00001dd0| 28 37 29 3b 0a 58 09 7d | 0a 58 09 74 69 6d 65 28 |(7);.X.}|.X.time(|
|00001de0| 26 69 6f 70 29 3b 0a 58 | 09 70 75 74 65 6e 76 28 |&iop);.X|.putenv(|
|00001df0| 44 45 46 5f 50 41 54 48 | 29 3b 0a 58 09 70 75 74 |DEF_PATH|);.X.put|
|00001e00| 65 6e 76 28 44 45 46 5f | 49 46 53 29 3b 0a 58 09 |env(DEF_|IFS);.X.|
|00001e10| 70 75 74 65 6e 76 28 44 | 45 46 5f 53 48 45 4c 4c |putenv(D|EF_SHELL|
|00001e20| 29 3b 0a 58 09 2f 2a 0a | 58 09 20 2a 20 47 65 74 |);.X./*.|X. * Get|
|00001e30| 20 74 68 65 20 46 72 6f | 6d 5f 20 6c 69 6e 65 20 | the Fro|m_ line |
|00001e40| 66 6f 72 20 74 68 65 20 | 61 75 74 68 6f 72 20 2d |for the |author -|
|00001e50| 20 61 73 73 75 6d 65 20 | 73 6d 61 69 6c 20 68 61 | assume |smail ha|
|00001e60| 73 20 66 6f 6c 64 65 64 | 20 69 74 0a 58 09 20 2a |s folded| it.X. *|
|00001e70| 2f 0a 58 09 66 72 6f 6d | 5b 30 5d 20 3d 20 27 5c |/.X.from|[0] = '\|
|00001e80| 30 27 3b 0a 58 09 66 67 | 65 74 73 28 6c 69 6e 65 |0';.X.fg|ets(line|
|00001e90| 2c 20 4d 41 58 5f 4c 49 | 4e 45 2c 20 6d 61 69 6c |, MAX_LI|NE, mail|
|00001ea0| 66 69 6c 65 29 3b 0a 58 | 09 72 65 77 69 6e 64 28 |file);.X|.rewind(|
|00001eb0| 6d 61 69 6c 66 69 6c 65 | 29 3b 0a 58 09 69 66 20 |mailfile|);.X.if |
|00001ec0| 28 73 74 72 6e 63 6d 70 | 28 6c 69 6e 65 2c 20 46 |(strncmp|(line, F|
|00001ed0| 52 4f 4d 5f 4c 49 4e 45 | 2c 20 73 69 7a 65 6f 66 |ROM_LINE|, sizeof|
|00001ee0| 28 46 52 4f 4d 5f 4c 49 | 4e 45 29 20 2d 20 31 29 |(FROM_LI|NE) - 1)|
|00001ef0| 20 21 3d 20 30 29 20 7b | 0a 58 09 09 28 76 6f 69 | != 0) {|.X..(voi|
|00001f00| 64 29 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |d) fprin|tf(stder|
|00001f10| 72 2c 20 22 2a 2a 2a 20 | 45 72 72 6f 72 20 2d 20 |r, "*** |Error - |
|00001f20| 6d 61 69 6c 20 69 73 20 | 69 6e 20 69 6e 63 6f 72 |mail is |in incor|
|00001f30| 72 65 63 74 20 66 6f 72 | 6d 61 74 5c 6e 22 29 3b |rect for|mat\n");|
|00001f40| 0a 58 09 09 65 78 69 74 | 28 32 29 3b 0a 58 09 7d |.X..exit|(2);.X.}|
|00001f50| 0a 58 09 2f 2a 0a 58 09 | 20 2a 20 49 66 20 72 65 |.X./*.X.| * If re|
|00001f60| 6d 6f 74 65 20 66 72 6f | 6d 20 65 78 69 73 74 73 |mote fro|m exists|
|00001f70| 2c 20 74 68 65 6e 20 69 | 6e 63 6c 75 64 65 20 74 |, then i|nclude t|
|00001f80| 68 61 74 20 73 69 74 65 | 20 6e 61 6d 65 20 69 6e |hat site| name in|
|00001f90| 20 61 64 64 72 65 73 73 | 20 73 6f 20 74 68 61 74 | address| so that|
|00001fa0| 0a 58 09 20 2a 20 74 68 | 65 72 65 20 69 73 20 6e |.X. * th|ere is n|
|00001fb0| 6f 20 72 65 6d 6f 74 65 | 20 66 72 6f 6d 20 6f 6e |o remote| from on|
|00001fc0| 20 74 68 65 20 65 6e 64 | 0a 58 09 20 2a 2f 0a 58 | the end|.X. */.X|
|00001fd0| 09 70 74 72 20 3d 20 73 | 74 72 72 63 68 72 28 6c |.ptr = s|trrchr(l|
|00001fe0| 69 6e 65 2c 20 27 20 27 | 29 20 2d 20 31 3b 0a 58 |ine, ' '|) - 1;.X|
|00001ff0| 09 77 68 69 6c 65 20 28 | 2a 70 74 72 20 21 3d 20 |.while (|*ptr != |
|00002000| 27 20 27 29 0a 58 09 09 | 2d 2d 70 74 72 3b 0a 58 |' ').X..|--ptr;.X|
|00002010| 09 2d 2d 70 74 72 3b 0a | 58 09 77 68 69 6c 65 20 |.--ptr;.|X.while |
|00002020| 28 2a 70 74 72 20 21 3d | 20 27 20 27 29 0a 58 09 |(*ptr !=| ' ').X.|
|00002030| 09 2d 2d 70 74 72 3b 0a | 58 09 69 66 20 28 73 74 |.--ptr;.|X.if (st|
|00002040| 72 6e 63 6d 70 28 70 74 | 72 2c 20 52 45 4d 4f 54 |rncmp(pt|r, REMOT|
|00002050| 45 5f 46 52 4f 4d 2c 20 | 73 69 7a 65 6f 66 28 52 |E_FROM, |sizeof(R|
|00002060| 45 4d 4f 54 45 5f 46 52 | 4f 4d 29 20 2d 20 31 29 |EMOTE_FR|OM) - 1)|
|00002070| 20 3d 3d 20 30 29 20 7b | 0a 58 09 09 28 76 6f 69 | == 0) {|.X..(voi|
|00002080| 64 29 20 73 74 72 63 61 | 74 28 66 72 6f 6d 2c 20 |d) strca|t(from, |
|00002090| 73 74 72 72 63 68 72 28 | 6c 69 6e 65 2c 20 27 20 |strrchr(|line, ' |
|000020a0| 27 29 20 2b 20 31 29 3b | 0a 58 09 09 2a 28 73 74 |') + 1);|.X..*(st|
|000020b0| 72 72 63 68 72 28 66 72 | 6f 6d 2c 20 27 5c 6e 27 |rrchr(fr|om, '\n'|
|000020c0| 29 29 20 3d 20 27 21 27 | 3b 0a 58 09 7d 0a 58 09 |)) = '!'|;.X.}.X.|
|000020d0| 28 76 6f 69 64 29 20 73 | 74 72 63 61 74 28 66 72 |(void) s|trcat(fr|
|000020e0| 6f 6d 2c 20 73 74 72 63 | 68 72 28 6c 69 6e 65 2c |om, strc|hr(line,|
|000020f0| 20 27 20 27 29 20 2b 20 | 31 29 3b 0a 58 09 2a 28 | ' ') + |1);.X.*(|
|00002100| 73 74 72 63 68 72 28 66 | 72 6f 6d 2c 20 27 20 27 |strchr(f|rom, ' '|
|00002110| 29 29 20 3d 20 27 5c 30 | 27 3b 0a 58 09 2f 2a 0a |)) = '\0|';.X./*.|
|00002120| 58 09 20 2a 20 50 75 74 | 20 74 68 65 20 66 69 72 |X. * Put| the fir|
|00002130| 73 74 20 65 6e 74 72 79 | 73 20 69 6e 74 6f 20 74 |st entry|s into t|
|00002140| 68 65 20 61 6c 69 61 73 | 69 6e 67 20 74 61 62 6c |he alias|ing tabl|
|00002150| 65 0a 58 09 20 2a 2f 0a | 58 09 2d 2d 61 72 67 63 |e.X. */.|X.--argc|
|00002160| 3b 0a 58 09 66 6f 72 20 | 28 6e 75 6d 5f 61 64 64 |;.X.for |(num_add|
|00002170| 72 65 73 73 65 73 20 3d | 20 30 3b 20 6e 75 6d 5f |resses =| 0; num_|
|00002180| 61 64 64 72 65 73 73 65 | 73 20 3c 20 61 72 67 63 |addresse|s < argc|
|00002190| 3b 20 2b 2b 6e 75 6d 5f | 61 64 64 72 65 73 73 65 |; ++num_|addresse|
|000021a0| 73 29 20 7b 0a 58 09 09 | 61 64 64 72 65 73 73 20 |s) {.X..|address |
|000021b0| 3d 20 61 72 67 76 5b 6e | 75 6d 5f 61 64 64 72 65 |= argv[n|um_addre|
|000021c0| 73 73 65 73 2b 31 5d 3b | 0a 58 09 09 69 66 20 28 |sses+1];|.X..if (|
|000021d0| 70 74 72 20 3d 20 73 74 | 72 63 68 72 28 61 64 64 |ptr = st|rchr(add|
|000021e0| 72 65 73 73 2c 20 27 20 | 27 29 29 0a 58 09 09 09 |ress, ' |')).X...|
|000021f0| 2a 70 74 72 20 3d 20 27 | 5c 30 27 3b 09 2f 2a 20 |*ptr = '|\0';./* |
|00002200| 52 65 6d 6f 76 65 20 74 | 72 61 69 6c 69 6e 67 20 |Remove t|railing |
|00002210| 73 70 61 63 65 73 20 2a | 2f 0a 58 09 09 2f 2a 0a |spaces *|/.X../*.|
|00002220| 58 09 09 20 2a 20 4d 61 | 69 6c 69 6e 67 20 74 6f |X.. * Ma|iling to|
|00002230| 20 66 69 6c 65 20 6f 72 | 20 70 72 6f 67 72 61 6d | file or| program|
|00002240| 20 69 73 20 69 6c 6c 65 | 67 61 6c 20 61 74 20 74 | is ille|gal at t|
|00002250| 68 69 73 20 70 6f 69 6e | 74 20 57 65 0a 58 09 09 |his poin|t We.X..|
|00002260| 20 2a 20 63 61 6e 27 74 | 20 68 61 76 65 20 6f 75 | * can't| have ou|
|00002270| 74 73 69 64 65 72 73 20 | 6d 61 69 6c 69 6e 67 20 |tsiders |mailing |
|00002280| 64 69 72 65 63 74 6c 79 | 20 74 6f 20 66 69 6c 65 |directly| to file|
|00002290| 73 0a 58 09 09 20 2a 2f | 0a 58 09 09 69 66 20 28 |s.X.. */|.X..if (|
|000022a0| 61 64 64 72 65 73 73 5b | 30 5d 20 3d 3d 20 27 2f |address[|0] == '/|
|000022b0| 27 20 7c 7c 20 61 64 64 | 72 65 73 73 5b 30 5d 20 |' || add|ress[0] |
|000022c0| 3d 3d 20 27 7c 27 29 0a | 58 09 09 09 65 78 69 74 |== '|').|X...exit|
|000022d0| 28 31 29 3b 0a 58 09 09 | 28 76 6f 69 64 29 20 73 |(1);.X..|(void) s|
|000022e0| 74 72 63 70 79 28 74 61 | 62 6c 65 5b 6e 75 6d 5f |trcpy(ta|ble[num_|
|000022f0| 61 64 64 72 65 73 73 65 | 73 5d 2e 64 65 73 74 2c |addresse|s].dest,|
|00002300| 20 61 64 64 72 65 73 73 | 29 3b 0a 58 09 09 28 76 | address|);.X..(v|
|00002310| 6f 69 64 29 20 73 74 72 | 63 70 79 28 74 61 62 6c |oid) str|cpy(tabl|
|00002320| 65 5b 6e 75 6d 5f 61 64 | 64 72 65 73 73 65 73 5d |e[num_ad|dresses]|
|00002330| 2e 73 6f 75 72 63 65 2c | 20 66 72 6f 6d 29 3b 0a |.source,| from);.|
|00002340| 58 09 09 28 76 6f 69 64 | 29 20 73 74 72 63 70 79 |X..(void|) strcpy|
|00002350| 28 74 61 62 6c 65 5b 6e | 75 6d 5f 61 64 64 72 65 |(table[n|um_addre|
|00002360| 73 73 65 73 5d 2e 75 73 | 65 72 2c 20 4d 41 49 4c |sses].us|er, MAIL|
|00002370| 4d 41 4e 29 3b 0a 58 09 | 7d 0a 58 09 61 6c 69 61 |MAN);.X.|}.X.alia|
|00002380| 73 28 29 3b 09 09 09 2f | 2a 20 65 78 70 61 6e 64 |s();.../|* expand|
|00002390| 20 61 64 64 72 65 73 73 | 20 72 65 63 75 72 73 69 | address| recursi|
|000023a0| 76 65 6c 79 20 2a 2f 0a | 58 09 73 69 67 6e 61 6c |vely */.|X.signal|
|000023b0| 28 53 49 47 48 55 50 2c | 20 53 49 47 5f 49 47 4e |(SIGHUP,| SIG_IGN|
|000023c0| 29 3b 0a 58 09 73 69 67 | 6e 61 6c 28 53 49 47 49 |);.X.sig|nal(SIGI|
|000023d0| 4e 54 2c 20 53 49 47 5f | 49 47 4e 29 3b 0a 58 09 |NT, SIG_|IGN);.X.|
|000023e0| 73 69 67 6e 61 6c 28 53 | 49 47 51 55 49 54 2c 20 |signal(S|IGQUIT, |
|000023f0| 53 49 47 5f 49 47 4e 29 | 3b 0a 58 09 2f 2a 0a 58 |SIG_IGN)|;.X./*.X|
|00002400| 09 20 2a 20 4e 6f 77 20 | 64 65 6c 69 76 65 72 20 |. * Now |deliver |
|00002410| 74 68 65 6d 0a 58 09 20 | 2a 2f 0a 58 09 66 6f 72 |them.X. |*/.X.for|
|00002420| 20 28 69 20 3d 20 30 3b | 20 69 20 3c 20 6e 75 6d | (i = 0;| i < num|
|00002430| 5f 61 64 64 72 65 73 73 | 65 73 3b 20 69 2b 2b 29 |_address|es; i++)|
|00002440| 20 7b 0a 58 09 09 69 66 | 20 28 2a 28 74 61 62 6c | {.X..if| (*(tabl|
|00002450| 65 5b 69 5d 2e 73 6f 75 | 72 63 65 29 20 21 3d 20 |e[i].sou|rce) != |
|00002460| 27 5c 30 27 29 09 2f 2a | 20 69 66 20 6e 6f 74 20 |'\0')./*| if not |
|00002470| 64 65 6c 65 74 65 64 20 | 2a 2f 0a 58 09 09 09 65 |deleted |*/.X...e|
|00002480| 72 72 6f 72 5f 66 6c 61 | 67 20 7c 3d 20 64 65 6c |rror_fla|g |= del|
|00002490| 69 76 65 72 28 6d 61 69 | 6c 66 69 6c 65 2c 20 66 |iver(mai|lfile, f|
|000024a0| 72 6f 6d 2c 20 74 61 62 | 6c 65 5b 69 5d 2e 64 65 |rom, tab|le[i].de|
|000024b0| 73 74 2c 20 74 61 62 6c | 65 5b 69 5d 2e 75 73 65 |st, tabl|e[i].use|
|000024c0| 72 29 3b 0a 58 09 7d 0a | 58 23 69 66 64 65 66 20 |r);.X.}.|X#ifdef |
|000024d0| 42 41 44 4d 41 49 4c 0a | 58 09 69 66 20 28 65 72 |BADMAIL.|X.if (er|
|000024e0| 72 6f 72 5f 66 6c 61 67 | 29 0a 58 09 09 64 65 6c |ror_flag|).X..del|
|000024f0| 69 76 65 72 28 6d 61 69 | 6c 66 69 6c 65 2c 20 66 |iver(mai|lfile, f|
|00002500| 72 6f 6d 2c 20 42 41 44 | 4d 41 49 4c 2c 20 52 4f |rom, BAD|MAIL, RO|
|00002510| 4f 54 29 3b 0a 58 23 65 | 6e 64 69 66 0a 58 09 2f |OT);.X#e|ndif.X./|
|00002520| 2a 0a 58 09 20 2a 20 52 | 65 61 6c 69 7a 65 20 68 |*.X. * R|ealize h|
|00002530| 65 72 65 20 74 68 61 74 | 20 69 66 20 74 68 65 72 |ere that| if ther|
|00002540| 65 20 69 73 20 61 6e 79 | 20 6b 69 6e 64 20 6f 66 |e is any| kind of|
|00002550| 20 65 72 72 6f 72 2c 20 | 73 6d 61 69 6c 20 77 69 | error, |smail wi|
|00002560| 6c 6c 20 72 65 74 75 72 | 6e 0a 58 09 20 2a 20 6d |ll retur|n.X. * m|
|00002570| 61 69 6c 20 74 6f 20 74 | 68 65 20 61 75 74 68 6f |ail to t|he autho|
|00002580| 72 2e 20 20 45 76 65 6e | 20 69 66 20 74 68 65 20 |r.  Even| if the |
|00002590| 65 72 72 6f 72 20 77 61 | 73 20 6f 6e 20 74 68 65 |error wa|s on the|
|000025a0| 20 70 61 72 74 20 6f 66 | 20 73 6f 6d 65 0a 58 09 | part of| some.X.|
|000025b0| 20 2a 20 6c 6f 63 61 6c | 20 75 73 65 72 20 77 68 | * local| user wh|
|000025c0| 6f 20 64 69 64 20 61 6e | 20 61 6c 69 61 73 20 77 |o did an| alias w|
|000025d0| 72 6f 6e 67 2e 0a 58 09 | 20 2a 2f 0a 58 09 72 65 |rong..X.| */.X.re|
|000025e0| 74 75 72 6e 28 65 72 72 | 6f 72 5f 66 6c 61 67 29 |turn(err|or_flag)|
|000025f0| 3b 0a 58 7d 0a 58 0a 58 | 0a 58 2f 2a 0a 58 20 2a |;.X}.X.X|.X/*.X *|
|00002600| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 72 65 | This ro|utine re|
|00002610| 63 75 72 73 69 76 65 6c | 79 20 61 6c 69 61 73 65 |cursivel|y aliase|
|00002620| 73 20 61 6e 20 61 64 64 | 72 65 73 73 20 63 72 65 |s an add|ress cre|
|00002630| 61 74 69 6e 67 20 61 20 | 74 61 62 6c 65 20 6f 66 |ating a |table of|
|00002640| 20 61 64 64 72 65 73 73 | 65 73 2e 0a 58 20 2a 2f | address|es..X */|
|00002650| 0a 58 76 6f 69 64 0a 58 | 61 6c 69 61 73 28 29 0a |.Xvoid.X|alias().|
|00002660| 58 7b 0a 58 09 46 49 4c | 45 09 09 2a 69 6e 5f 66 |X{.X.FIL|E..*in_f|
|00002670| 69 6c 65 3b 0a 58 09 69 | 6e 74 09 09 69 3b 0a 58 |ile;.X.i|nt..i;.X|
|00002680| 09 69 6e 74 09 09 6a 3b | 0a 58 09 63 68 61 72 09 |.int..j;|.X.char.|
|00002690| 09 2a 70 3b 0a 58 09 63 | 68 61 72 09 09 2a 70 32 |.*p;.X.c|har..*p2|
|000026a0| 3b 0a 58 09 63 68 61 72 | 09 09 6f 77 6e 65 72 5b |;.X.char|..owner[|
|000026b0| 4d 41 58 5f 4c 49 4e 45 | 5d 3b 0a 58 09 63 68 61 |MAX_LINE|];.X.cha|
|000026c0| 72 09 09 66 69 6c 65 5b | 50 41 54 48 5f 4d 41 58 |r..file[|PATH_MAX|
|000026d0| 5d 3b 0a 58 09 63 68 61 | 72 09 09 6c 69 6e 65 5b |];.X.cha|r..line[|
|000026e0| 4d 41 58 5f 4c 49 4e 45 | 5d 3b 0a 58 09 46 49 4c |MAX_LINE|];.X.FIL|
|000026f0| 45 09 09 2a 61 6c 69 61 | 73 65 73 3b 0a 58 09 73 |E..*alia|ses;.X.s|
|00002700| 74 72 75 63 74 20 73 74 | 61 74 09 73 74 61 74 62 |truct st|at.statb|
|00002710| 75 66 3b 0a 58 0a 58 09 | 69 66 20 28 28 61 6c 69 |uf;.X.X.|if ((ali|
|00002720| 61 73 65 73 20 3d 20 66 | 6f 70 65 6e 28 41 4c 49 |ases = f|open(ALI|
|00002730| 41 53 5f 46 49 4c 45 2c | 20 22 72 22 29 29 20 3d |AS_FILE,| "r")) =|
|00002740| 3d 20 28 46 49 4c 45 20 | 2a 29 20 4e 55 4c 4c 29 |= (FILE |*) NULL)|
|00002750| 0a 58 09 09 72 65 74 75 | 72 6e 3b 0a 58 09 2f 2a |.X..retu|rn;.X./*|
|00002760| 0a 58 09 20 2a 20 4d 61 | 6b 65 20 73 75 72 65 20 |.X. * Ma|ke sure |
|00002770| 73 6f 6d 65 6f 6e 65 20 | 64 69 64 6e 27 74 20 62 |someone |didn't b|
|00002780| 72 65 61 6b 20 6d 61 69 | 6c 20 61 6e 64 20 6c 69 |reak mai|l and li|
|00002790| 6e 6b 20 73 6f 6d 65 20 | 66 69 6c 65 20 74 6f 20 |nk some |file to |
|000027a0| 61 6c 69 61 73 65 73 2e | 0a 58 09 20 2a 20 53 79 |aliases.|.X. * Sy|
|000027b0| 73 20 56 20 64 6f 65 73 | 6e 27 74 20 68 61 76 65 |s V does|n't have|
|000027c0| 20 73 79 6d 20 6c 69 6e | 6b 73 2c 20 73 6f 20 77 | sym lin|ks, so w|
|000027d0| 65 20 64 6f 6e 27 74 20 | 77 6f 72 72 79 20 61 62 |e don't |worry ab|
|000027e0| 6f 75 74 20 74 68 61 74 | 2e 0a 58 09 20 2a 2f 0a |out that|..X. */.|
|000027f0| 58 09 66 73 74 61 74 28 | 66 69 6c 65 6e 6f 28 61 |X.fstat(|fileno(a|
|00002800| 6c 69 61 73 65 73 29 2c | 20 26 73 74 61 74 62 75 |liases),| &statbu|
|00002810| 66 29 3b 0a 58 09 69 66 | 20 28 73 74 61 74 62 75 |f);.X.if| (statbu|
|00002820| 66 2e 73 74 5f 6e 6c 69 | 6e 6b 20 3e 20 31 29 20 |f.st_nli|nk > 1) |
|00002830| 7b 0a 58 09 09 66 63 6c | 6f 73 65 28 61 6c 69 61 |{.X..fcl|ose(alia|
|00002840| 73 65 73 29 3b 0a 58 09 | 09 72 65 74 75 72 6e 3b |ses);.X.|.return;|
|00002850| 20 0a 58 09 7d 0a 58 09 | 66 6f 72 20 28 69 20 3d | .X.}.X.|for (i =|
|00002860| 20 30 3b 20 69 20 3c 20 | 6e 75 6d 5f 61 64 64 72 | 0; i < |num_addr|
|00002870| 65 73 73 65 73 3b 20 2b | 2b 69 29 20 7b 0a 58 09 |esses; +|+i) {.X.|
|00002880| 09 2f 2a 0a 58 09 09 20 | 2a 20 4f 6e 6c 79 20 61 |./*.X.. |* Only a|
|00002890| 6c 69 61 73 20 69 74 20 | 69 66 20 69 74 20 68 61 |lias it |if it ha|
|000028a0| 73 20 6e 65 76 65 72 20 | 62 65 65 6e 20 73 65 65 |s never |been see|
|000028b0| 6e 20 62 65 66 6f 72 65 | 0a 58 09 09 20 2a 2f 0a |n before|.X.. */.|
|000028c0| 58 09 09 66 6f 72 20 28 | 6a 20 3d 20 30 3b 20 6a |X..for (|j = 0; j|
|000028d0| 20 3c 20 69 3b 20 2b 2b | 6a 29 20 7b 0a 58 09 09 | < i; ++|j) {.X..|
|000028e0| 09 69 66 20 28 73 74 72 | 63 6d 70 28 74 61 62 6c |.if (str|cmp(tabl|
|000028f0| 65 5b 6a 5d 2e 64 65 73 | 74 2c 20 74 61 62 6c 65 |e[j].des|t, table|
|00002900| 5b 69 5d 2e 64 65 73 74 | 29 20 3d 3d 20 30 29 0a |[i].dest|) == 0).|
|00002910| 58 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 7d |X....bre|ak;.X..}|
|00002920| 0a 58 09 09 69 66 20 28 | 6a 20 3c 20 69 29 0a 58 |.X..if (|j < i).X|
|00002930| 09 09 09 63 6f 6e 74 69 | 6e 75 65 3b 0a 58 09 09 |...conti|nue;.X..|
|00002940| 2f 2a 0a 58 09 09 20 2a | 20 66 69 6e 64 20 61 20 |/*.X.. *| find a |
|00002950| 6d 61 74 63 68 69 6e 67 | 20 6c 69 6e 65 20 69 6e |matching| line in|
|00002960| 20 61 6c 69 61 73 65 73 | 0a 58 09 09 20 2a 2f 0a | aliases|.X.. */.|
|00002970| 58 09 09 72 65 77 69 6e | 64 28 61 6c 69 61 73 65 |X..rewin|d(aliase|
|00002980| 73 29 3b 0a 58 09 09 77 | 68 69 6c 65 20 28 66 73 |s);.X..w|hile (fs|
|00002990| 63 61 6e 66 28 61 6c 69 | 61 73 65 73 2c 20 22 25 |canf(ali|ases, "%|
|000029a0| 73 20 25 73 22 2c 20 66 | 69 6c 65 2c 20 6c 69 6e |s %s", f|ile, lin|
|000029b0| 65 29 20 3e 20 30 29 20 | 7b 0a 58 09 09 09 69 66 |e) > 0) |{.X...if|
|000029c0| 20 28 73 74 72 63 6d 70 | 28 66 69 6c 65 2c 20 74 | (strcmp|(file, t|
|000029d0| 61 62 6c 65 5b 69 5d 2e | 64 65 73 74 29 20 3d 3d |able[i].|dest) ==|
|000029e0| 20 30 29 0a 58 09 09 09 | 09 62 72 65 61 6b 3b 0a | 0).X...|.break;.|
|000029f0| 58 09 09 7d 0a 58 09 09 | 69 66 20 28 21 66 65 6f |X..}.X..|if (!feo|
|00002a00| 66 28 61 6c 69 61 73 65 | 73 29 29 20 7b 20 09 09 |f(aliase|s)) { ..|
|00002a10| 2f 2a 20 77 65 20 66 6f | 75 6e 64 20 6f 6e 65 20 |/* we fo|und one |
|00002a20| 69 6e 20 61 6c 69 61 73 | 65 73 20 2a 2f 0a 58 09 |in alias|es */.X.|
|00002a30| 09 09 70 20 3d 20 6c 69 | 6e 65 3b 0a 58 09 09 09 |..p = li|ne;.X...|
|00002a40| 28 76 6f 69 64 29 20 73 | 74 72 63 70 79 28 6f 77 |(void) s|trcpy(ow|
|00002a50| 6e 65 72 2c 20 4d 41 49 | 4c 4d 41 4e 29 3b 0a 58 |ner, MAI|LMAN);.X|
|00002a60| 09 09 7d 20 65 6c 73 65 | 20 7b 0a 58 09 09 09 2f |..} else| {.X.../|
|00002a70| 2a 0a 58 09 09 09 20 2a | 20 74 72 79 20 74 68 65 |*.X... *| try the|
|00002a80| 20 75 73 65 72 73 20 2e | 66 77 64 20 66 69 6c 65 | users .|fwd file|
|00002a90| 2e 20 20 54 68 69 73 20 | 69 73 20 70 72 65 66 65 |.  This |is prefe|
|00002aa0| 72 72 65 64 20 6f 76 65 | 72 0a 58 09 09 09 20 2a |rred ove|r.X... *|
|00002ab0| 20 46 6f 72 77 61 72 64 | 20 74 6f 20 6c 69 6e 65 | Forward| to line|
|00002ac0| 73 0a 58 09 09 09 20 2a | 2f 0a 58 09 09 09 69 66 |s.X... *|/.X...if|
|00002ad0| 20 28 28 70 77 64 20 3d | 20 67 65 74 70 77 6e 61 | ((pwd =| getpwna|
|00002ae0| 6d 28 74 61 62 6c 65 5b | 69 5d 2e 64 65 73 74 29 |m(table[|i].dest)|
|00002af0| 29 20 3d 3d 20 4e 55 4c | 4c 29 0a 58 09 09 09 09 |) == NUL|L).X....|
|00002b00| 63 6f 6e 74 69 6e 75 65 | 3b 0a 58 09 09 09 28 76 |continue|;.X...(v|
|00002b10| 6f 69 64 29 20 73 74 72 | 63 70 79 28 66 69 6c 65 |oid) str|cpy(file|
|00002b20| 2c 20 70 77 64 2d 3e 70 | 77 5f 64 69 72 29 3b 0a |, pwd->p|w_dir);.|
|00002b30| 58 09 09 09 28 76 6f 69 | 64 29 20 73 74 72 63 61 |X...(voi|d) strca|
|00002b40| 74 28 66 69 6c 65 2c 20 | 46 57 44 5f 46 49 4c 45 |t(file, |FWD_FILE|
|00002b50| 29 3b 0a 58 09 09 09 2f | 2a 0a 58 09 09 09 20 2a |);.X.../|*.X... *|
|00002b60| 20 2f 75 73 72 2f 73 70 | 6f 6f 6c 2f 75 75 63 70 | /usr/sp|ool/uucp|
|00002b70| 70 75 62 6c 69 63 20 69 | 73 20 6e 6f 72 6d 61 6c |public i|s normal|
|00002b80| 6c 79 20 61 20 70 75 62 | 6c 69 63 61 6c 6c 79 0a |ly a pub|lically.|
|00002b90| 58 09 09 09 20 2a 20 77 | 72 69 74 61 62 6c 65 20 |X... * w|ritable |
|00002ba0| 68 6f 6d 65 20 64 69 72 | 65 63 74 6f 72 79 2e 20 |home dir|ectory. |
|00002bb0| 20 49 67 6e 6f 72 65 20 | 61 6e 79 20 2e 66 77 64 | Ignore |any .fwd|
|00002bc0| 20 74 68 65 72 65 2e 0a | 58 09 09 09 20 2a 2f 0a | there..|X... */.|
|00002bd0| 58 09 09 09 69 66 20 28 | 73 74 72 63 6d 70 28 66 |X...if (|strcmp(f|
|00002be0| 69 6c 65 2c 20 50 55 42 | 44 49 52 5f 46 57 44 29 |ile, PUB|DIR_FWD)|
|00002bf0| 20 21 3d 20 30 20 26 26 | 20 28 69 6e 5f 66 69 6c | != 0 &&| (in_fil|
|00002c00| 65 20 3d 20 66 6f 70 65 | 6e 28 66 69 6c 65 2c 20 |e = fope|n(file, |
|00002c10| 22 72 22 29 29 20 21 3d | 20 4e 55 4c 4c 29 20 7b |"r")) !=| NULL) {|
|00002c20| 0a 58 09 09 09 09 2f 2a | 0a 58 09 09 09 09 20 2a |.X..../*|.X.... *|
|00002c30| 20 69 67 6e 6f 72 65 20 | 69 74 20 69 66 20 74 68 | ignore |it if th|
|00002c40| 65 72 65 20 69 73 20 61 | 6e 79 74 68 69 6e 67 20 |ere is a|nything |
|00002c50| 66 75 6e 6e 79 20 67 6f | 69 6e 67 0a 58 09 09 09 |funny go|ing.X...|
|00002c60| 09 20 2a 20 6f 6e 20 77 | 69 74 68 20 6c 69 6e 6b |. * on w|ith link|
|00002c70| 73 0a 58 09 09 09 09 20 | 2a 2f 0a 58 09 09 09 09 |s.X.... |*/.X....|
|00002c80| 66 73 74 61 74 28 66 69 | 6c 65 6e 6f 28 69 6e 5f |fstat(fi|leno(in_|
|00002c90| 66 69 6c 65 29 2c 20 26 | 73 74 61 74 62 75 66 29 |file), &|statbuf)|
|00002ca0| 3b 0a 58 09 09 09 09 69 | 66 20 28 73 74 61 74 62 |;.X....i|f (statb|
|00002cb0| 75 66 2e 73 74 5f 6e 6c | 69 6e 6b 20 3e 20 31 20 |uf.st_nl|ink > 1 |
|00002cc0| 7c 7c 20 66 67 65 74 73 | 28 6c 69 6e 65 2c 20 4d ||| fgets|(line, M|
|00002cd0| 41 58 5f 4c 49 4e 45 2c | 20 69 6e 5f 66 69 6c 65 |AX_LINE,| in_file|
|00002ce0| 29 20 3d 3d 20 4e 55 4c | 4c 29 20 7b 0a 58 09 09 |) == NUL|L) {.X..|
|00002cf0| 09 09 09 66 63 6c 6f 73 | 65 28 69 6e 5f 66 69 6c |...fclos|e(in_fil|
|00002d00| 65 29 3b 0a 58 09 09 09 | 09 09 63 6f 6e 74 69 6e |e);.X...|..contin|
|00002d10| 75 65 3b 0a 58 09 09 09 | 09 7d 0a 58 09 09 09 09 |ue;.X...|.}.X....|
|00002d20| 66 63 6c 6f 73 65 28 69 | 6e 5f 66 69 6c 65 29 3b |fclose(i|n_file);|
|00002d30| 0a 58 09 09 09 09 70 20 | 3d 20 6c 69 6e 65 3b 0a |.X....p |= line;.|
|00002d40| 58 09 09 09 09 28 76 6f | 69 64 29 20 73 74 72 63 |X....(vo|id) strc|
|00002d50| 70 79 28 6f 77 6e 65 72 | 2c 20 74 61 62 6c 65 5b |py(owner|, table[|
|00002d60| 69 5d 2e 64 65 73 74 29 | 3b 0a 58 09 09 09 7d 20 |i].dest)|;.X...} |
|00002d70| 65 6c 73 65 20 7b 0a 58 | 09 09 09 09 2f 2a 0a 58 |else {.X|..../*.X|
|00002d80| 09 09 09 09 20 2a 20 6d | 61 79 62 65 20 74 68 65 |.... * m|aybe the|
|00002d90| 79 20 68 61 76 65 20 61 | 20 46 6f 72 77 61 72 64 |y have a| Forward|
|00002da0| 20 74 6f 20 69 6e 20 74 | 68 65 69 72 20 6d 61 69 | to in t|heir mai|
|00002db0| 6c 0a 58 09 09 09 09 20 | 2a 20 66 69 6c 65 0a 58 |l.X.... |* file.X|
|00002dc0| 09 09 09 09 20 2a 2f 0a | 58 09 09 09 09 28 76 6f |.... */.|X....(vo|
|00002dd0| 69 64 29 20 73 74 72 63 | 70 79 28 66 69 6c 65 2c |id) strc|py(file,|
|00002de0| 20 4d 41 49 4c 5f 44 49 | 52 29 3b 0a 58 09 09 09 | MAIL_DI|R);.X...|
|00002df0| 09 28 76 6f 69 64 29 20 | 73 74 72 63 61 74 28 66 |.(void) |strcat(f|
|00002e00| 69 6c 65 2c 20 74 61 62 | 6c 65 5b 69 5d 2e 64 65 |ile, tab|le[i].de|
|00002e10| 73 74 29 3b 0a 58 09 09 | 09 09 69 66 20 28 28 69 |st);.X..|..if ((i|
|00002e20| 6e 5f 66 69 6c 65 20 3d | 20 66 6f 70 65 6e 28 66 |n_file =| fopen(f|
|00002e30| 69 6c 65 2c 20 22 72 22 | 29 29 20 3d 3d 20 28 46 |ile, "r"|)) == (F|
|00002e40| 49 4c 45 20 2a 29 20 4e | 55 4c 4c 29 0a 58 09 09 |ILE *) N|ULL).X..|
|00002e50| 09 09 09 63 6f 6e 74 69 | 6e 75 65 3b 0a 58 09 09 |...conti|nue;.X..|
|00002e60| 09 09 2f 2a 0a 58 09 09 | 09 09 20 2a 20 69 67 6e |../*.X..|.. * ign|
|00002e70| 6f 72 65 20 69 74 20 69 | 66 20 74 68 65 72 65 20 |ore it i|f there |
|00002e80| 69 73 20 61 6e 79 74 68 | 69 6e 67 20 66 75 6e 6e |is anyth|ing funn|
|00002e90| 79 20 67 6f 69 6e 67 0a | 58 09 09 09 09 20 2a 20 |y going.|X.... * |
|00002ea0| 6f 6e 20 77 69 74 68 20 | 6c 69 6e 6b 73 0a 58 09 |on with |links.X.|
|00002eb0| 09 09 09 20 2a 2f 0a 58 | 09 09 09 09 66 73 74 61 |... */.X|....fsta|
|00002ec0| 74 28 66 69 6c 65 6e 6f | 28 69 6e 5f 66 69 6c 65 |t(fileno|(in_file|
|00002ed0| 29 2c 20 26 73 74 61 74 | 62 75 66 29 3b 0a 58 09 |), &stat|buf);.X.|
|00002ee0| 09 09 09 69 66 20 28 73 | 74 61 74 62 75 66 2e 73 |...if (s|tatbuf.s|
|00002ef0| 74 5f 6e 6c 69 6e 6b 20 | 3e 20 31 20 7c 7c 20 66 |t_nlink |> 1 || f|
|00002f00| 67 65 74 73 28 6c 69 6e | 65 2c 20 4d 41 58 5f 4c |gets(lin|e, MAX_L|
|00002f10| 49 4e 45 2c 20 69 6e 5f | 66 69 6c 65 29 20 3d 3d |INE, in_|file) ==|
|00002f20| 20 28 63 68 61 72 20 2a | 29 20 4e 55 4c 4c 29 20 | (char *|) NULL) |
|00002f30| 7b 0a 58 09 09 09 09 09 | 66 63 6c 6f 73 65 28 69 |{.X.....|fclose(i|
|00002f40| 6e 5f 66 69 6c 65 29 3b | 0a 58 09 09 09 09 09 63 |n_file);|.X.....c|
|00002f50| 6f 6e 74 69 6e 75 65 3b | 0a 58 09 09 09 09 7d 0a |ontinue;|.X....}.|
|00002f60| 58 09 09 09 09 66 63 6c | 6f 73 65 28 69 6e 5f 66 |X....fcl|ose(in_f|
|00002f70| 69 6c 65 29 3b 0a 58 09 | 09 09 09 69 66 20 28 73 |ile);.X.|...if (s|
|00002f80| 74 72 6e 63 6d 70 28 6c | 69 6e 65 2c 20 46 57 44 |trncmp(l|ine, FWD|
|00002f90| 5f 4c 49 4e 45 2c 20 73 | 69 7a 65 6f 66 28 46 57 |_LINE, s|izeof(FW|
|00002fa0| 44 5f 4c 49 4e 45 29 20 | 2d 20 31 29 20 21 3d 20 |D_LINE) |- 1) != |
|00002fb0| 30 29 20 63 6f 6e 74 69 | 6e 75 65 3b 0a 58 09 09 |0) conti|nue;.X..|
|00002fc0| 09 09 70 20 3d 20 6c 69 | 6e 65 20 2b 20 31 31 3b |..p = li|ne + 11;|
|00002fd0| 0a 58 09 09 09 09 2f 2a | 0a 58 09 09 09 09 20 2a |.X..../*|.X.... *|
|00002fe0| 20 77 65 20 6f 6e 6c 79 | 20 61 6c 6c 6f 77 20 73 | we only| allow s|
|00002ff0| 69 6d 70 6c 65 20 66 6f | 72 77 61 72 64 73 20 77 |imple fo|rwards w|
|00003000| 69 74 68 20 74 68 69 73 | 0a 58 09 09 09 09 20 2a |ith this|.X.... *|
|00003010| 20 6d 65 74 68 6f 64 20 | 74 68 69 73 20 69 73 20 | method |this is |
|00003020| 6f 76 65 72 6c 79 20 73 | 69 6d 70 6c 65 0a 58 09 |overly s|imple.X.|
|00003030| 09 09 09 20 2a 2f 0a 58 | 09 09 09 09 69 66 20 28 |... */.X|....if (|
|00003040| 73 74 72 63 68 72 28 70 | 2c 20 27 2f 27 29 20 7c |strchr(p|, '/') ||
|00003050| 7c 20 73 74 72 63 68 72 | 28 70 2c 20 27 7c 27 29 || strchr|(p, '|')|
|00003060| 29 0a 58 09 09 09 09 09 | 63 6f 6e 74 69 6e 75 65 |).X.....|continue|
|00003070| 3b 0a 58 09 09 09 09 28 | 76 6f 69 64 29 20 73 74 |;.X....(|void) st|
|00003080| 72 63 70 79 28 6f 77 6e | 65 72 2c 20 4d 41 49 4c |rcpy(own|er, MAIL|
|00003090| 4d 41 4e 29 3b 0a 58 09 | 09 09 7d 0a 58 09 09 7d |MAN);.X.|..}.X..}|
|000030a0| 0a 58 09 09 2f 2a 0a 58 | 09 09 20 2a 20 70 20 6e |.X../*.X|.. * p n|
|000030b0| 6f 77 20 70 6f 69 6e 74 | 73 20 74 6f 20 61 20 6c |ow point|s to a l|
|000030c0| 69 6e 65 20 6f 66 20 61 | 64 64 72 65 73 73 65 73 |ine of a|ddresses|
|000030d0| 2e 20 20 4d 61 72 6b 20 | 74 68 65 20 63 75 72 72 |.  Mark |the curr|
|000030e0| 65 6e 74 0a 58 09 09 20 | 2a 20 65 6e 74 72 79 20 |ent.X.. |* entry |
|000030f0| 61 73 20 64 65 6c 65 74 | 65 64 20 73 69 6e 63 65 |as delet|ed since|
|00003100| 20 69 74 20 77 61 73 20 | 6a 75 73 74 20 61 6c 69 | it was |just ali|
|00003110| 61 73 65 64 2e 0a 58 09 | 09 20 2a 2f 0a 58 09 09 |ased..X.|. */.X..|
|00003120| 2a 28 74 61 62 6c 65 5b | 69 5d 2e 73 6f 75 72 63 |*(table[|i].sourc|
|00003130| 65 29 20 3d 20 27 5c 30 | 27 3b 0a 58 09 09 77 68 |e) = '\0|';.X..wh|
|00003140| 69 6c 65 20 28 2a 70 20 | 3e 20 27 5c 6e 27 29 20 |ile (*p |> '\n') |
|00003150| 7b 0a 58 09 09 09 69 66 | 20 28 2a 70 20 3d 3d 20 |{.X...if| (*p == |
|00003160| 27 22 27 29 20 7b 20 0a | 58 09 09 09 09 70 32 20 |'"') { .|X....p2 |
|00003170| 3d 20 70 20 2b 20 31 3b | 0a 58 09 09 09 09 77 68 |= p + 1;|.X....wh|
|00003180| 69 6c 65 20 28 2a 28 2b | 2b 70 29 20 26 26 20 2a |ile (*(+|+p) && *|
|00003190| 70 20 21 3d 20 27 22 27 | 29 0a 58 09 09 09 09 09 |p != '"'|).X.....|
|000031a0| 3b 09 2f 2a 20 4e 4f 5f | 4f 50 20 2a 2f 0a 58 09 |;./* NO_|OP */.X.|
|000031b0| 09 09 7d 20 65 6c 73 65 | 20 7b 0a 58 09 09 09 09 |..} else| {.X....|
|000031c0| 70 32 20 3d 20 70 3b 0a | 58 09 09 09 09 77 68 69 |p2 = p;.|X....whi|
|000031d0| 6c 65 20 28 2a 70 20 3e | 20 27 20 27 29 0a 58 09 |le (*p >| ' ').X.|
|000031e0| 09 09 09 09 2b 2b 70 3b | 0a 58 09 09 09 7d 0a 58 |....++p;|.X...}.X|
|000031f0| 09 09 09 69 66 20 28 2a | 70 20 21 3d 20 27 5c 30 |...if (*|p != '\0|
|00003200| 27 29 0a 58 09 09 09 09 | 2a 28 70 2b 2b 29 20 3d |').X....|*(p++) =|
|00003210| 20 27 5c 30 27 3b 0a 58 | 09 09 09 2f 2a 0a 58 09 | '\0';.X|.../*.X.|
|00003220| 09 09 20 2a 20 49 73 20 | 61 6e 20 75 6e 61 6c 69 |.. * Is |an unali|
|00003230| 61 73 65 64 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 |ased ver|sion of |
|00003240| 74 68 69 73 20 61 6c 72 | 65 61 64 79 20 69 6e 20 |this alr|eady in |
|00003250| 74 68 65 0a 58 09 09 09 | 20 2a 20 74 61 62 6c 65 |the.X...| * table|
|00003260| 3f 0a 58 09 09 09 20 2a | 2f 0a 58 09 09 09 66 6f |?.X... *|/.X...fo|
|00003270| 72 20 28 6a 20 3d 20 30 | 3b 20 6a 20 3c 20 6e 75 |r (j = 0|; j < nu|
|00003280| 6d 5f 61 64 64 72 65 73 | 73 65 73 3b 20 2b 2b 6a |m_addres|ses; ++j|
|00003290| 29 20 7b 0a 58 09 09 09 | 09 69 66 20 28 73 74 72 |) {.X...|.if (str|
|000032a0| 63 6d 70 28 74 61 62 6c | 65 5b 6a 5d 2e 64 65 73 |cmp(tabl|e[j].des|
|000032b0| 74 2c 20 70 32 29 20 3d | 3d 20 30 20 26 26 20 2a |t, p2) =|= 0 && *|
|000032c0| 28 74 61 62 6c 65 5b 6a | 5d 2e 73 6f 75 72 63 65 |(table[j|].source|
|000032d0| 29 20 21 3d 20 27 5c 30 | 27 29 0a 58 09 09 09 09 |) != '\0|').X....|
|000032e0| 09 62 72 65 61 6b 3b 0a | 58 09 09 09 7d 0a 58 09 |.break;.|X...}.X.|
|000032f0| 09 09 2f 2a 0a 58 09 09 | 09 20 2a 20 41 64 64 20 |../*.X..|. * Add |
|00003300| 6e 65 77 20 65 6e 74 72 | 79 20 69 66 20 69 74 20 |new entr|y if it |
|00003310| 66 69 6e 69 73 68 65 64 | 20 74 68 65 20 61 62 6f |finished| the abo|
|00003320| 76 65 20 6c 6f 6f 70 0a | 58 09 09 09 20 2a 2f 0a |ve loop.|X... */.|
|00003330| 58 09 09 09 69 66 20 28 | 6a 20 3d 3d 20 6e 75 6d |X...if (|j == num|
|00003340| 5f 61 64 64 72 65 73 73 | 65 73 29 20 7b 0a 58 09 |_address|es) {.X.|
|00003350| 09 09 09 28 76 6f 69 64 | 29 20 73 74 72 63 70 79 |...(void|) strcpy|
|00003360| 28 74 61 62 6c 65 5b 6e | 75 6d 5f 61 64 64 72 65 |(table[n|um_addre|
|00003370| 73 73 65 73 5d 2e 64 65 | 73 74 2c 20 70 32 29 3b |sses].de|st, p2);|
|00003380| 0a 58 09 09 09 09 28 76 | 6f 69 64 29 20 73 74 72 |.X....(v|oid) str|
|00003390| 63 70 79 28 74 61 62 6c | 65 5b 6e 75 6d 5f 61 64 |cpy(tabl|e[num_ad|
|000033a0| 64 72 65 73 73 65 73 5d | 2e 73 6f 75 72 63 65 2c |dresses]|.source,|
|000033b0| 20 74 61 62 6c 65 5b 69 | 5d 2e 64 65 73 74 29 3b | table[i|].dest);|
|000033c0| 0a 58 09 09 09 09 28 76 | 6f 69 64 29 20 73 74 72 |.X....(v|oid) str|
|000033d0| 63 70 79 28 74 61 62 6c | 65 5b 6e 75 6d 5f 61 64 |cpy(tabl|e[num_ad|
|000033e0| 64 72 65 73 73 65 73 5d | 2e 75 73 65 72 2c 20 6f |dresses]|.user, o|
|000033f0| 77 6e 65 72 29 3b 0a 58 | 09 09 09 09 69 66 20 28 |wner);.X|....if (|
|00003400| 2b 2b 6e 75 6d 5f 61 64 | 64 72 65 73 73 65 73 20 |++num_ad|dresses |
|00003410| 3e 3d 20 4d 41 58 5f 41 | 44 44 52 29 20 7b 20 0a |>= MAX_A|DDR) { .|
|00003420| 58 09 09 09 09 09 2d 2d | 6e 75 6d 5f 61 64 64 72 |X.....--|num_addr|
|00003430| 65 73 73 65 73 3b 0a 58 | 09 09 09 09 09 72 65 74 |esses;.X|.....ret|
|00003440| 75 72 6e 3b 0a 58 09 09 | 09 09 7d 0a 58 09 09 09 |urn;.X..|..}.X...|
|00003450| 7d 0a 58 09 09 09 2f 2a | 0a 58 09 09 09 20 2a 20 |}.X.../*|.X... * |
|00003460| 4d 6f 76 65 20 70 61 73 | 74 20 73 70 61 63 65 73 |Move pas|t spaces|
|00003470| 0a 58 09 09 09 20 2a 2f | 0a 58 09 09 09 77 68 69 |.X... */|.X...whi|
|00003480| 6c 65 20 28 2a 70 20 3d | 3d 20 27 20 27 29 0a 58 |le (*p =|= ' ').X|
|00003490| 09 09 09 09 2b 2b 70 3b | 0a 58 09 09 7d 0a 58 09 |....++p;|.X..}.X.|
|000034a0| 7d 0a 58 09 66 63 6c 6f | 73 65 28 61 6c 69 61 73 |}.X.fclo|se(alias|
|000034b0| 65 73 29 3b 0a 58 09 72 | 65 74 75 72 6e 3b 0a 58 |es);.X.r|eturn;.X|
|000034c0| 7d 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 54 68 69 73 |}.X.X/*.|X * This|
|000034d0| 20 72 6f 75 74 69 6e 65 | 20 61 74 74 65 6d 70 74 | routine| attempt|
|000034e0| 73 20 74 6f 20 64 65 6c | 69 76 65 72 20 74 68 65 |s to del|iver the|
|000034f0| 20 6d 61 69 6c 0a 58 20 | 2a 2f 0a 58 69 6e 74 0a | mail.X |*/.Xint.|
|00003500| 58 64 65 6c 69 76 65 72 | 28 69 6e 5f 66 64 2c 20 |Xdeliver|(in_fd, |
|00003510| 61 75 74 68 6f 72 2c 20 | 64 65 73 74 5f 70 74 72 |author, |dest_ptr|
|00003520| 2c 20 75 73 65 72 29 0a | 58 09 46 49 4c 45 09 2a |, user).|X.FILE.*|
|00003530| 69 6e 5f 66 64 3b 09 09 | 2f 2a 20 49 6e 70 75 74 |in_fd;..|/* Input|
|00003540| 20 66 69 6c 65 20 2a 2f | 0a 58 09 63 68 61 72 09 | file */|.X.char.|
|00003550| 2a 61 75 74 68 6f 72 3b | 09 2f 2a 20 57 68 6f 20 |*author;|./* Who |
|00003560| 6d 65 73 73 61 67 65 20 | 69 73 20 66 72 6f 6d 20 |message |is from |
|00003570| 28 77 69 74 68 20 61 64 | 64 72 65 73 73 29 20 2a |(with ad|dress) *|
|00003580| 2f 0a 58 09 63 68 61 72 | 09 2a 64 65 73 74 5f 70 |/.X.char|.*dest_p|
|00003590| 74 72 3b 09 2f 2a 20 57 | 68 6f 20 6d 65 73 73 61 |tr;./* W|ho messa|
|000035a0| 67 65 20 69 73 20 74 6f | 20 2a 2f 0a 58 09 63 68 |ge is to| */.X.ch|
|000035b0| 61 72 09 2a 75 73 65 72 | 3b 09 09 2f 2a 20 55 73 |ar.*user|;../* Us|
|000035c0| 65 72 20 72 65 73 70 6f | 6e 73 69 62 6c 65 20 66 |er respo|nsible f|
|000035d0| 6f 72 20 74 68 69 73 20 | 74 6f 20 61 64 64 72 65 |or this |to addre|
|000035e0| 73 73 20 2a 2f 0a 58 7b | 0a 58 09 63 68 61 72 09 |ss */.X{|.X.char.|
|000035f0| 64 65 73 74 5b 4d 41 58 | 5f 4c 49 4e 45 5d 3b 0a |dest[MAX|_LINE];.|
|00003600| 58 09 63 68 61 72 09 74 | 65 6d 70 5b 4d 41 58 5f |X.char.t|emp[MAX_|
|00003610| 4c 49 4e 45 5d 3b 0a 58 | 09 46 49 4c 45 09 2a 6f |LINE];.X|.FILE.*o|
|00003620| 75 74 66 69 6c 65 3b 0a | 58 09 69 6e 74 09 70 69 |utfile;.|X.int.pi|
|00003630| 64 3b 0a 58 09 69 6e 74 | 09 77 3b 0a 58 09 69 6e |d;.X.int|.w;.X.in|
|00003640| 74 09 73 74 61 74 75 73 | 3b 0a 58 0a 58 09 72 65 |t.status|;.X.X.re|
|00003650| 77 69 6e 64 28 69 6e 5f | 66 64 29 3b 0a 58 09 28 |wind(in_|fd);.X.(|
|00003660| 76 6f 69 64 29 20 73 74 | 72 63 70 79 28 64 65 73 |void) st|rcpy(des|
|00003670| 74 2c 20 64 65 73 74 5f | 70 74 72 29 3b 0a 58 09 |t, dest_|ptr);.X.|
|00003680| 69 66 20 28 28 73 74 72 | 63 68 72 28 64 65 73 74 |if ((str|chr(dest|
|00003690| 2c 20 27 21 27 29 20 7c | 7c 20 73 74 72 63 68 72 |, '!') ||| strchr|
|000036a0| 28 64 65 73 74 2c 20 27 | 40 27 29 20 7c 7c 20 73 |(dest, '|@') || s|
|000036b0| 74 72 63 68 72 28 64 65 | 73 74 2c 20 27 25 27 29 |trchr(de|st, '%')|
|000036c0| 29 20 26 26 20 64 65 73 | 74 5b 30 5d 20 21 3d 20 |) && des|t[0] != |
|000036d0| 27 7c 27 20 26 26 20 64 | 65 73 74 5b 30 5d 20 21 |'|' && d|est[0] !|
|000036e0| 3d 20 27 2f 27 29 20 7b | 09 2f 2a 20 41 20 72 65 |= '/') {|./* A re|
|000036f0| 6d 6f 74 65 20 61 64 64 | 72 65 73 73 20 2a 2f 0a |mote add|ress */.|
|00003700| 58 09 09 2f 2a 0a 58 09 | 09 20 2a 20 66 69 78 20 |X../*.X.|. * fix |
|00003710| 74 68 69 6e 67 73 20 74 | 68 61 74 20 68 61 76 65 |things t|hat have|
|00003720| 20 6f 6e 6c 79 20 61 20 | 25 0a 58 09 09 20 2a 2f | only a |%.X.. */|
|00003730| 0a 58 09 09 69 66 20 28 | 73 74 72 63 68 72 28 64 |.X..if (|strchr(d|
|00003740| 65 73 74 2c 20 27 21 27 | 29 20 3d 3d 20 28 63 68 |est, '!'|) == (ch|
|00003750| 61 72 20 2a 29 20 4e 55 | 4c 4c 20 26 26 20 73 74 |ar *) NU|LL && st|
|00003760| 72 63 68 72 28 64 65 73 | 74 2c 20 27 40 27 29 20 |rchr(des|t, '@') |
|00003770| 3d 3d 20 28 63 68 61 72 | 20 2a 29 20 4e 55 4c 4c |== (char| *) NULL|
|00003780| 29 20 0a 58 09 09 09 2a | 28 73 74 72 63 68 72 28 |) .X...*|(strchr(|
|00003790| 64 65 73 74 2c 20 27 25 | 27 29 29 20 3d 20 27 40 |dest, '%|')) = '@|
|000037a0| 27 3b 0a 58 09 09 73 70 | 72 69 6e 74 66 28 74 65 |';.X..sp|rintf(te|
|000037b0| 6d 70 2c 20 52 45 4d 4f | 54 45 5f 4d 41 49 4c 45 |mp, REMO|TE_MAILE|
|000037c0| 52 2c 20 64 65 73 74 29 | 3b 0a 58 09 09 69 66 20 |R, dest)|;.X..if |
|000037d0| 28 28 70 77 64 20 3d 20 | 67 65 74 70 77 6e 61 6d |((pwd = |getpwnam|
|000037e0| 28 75 73 65 72 29 29 20 | 3d 3d 20 28 73 74 72 75 |(user)) |== (stru|
|000037f0| 63 74 20 70 61 73 73 77 | 64 20 2a 29 20 4e 55 4c |ct passw|d *) NUL|
|00003800| 4c 29 0a 58 09 09 09 70 | 77 64 20 3d 20 70 77 64 |L).X...p|wd = pwd|
|00003810| 5f 6d 61 69 6c 6d 61 6e | 3b 0a 58 09 09 69 66 20 |_mailman|;.X..if |
|00003820| 28 70 69 64 20 3d 20 66 | 6f 72 6b 28 29 29 20 7b |(pid = f|ork()) {|
|00003830| 0a 58 09 09 09 77 68 69 | 6c 65 20 28 28 77 20 3d |.X...whi|le ((w =|
|00003840| 20 77 61 69 74 28 26 73 | 74 61 74 75 73 29 29 20 | wait(&s|tatus)) |
|00003850| 21 3d 20 70 69 64 20 26 | 26 20 77 20 21 3d 20 2d |!= pid &|& w != -|
|00003860| 31 29 0a 58 09 09 09 09 | 3b 09 2f 2a 20 4e 4f 5f |1).X....|;./* NO_|
|00003870| 4f 50 20 2a 2f 0a 58 09 | 09 09 69 66 20 28 73 74 |OP */.X.|..if (st|
|00003880| 61 74 75 73 20 7c 7c 20 | 77 20 3d 3d 20 2d 31 29 |atus || |w == -1)|
|00003890| 20 7b 0a 58 09 09 09 09 | 28 76 6f 69 64 29 20 66 | {.X....|(void) f|
|000038a0| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 20 22 |printf(s|tderr, "|
|000038b0| 5c 6e 43 61 6e 6e 6f 74 | 20 72 75 6e 20 25 73 5c |\nCannot| run %s\|
|000038c0| 6e 22 2c 20 74 65 6d 70 | 29 3b 0a 58 09 09 09 09 |n", temp|);.X....|
|000038d0| 72 65 74 75 72 6e 28 38 | 29 3b 0a 58 09 09 09 7d |return(8|);.X...}|
|000038e0| 0a 58 09 09 7d 20 65 6c | 73 65 20 7b 0a 58 09 09 |.X..} el|se {.X..|
|000038f0| 09 73 65 74 67 69 64 28 | 70 77 64 2d 3e 70 77 5f |.setgid(|pwd->pw_|
|00003900| 67 69 64 29 3b 0a 58 09 | 09 09 73 65 74 75 69 64 |gid);.X.|..setuid|
|00003910| 28 70 77 64 2d 3e 70 77 | 5f 75 69 64 29 3b 0a 58 |(pwd->pw|_uid);.X|
|00003920| 09 09 09 75 6d 61 73 6b | 28 30 36 36 29 3b 0a 58 |...umask|(066);.X|
|00003930| 09 09 09 69 66 20 28 28 | 6f 75 74 66 69 6c 65 20 |...if ((|outfile |
|00003940| 3d 20 70 6f 70 65 6e 28 | 74 65 6d 70 2c 20 22 77 |= popen(|temp, "w|
|00003950| 22 29 29 20 3d 3d 20 28 | 46 49 4c 45 20 2a 29 20 |")) == (|FILE *) |
|00003960| 4e 55 4c 4c 29 0a 58 09 | 09 09 09 5f 65 78 69 74 |NULL).X.|..._exit|
|00003970| 28 31 29 3b 0a 58 09 09 | 09 63 6f 70 79 28 6f 75 |(1);.X..|.copy(ou|
|00003980| 74 66 69 6c 65 2c 20 69 | 6e 5f 66 64 2c 20 61 75 |tfile, i|n_fd, au|
|00003990| 74 68 6f 72 29 3b 0a 58 | 09 09 09 69 66 20 28 70 |thor);.X|...if (p|
|000039a0| 63 6c 6f 73 65 28 6f 75 | 74 66 69 6c 65 29 29 0a |close(ou|tfile)).|
|000039b0| 58 09 09 09 09 5f 65 78 | 69 74 28 31 29 3b 0a 58 |X...._ex|it(1);.X|
|000039c0| 09 09 09 5f 65 78 69 74 | 28 30 29 3b 0a 58 09 09 |..._exit|(0);.X..|
|000039d0| 7d 0a 58 09 7d 20 65 6c | 73 65 20 7b 0a 58 09 09 |}.X.} el|se {.X..|
|000039e0| 69 66 20 28 64 65 73 74 | 5b 30 5d 20 3d 3d 20 27 |if (dest|[0] == '|
|000039f0| 7c 27 29 20 7b 0a 58 09 | 09 09 69 66 20 28 28 70 ||') {.X.|..if ((p|
|00003a00| 77 64 20 3d 20 67 65 74 | 70 77 6e 61 6d 28 75 73 |wd = get|pwnam(us|
|00003a10| 65 72 29 29 20 3d 3d 20 | 28 73 74 72 75 63 74 20 |er)) == |(struct |
|00003a20| 70 61 73 73 77 64 20 2a | 29 20 4e 55 4c 4c 29 0a |passwd *|) NULL).|
|00003a30| 58 09 09 09 09 70 77 64 | 20 3d 20 70 77 64 5f 6d |X....pwd| = pwd_m|
|00003a40| 61 69 6c 6d 61 6e 3b 0a | 58 09 09 09 69 66 20 28 |ailman;.|X...if (|
|00003a50| 70 69 64 20 3d 20 66 6f | 72 6b 28 29 29 20 7b 0a |pid = fo|rk()) {.|
|00003a60| 58 09 09 09 09 77 68 69 | 6c 65 20 28 28 77 20 3d |X....whi|le ((w =|
|00003a70| 20 77 61 69 74 28 26 73 | 74 61 74 75 73 29 29 20 | wait(&s|tatus)) |
|00003a80| 21 3d 20 70 69 64 20 26 | 26 20 77 20 21 3d 20 2d |!= pid &|& w != -|
|00003a90| 31 29 0a 58 09 09 09 09 | 09 3b 0a 58 09 09 09 09 |1).X....|.;.X....|
|00003aa0| 69 66 20 28 73 74 61 74 | 75 73 20 7c 7c 20 77 20 |if (stat|us || w |
|00003ab0| 3d 3d 20 2d 31 29 20 7b | 0a 58 09 09 09 09 09 28 |== -1) {|.X.....(|
|00003ac0| 76 6f 69 64 29 20 66 70 | 72 69 6e 74 66 28 73 74 |void) fp|rintf(st|
|00003ad0| 64 65 72 72 2c 20 22 5c | 6e 43 61 6e 6e 6f 74 20 |derr, "\|nCannot |
|00003ae0| 70 69 70 65 20 74 6f 20 | 70 72 6f 67 72 61 6d 20 |pipe to |program |
|00003af0| 25 73 5c 6e 22 2c 20 64 | 65 73 74 29 3b 0a 58 09 |%s\n", d|est);.X.|
|00003b00| 09 09 09 09 72 65 74 75 | 72 6e 28 38 29 3b 0a 58 |....retu|rn(8);.X|
|00003b10| 09 09 09 09 7d 0a 58 09 | 09 09 7d 20 65 6c 73 65 |....}.X.|..} else|
|00003b20| 20 7b 0a 58 09 09 09 09 | 73 65 74 67 69 64 28 70 | {.X....|setgid(p|
|00003b30| 77 64 2d 3e 70 77 5f 67 | 69 64 29 3b 0a 58 09 09 |wd->pw_g|id);.X..|
|00003b40| 09 09 73 65 74 75 69 64 | 28 70 77 64 2d 3e 70 77 |..setuid|(pwd->pw|
|00003b50| 5f 75 69 64 29 3b 0a 58 | 09 09 09 09 75 6d 61 73 |_uid);.X|....umas|
|00003b60| 6b 28 30 36 36 29 3b 0a | 58 09 09 09 09 69 66 20 |k(066);.|X....if |
|00003b70| 28 28 6f 75 74 66 69 6c | 65 20 3d 20 70 6f 70 65 |((outfil|e = pope|
|00003b80| 6e 28 64 65 73 74 20 2b | 20 31 2c 20 22 77 22 29 |n(dest +| 1, "w")|
|00003b90| 29 20 3d 3d 20 28 46 49 | 4c 45 20 2a 29 20 4e 55 |) == (FI|LE *) NU|
|00003ba0| 4c 4c 29 0a 58 09 09 09 | 09 09 5f 65 78 69 74 28 |LL).X...|.._exit(|
|00003bb0| 31 29 3b 0a 58 09 09 09 | 09 63 6f 70 79 28 6f 75 |1);.X...|.copy(ou|
|00003bc0| 74 66 69 6c 65 2c 20 69 | 6e 5f 66 64 2c 20 61 75 |tfile, i|n_fd, au|
|00003bd0| 74 68 6f 72 29 3b 0a 58 | 09 09 09 09 69 66 20 28 |thor);.X|....if (|
|00003be0| 70 63 6c 6f 73 65 28 6f | 75 74 66 69 6c 65 29 29 |pclose(o|utfile))|
|00003bf0| 0a 58 09 09 09 09 09 5f | 65 78 69 74 28 31 29 3b |.X....._|exit(1);|
|00003c00| 0a 58 09 09 09 09 5f 65 | 78 69 74 28 30 29 3b 0a |.X...._e|xit(0);.|
|00003c10| 58 09 09 09 7d 0a 58 09 | 09 7d 20 65 6c 73 65 20 |X...}.X.|.} else |
|00003c20| 7b 20 0a 58 09 09 09 69 | 66 20 28 64 65 73 74 5b |{ .X...i|f (dest[|
|00003c30| 30 5d 20 3d 3d 20 27 2f | 27 29 20 7b 0a 58 09 09 |0] == '/|') {.X..|
|00003c40| 09 09 69 66 20 28 28 70 | 77 64 20 3d 20 67 65 74 |..if ((p|wd = get|
|00003c50| 70 77 6e 61 6d 28 75 73 | 65 72 29 29 20 3d 3d 20 |pwnam(us|er)) == |
|00003c60| 28 73 74 72 75 63 74 20 | 70 61 73 73 77 64 20 2a |(struct |passwd *|
|00003c70| 29 20 4e 55 4c 4c 29 0a | 58 09 09 09 09 09 70 77 |) NULL).|X.....pw|
|00003c80| 64 20 3d 20 70 77 64 5f | 6d 61 69 6c 6d 61 6e 3b |d = pwd_|mailman;|
|00003c90| 0a 58 09 09 09 09 69 66 | 20 28 70 69 64 20 3d 20 |.X....if| (pid = |
|00003ca0| 66 6f 72 6b 28 29 29 20 | 7b 0a 58 09 09 09 09 09 |fork()) |{.X.....|
|00003cb0| 77 68 69 6c 65 20 28 28 | 77 20 3d 20 77 61 69 74 |while ((|w = wait|
|00003cc0| 28 26 73 74 61 74 75 73 | 29 29 20 21 3d 20 70 69 |(&status|)) != pi|
|00003cd0| 64 20 26 26 20 77 20 21 | 3d 20 2d 31 29 0a 58 09 |d && w !|= -1).X.|
|00003ce0| 09 09 09 09 09 3b 09 2f | 2a 20 4e 4f 5f 4f 50 20 |.....;./|* NO_OP |
|00003cf0| 2a 2f 0a 58 09 09 09 09 | 09 69 66 20 28 73 74 61 |*/.X....|.if (sta|
|00003d00| 74 75 73 20 7c 7c 20 77 | 20 3d 3d 20 2d 31 29 20 |tus || w| == -1) |
|00003d10| 7b 0a 58 09 09 09 09 09 | 09 28 76 6f 69 64 29 20 |{.X.....|.(void) |
|00003d20| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00003d30| 22 5c 6e 43 61 6e 6e 6f | 74 20 73 61 76 65 20 69 |"\nCanno|t save i|
|00003d40| 6e 20 66 69 6c 65 20 25 | 73 5c 6e 22 2c 20 64 65 |n file %|s\n", de|
|00003d50| 73 74 29 3b 0a 58 09 09 | 09 09 09 09 72 65 74 75 |st);.X..|....retu|
|00003d60| 72 6e 28 38 29 3b 0a 58 | 09 09 09 09 09 7d 0a 58 |rn(8);.X|.....}.X|
|00003d70| 09 09 09 09 7d 20 65 6c | 73 65 20 7b 0a 58 09 09 |....} el|se {.X..|
|00003d80| 09 09 09 73 65 74 67 69 | 64 28 70 77 64 2d 3e 70 |...setgi|d(pwd->p|
|00003d90| 77 5f 67 69 64 29 3b 0a | 58 09 09 09 09 09 73 65 |w_gid);.|X.....se|
|00003da0| 74 75 69 64 28 70 77 64 | 2d 3e 70 77 5f 75 69 64 |tuid(pwd|->pw_uid|
|00003db0| 29 3b 0a 58 09 09 09 09 | 09 75 6d 61 73 6b 28 30 |);.X....|.umask(0|
|00003dc0| 36 36 29 3b 0a 58 09 09 | 09 09 09 6c 6f 63 6b 32 |66);.X..|...lock2|
|00003dd0| 28 64 65 73 74 29 3b 0a | 58 09 09 09 09 09 69 66 |(dest);.|X.....if|
|00003de0| 20 28 28 6f 75 74 66 69 | 6c 65 20 3d 20 66 6f 70 | ((outfi|le = fop|
|00003df0| 65 6e 28 64 65 73 74 2c | 20 22 61 22 29 29 20 3d |en(dest,| "a")) =|
|00003e00| 3d 20 28 46 49 4c 45 20 | 2a 29 20 4e 55 4c 4c 29 |= (FILE |*) NULL)|
|00003e10| 0a 58 09 09 09 09 09 09 | 5f 65 78 69 74 28 31 29 |.X......|_exit(1)|
|00003e20| 3b 0a 58 09 09 09 09 09 | 63 6f 70 79 28 6f 75 74 |;.X.....|copy(out|
|00003e30| 66 69 6c 65 2c 20 69 6e | 5f 66 64 2c 20 61 75 74 |file, in|_fd, aut|
|00003e40| 68 6f 72 29 3b 0a 58 09 | 09 09 09 09 66 63 6c 6f |hor);.X.|....fclo|
|00003e50| 73 65 28 6f 75 74 66 69 | 6c 65 29 3b 0a 58 09 09 |se(outfi|le);.X..|
|00003e60| 09 09 09 75 6e 6c 6f 63 | 6b 28 64 65 73 74 29 3b |...unloc|k(dest);|
|00003e70| 0a 58 09 09 09 09 09 5f | 65 78 69 74 28 30 29 3b |.X....._|exit(0);|
|00003e80| 0a 58 09 09 09 09 7d 0a | 58 09 09 09 7d 20 65 6c |.X....}.|X...} el|
|00003e90| 73 65 20 7b 09 09 2f 2a | 20 61 20 6c 6f 63 61 6c |se {../*| a local|
|00003ea0| 20 75 73 65 72 20 61 64 | 64 72 65 73 73 20 2a 2f | user ad|dress */|
|00003eb0| 0a 58 09 09 09 09 2f 2a | 0a 58 09 09 09 09 20 2a |.X..../*|.X.... *|
|00003ec0| 20 43 68 65 63 6b 20 69 | 66 20 74 68 69 73 20 69 | Check i|f this i|
|00003ed0| 73 20 61 20 76 61 6c 69 | 64 20 75 73 65 72 0a 58 |s a vali|d user.X|
|00003ee0| 09 09 09 09 20 2a 2f 0a | 58 09 09 09 09 69 66 20 |.... */.|X....if |
|00003ef0| 28 28 70 77 64 20 3d 20 | 67 65 74 70 77 6e 61 6d |((pwd = |getpwnam|
|00003f00| 28 64 65 73 74 29 29 20 | 3d 3d 20 4e 55 4c 4c 29 |(dest)) |== NULL)|
|00003f10| 20 7b 0a 58 09 09 09 09 | 09 28 76 6f 69 64 29 20 | {.X....|.(void) |
|00003f20| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00003f30| 22 55 73 65 72 20 25 73 | 20 64 6f 65 73 20 6e 6f |"User %s| does no|
|00003f40| 74 20 65 78 69 73 74 5c | 6e 22 2c 20 64 65 73 74 |t exist\|n", dest|
|00003f50| 29 3b 0a 58 09 09 09 09 | 09 72 65 74 75 72 6e 28 |);.X....|.return(|
|00003f60| 34 29 3b 0a 58 09 09 09 | 09 7d 0a 58 09 09 09 09 |4);.X...|.}.X....|
|00003f70| 69 66 20 28 70 69 64 20 | 3d 20 66 6f 72 6b 28 29 |if (pid |= fork()|
|00003f80| 29 20 7b 0a 58 09 09 09 | 09 09 77 68 69 6c 65 20 |) {.X...|..while |
|00003f90| 28 28 77 20 3d 20 77 61 | 69 74 28 26 73 74 61 74 |((w = wa|it(&stat|
|00003fa0| 75 73 29 29 20 21 3d 20 | 70 69 64 20 26 26 20 77 |us)) != |pid && w|
|00003fb0| 20 21 3d 20 2d 31 29 0a | 58 09 09 09 09 09 09 3b | != -1).|X......;|
|00003fc0| 0a 58 09 09 09 09 09 69 | 66 20 28 73 74 61 74 75 |.X.....i|f (statu|
|00003fd0| 73 20 7c 7c 20 77 20 3d | 3d 20 2d 31 29 20 7b 0a |s || w =|= -1) {.|
|00003fe0| 58 09 09 09 09 09 09 28 | 76 6f 69 64 29 20 66 70 |X......(|void) fp|
|00003ff0| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 20 22 5c |rintf(st|derr, "\|
|00004000| 6e 43 61 6e 6e 6f 74 20 | 73 61 76 65 20 69 6e 20 |nCannot |save in |
|00004010| 66 69 6c 65 20 25 73 5c | 6e 22 2c 20 64 65 73 74 |file %s\|n", dest|
|00004020| 29 3b 0a 58 09 09 09 09 | 09 09 72 65 74 75 72 6e |);.X....|..return|
|00004030| 28 38 29 3b 0a 58 09 09 | 09 09 09 7d 0a 58 09 09 |(8);.X..|...}.X..|
|00004040| 09 09 7d 20 65 6c 73 65 | 20 7b 0a 58 09 09 09 09 |..} else| {.X....|
|00004050| 09 73 65 74 67 69 64 28 | 4d 41 49 4c 47 49 44 29 |.setgid(|MAILGID)|
|00004060| 3b 0a 58 09 09 09 09 09 | 73 65 74 75 69 64 28 70 |;.X.....|setuid(p|
|00004070| 77 64 5f 6d 61 69 6c 6d | 61 6e 2d 3e 70 77 5f 75 |wd_mailm|an->pw_u|
|00004080| 69 64 29 3b 09 2f 2a 20 | 67 69 76 65 20 75 70 20 |id);./* |give up |
|00004090| 72 6f 6f 74 20 75 69 64 | 20 2a 2f 0a 58 09 09 09 |root uid| */.X...|
|000040a0| 09 09 73 70 72 69 6e 74 | 66 28 74 65 6d 70 2c 20 |..sprint|f(temp, |
|000040b0| 22 25 73 25 73 22 2c 20 | 4d 41 49 4c 5f 44 49 52 |"%s%s", |MAIL_DIR|
|000040c0| 2c 20 64 65 73 74 29 3b | 0a 58 09 09 09 09 09 6c |, dest);|.X.....l|
|000040d0| 6f 63 6b 28 74 65 6d 70 | 29 3b 0a 58 09 09 09 09 |ock(temp|);.X....|
|000040e0| 09 73 74 61 74 75 73 20 | 3d 20 30 3b 0a 58 09 09 |.status |= 0;.X..|
|000040f0| 09 09 09 69 66 20 28 28 | 6f 75 74 66 69 6c 65 20 |...if ((|outfile |
|00004100| 3d 20 66 6f 70 65 6e 28 | 74 65 6d 70 2c 20 22 61 |= fopen(|temp, "a|
|00004110| 22 29 29 20 3d 3d 20 4e | 55 4c 4c 29 20 7b 0a 58 |")) == N|ULL) {.X|
|00004120| 09 09 09 09 09 09 28 76 | 6f 69 64 29 20 66 70 72 |......(v|oid) fpr|
|00004130| 69 6e 74 66 28 73 74 64 | 65 72 72 2c 20 22 2a 2a |intf(std|err, "**|
|00004140| 20 43 61 6e 27 74 20 6f | 70 65 6e 20 75 73 65 72 | Can't o|pen user|
|00004150| 20 6d 61 69 6c 20 66 69 | 6c 65 20 25 73 5c 6e 22 | mail fi|le %s\n"|
|00004160| 2c 20 74 65 6d 70 29 3b | 0a 58 09 09 09 09 09 09 |, temp);|.X......|
|00004170| 73 74 61 74 75 73 20 3d | 20 35 3b 0a 58 09 09 09 |status =| 5;.X...|
|00004180| 09 09 7d 20 65 6c 73 65 | 0a 58 09 09 09 09 09 09 |..} else|.X......|
|00004190| 63 6f 70 79 28 6f 75 74 | 66 69 6c 65 2c 20 69 6e |copy(out|file, in|
|000041a0| 5f 66 64 2c 20 61 75 74 | 68 6f 72 29 3b 0a 58 09 |_fd, aut|hor);.X.|
|000041b0| 09 09 09 09 63 68 6f 77 | 6e 28 74 65 6d 70 2c 20 |....chow|n(temp, |
|000041c0| 28 69 6e 74 29 70 77 64 | 2d 3e 70 77 5f 75 69 64 |(int)pwd|->pw_uid|
|000041d0| 2c 20 4d 41 49 4c 47 49 | 44 29 3b 0a 58 09 09 09 |, MAILGI|D);.X...|
|000041e0| 09 09 69 66 20 28 66 63 | 6c 6f 73 65 28 6f 75 74 |..if (fc|lose(out|
|000041f0| 66 69 6c 65 29 29 20 7b | 0a 58 09 09 09 09 09 09 |file)) {|.X......|
|00004200| 28 76 6f 69 64 29 20 66 | 70 72 69 6e 74 66 28 73 |(void) f|printf(s|
|00004210| 74 64 65 72 72 2c 20 22 | 2a 2a 20 43 6f 75 6c 64 |tderr, "|** Could|
|00004220| 20 6e 6f 74 20 63 6c 6f | 73 65 20 6d 61 69 6c 20 | not clo|se mail |
|00004230| 66 69 6c 65 20 25 73 5c | 6e 22 2c 20 74 65 6d 70 |file %s\|n", temp|
|00004240| 29 3b 0a 58 09 09 09 09 | 09 09 73 74 61 74 75 73 |);.X....|..status|
|00004250| 20 3d 20 37 3b 0a 58 09 | 09 09 09 09 7d 0a 58 09 | = 7;.X.|....}.X.|
|00004260| 09 09 09 09 75 6e 6c 6f | 63 6b 28 74 65 6d 70 29 |....unlo|ck(temp)|
|00004270| 3b 0a 58 09 09 09 09 09 | 5f 65 78 69 74 28 73 74 |;.X.....|_exit(st|
|00004280| 61 74 75 73 29 3b 0a 58 | 09 09 09 09 7d 0a 58 09 |atus);.X|....}.X.|
|00004290| 09 09 7d 0a 58 09 09 7d | 0a 58 09 7d 0a 58 09 72 |..}.X..}|.X.}.X.r|
|000042a0| 65 74 75 72 6e 28 30 29 | 3b 0a 58 7d 0a 58 0a 58 |eturn(0)|;.X}.X.X|
|000042b0| 76 6f 69 64 0a 58 63 6f | 70 79 28 6f 75 74 2c 20 |void.Xco|py(out, |
|000042c0| 69 6e 2c 20 66 72 6f 6d | 29 0a 58 09 46 49 4c 45 |in, from|).X.FILE|
|000042d0| 09 2a 6f 75 74 3b 0a 58 | 09 46 49 4c 45 09 2a 69 |.*out;.X|.FILE.*i|
|000042e0| 6e 3b 0a 58 09 63 68 61 | 72 09 2a 66 72 6f 6d 3b |n;.X.cha|r.*from;|
|000042f0| 0a 58 7b 0a 58 09 63 68 | 61 72 09 74 65 6d 70 5b |.X{.X.ch|ar.temp[|
|00004300| 4d 41 58 5f 4c 49 4e 45 | 5d 3b 0a 58 0a 58 09 2f |MAX_LINE|];.X.X./|
|00004310| 2a 0a 58 09 20 2a 20 54 | 68 72 6f 77 20 61 77 61 |*.X. * T|hrow awa|
|00004320| 79 20 46 72 6f 6d 5f 20 | 6c 69 6e 65 20 61 6e 64 |y From_ |line and|
|00004330| 20 72 65 70 6c 61 63 65 | 20 77 69 74 68 20 6f 75 | replace| with ou|
|00004340| 72 20 6f 77 6e 0a 58 09 | 20 2a 2f 0a 58 09 66 67 |r own.X.| */.X.fg|
|00004350| 65 74 73 28 74 65 6d 70 | 2c 20 4d 41 58 5f 4c 49 |ets(temp|, MAX_LI|
|00004360| 4e 45 2c 20 69 6e 29 3b | 0a 58 09 28 76 6f 69 64 |NE, in);|.X.(void|
|00004370| 29 20 66 70 72 69 6e 74 | 66 28 6f 75 74 2c 20 46 |) fprint|f(out, F|
|00004380| 52 4f 4d 5f 46 4d 54 2c | 20 66 72 6f 6d 2c 20 63 |ROM_FMT,| from, c|
|00004390| 74 69 6d 65 28 26 69 6f | 70 29 29 3b 0a 58 09 77 |time(&io|p));.X.w|
|000043a0| 68 69 6c 65 20 28 66 67 | 65 74 73 28 74 65 6d 70 |hile (fg|ets(temp|
|000043b0| 2c 20 4d 41 58 5f 4c 49 | 4e 45 2c 20 69 6e 29 20 |, MAX_LI|NE, in) |
|000043c0| 21 3d 20 4e 55 4c 4c 29 | 20 7b 0a 58 09 09 69 66 |!= NULL)| {.X..if|
|000043d0| 20 28 73 74 72 6e 63 6d | 70 28 74 65 6d 70 2c 20 | (strncm|p(temp, |
|000043e0| 46 52 4f 4d 5f 4c 49 4e | 45 2c 20 73 69 7a 65 6f |FROM_LIN|E, sizeo|
|000043f0| 66 28 46 52 4f 4d 5f 4c | 49 4e 45 29 20 2d 20 31 |f(FROM_L|INE) - 1|
|00004400| 29 20 3d 3d 20 30 29 0a | 58 09 09 09 28 76 6f 69 |) == 0).|X...(voi|
|00004410| 64 29 20 66 70 75 74 63 | 28 46 52 4f 4d 5f 50 52 |d) fputc|(FROM_PR|
|00004420| 45 46 58 2c 20 6f 75 74 | 29 3b 20 0a 58 09 09 28 |EFX, out|); .X..(|
|00004430| 76 6f 69 64 29 20 66 70 | 75 74 73 28 74 65 6d 70 |void) fp|uts(temp|
|00004440| 2c 20 6f 75 74 29 3b 0a | 58 09 7d 0a 58 09 28 76 |, out);.|X.}.X.(v|
|00004450| 6f 69 64 29 20 66 70 75 | 74 63 28 27 5c 6e 27 2c |oid) fpu|tc('\n',|
|00004460| 20 6f 75 74 29 3b 0a 58 | 09 72 65 74 75 72 6e 3b | out);.X|.return;|
|00004470| 0a 58 7d 0a 58 0a 58 2f | 2a 0a 58 20 2a 20 54 68 |.X}.X.X/|*.X * Th|
|00004480| 69 73 20 72 6f 75 74 69 | 6e 65 20 77 6f 72 6b 73 |is routi|ne works|
|00004490| 20 77 68 69 6c 65 20 75 | 69 64 20 3d 20 72 6f 6f | while u|id = roo|
|000044a0| 74 0a 58 20 2a 2f 0a 58 | 76 6f 69 64 0a 58 6c 6f |t.X */.X|void.Xlo|
|000044b0| 63 6b 28 66 69 6c 65 29 | 0a 58 09 63 68 61 72 09 |ck(file)|.X.char.|
|000044c0| 2a 66 69 6c 65 3b 0a 58 | 7b 0a 58 09 63 68 61 72 |*file;.X|{.X.char|
|000044d0| 09 6c 6f 63 6b 66 69 6c | 65 5b 50 41 54 48 5f 4d |.lockfil|e[PATH_M|
|000044e0| 41 58 5d 3b 0a 58 09 69 | 6e 74 09 69 3b 0a 58 0a |AX];.X.i|nt.i;.X.|
|000044f0| 58 09 28 76 6f 69 64 29 | 20 73 74 72 63 70 79 28 |X.(void)| strcpy(|
|00004500| 6c 6f 63 6b 66 69 6c 65 | 2c 20 66 69 6c 65 29 3b |lockfile|, file);|
|00004510| 0a 58 09 28 76 6f 69 64 | 29 20 73 74 72 63 61 74 |.X.(void|) strcat|
|00004520| 28 6c 6f 63 6b 66 69 6c | 65 2c 20 4c 4f 43 4b 5f |(lockfil|e, LOCK_|
|00004530| 53 55 46 46 29 3b 0a 58 | 09 66 6f 72 20 28 69 20 |SUFF);.X|.for (i |
|00004540| 3d 20 30 3b 20 69 20 3c | 20 31 30 30 3b 20 69 2b |= 0; i <| 100; i+|
|00004550| 2b 29 20 7b 0a 58 09 09 | 69 66 20 28 6c 69 6e 6b |+) {.X..|if (link|
|00004560| 28 4c 4f 43 4b 5f 46 49 | 4c 45 2c 20 6c 6f 63 6b |(LOCK_FI|LE, lock|
|00004570| 66 69 6c 65 29 20 3d 3d | 20 30 29 0a 58 09 09 09 |file) ==| 0).X...|
|00004580| 72 65 74 75 72 6e 3b 0a | 58 09 09 73 6c 65 65 70 |return;.|X..sleep|
|00004590| 28 35 29 3b 0a 58 09 7d | 09 0a 58 09 72 65 74 75 |(5);.X.}|..X.retu|
|000045a0| 72 6e 3b 0a 58 7d 0a 58 | 0a 58 2f 2a 0a 58 20 2a |rn;.X}.X|.X/*.X *|
|000045b0| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 69 73 | This ro|utine is|
|000045c0| 20 75 73 65 64 20 66 6f | 72 20 66 69 6c 65 73 20 | used fo|r files |
|000045d0| 69 6e 20 75 73 65 72 27 | 73 20 64 69 72 65 63 74 |in user'|s direct|
|000045e0| 6f 72 69 65 73 0a 58 20 | 2a 2f 0a 58 6c 6f 63 6b |ories.X |*/.Xlock|
|000045f0| 32 28 66 69 6c 65 29 0a | 58 09 63 68 61 72 09 2a |2(file).|X.char.*|
|00004600| 66 69 6c 65 3b 0a 58 7b | 0a 58 09 63 68 61 72 09 |file;.X{|.X.char.|
|00004610| 6c 6f 63 6b 66 69 6c 65 | 5b 50 41 54 48 5f 4d 41 |lockfile|[PATH_MA|
|00004620| 58 5d 3b 0a 58 09 69 6e | 74 09 66 3b 0a 58 09 69 |X];.X.in|t.f;.X.i|
|00004630| 6e 74 09 69 3b 0a 58 0a | 58 09 28 76 6f 69 64 29 |nt.i;.X.|X.(void)|
|00004640| 20 73 74 72 63 70 79 28 | 6c 6f 63 6b 66 69 6c 65 | strcpy(|lockfile|
|00004650| 2c 20 66 69 6c 65 29 3b | 0a 58 09 28 76 6f 69 64 |, file);|.X.(void|
|00004660| 29 20 73 74 72 63 61 74 | 28 6c 6f 63 6b 66 69 6c |) strcat|(lockfil|
|00004670| 65 2c 20 4c 4f 43 4b 5f | 53 55 46 46 29 3b 0a 58 |e, LOCK_|SUFF);.X|
|00004680| 09 66 6f 72 20 28 69 20 | 3d 20 30 3b 20 69 20 3c |.for (i |= 0; i <|
|00004690| 20 31 30 30 3b 20 69 2b | 2b 29 20 7b 0a 58 09 09 | 100; i+|+) {.X..|
|000046a0| 69 66 20 28 28 66 20 3d | 20 63 72 65 61 74 28 6c |if ((f =| creat(l|
|000046b0| 6f 63 6b 66 69 6c 65 2c | 20 30 29 29 20 3e 3d 20 |ockfile,| 0)) >= |
|000046c0| 30 29 20 7b 0a 58 09 09 | 09 63 6c 6f 73 65 28 66 |0) {.X..|.close(f|
|000046d0| 29 3b 0a 58 09 09 09 72 | 65 74 75 72 6e 3b 0a 58 |);.X...r|eturn;.X|
|000046e0| 09 09 7d 20 65 6c 73 65 | 0a 58 09 09 09 73 6c 65 |..} else|.X...sle|
|000046f0| 65 70 28 35 29 3b 0a 58 | 09 7d 09 0a 58 7d 0a 58 |ep(5);.X|.}..X}.X|
|00004700| 0a 58 76 6f 69 64 0a 58 | 75 6e 6c 6f 63 6b 28 66 |.Xvoid.X|unlock(f|
|00004710| 69 6c 65 29 0a 58 09 63 | 68 61 72 09 2a 66 69 6c |ile).X.c|har.*fil|
|00004720| 65 3b 0a 58 7b 0a 58 09 | 63 68 61 72 09 6c 6f 63 |e;.X{.X.|char.loc|
|00004730| 6b 66 69 6c 65 5b 50 41 | 54 48 5f 4d 41 58 5d 3b |kfile[PA|TH_MAX];|
|00004740| 0a 58 0a 58 09 28 76 6f | 69 64 29 20 73 74 72 63 |.X.X.(vo|id) strc|
|00004750| 70 79 28 6c 6f 63 6b 66 | 69 6c 65 2c 20 66 69 6c |py(lockf|ile, fil|
|00004760| 65 29 3b 0a 58 09 28 76 | 6f 69 64 29 20 73 74 72 |e);.X.(v|oid) str|
|00004770| 63 61 74 28 6c 6f 63 6b | 66 69 6c 65 2c 20 4c 4f |cat(lock|file, LO|
|00004780| 43 4b 5f 53 55 46 46 29 | 3b 0a 58 09 28 76 6f 69 |CK_SUFF)|;.X.(voi|
|00004790| 64 29 20 75 6e 6c 69 6e | 6b 28 6c 6f 63 6b 66 69 |d) unlin|k(lockfi|
|000047a0| 6c 65 29 3b 0a 58 09 72 | 65 74 75 72 6e 3b 0a 58 |le);.X.r|eturn;.X|
|000047b0| 7d 0a 58 0a 58 0a 45 4e | 44 5f 4f 46 5f 6c 6d 61 |}.X.X.EN|D_OF_lma|
|000047c0| 69 6c 2e 63 0a 69 66 20 | 74 65 73 74 20 31 35 39 |il.c.if |test 159|
|000047d0| 38 39 20 2d 6e 65 20 60 | 77 63 20 2d 63 20 3c 6c |89 -ne `|wc -c <l|
|000047e0| 6d 61 69 6c 2e 63 60 3b | 20 74 68 65 6e 0a 20 20 |mail.c`;| then.  |
|000047f0| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 5c 22 6c |  echo s|har: \"l|
|00004800| 6d 61 69 6c 2e 63 5c 22 | 20 75 6e 70 61 63 6b 65 |mail.c\"| unpacke|
|00004810| 64 20 77 69 74 68 20 77 | 72 6f 6e 67 20 73 69 7a |d with w|rong siz|
|00004820| 65 21 0a 66 69 0a 23 20 | 65 6e 64 20 6f 66 20 6f |e!.fi.# |end of o|
|00004830| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|00004840| 0a 66 69 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |.fi.echo| shar: E|
|00004850| 6e 64 20 6f 66 20 73 68 | 65 6c 6c 20 61 72 63 68 |nd of sh|ell arch|
|00004860| 69 76 65 2e 0a 65 78 69 | 74 20 30 0a 2d 2d 20 0a |ive..exi|t 0.-- .|
|00004870| 4a 6f 6e 20 5a 65 65 66 | 66 20 20 20 20 20 20 09 |Jon Zeef|f      .|
|00004880| 09 09 42 72 61 6e 63 68 | 20 54 65 63 68 6e 6f 6c |..Branch| Technol|
|00004890| 6f 67 79 2c 0a 75 6d 69 | 78 21 62 2d 74 65 63 68 |ogy,.umi|x!b-tech|
|000048a0| 21 7a 65 65 66 66 20 20 | 09 09 7a 65 65 66 66 40 |!zeeff  |..zeeff@|
|000048b0| 62 2d 74 65 63 68 2e 61 | 6e 6e 2d 61 72 62 6f 72 |b-tech.a|nn-arbor|
|000048c0| 2e 6d 69 2e 75 73 0a 0a | 0a                      |.mi.us..|.       |
+--------+-------------------------+-------------------------+--------+--------+