/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume07 / hostup

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 20 76 30 37 69 30 33 |Subject:|  v07i03|
|00000010| 37 3a 20 20 41 6e 20 61 | 6c 74 65 72 6e 61 74 69 |7:  An a|lternati|
|00000020| 76 65 20 74 6f 20 74 68 | 65 20 42 53 44 20 72 75 |ve to th|e BSD ru|
|00000030| 70 74 69 6d 65 20 63 6f | 6d 6d 61 6e 64 0a 4e 65 |ptime co|mmand.Ne|
|00000040| 77 73 67 72 6f 75 70 73 | 3a 20 6d 6f 64 2e 73 6f |wsgroups|: mod.so|
|00000050| 75 72 63 65 73 0a 41 70 | 70 72 6f 76 65 64 3a 20 |urces.Ap|proved: |
|00000060| 6d 69 72 72 6f 72 21 72 | 73 0a 0a 53 75 62 6d 69 |mirror!r|s..Submi|
|00000070| 74 74 65 64 20 62 79 3a | 20 61 6c 61 73 64 61 69 |tted by:| alasdai|
|00000080| 72 40 75 78 2e 63 73 2e | 6d 61 6e 2e 61 63 2e 75 |r@ux.cs.|man.ac.u|
|00000090| 6b 0a 4d 6f 64 2e 73 6f | 75 72 63 65 73 3a 20 56 |k.Mod.so|urces: V|
|000000a0| 6f 6c 75 6d 65 20 37 2c | 20 49 73 73 75 65 20 33 |olume 7,| Issue 3|
|000000b0| 37 0a 41 72 63 68 69 76 | 65 2d 6e 61 6d 65 3a 20 |7.Archiv|e-name: |
|000000c0| 68 6f 73 74 75 70 0a 0a | 5b 20 20 54 68 69 73 20 |hostup..|[  This |
|000000d0| 70 72 6f 67 72 61 6d 20 | 63 61 6e 20 62 65 20 76 |program |can be v|
|000000e0| 65 72 79 20 65 78 70 65 | 6e 73 69 76 65 20 74 6f |ery expe|nsive to|
|000000f0| 20 72 75 6e 2e 20 20 2d | 72 24 20 20 5d 0a 0a 49 | run.  -|r$  ]..I|
|00000100| 6e 73 70 69 72 65 64 20 | 62 79 20 74 68 65 20 54 |nspired |by the T|
|00000110| 65 6b 74 72 6f 6e 69 78 | 20 54 43 50 2f 49 50 20 |ektronix| TCP/IP |
|00000120| 27 68 6f 73 74 75 70 27 | 20 63 6f 6d 6d 61 6e 64 |'hostup'| command|
|00000130| 2c 20 49 27 76 65 20 64 | 6f 6e 65 20 61 6e 0a 65 |, I've d|one an.e|
|00000140| 71 75 69 76 61 6c 65 6e | 74 20 74 68 69 6e 67 20 |quivalen|t thing |
|00000150| 66 6f 72 20 34 2e 5b 32 | 33 5d 20 55 4e 49 58 2e |for 4.[2|3] UNIX.|
|00000160| 20 20 54 72 69 65 64 20 | 61 6e 64 20 74 65 73 74 |  Tried |and test|
|00000170| 65 64 20 6f 6e 20 61 20 | 34 2e 33 20 42 65 74 61 |ed on a |4.3 Beta|
|00000180| 0a 56 61 78 38 36 30 30 | 2c 20 61 6e 64 20 53 55 |.Vax8600|, and SU|
|00000190| 4e 33 20 76 65 72 73 69 | 6f 6e 20 33 2e 30 2e 20 |N3 versi|on 3.0. |
|000001a0| 20 49 74 27 73 20 70 72 | 69 6d 69 74 69 76 65 20 | It's pr|imitive |
|000001b0| 73 74 75 66 66 2c 20 73 | 6f 20 66 65 65 6c 20 66 |stuff, s|o feel f|
|000001c0| 72 65 65 20 74 6f 0a 65 | 6e 68 61 6e 63 65 20 69 |ree to.e|nhance i|
|000001d0| 74 20 74 6f 20 73 75 69 | 74 20 79 6f 75 72 20 6f |t to sui|t your o|
|000001e0| 77 6e 20 6e 65 65 64 73 | 21 0a 41 6c 61 73 64 61 |wn needs|!.Alasda|
|000001f0| 69 72 0a 23 21 20 2f 62 | 69 6e 2f 73 68 0a 23 20 |ir.#! /b|in/sh.# |
|00000200| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|00000210| 61 72 63 68 69 76 65 2c | 20 6d 65 61 6e 69 6e 67 |archive,| meaning|
|00000220| 3a 0a 23 20 31 2e 20 52 | 65 6d 6f 76 65 20 65 76 |:.# 1. R|emove ev|
|00000230| 65 72 79 74 68 69 6e 67 | 20 61 62 6f 76 65 20 74 |erything| above t|
|00000240| 68 65 20 23 21 20 2f 62 | 69 6e 2f 73 68 20 6c 69 |he #! /b|in/sh li|
|00000250| 6e 65 2e 0a 23 20 32 2e | 20 53 61 76 65 20 74 68 |ne..# 2.| Save th|
|00000260| 65 20 72 65 73 75 6c 74 | 69 6e 67 20 74 65 78 74 |e result|ing text|
|00000270| 20 69 6e 20 61 20 66 69 | 6c 65 2e 0a 23 20 33 2e | in a fi|le..# 3.|
|00000280| 20 45 78 65 63 75 74 65 | 20 74 68 65 20 66 69 6c | Execute| the fil|
|00000290| 65 20 77 69 74 68 20 2f | 62 69 6e 2f 73 68 20 28 |e with /|bin/sh (|
|000002a0| 6e 6f 74 20 63 73 68 29 | 20 74 6f 20 63 72 65 61 |not csh)| to crea|
|000002b0| 74 65 20 74 68 65 20 66 | 69 6c 65 73 3a 0a 23 09 |te the f|iles:.#.|
|000002c0| 68 6f 73 74 75 70 2e 31 | 0a 23 09 4d 61 6b 65 66 |hostup.1|.#.Makef|
|000002d0| 69 6c 65 0a 23 09 68 6f | 73 74 75 70 2e 63 0a 23 |ile.#.ho|stup.c.#|
|000002e0| 09 68 6f 73 74 75 70 2e | 68 0a 23 09 68 6f 73 74 |.hostup.|h.#.host|
|000002f0| 75 70 64 2e 63 0a 23 20 | 54 68 69 73 20 61 72 63 |upd.c.# |This arc|
|00000300| 68 69 76 65 20 63 72 65 | 61 74 65 64 3a 20 53 61 |hive cre|ated: Sa|
|00000310| 74 20 53 65 70 20 20 36 | 20 31 36 3a 30 31 3a 35 |t Sep  6| 16:01:5|
|00000320| 31 20 31 39 38 36 0a 65 | 78 70 6f 72 74 20 50 41 |1 1986.e|xport PA|
|00000330| 54 48 3b 20 50 41 54 48 | 3d 2f 62 69 6e 3a 24 50 |TH; PATH|=/bin:$P|
|00000340| 41 54 48 0a 65 63 68 6f | 20 73 68 61 72 3a 20 65 |ATH.echo| shar: e|
|00000350| 78 74 72 61 63 74 69 6e | 67 20 22 27 68 6f 73 74 |xtractin|g "'host|
|00000360| 75 70 2e 31 27 22 20 27 | 28 31 33 38 36 20 63 68 |up.1'" '|(1386 ch|
|00000370| 61 72 61 63 74 65 72 73 | 29 27 0a 69 66 20 74 65 |aracters|)'.if te|
|00000380| 73 74 20 2d 66 20 27 68 | 6f 73 74 75 70 2e 31 27 |st -f 'h|ostup.1'|
|00000390| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|000003a0| 3a 20 77 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: will n|ot over-|
|000003b0| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|000003c0| 69 6c 65 20 22 27 68 6f | 73 74 75 70 2e 31 27 22 |ile "'ho|stup.1'"|
|000003d0| 0a 65 6c 73 65 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |.else.ca|t << \SH|
|000003e0| 41 52 5f 45 4f 46 20 3e | 20 27 68 6f 73 74 75 70 |AR_EOF >| 'hostup|
|000003f0| 2e 31 27 0a 2e 54 48 20 | 48 4f 53 54 55 50 20 6c |.1'..TH |HOSTUP l|
|00000400| 20 22 36 20 53 65 70 74 | 65 6d 62 65 72 20 31 39 | "6 Sept|ember 19|
|00000410| 38 36 22 0a 2e 53 48 20 | 4e 41 4d 45 0a 68 6f 73 |86"..SH |NAME.hos|
|00000420| 74 75 70 2c 20 68 6f 73 | 74 75 70 64 20 5c 2d 20 |tup, hos|tupd \- |
|00000430| 6e 65 74 77 6f 72 6b 20 | 73 74 61 74 75 73 20 72 |network |status r|
|00000440| 65 70 6f 72 74 0a 2e 53 | 48 20 53 59 4e 4f 50 53 |eport..S|H SYNOPS|
|00000450| 49 53 0a 2e 42 20 68 6f | 73 74 75 70 0a 2e 53 48 |IS..B ho|stup..SH|
|00000460| 20 44 45 53 43 52 49 50 | 54 49 4f 4e 0a 2e 49 20 | DESCRIP|TION..I |
|00000470| 68 6f 73 74 75 70 0a 70 | 72 69 6e 74 73 20 61 20 |hostup.p|rints a |
|00000480| 6c 69 73 74 20 6f 66 20 | 6e 65 74 77 6f 72 6b 20 |list of |network |
|00000490| 6e 6f 64 65 20 6e 61 6d | 65 73 2c 20 77 69 74 68 |node nam|es, with|
|000004a0| 20 61 6e 20 69 6e 64 69 | 63 61 74 69 6f 6e 20 6f | an indi|cation o|
|000004b0| 66 20 74 68 65 69 72 0a | 72 65 61 63 68 61 62 69 |f their.|reachabi|
|000004c0| 6c 69 74 79 2e 20 20 49 | 74 20 72 65 6c 69 65 73 |lity.  I|t relies|
|000004d0| 20 6f 6e 20 61 20 63 6f | 70 79 20 6f 66 0a 2e 49 | on a co|py of..I|
|000004e0| 20 68 6f 73 74 75 70 64 | 0a 72 75 6e 6e 69 6e 67 | hostupd|.running|
|000004f0| 3a 0a 2e 49 20 68 6f 73 | 74 75 70 64 0a 70 6f 6c |:..I hos|tupd.pol|
|00000500| 6c 73 20 6d 61 63 68 69 | 6e 65 73 20 69 6e 20 74 |ls machi|nes in t|
|00000510| 68 65 20 2f 65 74 63 2f | 68 6f 73 74 73 20 66 69 |he /etc/|hosts fi|
|00000520| 6c 65 20 61 6e 64 20 6d | 61 69 6e 74 61 69 6e 73 |le and m|aintains|
|00000530| 0a 61 20 62 69 6e 61 72 | 79 20 66 69 6c 65 20 6f |.a binar|y file o|
|00000540| 66 20 69 74 73 20 72 65 | 73 75 6c 74 73 2e 0a 2e |f its re|sults...|
|00000550| 50 50 0a 2e 49 20 68 6f | 73 74 75 70 64 0a 70 6f |PP..I ho|stupd.po|
|00000560| 6c 6c 73 20 65 61 63 68 | 20 6d 61 63 68 69 6e 65 |lls each| machine|
|00000570| 20 62 79 20 61 74 74 65 | 6d 70 74 69 6e 67 20 74 | by atte|mpting t|
|00000580| 6f 0a 2e 49 52 20 63 6f | 6e 6e 65 63 74 20 28 32 |o..IR co|nnect (2|
|00000590| 29 0a 74 6f 20 61 6e 20 | 75 6e 75 73 65 64 20 54 |).to an |unused T|
|000005a0| 43 50 20 70 6f 72 74 2c | 20 61 6e 64 20 6c 6f 67 |CP port,| and log|
|000005b0| 67 69 6e 67 20 74 68 65 | 20 74 79 70 65 20 6f 66 |ging the| type of|
|000005c0| 20 65 72 72 6f 72 20 72 | 65 74 75 72 6e 65 64 2e | error r|eturned.|
|000005d0| 20 20 54 68 69 73 0a 6d | 65 63 68 61 6e 69 73 6d |  This.m|echanism|
|000005e0| 20 69 73 20 61 20 75 73 | 65 66 75 6c 20 61 6c 74 | is a us|eful alt|
|000005f0| 65 72 6e 61 74 69 76 65 | 20 74 6f 0a 2e 49 52 20 |ernative| to..IR |
|00000600| 72 75 70 74 69 6d 65 20 | 28 31 29 2c 0a 61 73 20 |ruptime |(1),.as |
|00000610| 69 74 20 77 6f 72 6b 73 | 20 77 69 74 68 20 6e 6f |it works| with no|
|00000620| 6e 2d 42 53 44 20 6d 61 | 63 68 69 6e 65 73 2c 20 |n-BSD ma|chines, |
|00000630| 61 73 20 77 65 6c 6c 20 | 61 73 20 77 69 74 68 20 |as well |as with |
|00000640| 6d 61 63 68 69 6e 65 73 | 20 6e 6f 74 0a 72 75 6e |machines| not.run|
|00000650| 6e 69 6e 67 20 74 68 65 | 20 72 75 70 74 69 6d 65 |ning the| ruptime|
|00000660| 20 64 61 65 6d 6f 6e 20 | 28 73 75 63 68 20 61 73 | daemon |(such as|
|00000670| 20 64 69 73 6b 6c 65 73 | 73 0a 2e 42 20 53 55 4e | diskles|s..B SUN|
|00000680| 0a 77 6f 72 6b 73 74 61 | 74 69 6f 6e 73 29 2e 0a |.worksta|tions)..|
|00000690| 2e 53 48 20 22 53 45 45 | 20 41 4c 53 4f 22 0a 72 |.SH "SEE| ALSO".r|
|000006a0| 75 70 74 69 6d 65 28 31 | 29 0a 2e 62 72 0a 63 6f |uptime(1|)..br.co|
|000006b0| 6e 6e 65 63 74 28 32 29 | 0a 2e 53 48 20 42 55 47 |nnect(2)|..SH BUG|
|000006c0| 53 0a 54 68 65 20 70 6f | 6c 6c 69 6e 67 20 70 72 |S.The po|lling pr|
|000006d0| 6f 63 65 73 73 20 69 73 | 0a 2e 42 20 73 6c 6f 77 |ocess is|..B slow|
|000006e0| 0a 28 74 61 6b 69 6e 67 | 20 70 65 72 68 61 70 73 |.(taking| perhaps|
|000006f0| 20 37 35 20 6d 69 6e 75 | 74 65 73 20 74 6f 20 63 | 75 minu|tes to c|
|00000700| 6f 6d 70 6c 65 74 65 20 | 6f 6e 65 20 70 6f 6c 6c |omplete |one poll|
|00000710| 20 6f 66 20 74 68 65 20 | 69 6e 74 65 72 6e 61 6c | of the |internal|
|00000720| 0a 6e 65 74 77 6f 72 6b | 20 61 74 20 4d 61 6e 63 |.network| at Manc|
|00000730| 68 65 73 74 65 72 20 61 | 74 20 77 65 65 6b 65 6e |hester a|t weeken|
|00000740| 64 73 2c 20 77 68 65 6e | 20 6d 6f 73 74 20 6d 61 |ds, when| most ma|
|00000750| 63 68 69 6e 65 73 20 61 | 72 65 20 73 77 69 74 63 |chines a|re switc|
|00000760| 68 65 64 20 6f 66 66 29 | 0a 61 73 20 69 74 20 64 |hed off)|.as it d|
|00000770| 65 70 65 6e 64 73 20 75 | 70 6f 6e 20 74 68 65 0a |epends u|pon the.|
|00000780| 2e 49 52 20 63 6f 6e 6e | 65 63 74 20 28 32 29 0a |.IR conn|ect (2).|
|00000790| 74 69 6d 65 6f 75 74 20 | 66 6f 72 20 65 61 63 68 |timeout |for each|
|000007a0| 20 6d 61 63 68 69 6e 65 | 20 74 68 61 74 20 69 73 | machine| that is|
|000007b0| 20 64 6f 77 6e 2e 0a 2e | 50 50 0a 2e 49 20 68 6f | down...|PP..I ho|
|000007c0| 73 74 75 70 64 0a 63 75 | 72 72 65 6e 74 6c 79 20 |stupd.cu|rrently |
|000007d0| 73 6c 65 65 70 73 20 66 | 6f 72 20 35 20 6d 69 6e |sleeps f|or 5 min|
|000007e0| 75 74 65 73 20 65 76 65 | 72 79 20 74 69 6d 65 20 |utes eve|ry time |
|000007f0| 72 6f 75 6e 64 20 74 68 | 65 20 6c 6f 6f 70 20 6f |round th|e loop o|
|00000800| 66 20 6d 61 63 68 69 6e | 65 73 3a 0a 74 68 69 73 |f machin|es:.this|
|00000810| 20 69 73 20 6e 6f 74 20 | 73 74 72 69 63 74 6c 79 | is not |strictly|
|00000820| 20 6e 65 63 65 73 73 61 | 72 79 20 69 66 20 65 6e | necessa|ry if en|
|00000830| 6f 75 67 68 20 6d 61 63 | 68 69 6e 65 73 20 61 72 |ough mac|hines ar|
|00000840| 65 20 64 6f 77 6e 21 0a | 2e 50 50 0a 46 6f 72 20 |e down!.|.PP.For |
|00000850| 6d 61 63 68 69 6e 65 73 | 20 63 6f 6e 6e 65 63 74 |machines| connect|
|00000860| 65 64 20 74 6f 20 74 68 | 65 20 49 6e 74 65 72 6e |ed to th|e Intern|
|00000870| 65 74 2c 20 70 6f 6c 6c | 69 6e 67 20 65 76 65 72 |et, poll|ing ever|
|00000880| 79 20 6d 61 63 68 69 6e | 65 20 69 6e 0a 2f 65 74 |y machin|e in./et|
|00000890| 63 2f 68 6f 73 74 73 20 | 69 73 20 70 72 6f 62 61 |c/hosts |is proba|
|000008a0| 62 6c 79 20 61 20 6d 69 | 73 74 61 6b 65 2e 0a 2e |bly a mi|stake...|
|000008b0| 50 50 0a 54 68 65 20 6f | 72 64 65 72 20 6f 66 20 |PP.The o|rder of |
|000008c0| 70 6f 6c 6c 69 6e 67 20 | 61 6e 64 20 74 68 65 20 |polling |and the |
|000008d0| 66 6f 72 6d 61 74 20 6f | 66 20 64 69 73 70 6c 61 |format o|f displa|
|000008e0| 79 69 6e 67 20 74 68 65 | 20 68 6f 73 74 73 20 69 |ying the| hosts i|
|000008f0| 73 0a 6f 70 74 69 6d 69 | 73 65 64 20 66 6f 72 20 |s.optimi|sed for |
|00000900| 6d 79 20 6e 65 74 77 6f | 72 6b 20 61 6e 64 20 6d |my netwo|rk and m|
|00000910| 79 20 63 6f 6e 76 65 6e | 69 65 6e 63 65 2e 0a 2e |y conven|ience...|
|00000920| 53 48 20 41 55 54 48 4f | 52 0a 41 6c 61 73 64 61 |SH AUTHO|R.Alasda|
|00000930| 69 72 20 52 61 77 73 74 | 68 6f 72 6e 65 20 28 61 |ir Rawst|horne (a|
|00000940| 72 61 77 73 74 68 6f 72 | 6e 65 40 75 6b 2e 61 63 |rawsthor|ne@uk.ac|
|00000950| 2e 6d 61 6e 2e 63 73 2e | 75 78 29 2e 0a 0a 53 48 |.man.cs.|ux)...SH|
|00000960| 41 52 5f 45 4f 46 0a 69 | 66 20 74 65 73 74 20 31 |AR_EOF.i|f test 1|
|00000970| 33 38 36 20 2d 6e 65 20 | 22 60 77 63 20 2d 63 20 |386 -ne |"`wc -c |
|00000980| 3c 20 27 68 6f 73 74 75 | 70 2e 31 27 60 22 0a 74 |< 'hostu|p.1'`".t|
|00000990| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|000009a0| 65 72 72 6f 72 20 74 72 | 61 6e 73 6d 69 74 74 69 |error tr|ansmitti|
|000009b0| 6e 67 20 22 27 68 6f 73 | 74 75 70 2e 31 27 22 20 |ng "'hos|tup.1'" |
|000009c0| 27 28 73 68 6f 75 6c 64 | 20 68 61 76 65 20 62 65 |'(should| have be|
|000009d0| 65 6e 20 31 33 38 36 20 | 63 68 61 72 61 63 74 65 |en 1386 |characte|
|000009e0| 72 73 29 27 0a 66 69 0a | 66 69 20 23 20 65 6e 64 |rs)'.fi.|fi # end|
|000009f0| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00000a00| 63 68 65 63 6b 0a 65 63 | 68 6f 20 73 68 61 72 3a |check.ec|ho shar:|
|00000a10| 20 65 78 74 72 61 63 74 | 69 6e 67 20 22 27 4d 61 | extract|ing "'Ma|
|00000a20| 6b 65 66 69 6c 65 27 22 | 20 27 28 31 31 39 20 63 |kefile'"| '(119 c|
|00000a30| 68 61 72 61 63 74 65 72 | 73 29 27 0a 69 66 20 74 |haracter|s)'.if t|
|00000a40| 65 73 74 20 2d 66 20 27 | 4d 61 6b 65 66 69 6c 65 |est -f '|Makefile|
|00000a50| 27 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |'.then..|echo sha|
|00000a60| 72 3a 20 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: will |not over|
|00000a70| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|00000a80| 66 69 6c 65 20 22 27 4d | 61 6b 65 66 69 6c 65 27 |file "'M|akefile'|
|00000a90| 22 0a 65 6c 73 65 0a 63 | 61 74 20 3c 3c 20 5c 53 |".else.c|at << \S|
|00000aa0| 48 41 52 5f 45 4f 46 20 | 3e 20 27 4d 61 6b 65 66 |HAR_EOF |> 'Makef|
|00000ab0| 69 6c 65 27 0a 68 6f 73 | 74 75 70 3a 09 68 6f 73 |ile'.hos|tup:.hos|
|00000ac0| 74 75 70 2e 63 20 68 6f | 73 74 75 70 2e 68 0a 09 |tup.c ho|stup.h..|
|00000ad0| 63 63 20 2d 4f 20 2d 6f | 20 68 6f 73 74 75 70 20 |cc -O -o| hostup |
|00000ae0| 68 6f 73 74 75 70 2e 63 | 20 2d 6c 74 65 72 6d 63 |hostup.c| -ltermc|
|00000af0| 61 70 0a 0a 68 6f 73 74 | 75 70 64 3a 09 68 6f 73 |ap..host|upd:.hos|
|00000b00| 74 75 70 64 2e 63 20 68 | 6f 73 74 75 70 2e 68 0a |tupd.c h|ostup.h.|
|00000b10| 09 63 63 20 2d 4f 20 2d | 6f 20 68 6f 73 74 75 70 |.cc -O -|o hostup|
|00000b20| 64 20 68 6f 73 74 75 70 | 64 2e 63 0a 53 48 41 52 |d hostup|d.c.SHAR|
|00000b30| 5f 45 4f 46 0a 69 66 20 | 74 65 73 74 20 31 31 39 |_EOF.if |test 119|
|00000b40| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|00000b50| 4d 61 6b 65 66 69 6c 65 | 27 60 22 0a 74 68 65 6e |Makefile|'`".then|
|00000b60| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 65 72 72 |..echo s|har: err|
|00000b70| 6f 72 20 74 72 61 6e 73 | 6d 69 74 74 69 6e 67 20 |or trans|mitting |
|00000b80| 22 27 4d 61 6b 65 66 69 | 6c 65 27 22 20 27 28 73 |"'Makefi|le'" '(s|
|00000b90| 68 6f 75 6c 64 20 68 61 | 76 65 20 62 65 65 6e 20 |hould ha|ve been |
|00000ba0| 31 31 39 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |119 char|acters)'|
|00000bb0| 0a 66 69 0a 66 69 20 23 | 20 65 6e 64 20 6f 66 20 |.fi.fi #| end of |
|00000bc0| 6f 76 65 72 77 72 69 74 | 69 6e 67 20 63 68 65 63 |overwrit|ing chec|
|00000bd0| 6b 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 65 78 74 |k.echo s|har: ext|
|00000be0| 72 61 63 74 69 6e 67 20 | 22 27 68 6f 73 74 75 70 |racting |"'hostup|
|00000bf0| 2e 63 27 22 20 27 28 32 | 34 38 30 20 63 68 61 72 |.c'" '(2|480 char|
|00000c00| 61 63 74 65 72 73 29 27 | 0a 69 66 20 74 65 73 74 |acters)'|.if test|
|00000c10| 20 2d 66 20 27 68 6f 73 | 74 75 70 2e 63 27 0a 74 | -f 'hos|tup.c'.t|
|00000c20| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|00000c30| 77 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |will not| over-wr|
|00000c40| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00000c50| 65 20 22 27 68 6f 73 74 | 75 70 2e 63 27 22 0a 65 |e "'host|up.c'".e|
|00000c60| 6c 73 65 0a 63 61 74 20 | 3c 3c 20 5c 53 48 41 52 |lse.cat |<< \SHAR|
|00000c70| 5f 45 4f 46 20 3e 20 27 | 68 6f 73 74 75 70 2e 63 |_EOF > '|hostup.c|
|00000c80| 27 0a 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 64 69 |'.#inclu|de <stdi|
|00000c90| 6f 2e 68 3e 0a 0a 23 69 | 6e 63 6c 75 64 65 20 3c |o.h>..#i|nclude <|
|00000ca0| 65 72 72 6e 6f 2e 68 3e | 0a 23 69 6e 63 6c 75 64 |errno.h>|.#includ|
|00000cb0| 65 20 3c 73 79 73 2f 74 | 79 70 65 73 2e 68 3e 0a |e <sys/t|ypes.h>.|
|00000cc0| 23 69 6e 63 6c 75 64 65 | 20 3c 73 79 73 2f 73 6f |#include| <sys/so|
|00000cd0| 63 6b 65 74 2e 68 3e 0a | 23 69 6e 63 6c 75 64 65 |cket.h>.|#include|
|00000ce0| 20 3c 6e 65 74 69 6e 65 | 74 2f 69 6e 2e 68 3e 0a | <netine|t/in.h>.|
|00000cf0| 23 69 6e 63 6c 75 64 65 | 20 3c 73 79 73 2f 74 69 |#include| <sys/ti|
|00000d00| 6d 65 2e 68 3e 0a 0a 23 | 69 6e 63 6c 75 64 65 20 |me.h>..#|include |
|00000d10| 22 68 6f 73 74 75 70 2e | 68 22 0a 0a 23 64 65 66 |"hostup.|h"..#def|
|00000d20| 69 6e 65 20 46 49 45 4c | 44 57 49 44 54 48 20 31 |ine FIEL|DWIDTH 1|
|00000d30| 31 0a 0a 46 49 4c 45 20 | 2a 66 3b 09 09 09 2f 2a |1..FILE |*f;.../*|
|00000d40| 20 69 6e 70 75 74 20 66 | 69 6c 65 20 2a 2f 0a 73 | input f|ile */.s|
|00000d50| 74 72 75 63 74 20 74 69 | 6d 65 76 61 6c 20 20 66 |truct ti|meval  f|
|00000d60| 69 72 73 74 2c 20 6c 61 | 73 74 3b 09 2f 2a 20 47 |irst, la|st;./* G|
|00000d70| 4d 54 20 6f 66 20 70 6f | 6c 6c 73 20 2a 2f 0a 73 |MT of po|lls */.s|
|00000d80| 74 72 75 63 74 20 74 69 | 6d 65 7a 6f 6e 65 20 74 |truct ti|mezone t|
|00000d90| 69 6d 65 7a 6f 6e 65 3b | 09 2f 2a 20 6d 79 20 6f |imezone;|./* my o|
|00000da0| 66 66 73 65 74 20 2a 2f | 0a 63 68 61 72 20 2a 20 |ffset */|.char * |
|00000db0| 74 69 6d 65 6f 66 28 29 | 3b 0a 69 6e 74 20 63 75 |timeof()|;.int cu|
|00000dc0| 72 72 65 6e 74 70 6f 73 | 20 3d 20 30 2c 20 77 69 |rrentpos| = 0, wi|
|00000dd0| 64 74 68 20 3d 20 38 30 | 3b 09 2f 2a 20 66 6f 72 |dth = 80|;./* for|
|00000de0| 20 66 6f 72 6d 61 74 74 | 69 6e 67 20 73 63 72 65 | formatt|ing scre|
|00000df0| 65 6e 20 2a 2f 0a 63 68 | 61 72 20 74 62 75 66 5b |en */.ch|ar tbuf[|
|00000e00| 31 30 32 34 5d 3b 0a 0a | 75 5f 6c 6f 6e 67 20 6c |1024];..|u_long l|
|00000e10| 61 73 74 6e 65 74 77 6f | 72 6b 20 3d 20 30 3b 0a |astnetwo|rk = 0;.|
|00000e20| 0a 73 74 72 75 63 74 20 | 70 65 72 68 6f 73 74 20 |.struct |perhost |
|00000e30| 74 68 69 73 68 6f 73 74 | 3b 0a 0a 6d 61 69 6e 28 |thishost|;..main(|
|00000e40| 29 0a 7b 0a 20 20 6c 6f | 6e 67 20 73 65 63 6f 6e |).{.  lo|ng secon|
|00000e50| 64 73 3b 0a 20 20 69 6e | 74 20 63 6f 6c 73 3b 0a |ds;.  in|t cols;.|
|00000e60| 20 20 75 5f 6c 6f 6e 67 | 20 6e 65 74 77 6f 72 6b |  u_long| network|
|00000e70| 3b 0a 20 20 69 66 20 28 | 74 67 65 74 65 6e 74 28 |;.  if (|tgetent(|
|00000e80| 74 62 75 66 2c 20 67 65 | 74 65 6e 76 28 22 54 45 |tbuf, ge|tenv("TE|
|00000e90| 52 4d 22 29 29 20 3d 3d | 20 31 29 20 7b 0a 20 20 |RM")) ==| 1) {.  |
|00000ea0| 20 20 69 66 20 28 28 63 | 6f 6c 73 20 3d 20 74 67 |  if ((c|ols = tg|
|00000eb0| 65 74 6e 75 6d 28 22 63 | 6f 22 29 29 20 3e 20 30 |etnum("c|o")) > 0|
|00000ec0| 29 20 7b 0a 20 20 20 20 | 20 20 77 69 64 74 68 20 |) {.    |  width |
|00000ed0| 3d 20 63 6f 6c 73 3b 0a | 20 20 20 20 7d 0a 20 20 |= cols;.|    }.  |
|00000ee0| 7d 0a 20 20 69 66 20 28 | 28 66 20 3d 20 66 6f 70 |}.  if (|(f = fop|
|00000ef0| 65 6e 28 46 49 4c 45 4e | 41 4d 45 2c 20 22 72 22 |en(FILEN|AME, "r"|
|00000f00| 29 29 20 3d 3d 20 4e 55 | 4c 4c 29 20 7b 0a 20 20 |)) == NU|LL) {.  |
|00000f10| 20 20 70 65 72 72 6f 72 | 28 46 49 4c 45 4e 41 4d |  perror|(FILENAM|
|00000f20| 45 29 3b 0a 20 20 20 20 | 65 78 69 74 28 31 29 3b |E);.    |exit(1);|
|00000f30| 0a 20 20 7d 0a 20 20 67 | 65 74 74 69 6d 65 6f 66 |.  }.  g|ettimeof|
|00000f40| 64 61 79 28 26 66 69 72 | 73 74 2c 20 26 74 69 6d |day(&fir|st, &tim|
|00000f50| 65 7a 6f 6e 65 29 3b 0a | 20 20 6c 61 73 74 2e 74 |ezone);.|  last.t|
|00000f60| 76 5f 73 65 63 20 3d 20 | 30 3b 0a 20 20 77 68 69 |v_sec = |0;.  whi|
|00000f70| 6c 65 20 28 66 72 65 61 | 64 28 26 74 68 69 73 68 |le (frea|d(&thish|
|00000f80| 6f 73 74 2c 20 73 69 7a | 65 6f 66 28 74 68 69 73 |ost, siz|eof(this|
|00000f90| 68 6f 73 74 29 2c 20 31 | 2c 20 66 29 20 3d 3d 20 |host), 1|, f) == |
|00000fa0| 31 29 20 7b 0a 20 20 20 | 20 6e 65 74 77 6f 72 6b |1) {.   | network|
|00000fb0| 20 3d 20 6e 74 6f 68 6c | 28 74 68 69 73 68 6f 73 | = ntohl|(thishos|
|00000fc0| 74 2e 70 68 5f 74 6f 2e | 73 69 6e 5f 61 64 64 72 |t.ph_to.|sin_addr|
|00000fd0| 2e 73 5f 61 64 64 72 29 | 3b 0a 20 20 20 20 69 66 |.s_addr)|;.    if|
|00000fe0| 20 28 49 4e 5f 43 4c 41 | 53 53 41 28 6e 65 74 77 | (IN_CLA|SSA(netw|
|00000ff0| 6f 72 6b 29 29 20 7b 0a | 20 20 20 20 20 20 6e 65 |ork)) {.|      ne|
|00001000| 74 77 6f 72 6b 20 26 3d | 20 49 4e 5f 43 4c 41 53 |twork &=| IN_CLAS|
|00001010| 53 41 5f 4e 45 54 3b 0a | 20 20 20 20 7d 20 65 6c |SA_NET;.|    } el|
|00001020| 73 65 20 69 66 20 28 49 | 4e 5f 43 4c 41 53 53 42 |se if (I|N_CLASSB|
|00001030| 28 6e 65 74 77 6f 72 6b | 29 29 20 7b 0a 20 20 20 |(network|)) {.   |
|00001040| 20 20 20 6e 65 74 77 6f | 72 6b 20 26 3d 20 49 4e |   netwo|rk &= IN|
|00001050| 5f 43 4c 41 53 53 42 5f | 4e 45 54 3b 0a 20 20 20 |_CLASSB_|NET;.   |
|00001060| 20 7d 20 65 6c 73 65 20 | 7b 0a 20 20 20 20 20 20 | } else |{.      |
|00001070| 6e 65 74 77 6f 72 6b 20 | 26 3d 20 49 4e 5f 43 4c |network |&= IN_CL|
|00001080| 41 53 53 43 5f 4e 45 54 | 3b 0a 20 20 20 20 7d 0a |ASSC_NET|;.    }.|
|00001090| 20 20 20 20 69 66 20 28 | 6e 65 74 77 6f 72 6b 20 |    if (|network |
|000010a0| 21 3d 20 6c 61 73 74 6e | 65 74 77 6f 72 6b 29 20 |!= lastn|etwork) |
|000010b0| 7b 0a 20 20 20 20 20 20 | 6c 61 73 74 6e 65 74 77 |{.      |lastnetw|
|000010c0| 6f 72 6b 20 3d 20 6e 65 | 74 77 6f 72 6b 3b 0a 20 |ork = ne|twork;. |
|000010d0| 20 20 20 20 20 64 6f 6e | 6c 28 29 3b 0a 20 20 20 |     don|l();.   |
|000010e0| 20 7d 0a 20 20 20 20 70 | 72 69 6e 74 73 74 61 74 | }.    p|rintstat|
|000010f0| 28 74 68 69 73 68 6f 73 | 74 2e 70 68 5f 6e 61 6d |(thishos|t.ph_nam|
|00001100| 65 2c 20 74 68 69 73 68 | 6f 73 74 2e 70 68 5f 72 |e, thish|ost.ph_r|
|00001110| 65 73 75 6c 74 29 3b 0a | 20 20 20 20 73 65 63 6f |esult);.|    seco|
|00001120| 6e 64 73 20 3d 20 74 68 | 69 73 68 6f 73 74 2e 70 |nds = th|ishost.p|
|00001130| 68 5f 74 69 6d 65 2e 74 | 76 5f 73 65 63 3b 0a 20 |h_time.t|v_sec;. |
|00001140| 20 20 20 69 66 20 28 66 | 69 72 73 74 2e 74 76 5f |   if (f|irst.tv_|
|00001150| 73 65 63 20 3e 20 73 65 | 63 6f 6e 64 73 29 20 7b |sec > se|conds) {|
|00001160| 0a 20 20 20 20 20 20 66 | 69 72 73 74 2e 74 76 5f |.      f|irst.tv_|
|00001170| 73 65 63 20 3d 20 73 65 | 63 6f 6e 64 73 3b 0a 20 |sec = se|conds;. |
|00001180| 20 20 20 7d 0a 20 20 20 | 20 69 66 20 28 6c 61 73 |   }.   | if (las|
|00001190| 74 2e 74 76 5f 73 65 63 | 20 3c 20 73 65 63 6f 6e |t.tv_sec| < secon|
|000011a0| 64 73 29 20 7b 0a 20 20 | 20 20 20 20 6c 61 73 74 |ds) {.  |    last|
|000011b0| 2e 74 76 5f 73 65 63 20 | 3d 20 73 65 63 6f 6e 64 |.tv_sec |= second|
|000011c0| 73 3b 0a 20 20 20 20 7d | 0a 20 20 7d 0a 20 20 64 |s;.    }|.  }.  d|
|000011d0| 6f 6e 6c 28 29 3b 0a 20 | 20 70 72 69 6e 74 66 28 |onl();. | printf(|
|000011e0| 22 50 6f 6c 6c 65 64 20 | 66 72 6f 6d 20 25 73 22 |"Polled |from %s"|
|000011f0| 2c 20 74 69 6d 65 6f 66 | 28 26 66 69 72 73 74 29 |, timeof|(&first)|
|00001200| 29 3b 0a 20 20 70 72 69 | 6e 74 66 28 22 20 74 6f |);.  pri|ntf(" to|
|00001210| 20 25 73 3b 20 4b 45 59 | 3a 20 22 2c 20 74 69 6d | %s; KEY|: ", tim|
|00001220| 65 6f 66 28 26 6c 61 73 | 74 29 29 3b 0a 20 20 70 |eof(&las|t));.  p|
|00001230| 72 69 6e 74 73 74 61 74 | 28 22 55 70 22 2c 20 45 |rintstat|("Up", E|
|00001240| 43 4f 4e 4e 52 45 46 55 | 53 45 44 29 3b 0a 20 20 |CONNREFU|SED);.  |
|00001250| 70 72 69 6e 74 73 74 61 | 74 28 22 44 6f 77 6e 22 |printsta|t("Down"|
|00001260| 2c 20 45 54 49 4d 45 44 | 4f 55 54 29 3b 0a 20 20 |, ETIMED|OUT);.  |
|00001270| 70 72 69 6e 74 73 74 61 | 74 28 22 55 6e 52 65 61 |printsta|t("UnRea|
|00001280| 63 68 61 62 6c 65 22 2c | 20 45 4e 45 54 55 4e 52 |chable",| ENETUNR|
|00001290| 45 41 43 48 29 3b 0a 20 | 20 64 6f 6e 6c 28 29 3b |EACH);. | donl();|
|000012a0| 0a 20 20 65 78 69 74 28 | 30 29 3b 0a 7d 0a 0a 63 |.  exit(|0);.}..c|
|000012b0| 68 61 72 20 2a 0a 74 69 | 6d 65 6f 66 28 74 70 29 |har *.ti|meof(tp)|
|000012c0| 0a 20 20 20 20 20 73 74 | 72 75 63 74 20 74 69 6d |.     st|ruct tim|
|000012d0| 65 76 61 6c 20 2a 74 70 | 3b 0a 7b 0a 20 20 63 68 |eval *tp|;.{.  ch|
|000012e0| 61 72 20 2a 72 70 3b 0a | 20 20 73 74 72 75 63 74 |ar *rp;.|  struct|
|000012f0| 20 74 6d 20 2a 74 6d 3b | 0a 20 20 74 6d 20 3d 20 | tm *tm;|.  tm = |
|00001300| 6c 6f 63 61 6c 74 69 6d | 65 28 26 74 70 2d 3e 74 |localtim|e(&tp->t|
|00001310| 76 5f 73 65 63 29 3b 0a | 20 20 72 70 20 3d 20 61 |v_sec);.|  rp = a|
|00001320| 73 63 74 69 6d 65 28 74 | 6d 29 3b 0a 20 20 72 70 |sctime(t|m);.  rp|
|00001330| 5b 31 39 5d 20 3d 20 27 | 5c 30 27 3b 09 09 2f 2a |[19] = '|\0';../*|
|00001340| 20 74 72 75 6e 63 61 74 | 65 20 62 65 66 6f 72 65 | truncat|e before|
|00001350| 20 74 69 6d 65 7a 6f 6e | 65 20 2a 2f 0a 20 20 72 | timezon|e */.  r|
|00001360| 65 74 75 72 6e 28 72 70 | 20 2b 20 31 31 29 3b 09 |eturn(rp| + 11);.|
|00001370| 09 2f 2a 20 72 65 74 75 | 72 6e 20 6a 75 73 74 20 |./* retu|rn just |
|00001380| 74 68 65 20 74 69 6d 65 | 20 2a 2f 0a 7d 0a 0a 70 |the time| */.}..p|
|00001390| 72 69 6e 74 73 74 61 74 | 28 6e 61 6d 65 2c 20 65 |rintstat|(name, e|
|000013a0| 72 72 6e 6f 29 0a 20 20 | 20 20 20 63 68 61 72 20 |rrno).  |   char |
|000013b0| 2a 6e 61 6d 65 3b 0a 7b | 0a 20 20 69 6e 74 20 75 |*name;.{|.  int u|
|000013c0| 70 20 3d 20 30 3b 0a 20 | 20 63 68 61 72 20 65 78 |p = 0;. | char ex|
|000013d0| 74 72 61 20 3d 20 27 20 | 27 3b 0a 20 20 73 77 69 |tra = ' |';.  swi|
|000013e0| 74 63 68 28 65 72 72 6e | 6f 29 20 7b 0a 20 20 63 |tch(errn|o) {.  c|
|000013f0| 61 73 65 20 45 43 4f 4e | 4e 52 45 46 55 53 45 44 |ase ECON|NREFUSED|
|00001400| 3a 0a 20 20 20 20 75 70 | 20 3d 20 31 3b 0a 20 20 |:.    up| = 1;.  |
|00001410| 20 20 62 72 65 61 6b 3b | 0a 20 20 63 61 73 65 20 |  break;|.  case |
|00001420| 30 3a 0a 20 20 20 20 75 | 70 20 3d 20 31 3b 0a 20 |0:.    u|p = 1;. |
|00001430| 20 20 20 65 78 74 72 61 | 20 3d 20 27 21 27 3b 0a |   extra| = '!';.|
|00001440| 20 20 20 20 62 72 65 61 | 6b 3b 0a 20 20 63 61 73 |    brea|k;.  cas|
|00001450| 65 20 45 54 49 4d 45 44 | 4f 55 54 3a 0a 20 20 20 |e ETIMED|OUT:.   |
|00001460| 20 62 72 65 61 6b 3b 0a | 20 20 63 61 73 65 20 45 | break;.|  case E|
|00001470| 4e 45 54 55 4e 52 45 41 | 43 48 3a 0a 20 20 20 20 |NETUNREA|CH:.    |
|00001480| 65 78 74 72 61 20 3d 20 | 27 2d 27 3b 0a 20 20 20 |extra = |'-';.   |
|00001490| 20 62 72 65 61 6b 3b 0a | 20 20 64 65 66 61 75 6c | break;.|  defaul|
|000014a0| 74 3a 0a 20 20 20 20 65 | 78 74 72 61 20 3d 20 27 |t:.    e|xtra = '|
|000014b0| 3f 27 3b 0a 20 20 20 20 | 62 72 65 61 6b 3b 0a 20 |?';.    |break;. |
|000014c0| 20 7d 0a 20 20 69 66 20 | 28 75 70 29 20 7b 0a 20 | }.  if |(up) {. |
|000014d0| 20 20 20 70 72 69 6e 74 | 66 28 22 20 25 73 25 63 |   print|f(" %s%c|
|000014e0| 20 22 2c 20 6e 61 6d 65 | 2c 20 65 78 74 72 61 29 | ", name|, extra)|
|000014f0| 3b 0a 20 20 7d 20 65 6c | 73 65 20 7b 0a 20 20 20 |;.  } el|se {.   |
|00001500| 20 70 72 69 6e 74 66 28 | 22 28 25 73 29 25 63 22 | printf(|"(%s)%c"|
|00001510| 2c 20 6e 61 6d 65 2c 20 | 65 78 74 72 61 29 3b 0a |, name, |extra);.|
|00001520| 20 20 7d 0a 20 20 69 66 | 20 28 63 75 72 72 65 6e |  }.  if| (curren|
|00001530| 74 70 6f 73 20 3e 20 28 | 77 69 64 74 68 20 2d 20 |tpos > (|width - |
|00001540| 28 32 20 2a 20 46 49 45 | 4c 44 57 49 44 54 48 29 |(2 * FIE|LDWIDTH)|
|00001550| 29 29 20 7b 0a 20 20 20 | 20 64 6f 6e 6c 28 29 3b |)) {.   | donl();|
|00001560| 0a 20 20 7d 20 65 6c 73 | 65 20 7b 0a 20 20 20 20 |.  } els|e {.    |
|00001570| 69 6e 74 20 69 3b 0a 20 | 20 20 20 63 75 72 72 65 |int i;. |   curre|
|00001580| 6e 74 70 6f 73 20 2b 3d | 20 46 49 45 4c 44 57 49 |ntpos +=| FIELDWI|
|00001590| 44 54 48 3b 0a 20 20 20 | 20 66 6f 72 20 28 69 20 |DTH;.   | for (i |
|000015a0| 3d 20 73 74 72 6c 65 6e | 28 6e 61 6d 65 29 2b 33 |= strlen|(name)+3|
|000015b0| 3b 20 69 20 3c 20 46 49 | 45 4c 44 57 49 44 54 48 |; i < FI|ELDWIDTH|
|000015c0| 3b 20 69 2b 2b 29 20 7b | 0a 20 20 20 20 20 20 70 |; i++) {|.      p|
|000015d0| 75 74 63 68 61 72 28 27 | 20 27 29 3b 0a 20 20 20 |utchar('| ');.   |
|000015e0| 20 7d 0a 20 20 7d 0a 7d | 0a 0a 64 6f 6e 6c 28 29 | }.  }.}|..donl()|
|000015f0| 0a 7b 0a 20 20 69 66 20 | 28 63 75 72 72 65 6e 74 |.{.  if |(current|
|00001600| 70 6f 73 29 20 7b 0a 20 | 20 20 20 70 75 74 63 68 |pos) {. |   putch|
|00001610| 61 72 28 27 5c 6e 27 29 | 3b 0a 20 20 7d 0a 20 20 |ar('\n')|;.  }.  |
|00001620| 63 75 72 72 65 6e 74 70 | 6f 73 20 3d 20 30 3b 0a |currentp|os = 0;.|
|00001630| 7d 0a 53 48 41 52 5f 45 | 4f 46 0a 69 66 20 74 65 |}.SHAR_E|OF.if te|
|00001640| 73 74 20 32 34 38 30 20 | 2d 6e 65 20 22 60 77 63 |st 2480 |-ne "`wc|
|00001650| 20 2d 63 20 3c 20 27 68 | 6f 73 74 75 70 2e 63 27 | -c < 'h|ostup.c'|
|00001660| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|00001670| 61 72 3a 20 65 72 72 6f | 72 20 74 72 61 6e 73 6d |ar: erro|r transm|
|00001680| 69 74 74 69 6e 67 20 22 | 27 68 6f 73 74 75 70 2e |itting "|'hostup.|
|00001690| 63 27 22 20 27 28 73 68 | 6f 75 6c 64 20 68 61 76 |c'" '(sh|ould hav|
|000016a0| 65 20 62 65 65 6e 20 32 | 34 38 30 20 63 68 61 72 |e been 2|480 char|
|000016b0| 61 63 74 65 72 73 29 27 | 0a 66 69 0a 66 69 20 23 |acters)'|.fi.fi #|
|000016c0| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|000016d0| 69 6e 67 20 63 68 65 63 | 6b 0a 65 63 68 6f 20 73 |ing chec|k.echo s|
|000016e0| 68 61 72 3a 20 65 78 74 | 72 61 63 74 69 6e 67 20 |har: ext|racting |
|000016f0| 22 27 68 6f 73 74 75 70 | 2e 68 27 22 20 27 28 31 |"'hostup|.h'" '(1|
|00001700| 38 36 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |86 chara|cters)'.|
|00001710| 69 66 20 74 65 73 74 20 | 2d 66 20 27 68 6f 73 74 |if test |-f 'host|
|00001720| 75 70 2e 68 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |up.h'.th|en..echo|
|00001730| 20 73 68 61 72 3a 20 77 | 69 6c 6c 20 6e 6f 74 20 | shar: w|ill not |
|00001740| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00001750| 69 6e 67 20 66 69 6c 65 | 20 22 27 68 6f 73 74 75 |ing file| "'hostu|
|00001760| 70 2e 68 27 22 0a 65 6c | 73 65 0a 63 61 74 20 3c |p.h'".el|se.cat <|
|00001770| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 68 |< \SHAR_|EOF > 'h|
|00001780| 6f 73 74 75 70 2e 68 27 | 0a 23 64 65 66 69 6e 65 |ostup.h'|.#define|
|00001790| 20 4d 41 58 48 4f 53 54 | 43 48 41 52 53 20 31 32 | MAXHOST|CHARS 12|
|000017a0| 0a 23 64 65 66 69 6e 65 | 20 46 49 4c 45 4e 41 4d |.#define| FILENAM|
|000017b0| 45 20 22 2f 75 73 72 2f | 61 64 6d 2f 68 6f 73 74 |E "/usr/|adm/host|
|000017c0| 20 75 70 22 0a 0a 73 74 | 72 75 63 74 20 70 65 72 | up"..st|ruct per|
|000017d0| 68 6f 73 74 20 7b 0a 20 | 20 63 68 61 72 09 09 09 |host {. | char...|
|000017e0| 70 68 5f 6e 61 6d 65 5b | 4d 41 58 48 4f 53 54 43 |ph_name[|MAXHOSTC|
|000017f0| 48 41 52 53 5d 3b 0a 20 | 20 73 74 72 75 63 74 20 |HARS];. | struct |
|00001800| 73 6f 63 6b 61 64 64 72 | 5f 69 6e 09 70 68 5f 74 |sockaddr|_in.ph_t|
|00001810| 6f 3b 0a 20 20 73 74 72 | 75 63 74 20 74 69 6d 65 |o;.  str|uct time|
|00001820| 76 61 6c 09 70 68 5f 74 | 69 6d 65 3b 0a 20 20 69 |val.ph_t|ime;.  i|
|00001830| 6e 74 09 09 09 70 68 5f | 72 65 73 75 6c 74 3b 0a |nt...ph_|result;.|
|00001840| 7d 3b 0a 53 48 41 52 5f | 45 4f 46 0a 69 66 20 74 |};.SHAR_|EOF.if t|
|00001850| 65 73 74 20 31 38 36 20 | 2d 6e 65 20 22 60 77 63 |est 186 |-ne "`wc|
|00001860| 20 2d 63 20 3c 20 27 68 | 6f 73 74 75 70 2e 68 27 | -c < 'h|ostup.h'|
|00001870| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|00001880| 61 72 3a 20 65 72 72 6f | 72 20 74 72 61 6e 73 6d |ar: erro|r transm|
|00001890| 69 74 74 69 6e 67 20 22 | 27 68 6f 73 74 75 70 2e |itting "|'hostup.|
|000018a0| 68 27 22 20 27 28 73 68 | 6f 75 6c 64 20 68 61 76 |h'" '(sh|ould hav|
|000018b0| 65 20 62 65 65 6e 20 31 | 38 36 20 63 68 61 72 61 |e been 1|86 chara|
|000018c0| 63 74 65 72 73 29 27 0a | 66 69 0a 66 69 20 23 20 |cters)'.|fi.fi # |
|000018d0| 65 6e 64 20 6f 66 20 6f | 76 65 72 77 72 69 74 69 |end of o|verwriti|
|000018e0| 6e 67 20 63 68 65 63 6b | 0a 65 63 68 6f 20 73 68 |ng check|.echo sh|
|000018f0| 61 72 3a 20 65 78 74 72 | 61 63 74 69 6e 67 20 22 |ar: extr|acting "|
|00001900| 27 68 6f 73 74 75 70 64 | 2e 63 27 22 20 27 28 32 |'hostupd|.c'" '(2|
|00001910| 33 34 39 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |349 char|acters)'|
|00001920| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 27 68 6f 73 |.if test| -f 'hos|
|00001930| 74 75 70 64 2e 63 27 0a | 74 68 65 6e 0a 09 65 63 |tupd.c'.|then..ec|
|00001940| 68 6f 20 73 68 61 72 3a | 20 77 69 6c 6c 20 6e 6f |ho shar:| will no|
|00001950| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00001960| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 68 6f 73 |sting fi|le "'hos|
|00001970| 74 75 70 64 2e 63 27 22 | 0a 65 6c 73 65 0a 63 61 |tupd.c'"|.else.ca|
|00001980| 74 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |t << \SH|AR_EOF >|
|00001990| 20 27 68 6f 73 74 75 70 | 64 2e 63 27 0a 23 69 6e | 'hostup|d.c'.#in|
|000019a0| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|000019b0| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 73 79 73 2f 74 |.#includ|e <sys/t|
|000019c0| 79 70 65 73 2e 68 3e 0a | 23 69 6e 63 6c 75 64 65 |ypes.h>.|#include|
|000019d0| 20 3c 73 79 73 2f 69 6f | 63 74 6c 2e 68 3e 0a 23 | <sys/io|ctl.h>.#|
|000019e0| 69 6e 63 6c 75 64 65 20 | 3c 73 79 73 2f 73 6f 63 |include |<sys/soc|
|000019f0| 6b 65 74 2e 68 3e 0a 23 | 69 6e 63 6c 75 64 65 20 |ket.h>.#|include |
|00001a00| 3c 73 79 73 2f 74 69 6d | 65 2e 68 3e 0a 23 69 6e |<sys/tim|e.h>.#in|
|00001a10| 63 6c 75 64 65 20 3c 6e | 65 74 69 6e 65 74 2f 69 |clude <n|etinet/i|
|00001a20| 6e 2e 68 3e 0a 0a 23 69 | 6e 63 6c 75 64 65 20 3c |n.h>..#i|nclude <|
|00001a30| 6e 65 74 64 62 2e 68 3e | 0a 0a 23 64 65 66 69 6e |netdb.h>|..#defin|
|00001a40| 65 20 48 49 53 50 4f 52 | 54 20 39 31 39 09 09 2f |e HISPOR|T 919../|
|00001a50| 2a 20 27 63 6f 73 20 74 | 68 61 74 27 73 20 77 68 |* 'cos t|hat's wh|
|00001a60| 61 74 20 74 65 6b 74 72 | 6f 6e 69 78 20 75 73 65 |at tektr|onix use|
|00001a70| 20 2a 2f 0a 23 64 65 66 | 69 6e 65 20 4d 41 58 48 | */.#def|ine MAXH|
|00001a80| 4f 53 54 53 20 32 30 30 | 0a 23 64 65 66 69 6e 65 |OSTS 200|.#define|
|00001a90| 20 53 4c 45 45 50 54 49 | 4d 45 20 33 30 30 09 09 | SLEEPTI|ME 300..|
|00001aa0| 2f 2a 20 35 20 6d 69 6e | 73 20 77 61 69 74 20 61 |/* 5 min|s wait a|
|00001ab0| 74 20 65 6e 64 20 6f 66 | 20 6c 6f 6f 70 20 2a 2f |t end of| loop */|
|00001ac0| 0a 0a 23 69 6e 63 6c 75 | 64 65 20 22 68 6f 73 74 |..#inclu|de "host|
|00001ad0| 75 70 2e 68 22 0a 0a 65 | 78 74 65 72 6e 20 69 6e |up.h"..e|xtern in|
|00001ae0| 74 20 65 72 72 6e 6f 3b | 0a 0a 73 74 72 75 63 74 |t errno;|..struct|
|00001af0| 20 68 6f 73 74 65 6e 74 | 20 2a 67 65 74 68 6f 73 | hostent| *gethos|
|00001b00| 74 65 6e 74 28 29 2c 20 | 2a 68 6f 73 74 3b 0a 69 |tent(), |*host;.i|
|00001b10| 6e 74 20 69 6e 65 74 63 | 6f 6d 70 28 29 3b 0a 69 |nt inetc|omp();.i|
|00001b20| 6e 74 20 73 3b 09 09 09 | 09 2f 2a 20 73 6f 63 6b |nt s;...|./* sock|
|00001b30| 65 74 20 6e 75 6d 62 65 | 72 20 2a 2f 0a 46 49 4c |et numbe|r */.FIL|
|00001b40| 45 20 2a 66 3b 09 09 09 | 2f 2a 20 6f 75 74 70 75 |E *f;...|/* outpu|
|00001b50| 74 20 66 69 6c 65 20 2a | 2f 0a 73 74 72 75 63 74 |t file *|/.struct|
|00001b60| 20 74 69 6d 65 7a 6f 6e | 65 20 74 69 6d 65 7a 6f | timezon|e timezo|
|00001b70| 6e 65 3b 09 2f 2a 20 73 | 6f 6d 65 77 68 65 72 65 |ne;./* s|omewhere|
|00001b80| 20 74 6f 20 69 67 6e 6f | 72 65 20 69 74 20 2a 2f | to igno|re it */|
|00001b90| 0a 0a 73 74 72 75 63 74 | 20 70 65 72 68 6f 73 74 |..struct| perhost|
|00001ba0| 20 74 68 69 73 68 6f 73 | 74 5b 4d 41 58 48 4f 53 | thishos|t[MAXHOS|
|00001bb0| 54 53 5d 3b 0a 69 6e 74 | 20 6e 6f 68 6f 73 74 73 |TS];.int| nohosts|
|00001bc0| 20 3d 20 30 3b 0a 0a 6d | 61 69 6e 28 29 0a 7b 0a | = 0;..m|ain().{.|
|00001bd0| 20 20 69 66 20 28 28 66 | 20 3d 20 66 6f 70 65 6e |  if ((f| = fopen|
|00001be0| 28 46 49 4c 45 4e 41 4d | 45 2c 20 22 77 22 29 29 |(FILENAM|E, "w"))|
|00001bf0| 20 3d 3d 20 4e 55 4c 4c | 29 20 7b 0a 20 20 20 20 | == NULL|) {.    |
|00001c00| 70 65 72 72 6f 72 28 46 | 49 4c 45 4e 41 4d 45 29 |perror(F|ILENAME)|
|00001c10| 3b 0a 20 20 20 20 65 78 | 69 74 28 31 29 3b 0a 20 |;.    ex|it(1);. |
|00001c20| 20 7d 0a 20 20 72 65 61 | 64 68 6f 73 74 73 28 29 | }.  rea|dhosts()|
|00001c30| 3b 09 09 09 2f 2a 20 66 | 69 6e 64 20 61 20 74 61 |;.../* f|ind a ta|
|00001c40| 62 6c 65 20 6f 66 20 68 | 6f 73 74 73 20 74 6f 20 |ble of h|osts to |
|00001c50| 70 6f 6c 6c 20 2a 2f 0a | 23 69 66 6e 64 65 66 20 |poll */.|#ifndef |
|00001c60| 44 45 42 55 47 0a 20 20 | 69 66 20 28 66 6f 72 6b |DEBUG.  |if (fork|
|00001c70| 28 29 29 0a 20 20 20 20 | 65 78 69 74 28 30 29 3b |()).    |exit(0);|
|00001c80| 0a 20 20 7b 20 69 6e 74 | 20 73 3b 0a 20 20 20 20 |.  { int| s;.    |
|00001c90| 66 6f 72 20 28 73 20 3d | 20 30 3b 20 73 20 3c 20 |for (s =| 0; s < |
|00001ca0| 31 30 3b 20 73 2b 2b 29 | 0a 20 20 20 20 20 20 69 |10; s++)|.      i|
|00001cb0| 66 20 28 73 20 21 3d 20 | 66 69 6c 65 6e 6f 28 66 |f (s != |fileno(f|
|00001cc0| 29 29 0a 09 28 76 6f 69 | 64 29 20 63 6c 6f 73 65 |))..(voi|d) close|
|00001cd0| 28 73 29 3b 0a 20 20 20 | 20 28 76 6f 69 64 29 20 |(s);.   | (void) |
|00001ce0| 6f 70 65 6e 28 22 2f 22 | 2c 20 30 29 3b 0a 20 20 |open("/"|, 0);.  |
|00001cf0| 20 20 28 76 6f 69 64 29 | 20 64 75 70 32 28 30 2c |  (void)| dup2(0,|
|00001d00| 20 31 29 3b 0a 20 20 20 | 20 28 76 6f 69 64 29 20 | 1);.   | (void) |
|00001d10| 64 75 70 32 28 30 2c 20 | 32 29 3b 0a 20 20 20 20 |dup2(0, |2);.    |
|00001d20| 73 20 3d 20 6f 70 65 6e | 28 22 2f 64 65 76 2f 74 |s = open|("/dev/t|
|00001d30| 74 79 22 2c 20 32 29 3b | 0a 20 20 20 20 69 66 20 |ty", 2);|.    if |
|00001d40| 28 73 20 3e 3d 20 30 29 | 20 7b 0a 20 20 20 20 20 |(s >= 0)| {.     |
|00001d50| 20 69 6f 63 74 6c 28 73 | 2c 20 54 49 4f 43 4e 4f | ioctl(s|, TIOCNO|
|00001d60| 54 54 59 2c 20 30 29 3b | 0a 20 20 20 20 20 20 28 |TTY, 0);|.      (|
|00001d70| 76 6f 69 64 29 20 63 6c | 6f 73 65 28 73 29 3b 0a |void) cl|ose(s);.|
|00001d80| 20 20 20 20 7d 0a 20 20 | 7d 0a 23 65 6e 64 69 66 |    }.  |}.#endif|
|00001d90| 0a 20 20 77 68 69 6c 65 | 28 31 29 20 7b 0a 20 20 |.  while|(1) {.  |
|00001da0| 20 20 66 73 65 65 6b 28 | 66 2c 20 30 4c 2c 20 30 |  fseek(|f, 0L, 0|
|00001db0| 29 3b 09 09 2f 2a 20 6b | 65 65 70 20 77 72 69 74 |);../* k|eep writ|
|00001dc0| 69 6e 67 20 66 72 6f 6d | 20 73 74 61 72 74 20 2a |ing from| start *|
|00001dd0| 2f 0a 20 20 20 20 70 6f | 6c 6c 68 6f 73 74 73 28 |/.    po|llhosts(|
|00001de0| 29 3b 0a 20 20 20 20 73 | 6c 65 65 70 28 53 4c 45 |);.    s|leep(SLE|
|00001df0| 45 50 54 49 4d 45 29 3b | 0a 20 20 7d 0a 7d 0a 0a |EPTIME);|.  }.}..|
|00001e00| 72 65 61 64 68 6f 73 74 | 73 28 29 0a 7b 0a 20 20 |readhost|s().{.  |
|00001e10| 77 68 69 6c 65 20 28 28 | 68 6f 73 74 20 3d 20 67 |while ((|host = g|
|00001e20| 65 74 68 6f 73 74 65 6e | 74 28 29 29 20 21 3d 20 |ethosten|t()) != |
|00001e30| 4e 55 4c 4c 29 20 7b 0a | 20 20 20 20 73 74 72 6e |NULL) {.|    strn|
|00001e40| 63 70 79 28 74 68 69 73 | 68 6f 73 74 5b 6e 6f 68 |cpy(this|host[noh|
|00001e50| 6f 73 74 73 5d 2e 70 68 | 5f 6e 61 6d 65 2c 20 68 |osts].ph|_name, h|
|00001e60| 6f 73 74 2d 3e 68 5f 6e | 61 6d 65 2c 20 4d 41 58 |ost->h_n|ame, MAX|
|00001e70| 48 4f 53 54 43 48 41 52 | 53 29 3b 0a 20 20 20 20 |HOSTCHAR|S);.    |
|00001e80| 74 68 69 73 68 6f 73 74 | 5b 6e 6f 68 6f 73 74 73 |thishost|[nohosts|
|00001e90| 5d 2e 70 68 5f 6e 61 6d | 65 5b 4d 41 58 48 4f 53 |].ph_nam|e[MAXHOS|
|00001ea0| 54 43 48 41 52 53 2d 31 | 5d 20 3d 20 27 5c 30 27 |TCHARS-1|] = '\0'|
|00001eb0| 3b 0a 20 20 20 20 62 7a | 65 72 6f 28 28 63 68 61 |;.    bz|ero((cha|
|00001ec0| 72 20 2a 29 26 74 68 69 | 73 68 6f 73 74 5b 6e 6f |r *)&thi|shost[no|
|00001ed0| 68 6f 73 74 73 5d 2e 70 | 68 5f 74 6f 2c 20 73 69 |hosts].p|h_to, si|
|00001ee0| 7a 65 6f 66 28 74 68 69 | 73 68 6f 73 74 5b 6e 6f |zeof(thi|shost[no|
|00001ef0| 68 6f 73 74 73 5d 2e 70 | 68 5f 74 6f 29 29 3b 0a |hosts].p|h_to));.|
|00001f00| 20 20 20 20 62 63 6f 70 | 79 28 68 6f 73 74 2d 3e |    bcop|y(host->|
|00001f10| 68 5f 61 64 64 72 2c 20 | 28 63 68 61 72 20 2a 29 |h_addr, |(char *)|
|00001f20| 26 74 68 69 73 68 6f 73 | 74 5b 6e 6f 68 6f 73 74 |&thishos|t[nohost|
|00001f30| 73 5d 2e 70 68 5f 74 6f | 2e 73 69 6e 5f 61 64 64 |s].ph_to|.sin_add|
|00001f40| 72 2c 20 68 6f 73 74 2d | 3e 68 5f 6c 65 6e 67 74 |r, host-|>h_lengt|
|00001f50| 68 29 3b 0a 20 20 20 20 | 74 68 69 73 68 6f 73 74 |h);.    |thishost|
|00001f60| 5b 6e 6f 68 6f 73 74 73 | 5d 2e 70 68 5f 74 6f 2e |[nohosts|].ph_to.|
|00001f70| 73 69 6e 5f 66 61 6d 69 | 6c 79 20 3d 20 68 6f 73 |sin_fami|ly = hos|
|00001f80| 74 2d 3e 68 5f 61 64 64 | 72 74 79 70 65 3b 0a 20 |t->h_add|rtype;. |
|00001f90| 20 20 20 74 68 69 73 68 | 6f 73 74 5b 6e 6f 68 6f |   thish|ost[noho|
|00001fa0| 73 74 73 5d 2e 70 68 5f | 74 6f 2e 73 69 6e 5f 70 |sts].ph_|to.sin_p|
|00001fb0| 6f 72 74 20 3d 20 48 49 | 53 50 4f 52 54 3b 0a 20 |ort = HI|SPORT;. |
|00001fc0| 20 20 20 6e 6f 68 6f 73 | 74 73 2b 2b 3b 0a 20 20 |   nohos|ts++;.  |
|00001fd0| 20 20 69 66 20 28 6e 6f | 68 6f 73 74 73 20 3d 3d |  if (no|hosts ==|
|00001fe0| 20 4d 41 58 48 4f 53 54 | 53 29 0a 20 20 20 20 20 | MAXHOST|S).     |
|00001ff0| 20 62 72 65 61 6b 3b 0a | 20 20 7d 0a 20 20 65 6e | break;.|  }.  en|
|00002000| 64 68 6f 73 74 65 6e 74 | 28 29 3b 0a 20 20 71 73 |dhostent|();.  qs|
|00002010| 6f 72 74 28 74 68 69 73 | 68 6f 73 74 2c 20 6e 6f |ort(this|host, no|
|00002020| 68 6f 73 74 73 2c 20 73 | 69 7a 65 6f 66 28 74 68 |hosts, s|izeof(th|
|00002030| 69 73 68 6f 73 74 5b 30 | 5d 29 2c 20 69 6e 65 74 |ishost[0|]), inet|
|00002040| 63 6f 6d 70 29 3b 0a 7d | 0a 0a 69 6e 65 74 63 6f |comp);.}|..inetco|
|00002050| 6d 70 28 61 2c 20 62 29 | 0a 20 20 20 20 20 73 74 |mp(a, b)|.     st|
|00002060| 72 75 63 74 20 70 65 72 | 68 6f 73 74 20 2a 61 2c |ruct per|host *a,|
|00002070| 20 2a 62 3b 0a 7b 0a 20 | 20 72 65 74 75 72 6e 28 | *b;.{. | return(|
|00002080| 6e 74 6f 68 6c 28 61 2d | 3e 70 68 5f 74 6f 2e 73 |ntohl(a-|>ph_to.s|
|00002090| 69 6e 5f 61 64 64 72 2e | 73 5f 61 64 64 72 29 20 |in_addr.|s_addr) |
|000020a0| 2d 20 6e 74 6f 68 6c 28 | 62 2d 3e 70 68 5f 74 6f |- ntohl(|b->ph_to|
|000020b0| 2e 73 69 6e 5f 61 64 64 | 72 2e 73 5f 61 64 64 72 |.sin_add|r.s_addr|
|000020c0| 29 29 3b 0a 7d 0a 0a 70 | 6f 6c 6c 68 6f 73 74 73 |));.}..p|ollhosts|
|000020d0| 28 29 0a 7b 0a 20 20 69 | 6e 74 20 69 3b 0a 20 20 |().{.  i|nt i;.  |
|000020e0| 66 6f 72 20 28 69 20 3d | 20 30 3b 20 69 20 3c 20 |for (i =| 0; i < |
|000020f0| 6e 6f 68 6f 73 74 73 3b | 20 69 2b 2b 29 20 7b 0a |nohosts;| i++) {.|
|00002100| 20 20 20 20 73 20 3d 20 | 73 6f 63 6b 65 74 28 41 |    s = |socket(A|
|00002110| 46 5f 49 4e 45 54 2c 20 | 53 4f 43 4b 5f 53 54 52 |F_INET, |SOCK_STR|
|00002120| 45 41 4d 2c 20 30 29 3b | 0a 20 20 20 20 69 66 20 |EAM, 0);|.    if |
|00002130| 28 73 20 3c 20 30 29 20 | 7b 0a 23 69 66 64 65 66 |(s < 0) |{.#ifdef|
|00002140| 20 44 45 42 55 47 0a 20 | 20 20 20 20 20 70 65 72 | DEBUG. |     per|
|00002150| 72 6f 72 28 22 73 6f 63 | 6b 65 74 3a 22 29 3b 0a |ror("soc|ket:");.|
|00002160| 23 65 6e 64 69 66 20 20 | 20 20 20 20 0a 20 20 20 |#endif  |    .   |
|00002170| 20 20 20 65 78 69 74 28 | 31 29 3b 0a 20 20 20 20 |   exit(|1);.    |
|00002180| 7d 0a 20 20 20 20 69 66 | 20 28 63 6f 6e 6e 65 63 |}.    if| (connec|
|00002190| 74 28 73 2c 20 28 63 68 | 61 72 20 2a 29 26 74 68 |t(s, (ch|ar *)&th|
|000021a0| 69 73 68 6f 73 74 5b 69 | 5d 2e 70 68 5f 74 6f 2c |ishost[i|].ph_to,|
|000021b0| 0a 09 09 73 69 7a 65 6f | 66 28 74 68 69 73 68 6f |...sizeo|f(thisho|
|000021c0| 73 74 5b 69 5d 2e 70 68 | 5f 74 6f 29 29 20 3c 20 |st[i].ph|_to)) < |
|000021d0| 30 29 20 7b 0a 20 20 20 | 20 20 20 74 68 69 73 68 |0) {.   |   thish|
|000021e0| 6f 73 74 5b 69 5d 2e 70 | 68 5f 72 65 73 75 6c 74 |ost[i].p|h_result|
|000021f0| 20 3d 20 65 72 72 6e 6f | 3b 0a 20 20 20 20 7d 20 | = errno|;.    } |
|00002200| 65 6c 73 65 20 7b 0a 20 | 20 20 20 20 20 74 68 69 |else {. |     thi|
|00002210| 73 68 6f 73 74 5b 69 5d | 2e 70 68 5f 72 65 73 75 |shost[i]|.ph_resu|
|00002220| 6c 74 20 3d 20 30 3b 0a | 20 20 20 20 7d 0a 20 20 |lt = 0;.|    }.  |
|00002230| 20 20 67 65 74 74 69 6d | 65 6f 66 64 61 79 28 26 |  gettim|eofday(&|
|00002240| 74 68 69 73 68 6f 73 74 | 5b 69 5d 2e 70 68 5f 74 |thishost|[i].ph_t|
|00002250| 69 6d 65 2c 20 26 74 69 | 6d 65 7a 6f 6e 65 29 3b |ime, &ti|mezone);|
|00002260| 0a 20 20 20 20 66 77 72 | 69 74 65 28 26 74 68 69 |.    fwr|ite(&thi|
|00002270| 73 68 6f 73 74 5b 69 5d | 2c 20 73 69 7a 65 6f 66 |shost[i]|, sizeof|
|00002280| 28 74 68 69 73 68 6f 73 | 74 5b 69 5d 29 2c 20 31 |(thishos|t[i]), 1|
|00002290| 2c 20 66 29 3b 0a 20 20 | 20 20 66 66 6c 75 73 68 |, f);.  |  fflush|
|000022a0| 28 66 29 3b 0a 20 20 20 | 20 28 76 6f 69 64 29 20 |(f);.   | (void) |
|000022b0| 63 6c 6f 73 65 28 73 29 | 3b 09 09 09 2f 2a 20 21 |close(s)|;.../* !|
|000022c0| 20 2a 2f 0a 20 20 7d 0a | 7d 0a 53 48 41 52 5f 45 | */.  }.|}.SHAR_E|
|000022d0| 4f 46 0a 69 66 20 74 65 | 73 74 20 32 33 34 39 20 |OF.if te|st 2349 |
|000022e0| 2d 6e 65 20 22 60 77 63 | 20 2d 63 20 3c 20 27 68 |-ne "`wc| -c < 'h|
|000022f0| 6f 73 74 75 70 64 2e 63 | 27 60 22 0a 74 68 65 6e |ostupd.c|'`".then|
|00002300| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 65 72 72 |..echo s|har: err|
|00002310| 6f 72 20 74 72 61 6e 73 | 6d 69 74 74 69 6e 67 20 |or trans|mitting |
|00002320| 22 27 68 6f 73 74 75 70 | 64 2e 63 27 22 20 27 28 |"'hostup|d.c'" '(|
|00002330| 73 68 6f 75 6c 64 20 68 | 61 76 65 20 62 65 65 6e |should h|ave been|
|00002340| 20 32 33 34 39 20 63 68 | 61 72 61 63 74 65 72 73 | 2349 ch|aracters|
|00002350| 29 27 0a 66 69 0a 66 69 | 20 23 20 65 6e 64 20 6f |)'.fi.fi| # end o|
|00002360| 66 20 6f 76 65 72 77 72 | 69 74 69 6e 67 20 63 68 |f overwr|iting ch|
|00002370| 65 63 6b 0a 23 09 45 6e | 64 20 6f 66 20 73 68 65 |eck.#.En|d of she|
|00002380| 6c 6c 20 61 72 63 68 69 | 76 65 0a 65 78 69 74 20 |ll archi|ve.exit |
|00002390| 30 0a                   |                         |0.      |        |
+--------+-------------------------+-------------------------+--------+--------+