/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume05 / bsdgetut.2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 64 65 63 | 77 72 6c 21 75 63 62 76 |From dec|wrl!ucbv|
|00000010| 61 78 21 61 67 61 74 65 | 21 62 69 6f 6e 65 74 21 |ax!agate|!bionet!|
|00000020| 61 70 70 6c 65 21 62 6c | 6f 6f 6d 2d 62 65 61 63 |apple!bl|oom-beac|
|00000030| 6f 6e 21 74 75 74 2e 63 | 69 73 2e 6f 68 69 6f 2d |on!tut.c|is.ohio-|
|00000040| 73 74 61 74 65 2e 65 64 | 75 21 63 77 6a 63 63 21 |state.ed|u!cwjcc!|
|00000050| 68 61 6c 21 6e 63 6f 61 | 73 74 21 61 6c 6c 62 65 |hal!ncoa|st!allbe|
|00000060| 72 79 20 53 75 6e 20 4e | 6f 76 20 32 37 20 30 30 |ry Sun N|ov 27 00|
|00000070| 3a 32 39 3a 35 38 20 50 | 53 54 20 31 39 38 38 0a |:29:58 P|ST 1988.|
|00000080| 41 72 74 69 63 6c 65 20 | 37 33 36 20 6f 66 20 63 |Article |736 of c|
|00000090| 6f 6d 70 2e 73 6f 75 72 | 63 65 73 2e 6d 69 73 63 |omp.sour|ces.misc|
|000000a0| 3a 0a 50 61 74 68 3a 20 | 67 72 61 6e 69 74 65 21 |:.Path: |granite!|
|000000b0| 64 65 63 77 72 6c 21 75 | 63 62 76 61 78 21 61 67 |decwrl!u|cbvax!ag|
|000000c0| 61 74 65 21 62 69 6f 6e | 65 74 21 61 70 70 6c 65 |ate!bion|et!apple|
|000000d0| 21 62 6c 6f 6f 6d 2d 62 | 65 61 63 6f 6e 21 74 75 |!bloom-b|eacon!tu|
|000000e0| 74 2e 63 69 73 2e 6f 68 | 69 6f 2d 73 74 61 74 65 |t.cis.oh|io-state|
|000000f0| 2e 65 64 75 21 63 77 6a | 63 63 21 68 61 6c 21 6e |.edu!cwj|cc!hal!n|
|00000100| 63 6f 61 73 74 21 61 6c | 6c 62 65 72 79 0a 46 72 |coast!al|lbery.Fr|
|00000110| 6f 6d 3a 20 70 61 75 6c | 40 64 65 76 6f 6e 2e 55 |om: paul|@devon.U|
|00000120| 55 43 50 20 28 50 61 75 | 6c 20 53 75 74 63 6c 69 |UCP (Pau|l Sutcli|
|00000130| 66 66 65 20 4a 72 2e 29 | 0a 4e 65 77 73 67 72 6f |ffe Jr.)|.Newsgro|
|00000140| 75 70 73 3a 20 63 6f 6d | 70 2e 73 6f 75 72 63 65 |ups: com|p.source|
|00000150| 73 2e 6d 69 73 63 0a 53 | 75 62 6a 65 63 74 3a 20 |s.misc.S|ubject: |
|00000160| 76 30 35 69 30 36 30 3a | 20 41 20 6d 6f 72 65 20 |v05i060:| A more |
|00000170| 63 6f 6d 70 6c 65 74 65 | 20 67 65 74 75 74 20 65 |complete| getut e|
|00000180| 6d 75 6c 61 74 69 6f 6e | 0a 4d 65 73 73 61 67 65 |mulation|.Message|
|00000190| 2d 49 44 3a 20 3c 38 38 | 31 31 31 30 30 34 33 36 |-ID: <88|11100436|
|000001a0| 2e 41 41 31 32 33 34 39 | 40 64 65 76 6f 6e 2e 55 |.AA12349|@devon.U|
|000001b0| 55 43 50 3e 0a 44 61 74 | 65 3a 20 32 36 20 4e 6f |UCP>.Dat|e: 26 No|
|000001c0| 76 20 38 38 20 32 33 3a | 31 32 3a 32 36 20 47 4d |v 88 23:|12:26 GM|
|000001d0| 54 0a 53 65 6e 64 65 72 | 3a 20 61 6c 6c 62 65 72 |T.Sender|: allber|
|000001e0| 79 40 6e 63 6f 61 73 74 | 2e 55 55 43 50 0a 52 65 |y@ncoast|.UUCP.Re|
|000001f0| 70 6c 79 2d 54 6f 3a 20 | 70 61 75 6c 40 64 65 76 |ply-To: |paul@dev|
|00000200| 6f 6e 2e 55 55 43 50 20 | 28 50 61 75 6c 20 53 75 |on.UUCP |(Paul Su|
|00000210| 74 63 6c 69 66 66 65 20 | 4a 72 2e 29 0a 4f 72 67 |tcliffe |Jr.).Org|
|00000220| 61 6e 69 7a 61 74 69 6f | 6e 3a 20 44 65 76 6f 6e |anizatio|n: Devon|
|00000230| 20 43 6f 6d 70 75 74 65 | 72 20 53 65 72 76 69 63 | Compute|r Servic|
|00000240| 65 73 2c 20 4c 61 6e 63 | 61 73 74 65 72 2c 20 50 |es, Lanc|aster, P|
|00000250| 41 0a 4c 69 6e 65 73 3a | 20 31 31 35 0a 41 70 70 |A.Lines:| 115.App|
|00000260| 72 6f 76 65 64 3a 20 61 | 6c 6c 62 65 72 79 40 6e |roved: a|llbery@n|
|00000270| 63 6f 61 73 74 2e 55 55 | 43 50 0a 0a 50 6f 73 74 |coast.UU|CP..Post|
|00000280| 69 6e 67 2d 6e 75 6d 62 | 65 72 3a 20 56 6f 6c 75 |ing-numb|er: Volu|
|00000290| 6d 65 20 35 2c 20 49 73 | 73 75 65 20 36 30 0a 53 |me 5, Is|sue 60.S|
|000002a0| 75 62 6d 69 74 74 65 64 | 2d 62 79 3a 20 22 50 61 |ubmitted|-by: "Pa|
|000002b0| 75 6c 20 53 75 74 63 6c | 69 66 66 65 20 4a 72 2e |ul Sutcl|iffe Jr.|
|000002c0| 22 20 3c 70 61 75 6c 40 | 64 65 76 6f 6e 2e 55 55 |" <paul@|devon.UU|
|000002d0| 43 50 3e 0a 41 72 63 68 | 69 76 65 2d 6e 61 6d 65 |CP>.Arch|ive-name|
|000002e0| 3a 20 62 73 64 2e 67 65 | 74 75 74 2e 32 0a 0a 2b |: bsd.ge|tut.2..+|
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 7c 20 50 6f 73 74 |--------|-.| Post|
|00000300| 69 6e 67 2d 6e 75 6d 62 | 65 72 3a 20 56 6f 6c 75 |ing-numb|er: Volu|
|00000310| 6d 65 20 35 2c 20 49 73 | 73 75 65 20 33 37 0a 7c |me 5, Is|sue 37.||
|00000320| 20 53 75 62 6d 69 74 74 | 65 64 2d 62 79 3a 20 22 | Submitt|ed-by: "|
|00000330| 4a 65 66 66 20 42 65 61 | 64 6c 65 73 22 20 3c 6a |Jeff Bea|dles" <j|
|00000340| 65 66 66 40 74 65 6b 63 | 73 63 2e 6d 6b 74 2e 74 |eff@tekc|sc.mkt.t|
|00000350| 65 6b 2e 63 6f 6d 3e 0a | 7c 20 41 72 63 68 69 76 |ek.com>.|| Archiv|
|00000360| 65 2d 6e 61 6d 65 3a 20 | 62 73 64 2e 67 65 74 75 |e-name: |bsd.getu|
|00000370| 74 0a 7c 20 0a 7c 20 5b | 49 20 74 61 6b 65 20 69 |t.| .| [|I take i|
|00000380| 74 20 74 68 69 73 20 77 | 61 73 20 72 65 64 69 72 |t this w|as redir|
|00000390| 65 63 74 65 64 2e 20 20 | 4e 6f 74 65 20 74 68 61 |ected.  |Note tha|
|000003a0| 74 20 69 74 20 77 6f 6e | 27 74 20 68 65 6c 70 20 |t it won|'t help |
|000003b0| 79 6f 75 20 63 6f 6d 70 | 69 6c 65 20 73 35 66 69 |you comp|ile s5fi|
|000003c0| 6e 67 65 72 0a 7c 20 6f | 6e 20 61 20 6e 6f 6e 2d |nger.| o|n a non-|
|000003d0| 53 79 73 74 65 6d 2d 56 | 20 73 79 73 74 65 6d 3a |System-V| system:|
|000003e0| 20 20 67 65 74 75 74 6c | 69 6e 65 28 29 20 69 73 |  getutl|ine() is|
|000003f0| 6e 27 74 20 68 65 72 65 | 2e 20 20 2b 2b 62 73 61 |n't here|.  ++bsa|
|00000400| 5d 0a 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0a 0a 4f 6b |].+-----|----..Ok|
|00000410| 61 79 2c 20 73 6f 20 79 | 6f 75 20 6e 65 65 64 20 |ay, so y|ou need |
|00000420| 61 20 67 65 74 75 74 6c | 69 6e 65 28 29 3f 20 20 |a getutl|ine()?  |
|00000430| 48 65 72 65 20 69 73 20 | 74 68 65 20 63 6f 6d 70 |Here is |the comp|
|00000440| 6c 65 74 65 20 67 65 74 | 75 74 65 6e 74 0a 65 6d |lete get|utent.em|
|00000450| 75 6c 61 74 69 6f 6e 20 | 74 68 61 74 20 49 20 75 |ulation |that I u|
|00000460| 73 65 20 68 65 72 65 20 | 61 74 20 64 65 76 6f 6e |se here |at devon|
|00000470| 2e 20 20 59 6f 75 20 6d | 61 79 20 70 6f 73 74 20 |.  You m|ay post |
|00000480| 74 68 69 73 20 69 6e 20 | 63 2e 73 2e 6d 2e 20 69 |this in |c.s.m. i|
|00000490| 66 20 79 6f 75 0a 66 65 | 65 6c 20 69 74 20 75 73 |f you.fe|el it us|
|000004a0| 65 66 75 6c 20 74 6f 20 | 74 68 65 20 6e 65 74 20 |eful to |the net |
|000004b0| 61 74 20 6c 61 72 67 65 | 20 28 67 69 76 65 6e 20 |at large| (given |
|000004c0| 74 68 65 79 27 76 65 20 | 61 6c 72 65 61 64 79 20 |they've |already |
|000004d0| 73 65 65 6e 20 62 73 64 | 2e 67 65 74 75 74 29 2e |seen bsd|.getut).|
|000004e0| 0a 0a 2d 20 70 61 75 6c | 0a 0a 2d 2d 2d 2d 2d 20 |..- paul|..----- |
|000004f0| 38 3c 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 38 3c |8< -----|----- 8<|
|00000500| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 38 3c 20 2d | -------|--- 8< -|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 38 3c 20 2d 2d 2d |--------|- 8< ---|
|00000520| 2d 2d 2d 2d 2d 2d 2d 20 | 38 3c 20 2d 2d 2d 2d 2d |------- |8< -----|
|00000530| 0a 23 21 20 2f 62 69 6e | 2f 73 68 0a 23 20 54 68 |.#! /bin|/sh.# Th|
|00000540| 69 73 20 69 73 20 61 20 | 73 68 65 6c 6c 20 61 72 |is is a |shell ar|
|00000550| 63 68 69 76 65 2c 20 6d | 65 61 6e 69 6e 67 3a 0a |chive, m|eaning:.|
|00000560| 23 20 31 2e 20 52 65 6d | 6f 76 65 20 65 76 65 72 |# 1. Rem|ove ever|
|00000570| 79 74 68 69 6e 67 20 61 | 62 6f 76 65 20 74 68 65 |ything a|bove the|
|00000580| 20 23 21 20 2f 62 69 6e | 2f 73 68 20 6c 69 6e 65 | #! /bin|/sh line|
|00000590| 2e 0a 23 20 32 2e 20 53 | 61 76 65 20 74 68 65 20 |..# 2. S|ave the |
|000005a0| 72 65 73 75 6c 74 69 6e | 67 20 74 65 78 74 20 69 |resultin|g text i|
|000005b0| 6e 20 61 20 66 69 6c 65 | 2e 0a 23 20 33 2e 20 45 |n a file|..# 3. E|
|000005c0| 78 65 63 75 74 65 20 74 | 68 65 20 66 69 6c 65 20 |xecute t|he file |
|000005d0| 77 69 74 68 20 2f 62 69 | 6e 2f 73 68 20 28 6e 6f |with /bi|n/sh (no|
|000005e0| 74 20 63 73 68 29 20 74 | 6f 20 63 72 65 61 74 65 |t csh) t|o create|
|000005f0| 20 74 68 65 20 66 69 6c | 65 73 3a 0a 23 09 67 65 | the fil|es:.#.ge|
|00000600| 74 75 74 65 6e 74 2e 63 | 0a 23 20 54 68 69 73 20 |tutent.c|.# This |
|00000610| 61 72 63 68 69 76 65 20 | 63 72 65 61 74 65 64 3a |archive |created:|
|00000620| 20 57 65 64 20 4e 6f 76 | 20 20 39 20 32 33 3a 33 | Wed Nov|  9 23:3|
|00000630| 34 3a 32 39 20 31 39 38 | 38 0a 65 78 70 6f 72 74 |4:29 198|8.export|
|00000640| 20 50 41 54 48 3b 20 50 | 41 54 48 3d 2f 62 69 6e | PATH; P|ATH=/bin|
|00000650| 3a 24 50 41 54 48 0a 65 | 63 68 6f 20 73 68 61 72 |:$PATH.e|cho shar|
|00000660| 3a 20 65 78 74 72 61 63 | 74 69 6e 67 20 22 27 67 |: extrac|ting "'g|
|00000670| 65 74 75 74 65 6e 74 2e | 63 27 22 20 27 28 31 33 |etutent.|c'" '(13|
|00000680| 32 34 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |24 chara|cters)'.|
|00000690| 69 66 20 74 65 73 74 20 | 2d 66 20 27 67 65 74 75 |if test |-f 'getu|
|000006a0| 74 65 6e 74 2e 63 27 0a | 74 68 65 6e 0a 09 65 63 |tent.c'.|then..ec|
|000006b0| 68 6f 20 73 68 61 72 3a | 20 77 69 6c 6c 20 6e 6f |ho shar:| will no|
|000006c0| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|000006d0| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 67 65 74 |sting fi|le "'get|
|000006e0| 75 74 65 6e 74 2e 63 27 | 22 0a 65 6c 73 65 0a 73 |utent.c'|".else.s|
|000006f0| 65 64 20 27 73 2f 5e 58 | 2f 2f 27 20 3c 3c 20 5c |ed 's/^X|//' << \|
|00000700| 53 48 41 52 5f 45 4f 46 | 20 3e 20 27 67 65 74 75 |SHAR_EOF| > 'getu|
|00000710| 74 65 6e 74 2e 63 27 0a | 58 2f 2a 2a 0a 58 20 2a |tent.c'.|X/**.X *|
|00000720| 2a 20 20 53 69 6d 75 6c | 61 74 65 20 53 79 73 56 |*  Simul|ate SysV|
|00000730| 20 67 65 74 75 74 65 6e | 74 28 33 29 20 63 61 6c | getuten|t(3) cal|
|00000740| 6c 73 2c 20 61 73 20 62 | 65 73 74 20 61 73 20 63 |ls, as b|est as c|
|00000750| 61 6e 20 62 65 20 64 6f | 6e 65 20 69 6e 0a 58 20 |an be do|ne in.X |
|00000760| 2a 2a 20 20 61 20 53 79 | 73 74 65 6d 20 49 49 49 |**  a Sy|stem III|
|00000770| 20 65 6e 76 69 72 6f 6e | 6d 65 6e 74 2c 20 61 74 | environ|ment, at|
|00000780| 20 6c 65 61 73 74 2e 0a | 58 20 2a 2a 0a 58 20 2a | least..|X **.X *|
|00000790| 2a 20 20 41 75 74 68 6f | 72 3a 20 50 61 75 6c 20 |*  Autho|r: Paul |
|000007a0| 53 75 74 63 6c 69 66 66 | 65 2c 20 4a 72 2e 20 20 |Sutcliff|e, Jr.  |
|000007b0| 3c 70 61 75 6c 40 64 65 | 76 6f 6e 2e 75 75 63 70 |<paul@de|von.uucp|
|000007c0| 3e 0a 58 20 2a 2a 0a 58 | 20 2a 2a 20 20 49 20 68 |>.X **.X| **  I h|
|000007d0| 65 72 65 62 79 20 70 6c | 61 63 65 20 74 68 69 73 |ereby pl|ace this|
|000007e0| 20 69 6e 20 74 68 65 20 | 70 75 62 6c 69 63 20 64 | in the |public d|
|000007f0| 6f 6d 61 69 6e 2e 0a 58 | 20 2a 2a 20 20 4e 6f 20 |omain..X| **  No |
|00000800| 77 61 72 72 61 6e 74 69 | 65 73 20 65 78 70 72 65 |warranti|es expre|
|00000810| 73 73 65 64 20 6f 72 20 | 69 6d 70 6c 69 65 64 2e |ssed or |implied.|
|00000820| 0a 58 20 2a 2a 2f 0a 58 | 0a 58 23 69 6e 63 6c 75 |.X **/.X|.X#inclu|
|00000830| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 0a 58 23 69 |de <stdi|o.h>.X#i|
|00000840| 6e 63 6c 75 64 65 20 3c | 73 74 72 69 6e 67 2e 68 |nclude <|string.h|
|00000850| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 73 79 73 |>.X#incl|ude <sys|
|00000860| 2f 74 79 70 65 73 2e 68 | 3e 0a 58 23 69 6e 63 6c |/types.h|>.X#incl|
|00000870| 75 64 65 20 3c 75 74 6d | 70 2e 68 3e 0a 58 0a 58 |ude <utm|p.h>.X.X|
|00000880| 73 74 61 74 69 63 20 63 | 68 61 72 20 2a 75 74 6d |static c|har *utm|
|00000890| 70 66 69 6c 20 3d 20 22 | 2f 65 74 63 2f 75 74 6d |pfil = "|/etc/utm|
|000008a0| 70 22 3b 09 2f 2a 20 64 | 65 66 61 75 6c 74 20 75 |p";./* d|efault u|
|000008b0| 74 6d 70 20 66 69 6c 65 | 20 2a 2f 0a 58 73 74 61 |tmp file| */.Xsta|
|000008c0| 74 69 63 20 46 49 4c 45 | 20 2a 75 66 70 20 3d 20 |tic FILE| *ufp = |
|000008d0| 4e 55 4c 4c 3b 09 09 2f | 2a 20 66 69 6c 65 20 70 |NULL;../|* file p|
|000008e0| 6f 69 6e 74 65 72 20 74 | 6f 20 75 74 6d 70 20 66 |ointer t|o utmp f|
|000008f0| 69 6c 65 20 2a 2f 0a 58 | 09 09 09 09 09 2f 2a 20 |ile */.X|...../* |
|00000900| 4e 55 4c 4c 20 3d 20 6e | 6f 20 75 74 6d 70 20 66 |NULL = n|o utmp f|
|00000910| 69 6c 65 20 6f 70 65 6e | 20 20 2a 2f 0a 58 73 74 |ile open|  */.Xst|
|00000920| 61 74 69 63 20 73 74 72 | 75 63 74 20 75 74 6d 70 |atic str|uct utmp|
|00000930| 20 75 74 3b 09 09 09 2f | 2a 20 62 75 66 66 65 72 | ut;.../|* buffer|
|00000940| 20 66 6f 72 20 75 74 6d | 70 20 72 65 63 6f 72 64 | for utm|p record|
|00000950| 20 2a 2f 0a 58 0a 58 73 | 74 72 75 63 74 20 75 74 | */.X.Xs|truct ut|
|00000960| 6d 70 20 2a 67 65 74 75 | 74 65 6e 74 28 29 2c 20 |mp *getu|tent(), |
|00000970| 2a 67 65 74 75 74 6c 69 | 6e 65 28 29 3b 0a 58 76 |*getutli|ne();.Xv|
|00000980| 6f 69 64 20 70 75 74 75 | 74 6c 69 6e 65 28 29 2c |oid putu|tline(),|
|00000990| 20 73 65 74 75 74 65 6e | 74 28 29 2c 20 65 6e 64 | setuten|t(), end|
|000009a0| 75 74 65 6e 74 28 29 2c | 20 75 74 6d 70 6e 61 6d |utent(),| utmpnam|
|000009b0| 65 28 29 3b 0a 58 0a 58 | 73 74 72 75 63 74 20 75 |e();.X.X|struct u|
|000009c0| 74 6d 70 20 2a 0a 58 67 | 65 74 75 74 65 6e 74 28 |tmp *.Xg|etutent(|
|000009d0| 29 0a 58 7b 0a 58 09 46 | 49 4c 45 20 2a 66 6f 70 |).X{.X.F|ILE *fop|
|000009e0| 65 6e 28 29 3b 0a 58 0a | 58 09 69 66 20 28 75 66 |en();.X.|X.if (uf|
|000009f0| 70 20 3d 3d 20 4e 55 4c | 4c 29 20 7b 0a 58 09 09 |p == NUL|L) {.X..|
|00000a00| 69 66 20 28 28 75 66 70 | 20 3d 20 66 6f 70 65 6e |if ((ufp| = fopen|
|00000a10| 28 75 74 6d 70 66 69 6c | 2c 20 22 72 2b 22 29 29 |(utmpfil|, "r+"))|
|00000a20| 20 3d 3d 20 4e 55 4c 4c | 29 20 7b 0a 58 09 09 09 | == NULL|) {.X...|
|00000a30| 72 65 74 75 72 6e 28 28 | 73 74 72 75 63 74 20 75 |return((|struct u|
|00000a40| 74 6d 70 20 2a 29 4e 55 | 4c 4c 29 3b 0a 58 09 09 |tmp *)NU|LL);.X..|
|00000a50| 7d 0a 58 09 7d 0a 58 09 | 64 6f 20 7b 0a 58 09 09 |}.X.}.X.|do {.X..|
|00000a60| 69 66 20 28 66 72 65 61 | 64 28 28 63 68 61 72 20 |if (frea|d((char |
|00000a70| 2a 29 26 75 74 2c 20 73 | 69 7a 65 6f 66 28 75 74 |*)&ut, s|izeof(ut|
|00000a80| 29 2c 20 31 2c 20 75 66 | 70 29 20 21 3d 20 31 29 |), 1, uf|p) != 1)|
|00000a90| 20 7b 0a 58 09 09 09 72 | 65 74 75 72 6e 28 28 73 | {.X...r|eturn((s|
|00000aa0| 74 72 75 63 74 20 75 74 | 6d 70 20 2a 29 4e 55 4c |truct ut|mp *)NUL|
|00000ab0| 4c 29 3b 0a 58 09 09 7d | 0a 58 09 7d 20 77 68 69 |L);.X..}|.X.} whi|
|00000ac0| 6c 65 20 28 75 74 2e 75 | 74 5f 6e 61 6d 65 5b 30 |le (ut.u|t_name[0|
|00000ad0| 5d 20 3d 3d 20 30 29 3b | 09 09 2f 2a 20 76 61 6c |] == 0);|../* val|
|00000ae0| 69 64 20 65 6e 74 72 79 | 3f 20 2a 2f 0a 58 0a 58 |id entry|? */.X.X|
|00000af0| 09 72 65 74 75 72 6e 28 | 26 75 74 29 3b 0a 58 7d |.return(|&ut);.X}|
|00000b00| 0a 58 0a 58 73 74 72 75 | 63 74 20 75 74 6d 70 20 |.X.Xstru|ct utmp |
|00000b10| 2a 0a 58 67 65 74 75 74 | 6c 69 6e 65 28 6c 69 6e |*.Xgetut|line(lin|
|00000b20| 65 29 0a 58 73 74 72 75 | 63 74 20 75 74 6d 70 20 |e).Xstru|ct utmp |
|00000b30| 2a 6c 69 6e 65 3b 0a 58 | 7b 0a 58 09 64 6f 20 7b |*line;.X|{.X.do {|
|00000b40| 0a 58 09 09 69 66 20 28 | 73 74 72 63 6d 70 28 75 |.X..if (|strcmp(u|
|00000b50| 74 2e 75 74 5f 6c 69 6e | 65 2c 20 6c 69 6e 65 2d |t.ut_lin|e, line-|
|00000b60| 3e 75 74 5f 6c 69 6e 65 | 29 20 3d 3d 20 30 29 20 |>ut_line|) == 0) |
|00000b70| 7b 0a 58 09 09 09 72 65 | 74 75 72 6e 28 26 75 74 |{.X...re|turn(&ut|
|00000b80| 29 3b 0a 58 09 09 7d 0a | 58 09 7d 20 77 68 69 6c |);.X..}.|X.} whil|
|00000b90| 65 20 28 67 65 74 75 74 | 65 6e 74 28 29 20 21 3d |e (getut|ent() !=|
|00000ba0| 20 28 73 74 72 75 63 74 | 20 75 74 6d 70 20 2a 29 | (struct| utmp *)|
|00000bb0| 4e 55 4c 4c 29 3b 0a 58 | 0a 58 09 72 65 74 75 72 |NULL);.X|.X.retur|
|00000bc0| 6e 28 28 73 74 72 75 63 | 74 20 75 74 6d 70 20 2a |n((struc|t utmp *|
|00000bd0| 29 4e 55 4c 4c 29 3b 0a | 58 7d 0a 58 0a 58 76 6f |)NULL);.|X}.X.Xvo|
|00000be0| 69 64 0a 58 73 65 74 75 | 74 65 6e 74 28 29 0a 58 |id.Xsetu|tent().X|
|00000bf0| 7b 0a 58 09 69 66 20 28 | 75 66 70 20 21 3d 20 4e |{.X.if (|ufp != N|
|00000c00| 55 4c 4c 29 20 72 65 77 | 69 6e 64 28 75 66 70 29 |ULL) rew|ind(ufp)|
|00000c10| 3b 0a 58 7d 0a 58 09 0a | 58 76 6f 69 64 0a 58 65 |;.X}.X..|Xvoid.Xe|
|00000c20| 6e 64 75 74 65 6e 74 28 | 29 0a 58 7b 0a 58 09 69 |ndutent(|).X{.X.i|
|00000c30| 66 20 28 75 66 70 20 21 | 3d 20 4e 55 4c 4c 29 20 |f (ufp !|= NULL) |
|00000c40| 66 63 6c 6f 73 65 28 75 | 66 70 29 3b 0a 58 7d 0a |fclose(u|fp);.X}.|
|00000c50| 58 0a 58 76 6f 69 64 0a | 58 75 74 6d 70 6e 61 6d |X.Xvoid.|Xutmpnam|
|00000c60| 65 28 66 69 6c 65 29 0a | 58 63 68 61 72 20 2a 66 |e(file).|Xchar *f|
|00000c70| 69 6c 65 3b 0a 58 7b 0a | 58 09 75 74 6d 70 66 69 |ile;.X{.|X.utmpfi|
|00000c80| 6c 20 3d 20 66 69 6c 65 | 3b 0a 58 7d 0a 53 48 41 |l = file|;.X}.SHA|
|00000c90| 52 5f 45 4f 46 0a 69 66 | 20 74 65 73 74 20 31 33 |R_EOF.if| test 13|
|00000ca0| 32 34 20 2d 6e 65 20 22 | 60 77 63 20 2d 63 20 3c |24 -ne "|`wc -c <|
|00000cb0| 20 27 67 65 74 75 74 65 | 6e 74 2e 63 27 60 22 0a | 'getute|nt.c'`".|
|00000cc0| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|00000cd0| 20 65 72 72 6f 72 20 74 | 72 61 6e 73 6d 69 74 74 | error t|ransmitt|
|00000ce0| 69 6e 67 20 22 27 67 65 | 74 75 74 65 6e 74 2e 63 |ing "'ge|tutent.c|
|00000cf0| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|00000d00| 20 62 65 65 6e 20 31 33 | 32 34 20 63 68 61 72 61 | been 13|24 chara|
|00000d10| 63 74 65 72 73 29 27 0a | 66 69 0a 66 69 20 23 20 |cters)'.|fi.fi # |
|00000d20| 65 6e 64 20 6f 66 20 6f | 76 65 72 77 72 69 74 69 |end of o|verwriti|
|00000d30| 6e 67 20 63 68 65 63 6b | 0a 23 09 45 6e 64 20 6f |ng check|.#.End o|
|00000d40| 66 20 73 68 65 6c 6c 20 | 61 72 63 68 69 76 65 0a |f shell |archive.|
|00000d50| 65 78 69 74 20 30 0a 0a | 0a                      |exit 0..|.       |
+--------+-------------------------+-------------------------+--------+--------+