/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume8 / getpw

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 20 76 30 38 69 30 38 |Subject:|  v08i08|
|00000010| 30 3a 20 20 50 75 62 6c | 69 63 2d 64 6f 6d 61 69 |0:  Publ|ic-domai|
|00000020| 6e 20 67 65 74 70 77 2a | 28 33 29 20 72 6f 75 74 |n getpw*|(3) rout|
|00000030| 69 6e 65 73 0a 4e 65 77 | 73 67 72 6f 75 70 73 3a |ines.New|sgroups:|
|00000040| 20 6d 6f 64 2e 73 6f 75 | 72 63 65 73 0a 41 70 70 | mod.sou|rces.App|
|00000050| 72 6f 76 65 64 3a 20 6d | 69 72 72 6f 72 21 72 73 |roved: m|irror!rs|
|00000060| 0a 0a 53 75 62 6d 69 74 | 74 65 64 20 62 79 3a 20 |..Submit|ted by: |
|00000070| 65 6d 6f 72 79 75 31 21 | 65 6d 6f 72 79 75 32 21 |emoryu1!|emoryu2!|
|00000080| 61 72 6e 6f 6c 64 20 28 | 41 72 6e 6f 6c 64 20 44 |arnold (|Arnold D|
|00000090| 2e 20 52 6f 62 62 69 6e | 73 29 0a 4d 6f 64 2e 73 |. Robbin|s).Mod.s|
|000000a0| 6f 75 72 63 65 73 3a 20 | 56 6f 6c 75 6d 65 20 38 |ources: |Volume 8|
|000000b0| 2c 20 49 73 73 75 65 20 | 38 30 0a 41 72 63 68 69 |, Issue |80.Archi|
|000000c0| 76 65 2d 6e 61 6d 65 3a | 20 67 65 74 70 77 0a 0a |ve-name:| getpw..|
|000000d0| 48 65 72 65 20 69 73 20 | 70 75 62 6c 69 63 20 64 |Here is |public d|
|000000e0| 6f 6d 61 69 6e 20 72 65 | 2d 69 6d 70 6c 65 6d 65 |omain re|-impleme|
|000000f0| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 67 |ntation |of the g|
|00000100| 65 74 70 77 65 6e 74 28 | 33 29 20 72 6f 75 74 69 |etpwent(|3) routi|
|00000110| 6e 65 73 2e 20 49 20 68 | 61 76 65 0a 6e 6f 74 20 |nes. I h|ave.not |
|00000120| 69 6e 63 6c 75 64 65 64 | 20 61 20 6d 61 6e 75 61 |included| a manua|
|00000130| 6c 20 70 61 67 65 2c 20 | 73 69 6e 63 65 20 65 76 |l page, |since ev|
|00000140| 65 72 79 20 55 6e 69 78 | 20 73 79 73 74 65 6d 20 |ery Unix| system |
|00000150| 68 61 73 20 6f 6e 65 2e | 20 49 20 61 6c 73 6f 20 |has one.| I also |
|00000160| 68 61 76 65 6e 27 74 0a | 65 76 65 6e 20 62 6f 74 |haven't.|even bot|
|00000170| 68 65 72 65 64 20 74 6f | 20 69 6e 63 6c 75 64 65 |hered to| include|
|00000180| 20 61 20 3c 70 77 64 2e | 68 3e 20 66 69 6c 65 3b | a <pwd.|h> file;|
|00000190| 20 79 6f 75 20 73 68 6f | 75 6c 64 20 62 65 20 61 | you sho|uld be a|
|000001a0| 62 6c 65 20 74 6f 20 75 | 73 65 20 74 68 65 20 6f |ble to u|se the o|
|000001b0| 6e 65 0a 6f 6e 20 79 6f | 75 72 20 73 79 73 74 65 |ne.on yo|ur syste|
|000001c0| 6d 2e 0a 0a 54 68 65 72 | 65 20 69 73 20 6f 6e 65 |m...Ther|e is one|
|000001d0| 20 61 64 64 69 74 69 6f | 6e 61 6c 20 72 6f 75 74 | additio|nal rout|
|000001e0| 69 6e 65 3a 20 0a 09 73 | 65 74 70 77 66 69 6c 65 |ine: ..s|etpwfile|
|000001f0| 20 28 66 69 6c 65 29 0a | 09 63 68 61 72 20 2a 66 | (file).|.char *f|
|00000200| 69 6c 65 3b 0a 77 68 69 | 63 68 20 77 69 6c 6c 20 |ile;.whi|ch will |
|00000210| 63 61 75 73 65 20 74 68 | 65 20 72 6f 75 74 69 6e |cause th|e routin|
|00000220| 65 73 20 74 6f 20 66 69 | 6e 64 20 70 61 73 73 77 |es to fi|nd passw|
|00000230| 6f 72 64 20 72 65 63 6f | 72 64 73 20 66 72 6f 6d |ord reco|rds from|
|00000240| 20 61 20 66 69 6c 65 20 | 62 65 73 69 64 65 73 0a | a file |besides.|
|00000250| 2f 65 74 63 2f 70 61 73 | 73 77 64 2e 20 20 54 68 |/etc/pas|swd.  Th|
|00000260| 69 73 20 69 73 20 75 73 | 65 66 75 6c 20 73 68 6f |is is us|eful sho|
|00000270| 75 6c 64 20 79 6f 75 20 | 6e 65 65 64 20 74 6f 20 |uld you |need to |
|00000280| 75 73 65 20 73 61 76 65 | 64 20 70 61 73 73 77 6f |use save|d passwo|
|00000290| 72 64 20 66 69 6c 65 73 | 2c 0a 66 6f 72 20 69 6e |rd files|,.for in|
|000002a0| 73 74 61 6e 63 65 20 69 | 6e 20 64 6f 69 6e 67 20 |stance i|n doing |
|000002b0| 55 6e 69 78 20 61 63 63 | 6f 75 6e 74 69 6e 67 2c |Unix acc|ounting,|
|000002c0| 20 77 68 65 72 65 20 79 | 6f 75 20 77 69 73 68 20 | where y|ou wish |
|000002d0| 74 6f 20 6b 65 65 70 20 | 69 6e 66 6f 20 61 72 6f |to keep |info aro|
|000002e0| 75 6e 64 20 6f 6e 0a 6f | 6c 64 20 61 63 63 6f 75 |und on.o|ld accou|
|000002f0| 6e 74 73 2c 20 62 75 74 | 20 74 61 6b 65 20 74 68 |nts, but| take th|
|00000300| 65 20 6f 6c 64 20 61 63 | 63 6f 75 6e 74 73 20 6f |e old ac|counts o|
|00000310| 75 74 20 6f 66 20 74 68 | 65 20 6c 69 76 65 20 70 |ut of th|e live p|
|00000320| 61 73 73 77 6f 72 64 20 | 66 69 6c 65 2e 0a 28 43 |assword |file..(C|
|00000330| 61 6e 20 79 6f 75 20 67 | 75 65 73 73 20 77 68 79 |an you g|uess why|
|00000340| 20 49 20 6a 75 73 74 20 | 77 68 69 70 70 65 64 20 | I just |whipped |
|00000350| 74 68 65 73 65 20 75 70 | 3f 29 0a 0a 54 6f 20 73 |these up|?)..To s|
|00000360| 77 69 74 63 68 20 66 69 | 6c 65 73 2c 20 63 61 6c |witch fi|les, cal|
|00000370| 6c 20 73 65 74 70 77 66 | 69 6c 65 20 61 73 20 74 |l setpwf|ile as t|
|00000380| 68 65 20 76 65 72 79 20 | 66 69 72 73 74 20 74 68 |he very |first th|
|00000390| 69 6e 67 2c 20 6f 72 20 | 63 61 6c 6c 20 65 6e 64 |ing, or |call end|
|000003a0| 70 77 65 6e 74 28 29 2c | 0a 74 68 65 6e 20 73 65 |pwent(),|.then se|
|000003b0| 74 70 77 66 69 6c 65 20 | 28 22 2f 73 6f 6d 65 2f |tpwfile |("/some/|
|000003c0| 66 69 6c 65 22 29 2e 0a | 0a 41 6e 79 77 61 79 2c |file")..|.Anyway,|
|000003d0| 20 49 20 68 6f 70 65 20 | 74 68 69 73 20 69 73 20 | I hope |this is |
|000003e0| 75 73 65 66 75 6c 20 74 | 6f 20 73 6f 6d 65 6e 65 |useful t|o somene|
|000003f0| 20 6f 75 74 20 74 68 65 | 72 65 2e 0a 0a 41 72 6e | out the|re...Arn|
|00000400| 6f 6c 64 20 52 6f 62 62 | 69 6e 73 0a 61 72 6e 6f |old Robb|ins.arno|
|00000410| 6c 64 40 65 6d 6f 72 79 | 75 31 2e 7b 43 53 4e 45 |ld@emory|u1.{CSNE|
|00000420| 54 2c 20 55 55 43 50 2c | 20 41 52 50 41 2c 20 42 |T, UUCP,| ARPA, B|
|00000430| 49 54 4e 45 54 7d 0a 23 | 21 20 2f 62 69 6e 2f 73 |ITNET}.#|! /bin/s|
|00000440| 68 0a 23 20 54 68 69 73 | 20 69 73 20 61 20 73 68 |h.# This| is a sh|
|00000450| 65 6c 6c 20 61 72 63 68 | 69 76 65 2e 20 20 52 65 |ell arch|ive.  Re|
|00000460| 6d 6f 76 65 20 61 6e 79 | 74 68 69 6e 67 20 62 65 |move any|thing be|
|00000470| 66 6f 72 65 20 74 68 69 | 73 20 6c 69 6e 65 2c 0a |fore thi|s line,.|
|00000480| 23 20 74 68 65 6e 20 75 | 6e 70 61 63 6b 20 69 74 |# then u|npack it|
|00000490| 20 62 79 20 73 61 76 69 | 6e 67 20 69 74 20 69 6e | by savi|ng it in|
|000004a0| 20 61 20 66 69 6c 65 20 | 61 6e 64 20 74 79 70 69 | a file |and typi|
|000004b0| 6e 67 20 22 73 68 20 66 | 69 6c 65 22 2e 0a 23 20 |ng "sh f|ile"..# |
|000004c0| 49 66 20 61 6c 6c 20 67 | 6f 65 73 20 77 65 6c 6c |If all g|oes well|
|000004d0| 2c 20 79 6f 75 20 77 69 | 6c 6c 20 73 65 65 20 74 |, you wi|ll see t|
|000004e0| 68 65 20 6d 65 73 73 61 | 67 65 20 22 45 6e 64 20 |he messa|ge "End |
|000004f0| 6f 66 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 |of shell| archive|
|00000500| 2e 22 0a 23 20 43 6f 6e | 74 65 6e 74 73 3a 20 20 |.".# Con|tents:  |
|00000510| 67 65 74 70 77 2e 63 0a | 50 41 54 48 3d 2f 62 69 |getpw.c.|PATH=/bi|
|00000520| 6e 3a 2f 75 73 72 2f 62 | 69 6e 3a 2f 75 73 72 2f |n:/usr/b|in:/usr/|
|00000530| 75 63 62 3b 20 65 78 70 | 6f 72 74 20 50 41 54 48 |ucb; exp|ort PATH|
|00000540| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 65 78 74 72 |.echo sh|ar: extr|
|00000550| 61 63 74 69 6e 67 20 22 | 27 67 65 74 70 77 2e 63 |acting "|'getpw.c|
|00000560| 27 22 20 27 28 32 36 35 | 38 20 63 68 61 72 61 63 |'" '(265|8 charac|
|00000570| 74 65 72 73 29 27 0a 69 | 66 20 74 65 73 74 20 2d |ters)'.i|f test -|
|00000580| 66 20 27 67 65 74 70 77 | 2e 63 27 20 3b 20 74 68 |f 'getpw|.c' ; th|
|00000590| 65 6e 20 0a 20 20 65 63 | 68 6f 20 73 68 61 72 3a |en .  ec|ho shar:|
|000005a0| 20 77 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | will no|t over-w|
|000005b0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|000005c0| 6c 65 20 22 27 67 65 74 | 70 77 2e 63 27 22 0a 65 |le "'get|pw.c'".e|
|000005d0| 6c 73 65 0a 73 65 64 20 | 27 73 2f 5e 58 2f 2f 27 |lse.sed |'s/^X//'|
|000005e0| 20 3e 67 65 74 70 77 2e | 63 20 3c 3c 27 40 2f 2f | >getpw.|c <<'@//|
|000005f0| 45 2a 4f 2a 46 20 67 65 | 74 70 77 2e 63 2f 2f 27 |E*O*F ge|tpw.c//'|
|00000600| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 64 69 |.X#inclu|de <stdi|
|00000610| 6f 2e 68 3e 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |o.h>.X#i|nclude <|
|00000620| 70 77 64 2e 68 3e 0a 58 | 0a 58 73 74 61 74 69 63 |pwd.h>.X|.Xstatic|
|00000630| 20 63 68 61 72 20 2a 70 | 77 64 66 69 6c 65 20 3d | char *p|wdfile =|
|00000640| 20 22 2f 65 74 63 2f 70 | 61 73 73 77 64 22 3b 09 | "/etc/p|asswd";.|
|00000650| 2f 2a 20 64 65 66 61 75 | 6c 74 20 70 61 73 73 77 |/* defau|lt passw|
|00000660| 64 20 66 69 6c 65 20 2a | 2f 0a 58 73 74 61 74 69 |d file *|/.Xstati|
|00000670| 63 20 46 49 4c 45 20 2a | 66 70 20 3d 20 4e 55 4c |c FILE *|fp = NUL|
|00000680| 4c 3b 0a 58 73 74 61 74 | 69 63 20 73 74 72 75 63 |L;.Xstat|ic struc|
|00000690| 74 20 70 61 73 73 77 64 | 20 63 75 72 65 6e 74 72 |t passwd| curentr|
|000006a0| 79 3b 09 09 2f 2a 20 73 | 74 61 74 69 63 20 64 61 |y;../* s|tatic da|
|000006b0| 74 61 20 74 6f 20 72 65 | 74 75 72 6e 20 2a 2f 0a |ta to re|turn */.|
|000006c0| 58 0a 58 76 6f 69 64 20 | 73 65 74 70 77 66 69 6c |X.Xvoid |setpwfil|
|000006d0| 65 20 28 63 70 29 0a 58 | 63 68 61 72 20 2a 63 70 |e (cp).X|char *cp|
|000006e0| 3b 0a 58 7b 0a 58 09 70 | 77 64 66 69 6c 65 20 3d |;.X{.X.p|wdfile =|
|000006f0| 20 63 70 3b 0a 58 7d 0a | 58 0a 58 69 6e 74 20 73 | cp;.X}.|X.Xint s|
|00000700| 65 74 70 77 65 6e 74 20 | 28 29 0a 58 7b 0a 58 09 |etpwent |().X{.X.|
|00000710| 69 66 20 28 66 70 29 0a | 58 09 09 72 65 77 69 6e |if (fp).|X..rewin|
|00000720| 64 20 28 66 70 29 3b 0a | 58 09 65 6c 73 65 20 69 |d (fp);.|X.else i|
|00000730| 66 20 28 28 66 70 20 3d | 20 66 6f 70 65 6e 20 28 |f ((fp =| fopen (|
|00000740| 70 77 64 66 69 6c 65 2c | 20 22 72 22 29 29 20 3d |pwdfile,| "r")) =|
|00000750| 3d 20 4e 55 4c 4c 29 0a | 58 09 7b 0a 58 23 69 66 |= NULL).|X.{.X#if|
|00000760| 64 65 66 20 56 45 52 42 | 4f 53 45 0a 58 09 09 66 |def VERB|OSE.X..f|
|00000770| 70 72 69 6e 74 66 20 28 | 73 74 64 65 72 72 2c 0a |printf (|stderr,.|
|00000780| 58 09 09 09 22 73 65 74 | 70 77 65 6e 74 3a 20 25 |X..."set|pwent: %|
|00000790| 73 20 6e 6f 6e 2d 65 78 | 69 73 74 61 6e 74 20 6f |s non-ex|istant o|
|000007a0| 72 20 75 6e 72 65 61 64 | 61 62 6c 65 2e 5c 6e 22 |r unread|able.\n"|
|000007b0| 2c 20 70 77 64 66 69 6c | 65 29 3b 0a 58 23 65 6e |, pwdfil|e);.X#en|
|000007c0| 64 69 66 0a 58 09 09 72 | 65 74 75 72 6e 20 28 30 |dif.X..r|eturn (0|
|000007d0| 29 3b 0a 58 09 7d 0a 58 | 09 72 65 74 75 72 6e 20 |);.X.}.X|.return |
|000007e0| 28 31 29 3b 0a 58 7d 0a | 58 0a 58 69 6e 74 20 65 |(1);.X}.|X.Xint e|
|000007f0| 6e 64 70 77 65 6e 74 20 | 28 29 0a 58 7b 0a 58 09 |ndpwent |().X{.X.|
|00000800| 69 66 20 28 66 70 29 0a | 58 09 7b 0a 58 09 09 66 |if (fp).|X.{.X..f|
|00000810| 63 6c 6f 73 65 20 28 66 | 70 29 3b 0a 58 09 09 66 |close (f|p);.X..f|
|00000820| 70 20 3d 20 4e 55 4c 4c | 3b 0a 58 09 7d 0a 58 09 |p = NULL|;.X.}.X.|
|00000830| 72 65 74 75 72 6e 20 31 | 3b 0a 58 7d 0a 58 0a 58 |return 1|;.X}.X.X|
|00000840| 73 74 72 75 63 74 20 70 | 61 73 73 77 64 20 2a 67 |struct p|asswd *g|
|00000850| 65 74 70 77 65 6e 74 20 | 28 29 0a 58 7b 0a 58 09 |etpwent |().X{.X.|
|00000860| 69 66 20 28 21 20 66 70 | 20 26 26 20 21 20 73 65 |if (! fp| && ! se|
|00000870| 74 70 77 65 6e 74 20 28 | 29 29 0a 58 09 09 72 65 |tpwent (|)).X..re|
|00000880| 74 75 72 6e 20 28 4e 55 | 4c 4c 29 3b 0a 58 0a 58 |turn (NU|LL);.X.X|
|00000890| 09 69 66 20 28 21 20 6e | 65 78 74 65 6e 74 20 28 |.if (! n|extent (|
|000008a0| 29 29 0a 58 09 09 72 65 | 74 75 72 6e 20 28 4e 55 |)).X..re|turn (NU|
|000008b0| 4c 4c 29 3b 0a 58 09 65 | 6c 73 65 0a 58 09 09 72 |LL);.X.e|lse.X..r|
|000008c0| 65 74 75 72 6e 20 28 26 | 20 63 75 72 65 6e 74 72 |eturn (&| curentr|
|000008d0| 79 29 3b 0a 58 7d 0a 58 | 0a 58 73 74 72 75 63 74 |y);.X}.X|.Xstruct|
|000008e0| 20 70 61 73 73 77 64 20 | 2a 67 65 74 70 77 75 69 | passwd |*getpwui|
|000008f0| 64 20 28 75 69 64 29 0a | 58 72 65 67 69 73 74 65 |d (uid).|Xregiste|
|00000900| 72 20 69 6e 74 20 75 69 | 64 3b 0a 58 7b 0a 58 09 |r int ui|d;.X{.X.|
|00000910| 69 66 20 28 21 20 73 65 | 74 70 77 65 6e 74 20 28 |if (! se|tpwent (|
|00000920| 29 29 0a 58 09 09 72 65 | 74 75 72 6e 20 28 4e 55 |)).X..re|turn (NU|
|00000930| 4c 4c 29 3b 0a 58 0a 58 | 09 77 68 69 6c 65 20 28 |LL);.X.X|.while (|
|00000940| 6e 65 78 74 65 6e 74 20 | 28 29 29 0a 58 09 09 69 |nextent |()).X..i|
|00000950| 66 20 28 63 75 72 65 6e | 74 72 79 2e 70 77 5f 75 |f (curen|try.pw_u|
|00000960| 69 64 20 3d 3d 20 75 69 | 64 29 0a 58 09 09 09 72 |id == ui|d).X...r|
|00000970| 65 74 75 72 6e 20 28 26 | 20 63 75 72 65 6e 74 72 |eturn (&| curentr|
|00000980| 79 29 3b 0a 58 0a 58 09 | 72 65 74 75 72 6e 20 28 |y);.X.X.|return (|
|00000990| 4e 55 4c 4c 29 3b 0a 58 | 7d 0a 58 0a 58 73 74 72 |NULL);.X|}.X.Xstr|
|000009a0| 75 63 74 20 70 61 73 73 | 77 64 20 2a 67 65 74 70 |uct pass|wd *getp|
|000009b0| 77 6e 61 6d 20 28 6e 61 | 6d 65 29 0a 58 72 65 67 |wnam (na|me).Xreg|
|000009c0| 69 73 74 65 72 20 63 68 | 61 72 20 2a 6e 61 6d 65 |ister ch|ar *name|
|000009d0| 3b 0a 58 7b 0a 58 09 69 | 66 20 28 21 20 73 65 74 |;.X{.X.i|f (! set|
|000009e0| 70 77 65 6e 74 20 28 29 | 29 0a 58 09 09 72 65 74 |pwent ()|).X..ret|
|000009f0| 75 72 6e 20 28 4e 55 4c | 4c 29 3b 0a 58 0a 58 09 |urn (NUL|L);.X.X.|
|00000a00| 77 68 69 6c 65 20 28 6e | 65 78 74 65 6e 74 20 28 |while (n|extent (|
|00000a10| 29 29 0a 58 09 09 69 66 | 20 28 73 74 72 63 6d 70 |)).X..if| (strcmp|
|00000a20| 20 28 63 75 72 65 6e 74 | 72 79 2e 70 77 5f 6e 61 | (curent|ry.pw_na|
|00000a30| 6d 65 2c 20 6e 61 6d 65 | 29 20 3d 3d 20 30 29 0a |me, name|) == 0).|
|00000a40| 58 09 09 09 72 65 74 75 | 72 6e 20 28 26 20 63 75 |X...retu|rn (& cu|
|00000a50| 72 65 6e 74 72 79 29 3b | 0a 58 0a 58 09 72 65 74 |rentry);|.X.X.ret|
|00000a60| 75 72 6e 20 28 4e 55 4c | 4c 29 3b 0a 58 7d 0a 58 |urn (NUL|L);.X}.X|
|00000a70| 0a 58 73 74 61 74 69 63 | 20 63 68 61 72 20 73 61 |.Xstatic| char sa|
|00000a80| 76 62 75 66 5b 42 55 46 | 53 49 5a 5d 3b 0a 58 09 |vbuf[BUF|SIZ];.X.|
|00000a90| 09 0a 58 73 74 61 74 69 | 63 20 69 6e 74 20 6e 65 |..Xstati|c int ne|
|00000aa0| 78 74 65 6e 74 20 28 29 | 0a 58 7b 0a 58 09 72 65 |xtent ()|.X{.X.re|
|00000ab0| 67 69 73 74 65 72 20 63 | 68 61 72 20 2a 63 70 3b |gister c|har *cp;|
|00000ac0| 0a 58 0a 58 09 69 66 20 | 28 21 20 66 70 20 26 26 |.X.X.if |(! fp &&|
|00000ad0| 20 21 20 73 65 74 70 77 | 65 6e 74 20 28 29 29 0a | ! setpw|ent ()).|
|00000ae0| 58 09 09 72 65 74 75 72 | 6e 20 28 30 29 3b 0a 58 |X..retur|n (0);.X|
|00000af0| 0a 58 09 77 68 69 6c 65 | 20 28 66 67 65 74 73 20 |.X.while| (fgets |
|00000b00| 28 73 61 76 62 75 66 2c | 20 73 69 7a 65 6f 66 28 |(savbuf,| sizeof(|
|00000b10| 73 61 76 62 75 66 29 2c | 20 66 70 29 20 21 3d 20 |savbuf),| fp) != |
|00000b20| 4e 55 4c 4c 29 0a 58 09 | 7b 0a 58 09 09 66 6f 72 |NULL).X.|{.X..for|
|00000b30| 20 28 63 70 20 3d 20 73 | 61 76 62 75 66 3b 20 2a | (cp = s|avbuf; *|
|00000b40| 63 70 20 26 26 20 2a 63 | 70 20 21 3d 20 27 3a 27 |cp && *c|p != ':'|
|00000b50| 3b 20 63 70 2b 2b 29 0a | 58 09 09 09 3b 0a 58 09 |; cp++).|X...;.X.|
|00000b60| 09 63 75 72 65 6e 74 72 | 79 2e 70 77 5f 6e 61 6d |.curentr|y.pw_nam|
|00000b70| 65 20 3d 20 73 61 76 62 | 75 66 3b 0a 58 09 09 2a |e = savb|uf;.X..*|
|00000b80| 63 70 2b 2b 20 3d 20 27 | 5c 30 27 3b 0a 58 09 09 |cp++ = '|\0';.X..|
|00000b90| 63 75 72 65 6e 74 72 79 | 2e 70 77 5f 70 61 73 73 |curentry|.pw_pass|
|00000ba0| 77 64 20 3d 20 63 70 3b | 0a 58 09 09 66 6f 72 20 |wd = cp;|.X..for |
|00000bb0| 28 3b 20 2a 63 70 20 26 | 26 20 2a 63 70 20 21 3d |(; *cp &|& *cp !=|
|00000bc0| 20 27 3a 27 3b 20 63 70 | 2b 2b 29 0a 58 09 09 09 | ':'; cp|++).X...|
|00000bd0| 3b 0a 58 09 09 2a 63 70 | 2b 2b 20 3d 20 27 5c 30 |;.X..*cp|++ = '\0|
|00000be0| 27 3b 0a 58 09 09 63 75 | 72 65 6e 74 72 79 2e 70 |';.X..cu|rentry.p|
|00000bf0| 77 5f 75 69 64 20 3d 20 | 61 74 6f 69 20 28 63 70 |w_uid = |atoi (cp|
|00000c00| 29 3b 0a 58 09 09 66 6f | 72 20 28 3b 20 2a 63 70 |);.X..fo|r (; *cp|
|00000c10| 20 26 26 20 2a 63 70 20 | 21 3d 20 27 3a 27 3b 20 | && *cp |!= ':'; |
|00000c20| 63 70 2b 2b 29 0a 58 09 | 09 09 3b 0a 58 09 09 2a |cp++).X.|..;.X..*|
|00000c30| 63 70 2b 2b 20 3d 20 27 | 5c 30 27 3b 0a 58 09 09 |cp++ = '|\0';.X..|
|00000c40| 63 75 72 65 6e 74 72 79 | 2e 70 77 5f 67 69 64 20 |curentry|.pw_gid |
|00000c50| 3d 20 61 74 6f 69 20 28 | 63 70 29 3b 0a 58 09 09 |= atoi (|cp);.X..|
|00000c60| 66 6f 72 20 28 3b 20 2a | 63 70 20 26 26 20 2a 63 |for (; *|cp && *c|
|00000c70| 70 20 21 3d 20 27 3a 27 | 3b 20 63 70 2b 2b 29 0a |p != ':'|; cp++).|
|00000c80| 58 09 09 09 3b 0a 58 09 | 09 2a 63 70 2b 2b 20 3d |X...;.X.|.*cp++ =|
|00000c90| 20 27 5c 30 27 3b 0a 58 | 09 09 63 75 72 65 6e 74 | '\0';.X|..curent|
|00000ca0| 72 79 2e 70 77 5f 67 65 | 63 6f 73 20 3d 20 63 70 |ry.pw_ge|cos = cp|
|00000cb0| 3b 0a 58 09 09 66 6f 72 | 20 28 3b 20 2a 63 70 20 |;.X..for| (; *cp |
|00000cc0| 26 26 20 2a 63 70 20 21 | 3d 20 27 3a 27 3b 20 63 |&& *cp !|= ':'; c|
|00000cd0| 70 2b 2b 29 0a 58 09 09 | 09 3b 0a 58 09 09 2a 63 |p++).X..|.;.X..*c|
|00000ce0| 70 2b 2b 20 3d 20 27 5c | 30 27 3b 0a 58 09 09 63 |p++ = '\|0';.X..c|
|00000cf0| 75 72 65 6e 74 72 79 2e | 70 77 5f 64 69 72 20 3d |urentry.|pw_dir =|
|00000d00| 20 63 70 3b 0a 58 09 09 | 66 6f 72 20 28 3b 20 2a | cp;.X..|for (; *|
|00000d10| 63 70 20 26 26 20 2a 63 | 70 20 21 3d 20 27 3a 27 |cp && *c|p != ':'|
|00000d20| 3b 20 63 70 2b 2b 29 0a | 58 09 09 09 3b 0a 58 09 |; cp++).|X...;.X.|
|00000d30| 09 2a 63 70 2b 2b 20 3d | 20 27 5c 30 27 3b 0a 58 |.*cp++ =| '\0';.X|
|00000d40| 09 09 63 75 72 65 6e 74 | 72 79 2e 70 77 5f 73 68 |..curent|ry.pw_sh|
|00000d50| 65 6c 6c 20 3d 20 63 70 | 3b 0a 58 09 09 66 6f 72 |ell = cp|;.X..for|
|00000d60| 20 28 3b 20 2a 63 70 20 | 26 26 20 2a 63 70 20 21 | (; *cp |&& *cp !|
|00000d70| 3d 20 27 3a 27 20 26 26 | 20 2a 63 70 20 21 3d 20 |= ':' &&| *cp != |
|00000d80| 27 5c 6e 27 3b 20 63 70 | 2b 2b 29 0a 58 09 09 09 |'\n'; cp|++).X...|
|00000d90| 3b 0a 58 09 09 2a 63 70 | 2b 2b 20 3d 20 27 5c 30 |;.X..*cp|++ = '\0|
|00000da0| 27 3b 0a 58 09 09 72 65 | 74 75 72 6e 20 28 31 29 |';.X..re|turn (1)|
|00000db0| 3b 0a 58 09 7d 0a 58 09 | 72 65 74 75 72 6e 20 28 |;.X.}.X.|return (|
|00000dc0| 30 29 3b 0a 58 7d 0a 58 | 0a 58 23 69 66 64 65 66 |0);.X}.X|.X#ifdef|
|00000dd0| 20 54 45 53 54 0a 58 6d | 61 69 6e 20 28 61 72 67 | TEST.Xm|ain (arg|
|00000de0| 63 2c 20 61 72 67 76 29 | 0a 58 69 6e 74 20 61 72 |c, argv)|.Xint ar|
|00000df0| 67 63 3b 0a 58 63 68 61 | 72 20 2a 2a 61 72 67 76 |gc;.Xcha|r **argv|
|00000e00| 3b 0a 58 7b 0a 58 09 73 | 74 72 75 63 74 20 70 61 |;.X{.X.s|truct pa|
|00000e10| 73 73 77 64 20 2a 70 77 | 64 3b 0a 58 0a 58 09 69 |sswd *pw|d;.X.X.i|
|00000e20| 66 20 28 61 72 67 63 20 | 3e 20 31 29 0a 58 09 09 |f (argc |> 1).X..|
|00000e30| 73 65 74 70 77 66 69 6c | 65 20 28 61 72 67 76 5b |setpwfil|e (argv[|
|00000e40| 31 5d 29 3b 0a 58 0a 58 | 09 73 65 74 70 77 65 6e |1]);.X.X|.setpwen|
|00000e50| 74 20 28 29 3b 0a 58 09 | 77 68 69 6c 65 20 28 28 |t ();.X.|while ((|
|00000e60| 70 77 64 20 3d 20 67 65 | 74 70 77 65 6e 74 20 28 |pwd = ge|tpwent (|
|00000e70| 29 29 20 21 3d 20 4e 55 | 4c 4c 29 0a 58 09 7b 0a |)) != NU|LL).X.{.|
|00000e80| 58 09 09 70 72 69 6e 74 | 66 20 28 22 25 73 3a 5c |X..print|f ("%s:\|
|00000e90| 6e 5c 74 25 73 5c 6e 5c | 74 25 64 5c 6e 5c 74 25 |n\t%s\n\|t%d\n\t%|
|00000ea0| 64 5c 6e 5c 74 25 73 5c | 6e 5c 74 25 73 5c 6e 5c |d\n\t%s\|n\t%s\n\|
|00000eb0| 74 25 73 5c 6e 22 2c 0a | 58 09 09 09 70 77 64 2d |t%s\n",.|X...pwd-|
|00000ec0| 3e 70 77 5f 6e 61 6d 65 | 2c 0a 58 09 09 09 70 77 |>pw_name|,.X...pw|
|00000ed0| 64 2d 3e 70 77 5f 70 61 | 73 73 77 64 2c 0a 58 09 |d->pw_pa|sswd,.X.|
|00000ee0| 09 09 70 77 64 2d 3e 70 | 77 5f 75 69 64 2c 0a 58 |..pwd->p|w_uid,.X|
|00000ef0| 09 09 09 70 77 64 2d 3e | 70 77 5f 67 69 64 2c 0a |...pwd->|pw_gid,.|
|00000f00| 58 09 09 09 70 77 64 2d | 3e 70 77 5f 67 65 63 6f |X...pwd-|>pw_geco|
|00000f10| 73 2c 0a 58 09 09 09 70 | 77 64 2d 3e 70 77 5f 64 |s,.X...p|wd->pw_d|
|00000f20| 69 72 2c 0a 58 09 09 09 | 70 77 64 2d 3e 70 77 5f |ir,.X...|pwd->pw_|
|00000f30| 73 68 65 6c 6c 29 3b 0a | 58 09 7d 0a 58 09 65 6e |shell);.|X.}.X.en|
|00000f40| 64 70 77 65 6e 74 20 28 | 29 3b 0a 58 0a 58 09 69 |dpwent (|);.X.X.i|
|00000f50| 66 20 28 70 77 64 20 3d | 20 67 65 74 70 77 6e 61 |f (pwd =| getpwna|
|00000f60| 6d 20 28 22 6f 70 65 72 | 61 74 6f 72 22 29 29 0a |m ("oper|ator")).|
|00000f70| 58 09 09 70 72 69 6e 74 | 66 20 28 22 25 73 3a 5c |X..print|f ("%s:\|
|00000f80| 6e 5c 74 25 73 5c 6e 5c | 74 25 64 5c 6e 5c 74 25 |n\t%s\n\|t%d\n\t%|
|00000f90| 64 5c 6e 5c 74 25 73 5c | 6e 5c 74 25 73 5c 6e 5c |d\n\t%s\|n\t%s\n\|
|00000fa0| 74 25 73 5c 6e 22 2c 0a | 58 09 09 09 70 77 64 2d |t%s\n",.|X...pwd-|
|00000fb0| 3e 70 77 5f 6e 61 6d 65 | 2c 0a 58 09 09 09 70 77 |>pw_name|,.X...pw|
|00000fc0| 64 2d 3e 70 77 5f 70 61 | 73 73 77 64 2c 0a 58 09 |d->pw_pa|sswd,.X.|
|00000fd0| 09 09 70 77 64 2d 3e 70 | 77 5f 75 69 64 2c 0a 58 |..pwd->p|w_uid,.X|
|00000fe0| 09 09 09 70 77 64 2d 3e | 70 77 5f 67 69 64 2c 0a |...pwd->|pw_gid,.|
|00000ff0| 58 09 09 09 70 77 64 2d | 3e 70 77 5f 67 65 63 6f |X...pwd-|>pw_geco|
|00001000| 73 2c 0a 58 09 09 09 70 | 77 64 2d 3e 70 77 5f 64 |s,.X...p|wd->pw_d|
|00001010| 69 72 2c 0a 58 09 09 09 | 70 77 64 2d 3e 70 77 5f |ir,.X...|pwd->pw_|
|00001020| 73 68 65 6c 6c 29 3b 0a | 58 0a 58 09 69 66 20 28 |shell);.|X.X.if (|
|00001030| 70 77 64 20 3d 20 67 65 | 74 70 77 75 69 64 20 28 |pwd = ge|tpwuid (|
|00001040| 31 29 29 0a 58 09 09 70 | 72 69 6e 74 66 20 28 22 |1)).X..p|rintf ("|
|00001050| 25 73 3a 5c 6e 5c 74 25 | 73 5c 6e 5c 74 25 64 5c |%s:\n\t%|s\n\t%d\|
|00001060| 6e 5c 74 25 64 5c 6e 5c | 74 25 73 5c 6e 5c 74 25 |n\t%d\n\|t%s\n\t%|
|00001070| 73 5c 6e 5c 74 25 73 5c | 6e 22 2c 0a 58 09 09 09 |s\n\t%s\|n",.X...|
|00001080| 70 77 64 2d 3e 70 77 5f | 6e 61 6d 65 2c 0a 58 09 |pwd->pw_|name,.X.|
|00001090| 09 09 70 77 64 2d 3e 70 | 77 5f 70 61 73 73 77 64 |..pwd->p|w_passwd|
|000010a0| 2c 0a 58 09 09 09 70 77 | 64 2d 3e 70 77 5f 75 69 |,.X...pw|d->pw_ui|
|000010b0| 64 2c 0a 58 09 09 09 70 | 77 64 2d 3e 70 77 5f 67 |d,.X...p|wd->pw_g|
|000010c0| 69 64 2c 0a 58 09 09 09 | 70 77 64 2d 3e 70 77 5f |id,.X...|pwd->pw_|
|000010d0| 67 65 63 6f 73 2c 0a 58 | 09 09 09 70 77 64 2d 3e |gecos,.X|...pwd->|
|000010e0| 70 77 5f 64 69 72 2c 0a | 58 09 09 09 70 77 64 2d |pw_dir,.|X...pwd-|
|000010f0| 3e 70 77 5f 73 68 65 6c | 6c 29 3b 0a 58 7d 0a 58 |>pw_shel|l);.X}.X|
|00001100| 23 65 6e 64 69 66 0a 40 | 2f 2f 45 2a 4f 2a 46 20 |#endif.@|//E*O*F |
|00001110| 67 65 74 70 77 2e 63 2f | 2f 0a 69 66 20 74 65 73 |getpw.c/|/.if tes|
|00001120| 74 20 32 36 35 38 20 2d | 6e 65 20 22 60 77 63 20 |t 2658 -|ne "`wc |
|00001130| 2d 63 20 3c 27 67 65 74 | 70 77 2e 63 27 60 22 3b |-c <'get|pw.c'`";|
|00001140| 20 74 68 65 6e 0a 20 20 | 20 20 65 63 68 6f 20 73 | then.  |  echo s|
|00001150| 68 61 72 3a 20 65 72 72 | 6f 72 20 74 72 61 6e 73 |har: err|or trans|
|00001160| 6d 69 74 74 69 6e 67 20 | 22 27 67 65 74 70 77 2e |mitting |"'getpw.|
|00001170| 63 27 22 20 27 28 73 68 | 6f 75 6c 64 20 68 61 76 |c'" '(sh|ould hav|
|00001180| 65 20 62 65 65 6e 20 32 | 36 35 38 20 63 68 61 72 |e been 2|658 char|
|00001190| 61 63 74 65 72 73 29 27 | 0a 66 69 0a 66 69 20 23 |acters)'|.fi.fi #|
|000011a0| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|000011b0| 69 6e 67 20 63 68 65 63 | 6b 0a 65 63 68 6f 20 73 |ing chec|k.echo s|
|000011c0| 68 61 72 3a 20 22 45 6e | 64 20 6f 66 20 73 68 65 |har: "En|d of she|
|000011d0| 6c 6c 20 61 72 63 68 69 | 76 65 2e 22 0a 65 78 69 |ll archi|ve.".exi|
|000011e0| 74 20 30 0a             |                         |t 0.    |        |
+--------+-------------------------+-------------------------+--------+--------+