/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume15 / ru

< 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 31 35 69 30 34 |Subject:|  v15i04|
|00000010| 33 3a 20 20 41 20 75 73 | 65 72 73 28 31 29 2d 73 |3:  A us|ers(1)-s|
|00000020| 74 79 6c 65 20 72 77 68 | 6f 0a 4e 65 77 73 67 72 |tyle rwh|o.Newsgr|
|00000030| 6f 75 70 73 3a 20 63 6f | 6d 70 2e 73 6f 75 72 63 |oups: co|mp.sourc|
|00000040| 65 73 2e 75 6e 69 78 0a | 53 65 6e 64 65 72 3a 20 |es.unix.|Sender: |
|00000050| 73 6f 75 72 63 65 73 0a | 41 70 70 72 6f 76 65 64 |sources.|Approved|
|00000060| 3a 20 72 73 61 6c 7a 40 | 75 75 6e 65 74 2e 55 55 |: rsalz@|uunet.UU|
|00000070| 2e 4e 45 54 0a 0a 53 75 | 62 6d 69 74 74 65 64 2d |.NET..Su|bmitted-|
|00000080| 62 79 3a 20 70 6b 65 72 | 6e 20 3c 70 6b 65 72 6e |by: pker|n <pkern|
|00000090| 40 63 73 72 69 2e 74 6f | 72 6f 6e 74 6f 2e 65 64 |@csri.to|ronto.ed|
|000000a0| 75 3e 0a 50 6f 73 74 69 | 6e 67 2d 6e 75 6d 62 65 |u>.Posti|ng-numbe|
|000000b0| 72 3a 20 56 6f 6c 75 6d | 65 20 31 35 2c 20 49 73 |r: Volum|e 15, Is|
|000000c0| 73 75 65 20 34 33 0a 41 | 72 63 68 69 76 65 2d 6e |sue 43.A|rchive-n|
|000000d0| 61 6d 65 3a 20 72 75 0a | 0a 5b 20 20 49 20 68 61 |ame: ru.|.[  I ha|
|000000e0| 76 65 6e 27 74 20 74 72 | 69 65 64 20 74 68 69 73 |ven't tr|ied this|
|000000f0| 3b 20 77 65 20 64 6f 6e | 27 74 20 72 75 6e 20 72 |; we don|'t run r|
|00000100| 77 68 6f 20 68 65 72 65 | 2e 2e 2e 20 20 49 74 20 |who here|...  It |
|00000110| 72 65 61 64 73 20 74 68 | 65 0a 20 20 20 64 61 74 |reads th|e.   dat|
|00000120| 61 20 6f 75 74 20 6f 66 | 20 74 68 65 20 2f 75 73 |a out of| the /us|
|00000130| 72 2f 73 70 6f 6f 6c 2f | 72 77 68 6f 20 66 69 6c |r/spool/|rwho fil|
|00000140| 65 73 2c 20 61 6e 64 20 | 67 65 6e 65 72 61 74 65 |es, and |generate|
|00000150| 73 20 6e 69 63 65 6c 79 | 0a 20 20 20 66 6f 72 6d |s nicely|.   form|
|00000160| 61 74 74 65 64 20 6c 69 | 73 74 69 6e 67 73 20 6f |atted li|stings o|
|00000170| 66 20 77 68 6f 27 73 20 | 6c 6f 67 67 65 64 20 69 |f who's |logged i|
|00000180| 6e 20 77 68 65 72 65 2e | 20 20 2d 72 24 20 5d 0a |n where.|  -r$ ].|
|00000190| 0a 23 21 20 2f 62 69 6e | 2f 73 68 0a 23 20 54 68 |.#! /bin|/sh.# Th|
|000001a0| 69 73 20 69 73 20 61 20 | 73 68 65 6c 6c 20 61 72 |is is a |shell ar|
|000001b0| 63 68 69 76 65 2c 20 6d | 65 61 6e 69 6e 67 3a 0a |chive, m|eaning:.|
|000001c0| 23 20 31 2e 20 52 65 6d | 6f 76 65 20 65 76 65 72 |# 1. Rem|ove ever|
|000001d0| 79 74 68 69 6e 67 20 61 | 62 6f 76 65 20 74 68 65 |ything a|bove the|
|000001e0| 20 23 21 20 2f 62 69 6e | 2f 73 68 20 6c 69 6e 65 | #! /bin|/sh line|
|000001f0| 2e 0a 23 20 32 2e 20 53 | 61 76 65 20 74 68 65 20 |..# 2. S|ave the |
|00000200| 72 65 73 75 6c 74 69 6e | 67 20 74 65 78 74 20 69 |resultin|g text i|
|00000210| 6e 20 61 20 66 69 6c 65 | 2e 0a 23 20 33 2e 20 45 |n a file|..# 3. E|
|00000220| 78 65 63 75 74 65 20 74 | 68 65 20 66 69 6c 65 20 |xecute t|he file |
|00000230| 77 69 74 68 20 2f 62 69 | 6e 2f 73 68 20 28 6e 6f |with /bi|n/sh (no|
|00000240| 74 20 63 73 68 29 20 74 | 6f 20 63 72 65 61 74 65 |t csh) t|o create|
|00000250| 20 74 68 65 20 66 69 6c | 65 73 3a 0a 23 09 6d 61 | the fil|es:.#.ma|
|00000260| 6b 65 66 69 6c 65 20 72 | 75 2e 31 20 72 75 2e 63 |kefile r|u.1 ru.c|
|00000270| 0a 65 78 70 6f 72 74 20 | 50 41 54 48 3b 20 50 41 |.export |PATH; PA|
|00000280| 54 48 3d 2f 62 69 6e 3a | 24 50 41 54 48 0a 65 63 |TH=/bin:|$PATH.ec|
|00000290| 68 6f 20 73 68 61 72 3a | 20 65 78 74 72 61 63 74 |ho shar:| extract|
|000002a0| 69 6e 67 20 22 27 6d 61 | 6b 65 66 69 6c 65 27 22 |ing "'ma|kefile'"|
|000002b0| 20 27 28 31 33 39 20 63 | 68 61 72 61 63 74 65 72 | '(139 c|haracter|
|000002c0| 73 29 27 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |s)'.if t|est -f '|
|000002d0| 6d 61 6b 65 66 69 6c 65 | 27 0a 74 68 65 6e 0a 09 |makefile|'.then..|
|000002e0| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|000002f0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00000300| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 6d |xisting |file "'m|
|00000310| 61 6b 65 66 69 6c 65 27 | 22 0a 65 6c 73 65 0a 63 |akefile'|".else.c|
|00000320| 61 74 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |at << \S|HAR_EOF |
|00000330| 3e 20 27 6d 61 6b 65 66 | 69 6c 65 27 0a 23 0a 43 |> 'makef|ile'.#.C|
|00000340| 46 4c 41 47 53 3d 09 2d | 4f 20 2d 73 0a 0a 72 75 |FLAGS=.-|O -s..ru|
|00000350| 3a 09 72 75 2e 6f 0a 09 | 24 28 43 43 29 20 24 28 |:.ru.o..|$(CC) $(|
|00000360| 43 46 4c 41 47 53 29 20 | 24 2a 2e 6f 20 2d 6f 20 |CFLAGS) |$*.o -o |
|00000370| 24 40 0a 0a 6d 61 6e 3a | 09 72 75 2e 31 0a 09 6e |$@..man:|.ru.1..n|
|00000380| 72 6f 66 66 20 2d 6d 61 | 6e 20 72 75 2e 31 20 3e |roff -ma|n ru.1 >|
|00000390| 20 72 75 2e 6d 61 6e 0a | 09 6d 6f 72 65 20 2d 73 | ru.man.|.more -s|
|000003a0| 20 72 75 2e 6d 61 6e 0a | 0a 63 6c 65 61 6e 3a 0a | ru.man.|.clean:.|
|000003b0| 09 2d 72 6d 20 2d 66 20 | 2a 2e 6f 20 61 2e 6f 75 |.-rm -f |*.o a.ou|
|000003c0| 74 20 2a 2e 6d 61 6e 0a | 53 48 41 52 5f 45 4f 46 |t *.man.|SHAR_EOF|
|000003d0| 0a 66 69 20 23 20 65 6e | 64 20 6f 66 20 6f 76 65 |.fi # en|d of ove|
|000003e0| 72 77 72 69 74 69 6e 67 | 20 63 68 65 63 6b 0a 65 |rwriting| check.e|
|000003f0| 63 68 6f 20 73 68 61 72 | 3a 20 65 78 74 72 61 63 |cho shar|: extrac|
|00000400| 74 69 6e 67 20 22 27 72 | 75 2e 31 27 22 20 27 28 |ting "'r|u.1'" '(|
|00000410| 31 33 30 36 20 63 68 61 | 72 61 63 74 65 72 73 29 |1306 cha|racters)|
|00000420| 27 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 72 75 |'.if tes|t -f 'ru|
|00000430| 2e 31 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |.1'.then|..echo s|
|00000440| 68 61 72 3a 20 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: wil|l not ov|
|00000450| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00000460| 67 20 66 69 6c 65 20 22 | 27 72 75 2e 31 27 22 0a |g file "|'ru.1'".|
|00000470| 65 6c 73 65 0a 63 61 74 | 20 3c 3c 20 5c 53 48 41 |else.cat| << \SHA|
|00000480| 52 5f 45 4f 46 20 3e 20 | 27 72 75 2e 31 27 0a 2e |R_EOF > |'ru.1'..|
|00000490| 54 48 20 52 55 20 6c 20 | 6c 6f 63 61 6c 0a 2e 55 |TH RU l |local..U|
|000004a0| 43 0a 2e 53 48 20 4e 41 | 4d 45 0a 72 75 2c 20 72 |C..SH NA|ME.ru, r|
|000004b0| 75 73 65 72 73 20 5c 2d | 20 63 6f 6d 70 61 63 74 |users \-| compact|
|000004c0| 20 6c 69 73 74 73 20 6f | 66 20 75 73 65 72 73 20 | lists o|f users |
|000004d0| 6f 6e 20 61 6c 6c 20 22 | 76 69 73 69 62 6c 65 22 |on all "|visible"|
|000004e0| 20 73 79 73 74 65 6d 73 | 0a 2e 53 48 20 53 59 4e | systems|..SH SYN|
|000004f0| 4f 50 53 49 53 0a 2e 42 | 20 22 2f 75 73 72 2f 6c |OPSIS..B| "/usr/l|
|00000500| 6f 63 61 6c 2f 72 75 20 | 5b 2d 61 63 64 6d 73 5d |ocal/ru |[-acdms]|
|00000510| 20 5b 2d 44 20 64 6f 6d | 61 69 6e 5d 20 5b 2d 68 | [-D dom|ain] [-h|
|00000520| 20 68 6f 73 74 20 2e 2e | 2e 5d 22 0a 2e 62 72 0a | host ..|.]"..br.|
|00000530| 2e 42 20 22 2f 75 73 72 | 2f 6c 6f 63 61 6c 2f 72 |.B "/usr|/local/r|
|00000540| 75 73 65 72 73 20 5b 2d | 61 63 64 6d 73 5d 20 5b |users [-|acdms] [|
|00000550| 2d 44 20 64 6f 6d 61 69 | 6e 5d 20 5b 2d 68 20 68 |-D domai|n] [-h h|
|00000560| 6f 73 74 20 2e 2e 2e 5d | 22 0a 2e 53 48 20 44 45 |ost ...]|"..SH DE|
|00000570| 53 43 52 49 50 54 49 4f | 4e 0a 2e 49 20 52 75 0a |SCRIPTIO|N..I Ru.|
|00000580| 6c 69 73 74 73 20 74 68 | 65 20 6c 6f 67 69 6e 20 |lists th|e login |
|00000590| 6e 61 6d 65 73 20 6f 66 | 20 74 68 65 20 75 73 65 |names of| the use|
|000005a0| 72 73 20 63 75 72 72 65 | 6e 74 6c 79 20 6f 6e 20 |rs curre|ntly on |
|000005b0| 61 6c 6c 20 76 69 73 69 | 62 6c 65 20 73 79 73 74 |all visi|ble syst|
|000005c0| 65 6d 73 2e 0a 2e 53 48 | 20 4f 70 74 69 6f 6e 73 |ems...SH| Options|
|000005d0| 0a 2e 49 50 20 2d 61 0a | 6c 69 73 74 20 61 6c 6c |..IP -a.|list all|
|000005e0| 20 75 73 65 72 73 2c 20 | 72 65 67 61 72 64 6c 65 | users, |regardle|
|000005f0| 73 73 20 6f 66 20 74 68 | 65 69 72 20 6c 6f 67 69 |ss of th|eir logi|
|00000600| 6e 20 69 64 6c 65 20 74 | 69 6d 65 20 28 5c 66 49 |n idle t|ime (\fI|
|00000610| 72 77 68 6f 28 31 29 5c | 66 50 2d 69 6e 73 70 69 |rwho(1)\|fP-inspi|
|00000620| 72 65 64 29 2e 0a 2e 49 | 50 20 2d 63 0a 73 68 6f |red)...I|P -c.sho|
|00000630| 77 20 61 20 63 6f 75 6e | 74 20 66 6f 72 20 6d 75 |w a coun|t for mu|
|00000640| 6c 74 69 70 6c 79 2d 6c | 6f 67 67 65 64 20 75 73 |ltiply-l|ogged us|
|00000650| 65 72 73 2e 0a 2e 49 50 | 20 2d 64 0a 67 72 6f 75 |ers...IP| -d.grou|
|00000660| 70 20 68 6f 73 74 73 20 | 77 69 74 68 69 6e 20 74 |p hosts |within t|
|00000670| 68 65 69 72 20 64 6f 6d | 61 69 6e 73 20 28 66 6f |heir dom|ains (fo|
|00000680| 72 63 65 73 20 2d 73 20 | 6f 70 74 69 6f 6e 29 2e |rces -s |option).|
|00000690| 0a 2e 49 50 20 2d 6d 0a | 73 68 6f 77 20 6d 75 6c |..IP -m.|show mul|
|000006a0| 74 69 70 6c 65 20 6c 6f | 67 69 6e 73 20 28 6f 76 |tiple lo|gins (ov|
|000006b0| 65 72 72 69 64 65 73 20 | 2d 63 20 6f 70 74 69 6f |errides |-c optio|
|000006c0| 6e 29 2e 0a 2e 49 50 20 | 2d 73 0a 6c 69 73 74 20 |n)...IP |-s.list |
|000006d0| 75 73 65 72 73 20 68 6f | 73 74 2d 62 79 2d 68 6f |users ho|st-by-ho|
|000006e0| 73 74 20 69 6e 73 74 65 | 61 64 20 6f 66 20 64 6f |st inste|ad of do|
|000006f0| 6d 61 69 6e 2d 62 79 2d | 64 6f 6d 61 69 6e 2e 0a |main-by-|domain..|
|00000700| 2e 49 50 20 22 2d 44 20 | 64 6f 6d 61 69 6e 22 0a |.IP "-D |domain".|
|00000710| 6c 69 73 74 20 6f 6e 6c | 79 20 75 73 65 72 73 20 |list onl|y users |
|00000720| 6c 6f 67 67 65 64 20 6f | 6e 20 68 6f 73 74 73 20 |logged o|n hosts |
|00000730| 69 6e 20 74 68 65 20 67 | 69 76 65 6e 20 64 6f 6d |in the g|iven dom|
|00000740| 61 69 6e 2e 0a 2e 49 50 | 20 22 2d 68 20 68 6f 73 |ain...IP| "-h hos|
|00000750| 74 20 2e 2e 2e 22 0a 6c | 69 73 74 20 6f 6e 6c 79 |t ...".l|ist only|
|00000760| 20 75 73 65 72 73 20 6c | 6f 67 67 65 64 20 6f 6e | users l|ogged on|
|00000770| 20 74 6f 20 74 68 65 20 | 73 70 65 63 69 66 69 65 | to the |specifie|
|00000780| 64 20 68 6f 73 74 73 2e | 0a 2e 50 50 0a 41 6e 79 |d hosts.|..PP.Any|
|00000790| 20 73 79 73 74 65 6d 20 | 66 6f 72 20 77 68 69 63 | system |for whic|
|000007a0| 68 20 64 61 74 61 20 63 | 61 6e 20 62 65 20 66 6f |h data c|an be fo|
|000007b0| 75 6e 64 20 69 6e 20 74 | 68 65 0a 2e 49 20 72 77 |und in t|he..I rw|
|000007c0| 68 6f 64 28 38 63 29 0a | 73 70 6f 6f 6c 69 6e 67 |hod(8c).|spooling|
|000007d0| 20 64 69 72 65 63 74 6f | 72 79 20 69 73 20 63 6f | directo|ry is co|
|000007e0| 6e 73 69 64 65 72 65 64 | 20 74 6f 20 62 65 20 61 |nsidered| to be a|
|000007f0| 20 22 76 69 73 69 62 6c | 65 20 73 79 73 74 65 6d | "visibl|e system|
|00000800| 22 2e 0a 2e 53 48 20 46 | 49 4c 45 53 0a 2f 75 73 |"...SH F|ILES./us|
|00000810| 72 2f 73 70 6f 6f 6c 2f | 72 77 68 6f 2f 77 68 6f |r/spool/|rwho/who|
|00000820| 64 2e 2a 0a 2e 53 48 20 | 53 45 45 20 41 4c 53 4f |d.*..SH |SEE ALSO|
|00000830| 0a 75 73 65 72 73 28 31 | 29 2c 20 72 77 68 6f 28 |.users(1|), rwho(|
|00000840| 31 43 29 2c 20 72 77 68 | 6f 64 28 38 43 29 0a 2e |1C), rwh|od(8C)..|
|00000850| 53 48 20 48 49 53 54 4f | 52 59 0a 4f 72 69 67 69 |SH HISTO|RY.Origi|
|00000860| 6e 61 6c 6c 79 20 63 72 | 65 61 74 65 64 20 62 79 |nally cr|eated by|
|00000870| 20 73 70 6c 69 63 69 6e | 67 20 70 69 65 63 65 73 | splicin|g pieces|
|00000880| 20 6f 66 0a 2e 49 20 72 | 77 68 6f 28 31 29 0a 73 | of..I r|who(1).s|
|00000890| 6f 75 72 63 65 20 69 6e | 74 6f 0a 2e 49 20 75 73 |ource in|to..I us|
|000008a0| 65 72 73 28 31 29 0a 73 | 6f 75 72 63 65 2e 0a 52 |ers(1).s|ource..R|
|000008b0| 65 77 72 69 74 74 65 6e | 20 74 6f 20 74 72 79 20 |ewritten| to try |
|000008c0| 74 6f 20 63 6c 65 61 6e | 20 75 70 20 74 68 65 20 |to clean| up the |
|000008d0| 68 61 63 6b 65 64 20 63 | 6f 64 65 0a 61 6e 64 20 |hacked c|ode.and |
|000008e0| 74 6f 20 74 72 79 20 74 | 6f 20 6d 61 6b 65 20 69 |to try t|o make i|
|000008f0| 74 20 65 61 73 69 65 72 | 20 74 6f 20 61 64 64 20 |t easier| to add |
|00000900| 28 6f 72 20 64 65 6c 65 | 74 65 29 20 6f 70 74 69 |(or dele|te) opti|
|00000910| 6f 6e 73 2e 0a 2e 53 48 | 20 42 55 47 53 0a 57 69 |ons...SH| BUGS.Wi|
|00000920| 74 68 20 74 68 65 20 2d | 68 20 6f 70 74 69 6f 6e |th the -|h option|
|00000930| 2c 0a 2e 49 20 72 75 0a | 64 6f 65 73 6e 27 74 20 |,..I ru.|doesn't |
|00000940| 63 61 72 65 20 69 66 20 | 61 20 68 6f 73 74 27 73 |care if |a host's|
|00000950| 20 73 70 6f 6f 6c 20 66 | 69 6c 65 20 68 61 73 6e | spool f|ile hasn|
|00000960| 27 74 0a 62 65 65 6e 20 | 75 70 64 61 74 65 64 20 |'t.been |updated |
|00000970| 77 69 74 68 69 6e 20 74 | 68 65 20 6c 61 73 74 20 |within t|he last |
|00000980| 35 20 6d 69 6e 75 74 65 | 73 2e 0a 2e 53 48 20 43 |5 minute|s...SH C|
|00000990| 4f 4e 54 41 43 54 0a 70 | 6b 65 72 6e 40 75 74 63 |ONTACT.p|kern@utc|
|000009a0| 73 72 69 2e 75 75 63 70 | 0a 53 48 41 52 5f 45 4f |sri.uucp|.SHAR_EO|
|000009b0| 46 0a 66 69 20 23 20 65 | 6e 64 20 6f 66 20 6f 76 |F.fi # e|nd of ov|
|000009c0| 65 72 77 72 69 74 69 6e | 67 20 63 68 65 63 6b 0a |erwritin|g check.|
|000009d0| 65 63 68 6f 20 73 68 61 | 72 3a 20 65 78 74 72 61 |echo sha|r: extra|
|000009e0| 63 74 69 6e 67 20 22 27 | 72 75 2e 63 27 22 20 27 |cting "'|ru.c'" '|
|000009f0| 28 37 38 31 37 20 63 68 | 61 72 61 63 74 65 72 73 |(7817 ch|aracters|
|00000a00| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 72 |)'.if te|st -f 'r|
|00000a10| 75 2e 63 27 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |u.c'.the|n..echo |
|00000a20| 73 68 61 72 3a 20 77 69 | 6c 6c 20 6e 6f 74 20 6f |shar: wi|ll not o|
|00000a30| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00000a40| 6e 67 20 66 69 6c 65 20 | 22 27 72 75 2e 63 27 22 |ng file |"'ru.c'"|
|00000a50| 0a 65 6c 73 65 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |.else.ca|t << \SH|
|00000a60| 41 52 5f 45 4f 46 20 3e | 20 27 72 75 2e 63 27 0a |AR_EOF >| 'ru.c'.|
|00000a70| 2f 2a 0a 20 2a 20 72 75 | 20 2d 20 72 65 6d 6f 74 |/*. * ru| - remot|
|00000a80| 65 20 75 73 65 72 73 28 | 31 29 09 09 28 76 65 72 |e users(|1)..(ver|
|00000a90| 73 69 6f 6e 20 32 29 0a | 20 2a 09 6c 69 73 74 20 |sion 2).| *.list |
|00000aa0| 75 73 65 72 73 20 6f 6e | 20 61 6c 6c 20 22 76 69 |users on| all "vi|
|00000ab0| 73 69 62 6c 65 22 20 68 | 6f 73 74 73 2e 0a 20 2a |sible" h|osts.. *|
|00000ac0| 09 75 73 61 67 65 3a 20 | 72 75 20 5b 2d 61 63 64 |.usage: |ru [-acd|
|00000ad0| 6d 73 5d 20 5b 2d 44 20 | 64 6f 6d 61 69 6e 5d 20 |ms] [-D |domain] |
|00000ae0| 5b 2d 68 20 68 6f 73 74 | 20 2e 2e 2e 5d 0a 20 2a |[-h host| ...]. *|
|00000af0| 0a 20 2a 20 50 2e 20 4b | 65 72 6e 20 28 70 6b 65 |. * P. K|ern (pke|
|00000b00| 72 6e 40 75 74 63 73 72 | 69 29 0a 20 2a 2f 0a 0a |rn@utcsr|i). */..|
|00000b10| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 69 6f 2e |#include| <stdio.|
|00000b20| 68 3e 0a 23 69 6e 63 6c | 75 64 65 20 3c 73 79 73 |h>.#incl|ude <sys|
|00000b30| 2f 74 79 70 65 73 2e 68 | 3e 0a 23 69 6e 63 6c 75 |/types.h|>.#inclu|
|00000b40| 64 65 20 3c 73 79 73 2f | 73 74 61 74 2e 68 3e 0a |de <sys/|stat.h>.|
|00000b50| 23 69 6e 63 6c 75 64 65 | 20 3c 73 79 73 2f 64 69 |#include| <sys/di|
|00000b60| 72 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 20 3c 73 |r.h>.#in|clude <s|
|00000b70| 79 73 2f 66 69 6c 65 2e | 68 3e 0a 23 69 6e 63 6c |ys/file.|h>.#incl|
|00000b80| 75 64 65 20 3c 6e 65 74 | 64 62 2e 68 3e 0a 0a 23 |ude <net|db.h>..#|
|00000b90| 64 65 66 69 6e 65 20 4d | 49 4e 53 54 52 09 38 09 |define M|INSTR.8.|
|00000ba0| 09 2f 2a 20 6d 69 6e 69 | 6d 75 6d 20 73 74 72 69 |./* mini|mum stri|
|00000bb0| 6e 67 20 6c 65 6e 67 74 | 68 20 2a 2f 0a 23 64 65 |ng lengt|h */.#de|
|00000bc0| 66 69 6e 65 20 48 4e 53 | 5a 09 33 32 09 09 2f 2a |fine HNS|Z.32../*|
|00000bd0| 20 68 6f 73 74 6e 61 6d | 65 20 6c 65 6e 67 74 68 | hostnam|e length|
|00000be0| 20 2a 2f 0a 23 64 65 66 | 69 6e 65 20 52 57 46 53 | */.#def|ine RWFS|
|00000bf0| 5a 09 48 4e 53 5a 2b 35 | 09 09 2f 2a 20 73 70 6f |Z.HNSZ+5|../* spo|
|00000c00| 6f 6c 2d 66 69 6c 65 20 | 6e 61 6d 65 20 6c 65 6e |ol-file |name len|
|00000c10| 67 74 68 20 2a 2f 0a 23 | 64 65 66 69 6e 65 20 4d |gth */.#|define M|
|00000c20| 52 47 4e 09 31 32 09 09 | 2f 2a 20 31 32 20 73 70 |RGN.12..|/* 12 sp|
|00000c30| 61 63 65 20 22 74 61 62 | 22 20 2a 2f 0a 23 64 65 |ace "tab|" */.#de|
|00000c40| 66 69 6e 65 20 48 4f 55 | 52 09 33 36 30 30 09 09 |fine HOU|R.3600..|
|00000c50| 2f 2a 20 73 65 63 6f 6e | 64 73 20 69 6e 20 61 6e |/* secon|ds in an|
|00000c60| 20 68 6f 75 72 20 2a 2f | 0a 23 64 65 66 69 6e 65 | hour */|.#define|
|00000c70| 20 52 57 50 45 52 49 4f | 44 09 33 30 30 09 2f 2a | RWPERIO|D.300./*|
|00000c80| 20 35 20 6d 69 6e 75 74 | 65 20 72 77 68 6f 20 72 | 5 minut|e rwho r|
|00000c90| 65 66 72 65 73 68 20 70 | 65 72 69 6f 64 20 2a 2f |efresh p|eriod */|
|00000ca0| 0a 23 64 65 66 69 6e 65 | 20 4d 41 58 50 4f 52 54 |.#define| MAXPORT|
|00000cb0| 53 09 31 36 30 09 2f 2a | 20 6d 61 78 20 74 74 79 |S.160./*| max tty|
|00000cc0| 20 70 6f 72 74 73 20 70 | 65 72 20 68 6f 73 74 20 | ports p|er host |
|00000cd0| 2a 2f 0a 0a 73 74 72 75 | 63 74 20 72 77 5f 75 74 |*/..stru|ct rw_ut|
|00000ce0| 6d 70 20 7b 0a 09 63 68 | 61 72 20 74 74 79 5b 4d |mp {..ch|ar tty[M|
|00000cf0| 49 4e 53 54 52 5d 3b 09 | 2f 2a 20 75 73 65 72 27 |INSTR];.|/* user'|
|00000d00| 73 20 74 74 79 20 2a 2f | 0a 09 63 68 61 72 20 6e |s tty */|..char n|
|00000d10| 61 6d 65 5b 4d 49 4e 53 | 54 52 5d 3b 09 2f 2a 20 |ame[MINS|TR];./* |
|00000d20| 75 73 65 72 27 73 20 6c | 6f 67 69 6e 20 2a 2f 0a |user's l|ogin */.|
|00000d30| 09 6c 6f 6e 67 20 74 69 | 6d 65 3b 09 09 2f 2a 20 |.long ti|me;../* |
|00000d40| 6c 6f 67 69 6e 20 74 69 | 6d 65 20 2a 2f 0a 09 6c |login ti|me */..l|
|00000d50| 6f 6e 67 20 69 64 6c 65 | 3b 09 09 2f 2a 20 69 64 |ong idle|;../* id|
|00000d60| 6c 65 20 74 69 6d 65 20 | 2a 2f 0a 7d 20 72 75 74 |le time |*/.} rut|
|00000d70| 3b 0a 0a 73 74 72 75 63 | 74 20 72 77 5f 68 64 72 |;..struc|t rw_hdr|
|00000d80| 20 7b 0a 09 63 68 61 72 | 20 70 61 64 5b 34 5d 3b | {..char| pad[4];|
|00000d90| 09 09 2f 2a 20 69 67 6e | 6f 72 65 20 66 69 72 73 |../* ign|ore firs|
|00000da0| 74 20 34 20 62 79 74 65 | 73 20 2a 2f 0a 09 69 6e |t 4 byte|s */..in|
|00000db0| 74 20 73 65 6e 74 2c 20 | 72 63 76 64 3b 09 09 2f |t sent, |rcvd;../|
|00000dc0| 2a 20 74 69 6d 65 20 73 | 65 6e 74 2c 20 20 74 69 |* time s|ent,  ti|
|00000dd0| 6d 65 20 72 65 63 27 76 | 64 20 2a 2f 0a 09 63 68 |me rec'v|d */..ch|
|00000de0| 61 72 20 68 6f 73 74 5b | 48 4e 53 5a 5d 3b 09 2f |ar host[|HNSZ];./|
|00000df0| 2a 20 68 6f 73 74 27 73 | 20 6e 61 6d 65 20 2a 2f |* host's| name */|
|00000e00| 0a 09 69 6e 74 20 6c 6f | 61 64 61 76 5b 33 5d 3b |..int lo|adav[3];|
|00000e10| 09 09 2f 2a 20 6c 6f 61 | 64 20 61 76 65 72 61 67 |../* loa|d averag|
|00000e20| 65 73 20 2a 2f 0a 09 69 | 6e 74 20 62 6f 6f 74 3b |es */..i|nt boot;|
|00000e30| 09 09 2f 2a 20 62 6f 6f | 74 20 64 61 74 65 20 2a |../* boo|t date *|
|00000e40| 2f 0a 7d 20 68 64 72 3b | 0a 0a 69 6e 74 20 72 75 |/.} hdr;|..int ru|
|00000e50| 74 73 69 7a 65 2c 20 68 | 64 72 73 69 7a 65 3b 0a |tsize, h|drsize;.|
|00000e60| 23 64 65 66 69 6e 65 20 | 52 57 48 4f 44 49 52 20 |#define |RWHODIR |
|00000e70| 22 2f 75 73 72 2f 73 70 | 6f 6f 6c 2f 72 77 68 6f |"/usr/sp|ool/rwho|
|00000e80| 22 0a 0a 6c 6f 6e 67 20 | 6e 6f 77 3b 09 09 2f 2a |"..long |now;../*|
|00000e90| 20 69 74 20 77 6f 6e 27 | 74 20 62 65 20 2e 2e 2e | it won'|t be ...|
|00000ea0| 20 28 6c 6f 6e 67 20 6e | 6f 77 20 3a 2d 29 20 2a | (long n|ow :-) *|
|00000eb0| 2f 0a 69 6e 74 20 6e 2c | 20 66 64 3b 0a 73 74 72 |/.int n,| fd;.str|
|00000ec0| 75 63 74 20 73 74 61 74 | 20 73 74 3b 0a 63 68 61 |uct stat| st;.cha|
|00000ed0| 72 20 2a 68 6e 62 75 66 | 2c 20 2a 68 70 3b 09 2f |r *hnbuf|, *hp;./|
|00000ee0| 2a 20 68 6f 73 74 6e 61 | 6d 65 20 62 75 66 66 65 |* hostna|me buffe|
|00000ef0| 72 20 26 20 65 78 74 72 | 61 20 70 6f 69 6e 74 65 |r & extr|a pointe|
|00000f00| 72 20 2a 2f 0a 63 68 61 | 72 20 2a 72 75 62 75 66 |r */.cha|r *rubuf|
|00000f10| 2c 20 2a 65 70 3b 09 2f | 2a 20 75 74 6d 70 20 64 |, *ep;./|* utmp d|
|00000f20| 61 74 61 20 62 75 66 66 | 65 72 20 26 20 65 6e 64 |ata buff|er & end|
|00000f30| 20 70 6f 69 6e 74 65 72 | 20 2a 2f 0a 63 68 61 72 | pointer| */.char|
|00000f40| 20 2a 70 72 6f 67 72 61 | 6d 2c 20 2a 64 6f 6d 61 | *progra|m, *doma|
|00000f50| 69 6e 3b 0a 69 6e 74 20 | 61 66 6c 61 67 3d 31 3b |in;.int |aflag=1;|
|00000f60| 09 2f 2a 20 6f 6e 6c 79 | 20 73 68 6f 77 20 75 73 |./* only| show us|
|00000f70| 65 72 73 20 77 69 74 68 | 20 3c 31 20 48 52 20 69 |ers with| <1 HR i|
|00000f80| 64 6c 65 20 74 69 6d 65 | 20 2a 2f 0a 69 6e 74 20 |dle time| */.int |
|00000f90| 73 66 6c 61 67 3d 31 3b | 09 2f 2a 20 73 68 6f 77 |sflag=1;|./* show|
|00000fa0| 20 6f 75 74 70 75 74 20 | 62 79 20 64 6f 6d 61 69 | output |by domai|
|00000fb0| 6e 73 20 28 6e 6f 74 20 | 62 79 20 68 6f 73 74 73 |ns (not |by hosts|
|00000fc0| 29 20 2a 2f 0a 69 6e 74 | 20 6d 66 6c 61 67 3d 31 |) */.int| mflag=1|
|00000fd0| 3b 09 2f 2a 20 69 67 6e | 6f 72 65 20 6d 75 6c 74 |;./* ign|ore mult|
|00000fe0| 69 70 6c 65 20 6c 6f 67 | 69 6e 73 20 2a 2f 0a 69 |iple log|ins */.i|
|00000ff0| 6e 74 20 63 66 6c 61 67 | 3d 30 3b 09 2f 2a 20 28 |nt cflag|=0;./* (|
|00001000| 69 66 20 6d 66 6c 61 67 | 29 20 64 6f 6e 27 74 20 |if mflag|) don't |
|00001010| 73 68 6f 77 20 6c 6f 67 | 69 6e 20 63 6f 75 6e 74 |show log|in count|
|00001020| 73 20 2a 2f 0a 69 6e 74 | 20 64 66 6c 61 67 3d 31 |s */.int| dflag=1|
|00001030| 3b 09 2f 2a 20 73 6f 72 | 74 20 68 6f 73 74 6e 61 |;./* sor|t hostna|
|00001040| 6d 65 73 20 77 69 74 68 | 69 6e 20 64 6f 6d 61 69 |mes with|in domai|
|00001050| 6e 73 20 2a 2f 0a 69 6e | 74 20 44 66 6c 61 67 3d |ns */.in|t Dflag=|
|00001060| 30 3b 09 2f 2a 20 73 68 | 6f 77 20 75 73 65 72 73 |0;./* sh|ow users|
|00001070| 20 69 6e 20 61 20 67 69 | 76 65 6e 20 64 6f 6d 61 | in a gi|ven doma|
|00001080| 69 6e 20 2a 2f 0a 69 6e | 74 20 68 66 6c 61 67 3d |in */.in|t hflag=|
|00001090| 30 3b 09 2f 2a 20 73 68 | 6f 77 20 75 73 65 72 73 |0;./* sh|ow users|
|000010a0| 20 6f 6e 20 61 20 67 69 | 76 65 6e 20 68 6f 73 74 | on a gi|ven host|
|000010b0| 20 2a 2f 0a 69 6e 74 20 | 65 72 72 66 6c 61 67 3d | */.int |errflag=|
|000010c0| 30 3b 0a 0a 65 78 74 65 | 72 6e 20 63 68 61 72 20 |0;..exte|rn char |
|000010d0| 2a 72 69 6e 64 65 78 28 | 29 2c 20 2a 6d 61 6c 6c |*rindex(|), *mall|
|000010e0| 6f 63 28 29 3b 0a 0a 6d | 61 69 6e 28 61 72 67 63 |oc();..m|ain(argc|
|000010f0| 2c 20 61 72 67 76 29 0a | 69 6e 74 20 61 72 67 63 |, argv).|int argc|
|00001100| 3b 0a 63 68 61 72 20 2a | 61 72 67 76 5b 5d 3b 0a |;.char *|argv[];.|
|00001110| 7b 0a 09 44 49 52 20 2a | 64 69 72 70 3b 0a 09 73 |{..DIR *|dirp;..s|
|00001120| 74 72 75 63 74 20 64 69 | 72 65 63 74 20 2a 64 70 |truct di|rect *dp|
|00001130| 3b 0a 09 69 6e 74 20 72 | 77 66 63 6d 70 28 29 2c |;..int r|wfcmp(),|
|00001140| 20 72 75 74 63 6d 70 28 | 29 2c 20 64 72 77 63 6d | rutcmp(|), drwcm|
|00001150| 70 28 29 3b 09 2f 2a 20 | 71 73 6f 72 74 28 29 20 |p();./* |qsort() |
|00001160| 72 6f 75 74 69 6e 65 73 | 20 2a 2f 0a 09 65 78 74 |routines| */..ext|
|00001170| 65 72 6e 20 69 6e 74 20 | 6f 70 74 69 6e 64 3b 09 |ern int |optind;.|
|00001180| 2f 2a 20 73 65 65 20 67 | 65 74 6f 70 74 28 33 43 |/* see g|etopt(3C|
|00001190| 29 20 2a 2f 0a 09 65 78 | 74 65 72 6e 20 63 68 61 |) */..ex|tern cha|
|000011a0| 72 20 2a 6f 70 74 61 72 | 67 3b 09 2f 2a 20 73 65 |r *optar|g;./* se|
|000011b0| 65 20 67 65 74 6f 70 74 | 28 33 43 29 20 2a 2f 0a |e getopt|(3C) */.|
|000011c0| 0a 09 70 72 6f 67 72 61 | 6d 20 3d 20 61 72 67 76 |..progra|m = argv|
|000011d0| 5b 30 5d 3b 0a 09 6e 6f | 77 20 3d 20 74 69 6d 65 |[0];..no|w = time|
|000011e0| 28 30 29 3b 0a 09 72 75 | 74 73 69 7a 65 20 3d 20 |(0);..ru|tsize = |
|000011f0| 73 69 7a 65 6f 66 28 72 | 75 74 29 3b 0a 09 68 64 |sizeof(r|ut);..hd|
|00001200| 72 73 69 7a 65 20 3d 20 | 73 69 7a 65 6f 66 28 68 |rsize = |sizeof(h|
|00001210| 64 72 29 3b 0a 0a 09 77 | 68 69 6c 65 20 28 28 6e |dr);...w|hile ((n|
|00001220| 20 3d 20 67 65 74 6f 70 | 74 28 61 72 67 63 2c 20 | = getop|t(argc, |
|00001230| 61 72 67 76 2c 20 22 61 | 63 64 68 6d 73 44 3a 22 |argv, "a|cdhmsD:"|
|00001240| 29 29 20 21 3d 20 45 4f | 46 29 0a 09 09 73 77 69 |)) != EO|F)...swi|
|00001250| 74 63 68 28 6e 29 20 7b | 0a 09 09 63 61 73 65 20 |tch(n) {|...case |
|00001260| 27 61 27 3a 20 61 66 6c | 61 67 3d 30 3b 20 62 72 |'a': afl|ag=0; br|
|00001270| 65 61 6b 3b 09 2f 2a 20 | 73 61 6d 65 20 61 73 20 |eak;./* |same as |
|00001280| 72 77 68 6f 28 31 29 20 | 2a 2f 0a 09 09 63 61 73 |rwho(1) |*/...cas|
|00001290| 65 20 27 63 27 3a 20 63 | 66 6c 61 67 3d 31 3b 20 |e 'c': c|flag=1; |
|000012a0| 62 72 65 61 6b 3b 09 2f | 2a 20 73 68 6f 77 20 6c |break;./|* show l|
|000012b0| 6f 67 69 6e 20 63 6f 75 | 6e 74 20 2a 2f 0a 09 09 |ogin cou|nt */...|
|000012c0| 63 61 73 65 20 27 64 27 | 3a 20 64 66 6c 61 67 3d |case 'd'|: dflag=|
|000012d0| 30 3b 20 62 72 65 61 6b | 3b 09 2f 2a 20 64 6f 6d |0; break|;./* dom|
|000012e0| 61 69 6e 2d 77 69 73 65 | 20 73 6f 72 74 20 2a 2f |ain-wise| sort */|
|000012f0| 0a 09 09 63 61 73 65 20 | 27 6d 27 3a 20 6d 66 6c |...case |'m': mfl|
|00001300| 61 67 3d 30 3b 20 62 72 | 65 61 6b 3b 09 2f 2a 20 |ag=0; br|eak;./* |
|00001310| 64 72 6f 70 20 6d 75 6c | 74 69 2d 6c 6f 67 69 6e |drop mul|ti-login|
|00001320| 73 20 2a 2f 0a 09 09 63 | 61 73 65 20 27 73 27 3a |s */...c|ase 's':|
|00001330| 20 73 66 6c 61 67 3d 30 | 3b 20 62 72 65 61 6b 3b | sflag=0|; break;|
|00001340| 09 2f 2a 20 64 6f 6d 61 | 69 6e 2d 6f 6e 6c 79 20 |./* doma|in-only |
|00001350| 6c 69 73 74 73 20 2a 2f | 0a 09 09 63 61 73 65 20 |lists */|...case |
|00001360| 27 44 27 3a 20 44 66 6c | 61 67 2b 2b 3b 20 64 6f |'D': Dfl|ag++; do|
|00001370| 6d 61 69 6e 20 3d 20 6f | 70 74 61 72 67 3b 20 62 |main = o|ptarg; b|
|00001380| 72 65 61 6b 3b 0a 09 09 | 63 61 73 65 20 27 68 27 |reak;...|case 'h'|
|00001390| 3a 20 68 66 6c 61 67 2b | 2b 3b 20 62 72 65 61 6b |: hflag+|+; break|
|000013a0| 3b 0a 09 09 64 65 66 61 | 75 6c 74 3a 20 65 72 72 |;...defa|ult: err|
|000013b0| 66 6c 61 67 2b 2b 3b 0a | 09 09 7d 0a 09 69 66 20 |flag++;.|..}..if |
|000013c0| 28 65 72 72 66 6c 61 67 | 29 20 7b 0a 09 09 66 70 |(errflag|) {...fp|
|000013d0| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 22 55 73 |rintf(st|derr,"Us|
|000013e0| 61 67 65 3a 20 25 73 20 | 5b 2d 61 63 64 6d 73 5d |age: %s |[-acdms]|
|000013f0| 20 5b 2d 44 20 64 6f 6d | 61 69 6e 5d 20 5b 2d 68 | [-D dom|ain] [-h|
|00001400| 20 68 6f 73 74 20 2e 2e | 2e 5d 5c 6e 22 2c 20 70 | host ..|.]\n", p|
|00001410| 72 6f 67 72 61 6d 29 3b | 0a 09 09 65 78 69 74 28 |rogram);|...exit(|
|00001420| 31 29 3b 0a 09 7d 0a 0a | 09 69 66 20 28 21 64 66 |1);..}..|.if (!df|
|00001430| 6c 61 67 29 20 73 66 6c | 61 67 3d 30 3b 0a 09 69 |lag) sfl|ag=0;..i|
|00001440| 66 20 28 21 6d 66 6c 61 | 67 29 20 63 66 6c 61 67 |f (!mfla|g) cflag|
|00001450| 3d 30 3b 09 2f 2a 20 6e | 6f 74 20 72 65 61 6c 6c |=0;./* n|ot reall|
|00001460| 79 20 6e 65 65 64 65 64 | 20 28 73 65 65 20 62 75 |y needed| (see bu|
|00001470| 72 70 28 29 29 20 2a 2f | 0a 0a 09 69 66 20 28 63 |rp()) */|...if (c|
|00001480| 68 64 69 72 28 52 57 48 | 4f 44 49 52 29 20 3c 20 |hdir(RWH|ODIR) < |
|00001490| 30 29 20 7b 09 2f 2a 20 | 63 64 20 52 57 48 4f 44 |0) {./* |cd RWHOD|
|000014a0| 49 52 20 2a 2f 0a 09 09 | 70 65 72 72 6f 72 28 52 |IR */...|perror(R|
|000014b0| 57 48 4f 44 49 52 29 3b | 0a 09 09 65 78 69 74 28 |WHODIR);|...exit(|
|000014c0| 31 29 3b 0a 09 7d 0a 0a | 09 69 66 20 28 68 66 6c |1);..}..|.if (hfl|
|000014d0| 61 67 29 20 7b 0a 09 09 | 73 66 6c 61 67 3d 30 3b |ag) {...|sflag=0;|
|000014e0| 0a 09 09 66 6f 72 20 28 | 20 3b 6f 70 74 69 6e 64 |...for (| ;optind|
|000014f0| 20 3c 20 61 72 67 63 3b | 20 6f 70 74 69 6e 64 2b | < argc;| optind+|
|00001500| 2b 29 0a 09 09 09 64 6f | 68 6f 73 74 28 61 72 67 |+)....do|host(arg|
|00001510| 76 5b 6f 70 74 69 6e 64 | 5d 29 3b 0a 09 09 65 78 |v[optind|]);...ex|
|00001520| 69 74 28 30 29 3b 0a 09 | 7d 0a 0a 09 2f 2a 0a 09 |it(0);..|}.../*..|
|00001530| 20 2a 20 72 65 61 64 20 | 22 2e 22 20 64 69 72 65 | * read |"." dire|
|00001540| 63 74 6f 72 79 20 28 61 | 73 73 75 6d 69 6e 67 20 |ctory (a|ssuming |
|00001550| 63 68 64 69 72 28 29 20 | 77 6f 72 6b 65 64 29 2c |chdir() |worked),|
|00001560| 20 0a 09 20 2a 20 61 6e | 64 20 67 65 74 20 61 6c | .. * an|d get al|
|00001570| 6c 20 66 69 6c 65 73 20 | 77 69 74 68 20 74 68 65 |l files |with the|
|00001580| 20 22 77 68 6f 64 2e 22 | 20 70 72 65 66 69 78 2e | "whod."| prefix.|
|00001590| 0a 09 20 2a 20 69 66 20 | 44 66 6c 61 67 2c 20 6f |.. * if |Dflag, o|
|000015a0| 6e 6c 79 20 67 65 74 20 | 66 69 6c 65 73 20 65 6e |nly get |files en|
|000015b0| 64 69 6e 67 20 77 69 74 | 68 20 22 64 6f 6d 61 69 |ding wit|h "domai|
|000015c0| 6e 22 2e 0a 09 20 2a 2f | 0a 09 69 66 20 28 28 64 |n"... */|..if ((d|
|000015d0| 69 72 70 20 3d 20 6f 70 | 65 6e 64 69 72 28 22 2e |irp = op|endir(".|
|000015e0| 22 29 29 20 3d 3d 20 4e | 55 4c 4c 0a 09 20 20 20 |")) == N|ULL..   |
|000015f0| 20 7c 7c 20 73 74 61 74 | 28 22 2e 22 2c 20 26 73 | || stat|(".", &s|
|00001600| 74 29 20 3c 20 30 29 20 | 7b 20 0a 09 09 70 65 72 |t) < 0) |{ ...per|
|00001610| 72 6f 72 28 52 57 48 4f | 44 49 52 29 3b 0a 09 09 |ror(RWHO|DIR);...|
|00001620| 65 78 69 74 28 31 29 3b | 0a 09 7d 0a 09 64 70 20 |exit(1);|..}..dp |
|00001630| 3d 20 72 65 61 64 64 69 | 72 28 64 69 72 70 29 3b |= readdi|r(dirp);|
|00001640| 09 2f 2a 20 67 65 74 20 | 22 2e 22 20 2a 2f 0a 09 |./* get |"." */..|
|00001650| 6e 20 3d 20 28 73 74 2e | 73 74 5f 73 69 7a 65 2f |n = (st.|st_size/|
|00001660| 28 44 49 52 53 49 5a 28 | 64 70 29 2b 38 29 29 2a |(DIRSIZ(|dp)+8))*|
|00001670| 52 57 46 53 5a 3b 0a 09 | 68 6e 62 75 66 20 3d 20 |RWFSZ;..|hnbuf = |
|00001680| 6d 61 6c 6c 6f 63 28 28 | 75 6e 73 69 67 6e 65 64 |malloc((|unsigned|
|00001690| 29 6e 29 3b 0a 09 6e 20 | 3d 20 30 3b 20 65 70 20 |)n);..n |= 0; ep |
|000016a0| 3d 20 68 6e 62 75 66 3b | 0a 09 77 68 69 6c 65 20 |= hnbuf;|..while |
|000016b0| 28 64 70 20 3d 20 72 65 | 61 64 64 69 72 28 64 69 |(dp = re|addir(di|
|000016c0| 72 70 29 29 20 7b 0a 09 | 09 73 74 72 6e 63 70 79 |rp)) {..|.strncpy|
|000016d0| 28 65 70 2c 20 64 70 2d | 3e 64 5f 6e 61 6d 65 2c |(ep, dp-|>d_name,|
|000016e0| 20 64 70 2d 3e 64 5f 6e | 61 6d 6c 65 6e 29 3b 0a | dp->d_n|amlen);.|
|000016f0| 09 09 2a 28 65 70 2b 64 | 70 2d 3e 64 5f 6e 61 6d |..*(ep+d|p->d_nam|
|00001700| 6c 65 6e 29 20 3d 20 27 | 5c 30 27 3b 0a 09 09 69 |len) = '|\0';...i|
|00001710| 66 20 28 73 74 72 6e 63 | 6d 70 28 65 70 2c 20 22 |f (strnc|mp(ep, "|
|00001720| 77 68 6f 64 2e 22 2c 20 | 35 29 20 3d 3d 20 30 20 |whod.", |5) == 0 |
|00001730| 26 26 0a 09 09 20 20 20 | 28 21 44 66 6c 61 67 20 |&&...   |(!Dflag |
|00001740| 7c 7c 20 73 74 72 63 6d | 70 28 72 69 6e 64 65 78 ||| strcm|p(rindex|
|00001750| 28 65 70 2c 27 2e 27 29 | 2b 31 2c 64 6f 6d 61 69 |(ep,'.')|+1,domai|
|00001760| 6e 29 20 3d 3d 20 30 29 | 29 20 7b 0a 09 09 09 65 |n) == 0)|) {....e|
|00001770| 70 20 2b 3d 20 52 57 46 | 53 5a 3b 0a 09 09 09 6e |p += RWF|SZ;....n|
|00001780| 2b 2b 3b 0a 09 09 7d 0a | 09 7d 0a 09 2f 2a 20 65 |++;...}.|.}../* e|
|00001790| 70 20 73 68 6f 75 6c 64 | 20 6e 6f 77 20 70 6f 69 |p should| now poi|
|000017a0| 6e 74 20 74 6f 20 74 68 | 65 20 65 6e 64 20 6f 66 |nt to th|e end of|
|000017b0| 20 74 68 65 20 68 6f 73 | 74 20 6e 61 6d 65 20 62 | the hos|t name b|
|000017c0| 75 66 66 65 72 20 2a 2f | 0a 09 63 6c 6f 73 65 64 |uffer */|..closed|
|000017d0| 69 72 28 64 69 72 70 29 | 3b 0a 0a 09 69 66 20 28 |ir(dirp)|;...if (|
|000017e0| 64 66 6c 61 67 29 09 2f | 2a 20 73 6f 72 74 20 68 |dflag)./|* sort h|
|000017f0| 6f 73 74 20 6e 61 6d 65 | 73 20 77 69 74 68 69 6e |ost name|s within|
|00001800| 20 64 6f 6d 61 69 6e 73 | 20 2a 2f 0a 09 09 71 73 | domains| */...qs|
|00001810| 6f 72 74 28 68 6e 62 75 | 66 2c 20 6e 2c 20 52 57 |ort(hnbu|f, n, RW|
|00001820| 46 53 5a 2c 20 64 72 77 | 63 6d 70 29 3b 0a 09 65 |FSZ, drw|cmp);..e|
|00001830| 6c 73 65 09 09 2f 2a 20 | 73 6f 72 74 20 66 75 6c |lse../* |sort ful|
|00001840| 6c 20 68 6f 73 74 20 6e | 61 6d 65 20 2a 2f 0a 09 |l host n|ame */..|
|00001850| 09 71 73 6f 72 74 28 68 | 6e 62 75 66 2c 20 6e 2c |.qsort(h|nbuf, n,|
|00001860| 20 52 57 46 53 5a 2c 20 | 72 77 66 63 6d 70 29 3b | RWFSZ, |rwfcmp);|
|00001870| 0a 0a 09 69 66 20 28 73 | 66 6c 61 67 29 20 7b 09 |...if (s|flag) {.|
|00001880| 2f 2a 20 70 72 6f 63 65 | 73 73 20 62 79 20 64 6f |/* proce|ss by do|
|00001890| 6d 61 69 6e 73 20 6f 6e | 6c 79 20 2a 2f 0a 09 09 |mains on|ly */...|
|000018a0| 64 6f 64 6f 6d 61 69 6e | 73 28 29 3b 0a 09 09 65 |dodomain|s();...e|
|000018b0| 78 69 74 28 30 29 3b 0a | 09 7d 0a 0a 09 2f 2a 0a |xit(0);.|.}.../*.|
|000018c0| 09 20 2a 20 70 72 6f 63 | 65 73 73 20 65 61 63 68 |. * proc|ess each|
|000018d0| 20 22 77 68 6f 64 2e 22 | 20 66 69 6c 65 20 69 6e | "whod."| file in|
|000018e0| 20 68 6e 62 75 66 20 6c | 69 73 74 2e 0a 09 20 2a | hnbuf l|ist... *|
|000018f0| 20 2d 20 67 65 74 20 3c | 66 69 6c 65 73 69 7a 65 | - get <|filesize|
|00001900| 3e 20 62 79 74 65 73 20 | 6f 66 20 6d 65 6d 0a 09 |> bytes |of mem..|
|00001910| 20 2a 20 2d 20 67 6f 62 | 62 6c 65 20 72 75 74 6d | * - gob|ble rutm|
|00001920| 70 20 64 61 74 61 20 66 | 72 6f 6d 20 66 69 6c 65 |p data f|rom file|
|00001930| 0a 09 20 2a 20 2d 20 73 | 6f 72 74 20 6e 61 6d 65 |.. * - s|ort name|
|00001940| 73 20 61 6c 70 68 61 62 | 65 74 69 63 61 6c 6c 79 |s alphab|etically|
|00001950| 0a 09 20 2a 20 2d 20 70 | 72 69 6e 74 20 6e 61 6d |.. * - p|rint nam|
|00001960| 65 73 20 28 62 75 72 70 | 29 0a 09 20 2a 20 2d 20 |es (burp|).. * - |
|00001970| 66 72 65 65 20 75 70 20 | 6d 65 6d 0a 09 20 2a 2f |free up |mem.. */|
|00001980| 0a 09 68 70 20 3d 20 68 | 6e 62 75 66 3b 0a 09 77 |..hp = h|nbuf;..w|
|00001990| 68 69 6c 65 20 28 68 70 | 20 3c 20 65 70 29 20 7b |hile (hp| < ep) {|
|000019a0| 0a 09 09 69 66 20 28 28 | 66 64 20 3d 20 6f 70 65 |...if ((|fd = ope|
|000019b0| 6e 28 68 70 2c 20 4f 5f | 52 44 4f 4e 4c 59 29 29 |n(hp, O_|RDONLY))|
|000019c0| 20 3c 20 30 0a 09 09 20 | 20 20 20 7c 7c 20 66 73 | < 0... |   || fs|
|000019d0| 74 61 74 28 66 64 2c 20 | 26 73 74 29 20 3c 20 30 |tat(fd, |&st) < 0|
|000019e0| 29 20 7b 0a 09 09 09 70 | 65 72 72 6f 72 28 68 70 |) {....p|error(hp|
|000019f0| 29 3b 0a 09 09 09 65 78 | 69 74 28 31 29 3b 0a 09 |);....ex|it(1);..|
|00001a00| 09 7d 0a 09 09 69 66 20 | 28 6e 20 3d 20 73 74 2e |.}...if |(n = st.|
|00001a10| 73 74 5f 73 69 7a 65 2d | 68 64 72 73 69 7a 65 29 |st_size-|hdrsize)|
|00001a20| 20 7b 0a 09 09 09 69 66 | 20 28 28 72 75 62 75 66 | {....if| ((rubuf|
|00001a30| 20 3d 20 6d 61 6c 6c 6f | 63 28 28 75 6e 73 69 67 | = mallo|c((unsig|
|00001a40| 6e 65 64 29 6e 29 29 20 | 3d 3d 20 30 29 20 7b 0a |ned)n)) |== 0) {.|
|00001a50| 09 09 09 09 70 65 72 72 | 6f 72 28 70 72 6f 67 72 |....perr|or(progr|
|00001a60| 61 6d 29 3b 0a 09 09 09 | 09 65 78 69 74 28 31 29 |am);....|.exit(1)|
|00001a70| 3b 0a 09 09 09 7d 0a 09 | 09 09 6e 20 3d 20 72 65 |;....}..|..n = re|
|00001a80| 61 64 28 66 64 2c 20 28 | 63 68 61 72 20 2a 29 26 |ad(fd, (|char *)&|
|00001a90| 68 64 72 2c 20 68 64 72 | 73 69 7a 65 29 3b 0a 09 |hdr, hdr|size);..|
|00001aa0| 09 09 69 66 20 28 6e 6f | 77 2d 68 64 72 2e 72 63 |..if (no|w-hdr.rc|
|00001ab0| 76 64 20 3c 3d 20 52 57 | 50 45 52 49 4f 44 20 26 |vd <= RW|PERIOD &|
|00001ac0| 26 0a 09 09 09 20 20 20 | 28 6e 20 3d 20 6c 64 72 |&....   |(n = ldr|
|00001ad0| 75 74 28 66 64 2c 72 75 | 62 75 66 2c 73 74 2e 73 |ut(fd,ru|buf,st.s|
|00001ae0| 74 5f 73 69 7a 65 2d 68 | 64 72 73 69 7a 65 29 29 |t_size-h|drsize))|
|00001af0| 3e 30 20 29 7b 0a 09 09 | 09 09 71 73 6f 72 74 28 |>0 ){...|..qsort(|
|00001b00| 72 75 62 75 66 2c 20 6e | 2f 72 75 74 73 69 7a 65 |rubuf, n|/rutsize|
|00001b10| 2c 20 72 75 74 73 69 7a | 65 2c 20 72 75 74 63 6d |, rutsiz|e, rutcm|
|00001b20| 70 29 3b 0a 09 09 09 09 | 62 75 72 70 28 68 70 2c |p);.....|burp(hp,|
|00001b30| 20 72 75 62 75 66 2c 20 | 6e 29 3b 0a 09 09 09 7d | rubuf, |n);....}|
|00001b40| 0a 09 09 7d 0a 09 09 66 | 72 65 65 28 72 75 62 75 |...}...f|ree(rubu|
|00001b50| 66 29 3b 0a 09 09 63 6c | 6f 73 65 28 66 64 29 3b |f);...cl|ose(fd);|
|00001b60| 0a 09 09 68 70 20 2b 3d | 20 52 57 46 53 5a 3b 0a |...hp +=| RWFSZ;.|
|00001b70| 09 7d 0a 7d 0a 0a 2f 2a | 0a 20 2a 20 63 6f 6d 70 |.}.}../*|. * comp|
|00001b80| 61 72 65 20 72 77 68 6f | 20 73 70 6f 6f 6c 2d 66 |are rwho| spool-f|
|00001b90| 69 6c 65 20 6e 61 6d 65 | 73 0a 20 2a 2f 0a 72 77 |ile name|s. */.rw|
|00001ba0| 66 63 6d 70 28 70 2c 20 | 71 29 0a 72 65 67 69 73 |fcmp(p, |q).regis|
|00001bb0| 74 65 72 20 63 68 61 72 | 20 2a 70 2c 20 2a 71 3b |ter char| *p, *q;|
|00001bc0| 0a 7b 0a 09 72 65 74 75 | 72 6e 28 73 74 72 6e 63 |.{..retu|rn(strnc|
|00001bd0| 6d 70 28 70 2c 20 71 2c | 20 52 57 46 53 5a 29 29 |mp(p, q,| RWFSZ))|
|00001be0| 3b 0a 7d 0a 0a 2f 2a 0a | 20 2a 20 63 6f 6d 70 61 |;.}../*.| * compa|
|00001bf0| 72 65 20 75 74 6d 70 20 | 6e 61 6d 65 20 65 6e 74 |re utmp |name ent|
|00001c00| 72 69 65 73 0a 20 2a 2f | 0a 72 75 74 63 6d 70 28 |ries. */|.rutcmp(|
|00001c10| 70 2c 20 71 29 0a 72 65 | 67 69 73 74 65 72 20 73 |p, q).re|gister s|
|00001c20| 74 72 75 63 74 20 72 77 | 5f 75 74 6d 70 20 2a 70 |truct rw|_utmp *p|
|00001c30| 2c 20 2a 71 3b 0a 7b 0a | 09 72 65 74 75 72 6e 28 |, *q;.{.|.return(|
|00001c40| 73 74 72 6e 63 6d 70 28 | 70 2d 3e 6e 61 6d 65 2c |strncmp(|p->name,|
|00001c50| 20 71 2d 3e 6e 61 6d 65 | 2c 20 4d 49 4e 53 54 52 | q->name|, MINSTR|
|00001c60| 29 29 3b 0a 7d 20 0a 0a | 2f 2a 0a 20 2a 20 63 6f |));.} ..|/*. * co|
|00001c70| 6d 70 61 72 65 20 73 75 | 62 2d 64 6f 6d 61 69 6e |mpare su|b-domain|
|00001c80| 20 6e 61 6d 65 73 0a 20 | 2a 2f 0a 64 72 77 63 6d | names. |*/.drwcm|
|00001c90| 70 28 70 2c 20 71 29 0a | 72 65 67 69 73 74 65 72 |p(p, q).|register|
|00001ca0| 20 63 68 61 72 20 2a 70 | 2c 20 2a 71 3b 0a 7b 0a | char *p|, *q;.{.|
|00001cb0| 09 69 6e 74 20 78 3b 0a | 09 63 68 61 72 20 2a 73 |.int x;.|.char *s|
|00001cc0| 2c 20 2a 74 3b 0a 0a 09 | 73 20 3d 20 72 69 6e 64 |, *t;...|s = rind|
|00001cd0| 65 78 28 70 2c 20 27 2e | 27 29 3b 0a 09 74 20 3d |ex(p, '.|');..t =|
|00001ce0| 20 72 69 6e 64 65 78 28 | 71 2c 20 27 2e 27 29 3b | rindex(|q, '.');|
|00001cf0| 0a 09 69 66 20 28 73 29 | 20 73 2b 2b 3b 20 65 6c |..if (s)| s++; el|
|00001d00| 73 65 20 73 20 3d 20 70 | 3b 0a 09 69 66 20 28 74 |se s = p|;..if (t|
|00001d10| 29 20 74 2b 2b 3b 20 65 | 6c 73 65 20 74 20 3d 20 |) t++; e|lse t = |
|00001d20| 71 3b 0a 09 69 66 28 78 | 20 3d 20 73 74 72 6e 63 |q;..if(x| = strnc|
|00001d30| 6d 70 28 73 2c 20 74 2c | 20 52 57 46 53 5a 29 29 |mp(s, t,| RWFSZ))|
|00001d40| 0a 09 09 72 65 74 75 72 | 6e 28 78 29 3b 0a 09 72 |...retur|n(x);..r|
|00001d50| 65 74 75 72 6e 28 73 74 | 72 6e 63 6d 70 28 70 2c |eturn(st|rncmp(p,|
|00001d60| 20 71 2c 20 52 57 46 53 | 5a 29 29 3b 0a 7d 0a 0a | q, RWFS|Z));.}..|
|00001d70| 2f 2a 0a 20 2a 20 70 72 | 69 6e 74 20 22 68 6f 73 |/*. * pr|int "hos|
|00001d80| 74 3a 20 20 20 20 20 20 | 20 75 73 65 72 31 20 75 |t:      | user1 u|
|00001d90| 73 65 72 32 20 2e 2e 2e | 20 22 0a 20 2a 2f 0a 62 |ser2 ...| ". */.b|
|00001da0| 75 72 70 28 73 2c 20 72 | 2c 20 6e 29 0a 72 65 67 |urp(s, r|, n).reg|
|00001db0| 69 73 74 65 72 20 63 68 | 61 72 20 2a 73 2c 20 2a |ister ch|ar *s, *|
|00001dc0| 72 3b 0a 69 6e 74 20 6e | 3b 0a 7b 09 0a 09 72 65 |r;.int n|;.{...re|
|00001dd0| 67 69 73 74 65 72 20 69 | 6e 74 20 6c 3b 0a 09 72 |gister i|nt l;..r|
|00001de0| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 2a 78 70 |egister |char *xp|
|00001df0| 3b 0a 0a 09 69 66 20 28 | 21 73 66 6c 61 67 29 0a |;...if (|!sflag).|
|00001e00| 09 09 73 20 2b 3d 20 35 | 3b 09 09 2f 2a 20 73 6b |..s += 5|;../* sk|
|00001e10| 69 70 20 22 77 68 6f 64 | 2e 22 20 70 72 65 66 69 |ip "whod|." prefi|
|00001e20| 78 20 2a 2f 0a 09 69 66 | 20 28 28 6c 20 3d 20 73 |x */..if| ((l = s|
|00001e30| 74 72 6c 65 6e 28 73 29 | 29 20 3e 20 4d 52 47 4e |trlen(s)|) > MRGN|
|00001e40| 29 20 7b 0a 09 09 73 5b | 4d 52 47 4e 5d 3d 20 27 |) {...s[|MRGN]= '|
|00001e50| 5c 30 27 3b 0a 09 09 6c | 20 3d 20 4d 52 47 4e 3b |\0';...l| = MRGN;|
|00001e60| 0a 09 7d 0a 09 69 66 20 | 28 73 66 6c 61 67 29 20 |..}..if |(sflag) |
|00001e70| 6c 20 2b 3d 20 35 3b 0a | 09 70 72 69 6e 74 66 28 |l += 5;.|.printf(|
|00001e80| 22 25 2e 2a 73 3a 25 2a | 73 22 2c 20 4d 52 47 4e |"%.*s:%*|s", MRGN|
|00001e90| 2c 20 73 2c 20 4d 52 47 | 4e 2b 31 2d 6c 2c 20 22 |, s, MRG|N+1-l, "|
|00001ea0| 20 22 29 3b 0a 0a 09 69 | 66 20 28 6d 66 6c 61 67 | ");...i|f (mflag|
|00001eb0| 29 20 7b 0a 09 09 66 6f | 72 28 6c 3d 30 2c 20 78 |) {...fo|r(l=0, x|
|00001ec0| 70 3d 22 22 2c 20 73 3d | 72 2b 4d 49 4e 53 54 52 |p="", s=|r+MINSTR|
|00001ed0| 3b 20 73 20 3c 20 28 72 | 2b 6e 29 3b 20 73 20 2b |; s < (r|+n); s +|
|00001ee0| 3d 20 72 75 74 73 69 7a | 65 29 0a 09 09 09 69 66 |= rutsiz|e)....if|
|00001ef0| 20 28 73 74 72 6e 63 6d | 70 28 73 2c 20 78 70 2c | (strncm|p(s, xp,|
|00001f00| 20 4d 49 4e 53 54 52 29 | 29 20 7b 0a 09 09 09 09 | MINSTR)|) {.....|
|00001f10| 70 72 69 6e 74 66 28 20 | 28 6c 29 3f 22 20 25 2e |printf( |(l)?" %.|
|00001f20| 2a 73 2f 25 64 22 3a 22 | 20 25 2e 2a 73 22 2c 0a |*s/%d":"| %.*s",.|
|00001f30| 09 09 09 09 09 4d 49 4e | 53 54 52 2c 20 73 2c 20 |.....MIN|STR, s, |
|00001f40| 6c 2b 31 29 3b 0a 09 09 | 09 09 78 70 20 3d 20 73 |l+1);...|..xp = s|
|00001f50| 3b 20 6c 20 3d 20 30 3b | 0a 09 09 09 7d 0a 09 09 |; l = 0;|....}...|
|00001f60| 09 65 6c 73 65 0a 09 09 | 09 09 6c 20 2b 3d 20 63 |.else...|..l += c|
|00001f70| 66 6c 61 67 3b 0a 09 09 | 70 72 69 6e 74 66 28 22 |flag;...|printf("|
|00001f80| 5c 6e 22 29 3b 0a 09 09 | 72 65 74 75 72 6e 3b 0a |\n");...|return;.|
|00001f90| 09 7d 0a 0a 09 66 6f 72 | 20 28 73 20 3d 20 72 2b |.}...for| (s = r+|
|00001fa0| 4d 49 4e 53 54 52 3b 20 | 73 20 3c 20 28 72 2b 6e |MINSTR; |s < (r+n|
|00001fb0| 29 3b 20 73 20 2b 3d 20 | 72 75 74 73 69 7a 65 29 |); s += |rutsize)|
|00001fc0| 0a 09 09 70 72 69 6e 74 | 66 28 22 20 25 2e 2a 73 |...print|f(" %.*s|
|00001fd0| 22 2c 20 4d 49 4e 53 54 | 52 2c 20 73 29 3b 0a 09 |", MINST|R, s);..|
|00001fe0| 70 72 69 6e 74 66 28 22 | 5c 6e 22 29 3b 0a 7d 0a |printf("|\n");.}.|
|00001ff0| 0a 2f 2a 0a 20 2a 20 73 | 68 6f 77 20 75 73 65 72 |./*. * s|how user|
|00002000| 73 20 6f 6e 20 61 20 73 | 70 65 63 69 66 69 63 20 |s on a s|pecific |
|00002010| 68 6f 73 74 0a 20 2a 2f | 0a 64 6f 68 6f 73 74 28 |host. */|.dohost(|
|00002020| 68 6f 73 74 29 0a 63 68 | 61 72 20 2a 68 6f 73 74 |host).ch|ar *host|
|00002030| 3b 0a 7b 0a 09 73 74 72 | 75 63 74 20 68 6f 73 74 |;.{..str|uct host|
|00002040| 65 6e 74 20 2a 68 2c 20 | 2a 67 65 74 68 6f 73 74 |ent *h, |*gethost|
|00002050| 62 79 6e 61 6d 65 28 29 | 3b 0a 0a 09 2f 2a 0a 09 |byname()|;.../*..|
|00002060| 20 2a 20 74 72 79 20 74 | 6f 20 67 65 74 20 68 6f | * try t|o get ho|
|00002070| 73 74 27 73 20 70 72 6f | 70 65 72 20 6e 61 6d 65 |st's pro|per name|
|00002080| 0a 09 20 2a 20 61 6e 64 | 20 74 72 79 20 74 6f 20 |.. * and| try to |
|00002090| 66 69 6e 64 20 74 68 65 | 20 70 72 6f 70 65 72 20 |find the| proper |
|000020a0| 73 70 6f 6f 6c 20 66 69 | 6c 65 0a 09 20 2a 2f 0a |spool fi|le.. */.|
|000020b0| 09 69 66 28 28 68 20 3d | 20 67 65 74 68 6f 73 74 |.if((h =| gethost|
|000020c0| 62 79 6e 61 6d 65 28 68 | 6f 73 74 29 29 20 3d 3d |byname(h|ost)) ==|
|000020d0| 20 4e 55 4c 4c 29 20 7b | 0a 09 09 70 65 72 72 6f | NULL) {|...perro|
|000020e0| 72 28 68 6f 73 74 29 3b | 0a 09 09 72 65 74 75 72 |r(host);|...retur|
|000020f0| 6e 28 31 29 3b 0a 09 7d | 0a 09 68 70 20 3d 20 6d |n(1);..}|..hp = m|
|00002100| 61 6c 6c 6f 63 28 73 74 | 72 6c 65 6e 28 68 2d 3e |alloc(st|rlen(h->|
|00002110| 68 5f 6e 61 6d 65 29 2b | 36 29 3b 0a 09 73 70 72 |h_name)+|6);..spr|
|00002120| 69 6e 74 66 28 68 70 2c | 20 22 77 68 6f 64 2e 25 |intf(hp,| "whod.%|
|00002130| 73 22 2c 20 68 2d 3e 68 | 5f 6e 61 6d 65 29 3b 0a |s", h->h|_name);.|
|00002140| 09 69 66 20 28 28 66 64 | 20 3d 20 6f 70 65 6e 28 |.if ((fd| = open(|
|00002150| 68 70 2c 20 4f 5f 52 44 | 4f 4e 4c 59 29 29 20 3c |hp, O_RD|ONLY)) <|
|00002160| 20 30 29 20 7b 0a 09 09 | 63 68 61 72 20 2a 2a 73 | 0) {...|char **s|
|00002170| 3b 0a 09 09 2f 2a 0a 09 | 09 20 2a 20 63 61 6e 27 |;.../*..|. * can'|
|00002180| 74 20 66 69 6e 64 20 66 | 69 6c 65 20 72 65 6c 61 |t find f|ile rela|
|00002190| 74 65 64 20 74 6f 20 68 | 5f 6e 61 6d 65 0a 09 09 |ted to h|_name...|
|000021a0| 20 2a 20 74 72 79 20 74 | 68 65 20 61 6c 69 61 73 | * try t|he alias|
|000021b0| 65 73 20 69 6e 73 74 65 | 61 64 2e 0a 09 09 20 2a |es inste|ad.... *|
|000021c0| 2f 0a 09 09 73 20 3d 20 | 68 2d 3e 68 5f 61 6c 69 |/...s = |h->h_ali|
|000021d0| 61 73 65 73 3b 0a 09 09 | 77 68 69 6c 65 28 2a 73 |ases;...|while(*s|
|000021e0| 29 20 7b 0a 09 09 09 66 | 72 65 65 28 68 70 29 3b |) {....f|ree(hp);|
|000021f0| 0a 09 09 09 68 70 20 3d | 20 6d 61 6c 6c 6f 63 28 |....hp =| malloc(|
|00002200| 73 74 72 6c 65 6e 28 2a | 73 29 2b 36 29 3b 0a 09 |strlen(*|s)+6);..|
|00002210| 09 09 73 70 72 69 6e 74 | 66 28 68 70 2c 20 22 77 |..sprint|f(hp, "w|
|00002220| 68 6f 64 2e 25 73 22 2c | 20 2a 73 29 3b 0a 09 09 |hod.%s",| *s);...|
|00002230| 09 69 66 20 28 28 66 64 | 20 3d 20 6f 70 65 6e 28 |.if ((fd| = open(|
|00002240| 68 70 2c 20 4f 5f 52 44 | 4f 4e 4c 59 29 29 20 3e |hp, O_RD|ONLY)) >|
|00002250| 20 30 29 0a 09 09 09 09 | 62 72 65 61 6b 3b 0a 09 | 0).....|break;..|
|00002260| 09 09 73 2b 2b 3b 0a 09 | 09 7d 0a 09 09 69 66 20 |..s++;..|.}...if |
|00002270| 28 2a 73 20 3d 3d 20 4e | 55 4c 4c 29 20 7b 0a 09 |(*s == N|ULL) {..|
|00002280| 09 09 66 70 72 69 6e 74 | 66 28 73 74 64 65 72 72 |..fprint|f(stderr|
|00002290| 2c 20 20 22 25 73 3a 20 | 6e 6f 20 64 61 74 61 5c |,  "%s: |no data\|
|000022a0| 6e 22 2c 20 20 68 6f 73 | 74 29 3b 0a 09 09 09 72 |n",  hos|t);....r|
|000022b0| 65 74 75 72 6e 28 31 29 | 3b 0a 09 09 7d 0a 09 7d |eturn(1)|;...}..}|
|000022c0| 0a 09 69 66 20 28 66 73 | 74 61 74 28 66 64 2c 20 |..if (fs|tat(fd, |
|000022d0| 26 73 74 29 20 3c 20 30 | 29 20 7b 0a 09 09 70 65 |&st) < 0|) {...pe|
|000022e0| 72 72 6f 72 28 68 70 29 | 3b 0a 09 09 72 65 74 75 |rror(hp)|;...retu|
|000022f0| 72 6e 28 31 29 3b 0a 09 | 7d 0a 09 6e 20 3d 20 73 |rn(1);..|}..n = s|
|00002300| 74 2e 73 74 5f 73 69 7a | 65 20 2d 20 68 64 72 73 |t.st_siz|e - hdrs|
|00002310| 69 7a 65 3b 0a 09 69 66 | 20 28 28 72 75 62 75 66 |ize;..if| ((rubuf|
|00002320| 20 3d 20 6d 61 6c 6c 6f | 63 28 28 75 6e 73 69 67 | = mallo|c((unsig|
|00002330| 6e 65 64 29 6e 29 29 20 | 3d 3d 20 30 29 20 7b 0a |ned)n)) |== 0) {.|
|00002340| 09 09 70 65 72 72 6f 72 | 28 70 72 6f 67 72 61 6d |..perror|(program|
|00002350| 29 3b 0a 09 09 65 78 69 | 74 28 31 29 3b 0a 09 7d |);...exi|t(1);..}|
|00002360| 0a 09 6e 20 3d 20 72 65 | 61 64 28 66 64 2c 20 28 |..n = re|ad(fd, (|
|00002370| 63 68 61 72 20 2a 29 26 | 68 64 72 2c 20 68 64 72 |char *)&|hdr, hdr|
|00002380| 73 69 7a 65 29 3b 0a 09 | 6e 20 3d 20 6c 64 72 75 |size);..|n = ldru|
|00002390| 74 28 66 64 2c 72 75 62 | 75 66 2c 73 74 2e 73 74 |t(fd,rub|uf,st.st|
|000023a0| 5f 73 69 7a 65 2d 68 64 | 72 73 69 7a 65 29 3b 0a |_size-hd|rsize);.|
|000023b0| 09 71 73 6f 72 74 28 72 | 75 62 75 66 2c 20 6e 2f |.qsort(r|ubuf, n/|
|000023c0| 72 75 74 73 69 7a 65 2c | 20 72 75 74 73 69 7a 65 |rutsize,| rutsize|
|000023d0| 2c 20 72 75 74 63 6d 70 | 29 3b 0a 09 69 66 20 28 |, rutcmp|);..if (|
|000023e0| 6e 6f 77 2d 68 64 72 2e | 72 63 76 64 20 3e 20 52 |now-hdr.|rcvd > R|
|000023f0| 57 50 45 52 49 4f 44 29 | 0a 09 09 73 74 72 63 61 |WPERIOD)|...strca|
|00002400| 74 28 68 70 2c 20 22 2a | 22 29 3b 0a 09 62 75 72 |t(hp, "*|");..bur|
|00002410| 70 28 68 70 2c 20 72 75 | 62 75 66 2c 20 6e 29 3b |p(hp, ru|buf, n);|
|00002420| 0a 7d 0a 0a 2f 2a 0a 20 | 2a 20 73 68 6f 77 20 75 |.}../*. |* show u|
|00002430| 73 65 72 73 20 62 79 20 | 64 6f 6d 61 69 6e 0a 20 |sers by |domain. |
|00002440| 2a 2f 0a 64 6f 64 6f 6d | 61 69 6e 73 28 29 0a 7b |*/.dodom|ains().{|
|00002450| 0a 09 69 6e 74 20 7a 3b | 0a 09 72 65 67 69 73 74 |..int z;|..regist|
|00002460| 65 72 20 69 6e 74 20 69 | 3b 0a 09 63 68 61 72 20 |er int i|;..char |
|00002470| 2a 70 30 2c 20 2a 70 31 | 2c 20 2a 66 6e 70 2c 20 |*p0, *p1|, *fnp, |
|00002480| 2a 72 62 70 3b 0a 0a 09 | 66 6e 70 20 3d 20 68 70 |*rbp;...|fnp = hp|
|00002490| 20 3d 20 68 6e 62 75 66 | 3b 0a 0a 09 69 66 20 28 | = hnbuf|;...if (|
|000024a0| 28 72 75 62 75 66 20 3d | 20 6d 61 6c 6c 6f 63 28 |(rubuf =| malloc(|
|000024b0| 6e 20 2a 20 4d 41 58 50 | 4f 52 54 53 20 2a 20 72 |n * MAXP|ORTS * r|
|000024c0| 75 74 73 69 7a 65 29 29 | 20 3d 3d 20 4e 55 4c 4c |utsize))| == NULL|
|000024d0| 29 20 7b 0a 09 09 70 65 | 72 72 6f 72 28 70 72 6f |) {...pe|rror(pro|
|000024e0| 67 72 61 6d 29 3b 0a 09 | 09 65 78 69 74 28 31 29 |gram);..|.exit(1)|
|000024f0| 3b 0a 09 7d 0a 0a 09 70 | 30 20 3d 20 72 69 6e 64 |;..}...p|0 = rind|
|00002500| 65 78 28 66 6e 70 2c 20 | 27 2e 27 29 20 2b 20 31 |ex(fnp, |'.') + 1|
|00002510| 3b 0a 09 69 66 20 28 28 | 69 6e 74 29 70 30 20 3d |;..if ((|int)p0 =|
|00002520| 3d 20 31 29 20 70 30 20 | 3d 20 66 6e 70 3b 0a 0a |= 1) p0 |= fnp;..|
|00002530| 09 77 68 69 6c 65 20 28 | 66 6e 70 20 3c 20 65 70 |.while (|fnp < ep|
|00002540| 29 20 7b 0a 09 09 72 62 | 70 20 3d 20 72 75 62 75 |) {...rb|p = rubu|
|00002550| 66 3b 0a 09 09 66 6f 72 | 20 28 70 31 3d 70 30 2c |f;...for| (p1=p0,|
|00002560| 20 6e 3d 69 3d 30 3b 20 | 66 6e 70 20 3c 20 65 70 | n=i=0; |fnp < ep|
|00002570| 20 26 26 20 21 73 74 72 | 63 6d 70 28 70 31 2c 20 | && !str|cmp(p1, |
|00002580| 70 30 29 3b 20 69 2b 2b | 29 20 7b 0a 09 09 09 69 |p0); i++|) {....i|
|00002590| 66 20 28 28 66 64 20 3d | 20 6f 70 65 6e 28 66 6e |f ((fd =| open(fn|
|000025a0| 70 2c 20 4f 5f 52 44 4f | 4e 4c 59 29 29 20 3c 20 |p, O_RDO|NLY)) < |
|000025b0| 30 0a 09 09 09 20 20 20 | 20 7c 7c 20 66 73 74 61 |0....   | || fsta|
|000025c0| 74 28 66 64 2c 20 26 73 | 74 29 20 3c 20 30 29 20 |t(fd, &s|t) < 0) |
|000025d0| 7b 0a 09 09 09 09 70 65 | 72 72 6f 72 28 66 6e 70 |{.....pe|rror(fnp|
|000025e0| 29 3b 0a 09 09 09 09 65 | 78 69 74 28 31 29 3b 0a |);.....e|xit(1);.|
|000025f0| 09 09 09 7d 0a 09 09 09 | 72 65 61 64 28 66 64 2c |...}....|read(fd,|
|00002600| 20 28 63 68 61 72 20 2a | 29 26 68 64 72 2c 20 68 | (char *|)&hdr, h|
|00002610| 64 72 73 69 7a 65 29 3b | 0a 09 09 09 69 66 20 28 |drsize);|....if (|
|00002620| 6e 6f 77 2d 68 64 72 2e | 72 63 76 64 20 3c 3d 20 |now-hdr.|rcvd <= |
|00002630| 52 57 50 45 52 49 4f 44 | 20 26 26 0a 09 09 09 20 |RWPERIOD| &&.... |
|00002640| 20 20 28 7a 20 3d 20 6c | 64 72 75 74 28 66 64 2c |  (z = l|drut(fd,|
|00002650| 72 62 70 2c 73 74 2e 73 | 74 5f 73 69 7a 65 2d 68 |rbp,st.s|t_size-h|
|00002660| 64 72 73 69 7a 65 29 29 | 3e 30 20 29 20 7b 0a 09 |drsize))|>0 ) {..|
|00002670| 09 09 09 6e 20 2b 3d 20 | 7a 3b 0a 09 09 09 09 72 |...n += |z;.....r|
|00002680| 62 70 20 2b 3d 20 7a 3b | 0a 09 09 09 7d 0a 09 09 |bp += z;|....}...|
|00002690| 09 63 6c 6f 73 65 28 66 | 64 29 3b 0a 09 09 09 66 |.close(f|d);....f|
|000026a0| 6e 70 20 2b 3d 20 52 57 | 46 53 5a 3b 0a 09 09 09 |np += RW|FSZ;....|
|000026b0| 70 31 20 3d 20 70 30 3b | 0a 09 09 09 70 30 20 3d |p1 = p0;|....p0 =|
|000026c0| 20 72 69 6e 64 65 78 28 | 66 6e 70 2c 20 27 2e 27 | rindex(|fnp, '.'|
|000026d0| 29 20 2b 20 31 3b 0a 09 | 09 09 69 66 20 28 28 69 |) + 1;..|..if ((i|
|000026e0| 6e 74 29 70 30 20 3d 3d | 20 31 29 20 70 30 20 3d |nt)p0 ==| 1) p0 =|
|000026f0| 20 66 6e 70 3b 0a 09 09 | 7d 0a 09 09 69 66 20 28 | fnp;...|}...if (|
|00002700| 21 6e 29 20 63 6f 6e 74 | 69 6e 75 65 3b 0a 09 09 |!n) cont|inue;...|
|00002710| 2a 72 62 70 20 3d 20 27 | 5c 30 27 3b 0a 09 09 71 |*rbp = '|\0';...q|
|00002720| 73 6f 72 74 28 72 75 62 | 75 66 2c 20 6e 2f 72 75 |sort(rub|uf, n/ru|
|00002730| 74 73 69 7a 65 2c 20 72 | 75 74 73 69 7a 65 2c 20 |tsize, r|utsize, |
|00002740| 72 75 74 63 6d 70 29 3b | 0a 09 09 62 75 72 70 28 |rutcmp);|...burp(|
|00002750| 70 31 2c 20 72 75 62 75 | 66 2c 20 6e 29 3b 0a 09 |p1, rubu|f, n);..|
|00002760| 7d 0a 09 66 72 65 65 28 | 72 75 62 75 66 29 3b 0a |}..free(|rubuf);.|
|00002770| 7d 0a 0a 2f 2a 0a 20 2a | 20 6c 6f 61 64 20 72 75 |}../*. *| load ru|
|00002780| 74 6d 70 20 64 61 74 61 | 20 69 6e 74 6f 20 62 75 |tmp data| into bu|
|00002790| 66 66 65 72 2e 0a 20 2a | 2f 0a 6c 64 72 75 74 28 |ffer.. *|/.ldrut(|
|000027a0| 66 64 2c 20 70 2c 20 6e | 29 0a 69 6e 74 20 66 64 |fd, p, n|).int fd|
|000027b0| 2c 20 6e 3b 0a 63 68 61 | 72 20 2a 70 3b 0a 7b 0a |, n;.cha|r *p;.{.|
|000027c0| 09 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 6d 31 |.registe|r int m1|
|000027d0| 2c 20 6d 32 2c 20 6e 72 | 3b 0a 09 72 65 67 69 73 |, m2, nr|;..regis|
|000027e0| 74 65 72 20 63 68 61 72 | 20 2a 73 3b 0a 0a 09 69 |ter char| *s;...i|
|000027f0| 66 20 28 21 61 66 6c 61 | 67 29 20 72 65 74 75 72 |f (!afla|g) retur|
|00002800| 6e 28 72 65 61 64 28 66 | 64 2c 20 70 2c 20 6e 29 |n(read(f|d, p, n)|
|00002810| 29 3b 0a 0a 09 73 20 3d | 20 70 3b 0a 09 6d 31 20 |);...s =| p;..m1 |
|00002820| 3d 20 6d 32 20 3d 20 30 | 3b 0a 0a 09 77 68 69 6c |= m2 = 0|;...whil|
|00002830| 65 20 28 6d 32 20 3c 20 | 6e 20 26 26 20 28 6e 72 |e (m2 < |n && (nr|
|00002840| 20 3d 20 72 65 61 64 28 | 66 64 2c 20 73 2c 20 72 | = read(|fd, s, r|
|00002850| 75 74 73 69 7a 65 29 29 | 20 3e 20 30 29 20 7b 0a |utsize))| > 0) {.|
|00002860| 09 09 6d 32 20 2b 3d 20 | 6e 72 3b 0a 09 09 69 66 |..m2 += |nr;...if|
|00002870| 20 28 28 28 73 74 72 75 | 63 74 20 72 77 5f 75 74 | (((stru|ct rw_ut|
|00002880| 6d 70 20 2a 29 73 29 2d | 3e 69 64 6c 65 20 3e 20 |mp *)s)-|>idle > |
|00002890| 48 4f 55 52 29 0a 09 09 | 09 2f 2a 20 69 67 6e 6f |HOUR)...|./* igno|
|000028a0| 72 65 20 65 6e 74 72 69 | 65 73 20 77 69 74 68 20 |re entri|es with |
|000028b0| 3e 31 20 68 72 20 69 64 | 6c 65 20 74 69 6d 65 20 |>1 hr id|le time |
|000028c0| 2a 2f 0a 09 09 09 63 6f | 6e 74 69 6e 75 65 3b 0a |*/....co|ntinue;.|
|000028d0| 09 09 6d 31 20 2b 3d 20 | 6e 72 3b 0a 09 09 73 20 |..m1 += |nr;...s |
|000028e0| 2b 3d 20 6e 72 3b 0a 09 | 7d 0a 09 72 65 74 75 72 |+= nr;..|}..retur|
|000028f0| 6e 28 6d 31 29 3b 0a 7d | 0a 53 48 41 52 5f 45 4f |n(m1);.}|.SHAR_EO|
|00002900| 46 0a 66 69 20 23 20 65 | 6e 64 20 6f 66 20 6f 76 |F.fi # e|nd of ov|
|00002910| 65 72 77 72 69 74 69 6e | 67 20 63 68 65 63 6b 0a |erwritin|g check.|
|00002920| 23 09 45 6e 64 20 6f 66 | 20 73 68 65 6c 6c 20 61 |#.End of| shell a|
|00002930| 72 63 68 69 76 65 0a 65 | 78 69 74 20 30 0a 0a    |rchive.e|xit 0.. |
+--------+-------------------------+-------------------------+--------+--------+