/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2150

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 65 72 | 69 63 40 73 61 63 74 6f |From: er|ic@sacto|
|00000010| 68 30 2e 53 41 43 2e 43 | 41 2e 55 53 20 28 45 72 |h0.SAC.C|A.US (Er|
|00000020| 69 63 20 4a 2e 20 4e 69 | 68 69 6c 6c 29 0a 4e 65 |ic J. Ni|hill).Ne|
|00000030| 77 73 67 72 6f 75 70 73 | 3a 20 61 6c 74 2e 73 6f |wsgroups|: alt.so|
|00000040| 75 72 63 65 73 2c 70 75 | 62 6e 65 74 2e 73 6f 75 |urces,pu|bnet.sou|
|00000050| 72 63 65 73 0a 53 75 62 | 6a 65 63 74 3a 20 63 69 |rces.Sub|ject: ci|
|00000060| 74 33 30 31 2e 70 61 72 | 74 38 0a 4d 65 73 73 61 |t301.par|t8.Messa|
|00000070| 67 65 2d 49 44 3a 20 3c | 34 33 38 35 40 73 61 63 |ge-ID: <|4385@sac|
|00000080| 74 6f 68 30 2e 53 41 43 | 2e 43 41 2e 55 53 3e 0a |toh0.SAC|.CA.US>.|
|00000090| 44 61 74 65 3a 20 32 35 | 20 4e 6f 76 20 39 30 20 |Date: 25| Nov 90 |
|000000a0| 32 31 3a 33 36 3a 32 35 | 20 47 4d 54 0a 0a 23 21 |21:36:25| GMT..#!|
|000000b0| 20 2f 62 69 6e 2f 73 68 | 0a 23 20 54 68 69 73 20 | /bin/sh|.# This |
|000000c0| 69 73 20 61 20 73 68 65 | 6c 6c 20 61 72 63 68 69 |is a she|ll archi|
|000000d0| 76 65 2c 20 6d 65 61 6e | 69 6e 67 3a 0a 23 20 31 |ve, mean|ing:.# 1|
|000000e0| 2e 20 52 65 6d 6f 76 65 | 20 65 76 65 72 79 74 68 |. Remove| everyth|
|000000f0| 69 6e 67 20 61 62 6f 76 | 65 20 74 68 65 20 23 21 |ing abov|e the #!|
|00000100| 20 2f 62 69 6e 2f 73 68 | 20 6c 69 6e 65 2e 0a 23 | /bin/sh| line..#|
|00000110| 20 32 2e 20 53 61 76 65 | 20 74 68 65 20 72 65 73 | 2. Save| the res|
|00000120| 75 6c 74 69 6e 67 20 74 | 65 78 74 20 69 6e 20 61 |ulting t|ext in a|
|00000130| 20 66 69 6c 65 2e 0a 23 | 20 33 2e 20 45 78 65 63 | file..#| 3. Exec|
|00000140| 75 74 65 20 74 68 65 20 | 66 69 6c 65 20 77 69 74 |ute the |file wit|
|00000150| 68 20 2f 62 69 6e 2f 73 | 68 20 28 6e 6f 74 20 63 |h /bin/s|h (not c|
|00000160| 73 68 29 20 74 6f 20 63 | 72 65 61 74 65 3a 0a 23 |sh) to c|reate:.#|
|00000170| 09 73 6f 75 72 63 65 0a | 23 20 54 68 69 73 20 61 |.source.|# This a|
|00000180| 72 63 68 69 76 65 20 63 | 72 65 61 74 65 64 3a 20 |rchive c|reated: |
|00000190| 53 75 6e 20 4e 6f 76 20 | 32 35 20 31 33 3a 30 30 |Sun Nov |25 13:00|
|000001a0| 3a 33 34 20 31 39 39 30 | 0a 65 78 70 6f 72 74 20 |:34 1990|.export |
|000001b0| 50 41 54 48 3b 20 50 41 | 54 48 3d 2f 62 69 6e 3a |PATH; PA|TH=/bin:|
|000001c0| 2f 75 73 72 2f 62 69 6e | 3a 24 50 41 54 48 0a 69 |/usr/bin|:$PATH.i|
|000001d0| 66 20 74 65 73 74 20 21 | 20 2d 64 20 27 73 6f 75 |f test !| -d 'sou|
|000001e0| 72 63 65 27 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |rce'.the|n..echo |
|000001f0| 73 68 61 72 3a 20 22 63 | 72 65 61 74 69 6e 67 20 |shar: "c|reating |
|00000200| 64 69 72 65 63 74 6f 72 | 79 20 27 73 6f 75 72 63 |director|y 'sourc|
|00000210| 65 27 22 0a 09 6d 6b 64 | 69 72 20 27 73 6f 75 72 |e'"..mkd|ir 'sour|
|00000220| 63 65 27 0a 66 69 0a 65 | 63 68 6f 20 73 68 61 72 |ce'.fi.e|cho shar|
|00000230| 3a 20 22 65 6e 74 65 72 | 69 6e 67 20 64 69 72 65 |: "enter|ing dire|
|00000240| 63 74 6f 72 79 20 27 73 | 6f 75 72 63 65 27 22 0a |ctory 's|ource'".|
|00000250| 63 64 20 27 73 6f 75 72 | 63 65 27 0a 65 63 68 6f |cd 'sour|ce'.echo|
|00000260| 20 73 68 61 72 3a 20 22 | 65 78 74 72 61 63 74 69 | shar: "|extracti|
|00000270| 6e 67 20 27 72 65 61 64 | 6c 6f 67 2e 63 27 22 20 |ng 'read|log.c'" |
|00000280| 27 28 32 31 37 36 20 63 | 68 61 72 61 63 74 65 72 |'(2176 c|haracter|
|00000290| 73 29 27 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |s)'.if t|est -f '|
|000002a0| 72 65 61 64 6c 6f 67 2e | 63 27 0a 74 68 65 6e 0a |readlog.|c'.then.|
|000002b0| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 22 77 69 6c |.echo sh|ar: "wil|
|000002c0| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|000002d0| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 27 | existin|g file '|
|000002e0| 72 65 61 64 6c 6f 67 2e | 63 27 22 0a 65 6c 73 65 |readlog.|c'".else|
|000002f0| 0a 63 61 74 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |.cat << |\SHAR_EO|
|00000300| 46 20 3e 20 27 72 65 61 | 64 6c 6f 67 2e 63 27 0a |F > 'rea|dlog.c'.|
|00000310| 23 69 6e 63 6c 75 64 65 | 20 3c 66 63 6e 74 6c 2e |#include| <fcntl.|
|00000320| 68 3e 0a 23 69 6e 63 6c | 75 64 65 20 3c 74 69 6d |h>.#incl|ude <tim|
|00000330| 65 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 20 22 63 |e.h>.#in|clude "c|
|00000340| 69 74 61 64 65 6c 2e 68 | 22 0a 0a 6c 6f 6e 67 20 |itadel.h|"..long |
|00000350| 6c 73 65 65 6b 28 29 3b | 0a 0a 6d 61 69 6e 28 61 |lseek();|..main(a|
|00000360| 72 67 63 2c 61 72 67 76 | 29 0a 69 6e 74 20 61 72 |rgc,argv|).int ar|
|00000370| 67 63 3b 0a 63 68 61 72 | 20 2a 61 72 67 76 5b 5d |gc;.char| *argv[]|
|00000380| 3b 20 7b 0a 09 73 74 72 | 75 63 74 20 63 61 6c 6c |; {..str|uct call|
|00000390| 6c 6f 67 20 63 61 6c 6c | 6c 6f 67 3b 0a 09 69 6e |log call|log;..in|
|000003a0| 74 20 66 69 6c 65 2c 70 | 6f 73 2c 61 3b 0a 09 63 |t file,p|os,a;..c|
|000003b0| 68 61 72 20 61 61 61 5b | 31 30 30 5d 3b 0a 09 73 |har aaa[|100];..s|
|000003c0| 74 72 75 63 74 20 74 6d | 20 2a 74 6d 3b 0a 09 63 |truct tm| *tm;..c|
|000003d0| 68 61 72 20 2a 74 73 74 | 72 69 6e 67 3b 0a 0a 09 |har *tst|ring;...|
|000003e0| 66 69 6c 65 3d 6f 70 65 | 6e 28 22 63 61 6c 6c 6c |file=ope|n("calll|
|000003f0| 6f 67 2e 70 6f 73 22 2c | 4f 5f 52 44 4f 4e 4c 59 |og.pos",|O_RDONLY|
|00000400| 29 3b 0a 09 72 65 61 64 | 28 66 69 6c 65 2c 26 70 |);..read|(file,&p|
|00000410| 6f 73 2c 32 29 3b 0a 09 | 63 6c 6f 73 65 28 66 69 |os,2);..|close(fi|
|00000420| 6c 65 29 3b 0a 0a 09 66 | 69 6c 65 3d 6f 70 65 6e |le);...f|ile=open|
|00000430| 28 22 63 61 6c 6c 6c 6f | 67 22 2c 4f 5f 52 44 4f |("calllo|g",O_RDO|
|00000440| 4e 4c 59 29 3b 0a 09 69 | 66 20 28 21 73 74 72 63 |NLY);..i|f (!strc|
|00000450| 6d 70 28 61 72 67 76 5b | 31 5d 2c 22 2d 74 22 29 |mp(argv[|1],"-t")|
|00000460| 29 20 6c 61 73 74 32 30 | 28 66 69 6c 65 2c 28 6c |) last20|(file,(l|
|00000470| 6f 6e 67 29 70 6f 73 29 | 3b 0a 65 6c 73 65 20 7b |ong)pos)|;.else {|
|00000480| 0a 09 6c 73 65 65 6b 28 | 66 69 6c 65 2c 28 6c 6f |..lseek(|file,(lo|
|00000490| 6e 67 29 28 70 6f 73 2a | 73 69 7a 65 6f 66 28 73 |ng)(pos*|sizeof(s|
|000004a0| 74 72 75 63 74 20 63 61 | 6c 6c 6c 6f 67 29 29 2c |truct ca|lllog)),|
|000004b0| 30 29 3b 0a 09 66 6f 72 | 20 28 61 3d 30 3b 20 61 |0);..for| (a=0; a|
|000004c0| 3c 43 41 4c 4c 4c 4f 47 | 3b 20 2b 2b 61 29 20 7b |<CALLLOG|; ++a) {|
|000004d0| 0a 09 09 69 66 20 28 28 | 61 2b 70 6f 73 29 3d 3d |...if ((|a+pos)==|
|000004e0| 43 41 4c 4c 4c 4f 47 29 | 20 6c 73 65 65 6b 28 66 |CALLLOG)| lseek(f|
|000004f0| 69 6c 65 2c 30 4c 2c 30 | 29 3b 0a 09 09 72 65 61 |ile,0L,0|);...rea|
|00000500| 64 28 66 69 6c 65 2c 26 | 63 61 6c 6c 6c 6f 67 2c |d(file,&|calllog,|
|00000510| 73 69 7a 65 6f 66 28 73 | 74 72 75 63 74 20 63 61 |sizeof(s|truct ca|
|00000520| 6c 6c 6c 6f 67 29 29 3b | 0a 09 69 66 20 28 63 61 |lllog));|..if (ca|
|00000530| 6c 6c 6c 6f 67 2e 43 4c | 66 6c 61 67 73 21 3d 30 |lllog.CL|flags!=0|
|00000540| 29 20 7b 0a 09 09 73 74 | 72 63 70 79 28 61 61 61 |) {...st|rcpy(aaa|
|00000550| 2c 22 22 29 3b 0a 09 09 | 69 66 20 28 63 61 6c 6c |,"");...|if (call|
|00000560| 6c 6f 67 2e 43 4c 66 6c | 61 67 73 26 43 4c 5f 49 |log.CLfl|ags&CL_I|
|00000570| 4e 33 30 30 29 09 73 74 | 72 63 70 79 28 61 61 61 |N300).st|rcpy(aaa|
|00000580| 2c 22 43 6f 6e 6e 65 63 | 74 20 33 30 30 22 29 3b |,"Connec|t 300");|
|00000590| 0a 09 09 69 66 20 28 63 | 61 6c 6c 6c 6f 67 2e 43 |...if (c|alllog.C|
|000005a0| 4c 66 6c 61 67 73 26 43 | 4c 5f 49 4e 31 32 30 30 |Lflags&C|L_IN1200|
|000005b0| 29 09 73 74 72 63 70 79 | 28 61 61 61 2c 22 43 6f |).strcpy|(aaa,"Co|
|000005c0| 6e 6e 65 63 74 20 31 32 | 30 30 22 29 3b 0a 09 09 |nnect 12|00");...|
|000005d0| 69 66 20 28 63 61 6c 6c | 6c 6f 67 2e 43 4c 66 6c |if (call|log.CLfl|
|000005e0| 61 67 73 26 43 4c 5f 49 | 4e 32 34 30 30 29 09 73 |ags&CL_I|N2400).s|
|000005f0| 74 72 63 70 79 28 61 61 | 61 2c 22 43 6f 6e 6e 65 |trcpy(aa|a,"Conne|
|00000600| 63 74 20 32 34 30 30 22 | 29 3b 0a 09 09 69 66 20 |ct 2400"|);...if |
|00000610| 28 63 61 6c 6c 6c 6f 67 | 2e 43 4c 66 6c 61 67 73 |(calllog|.CLflags|
|00000620| 26 43 4c 5f 49 4e 4f 54 | 48 45 52 29 09 73 74 72 |&CL_INOT|HER).str|
|00000630| 63 70 79 28 61 61 61 2c | 22 43 6f 6e 73 6f 6c 65 |cpy(aaa,|"Console|
|00000640| 2f 4f 74 68 65 72 22 29 | 3b 0a 09 09 69 66 20 28 |/Other")|;...if (|
|00000650| 63 61 6c 6c 6c 6f 67 2e | 43 4c 66 6c 61 67 73 26 |calllog.|CLflags&|
|00000660| 43 4c 5f 4c 4f 47 49 4e | 29 09 73 74 72 63 70 79 |CL_LOGIN|).strcpy|
|00000670| 28 61 61 61 2c 22 4c 6f | 67 69 6e 22 29 3b 0a 09 |(aaa,"Lo|gin");..|
|00000680| 09 69 66 20 28 63 61 6c | 6c 6c 6f 67 2e 43 4c 66 |.if (cal|llog.CLf|
|00000690| 6c 61 67 73 26 43 4c 5f | 4e 45 57 55 53 45 52 29 |lags&CL_|NEWUSER)|
|000006a0| 09 73 74 72 63 70 79 28 | 61 61 61 2c 22 4e 65 77 |.strcpy(|aaa,"New|
|000006b0| 20 55 73 65 72 22 29 3b | 0a 09 09 69 66 20 28 63 | User");|...if (c|
|000006c0| 61 6c 6c 6c 6f 67 2e 43 | 4c 66 6c 61 67 73 26 43 |alllog.C|Lflags&C|
|000006d0| 4c 5f 42 41 44 50 57 29 | 09 73 74 72 63 70 79 28 |L_BADPW)|.strcpy(|
|000006e0| 61 61 61 2c 22 42 61 64 | 20 50 57 20 41 74 74 65 |aaa,"Bad| PW Atte|
|000006f0| 6d 70 74 22 29 3b 0a 09 | 09 69 66 20 28 63 61 6c |mpt");..|.if (cal|
|00000700| 6c 6c 6f 67 2e 43 4c 66 | 6c 61 67 73 26 43 4c 5f |llog.CLf|lags&CL_|
|00000710| 54 45 52 4d 49 4e 41 54 | 45 29 20 73 74 72 63 70 |TERMINAT|E) strcp|
|00000720| 79 28 61 61 61 2c 22 54 | 65 72 6d 69 6e 61 74 65 |y(aaa,"T|erminate|
|00000730| 22 29 3b 0a 09 09 69 66 | 20 28 63 61 6c 6c 6c 6f |");...if| (calllo|
|00000740| 67 2e 43 4c 66 6c 61 67 | 73 26 43 4c 5f 44 52 4f |g.CLflag|s&CL_DRO|
|00000750| 50 43 41 52 52 29 20 73 | 74 72 63 70 79 28 61 61 |PCARR) s|trcpy(aa|
|00000760| 61 2c 22 44 72 6f 70 70 | 65 64 20 43 61 72 72 69 |a,"Dropp|ed Carri|
|00000770| 65 72 22 29 3b 0a 09 09 | 69 66 20 28 63 61 6c 6c |er");...|if (call|
|00000780| 6c 6f 67 2e 43 4c 66 6c | 61 67 73 26 43 4c 5f 53 |log.CLfl|ags&CL_S|
|00000790| 4c 45 45 50 49 4e 47 29 | 20 73 74 72 63 70 79 28 |LEEPING)| strcpy(|
|000007a0| 61 61 61 2c 22 53 6c 65 | 65 70 69 6e 67 22 29 3b |aaa,"Sle|eping");|
|000007b0| 0a 09 09 74 6d 3d 28 73 | 74 72 75 63 74 20 74 6d |...tm=(s|truct tm|
|000007c0| 20 2a 29 6c 6f 63 61 6c | 74 69 6d 65 28 26 63 61 | *)local|time(&ca|
|000007d0| 6c 6c 6c 6f 67 2e 43 4c | 74 69 6d 65 29 3b 0a 09 |lllog.CL|time);..|
|000007e0| 09 74 73 74 72 69 6e 67 | 3d 28 63 68 61 72 20 2a |.tstring|=(char *|
|000007f0| 29 61 73 63 74 69 6d 65 | 28 74 6d 29 3b 0a 09 09 |)asctime|(tm);...|
|00000800| 70 72 69 6e 74 66 28 22 | 25 33 30 73 20 25 32 30 |printf("|%30s %20|
|00000810| 73 20 25 73 22 2c 63 61 | 6c 6c 6c 6f 67 2e 43 4c |s %s",ca|lllog.CL|
|00000820| 66 75 6c 6c 6e 61 6d 65 | 2c 61 61 61 2c 74 73 74 |fullname|,aaa,tst|
|00000830| 72 69 6e 67 29 3b 0a 09 | 09 7d 0a 09 09 7d 0a 09 |ring);..|.}...}..|
|00000840| 7d 0a 09 63 6c 6f 73 65 | 28 66 69 6c 65 29 3b 0a |}..close|(file);.|
|00000850| 09 65 78 69 74 28 30 29 | 3b 0a 7d 0a 09 0a 6c 61 |.exit(0)|;.}...la|
|00000860| 73 74 32 30 28 66 69 6c | 65 2c 70 6f 73 29 0a 69 |st20(fil|e,pos).i|
|00000870| 6e 74 20 66 69 6c 65 3b | 0a 6c 6f 6e 67 20 70 6f |nt file;|.long po|
|00000880| 73 3b 0a 09 7b 0a 09 69 | 6e 74 20 61 2c 63 6f 75 |s;..{..i|nt a,cou|
|00000890| 6e 74 3b 0a 09 6c 6f 6e | 67 20 61 61 3b 0a 09 73 |nt;..lon|g aa;..s|
|000008a0| 74 72 75 63 74 20 63 61 | 6c 6c 6c 6f 67 20 63 61 |truct ca|lllog ca|
|000008b0| 6c 6c 6c 6f 67 3b 0a 09 | 73 74 72 75 63 74 20 63 |lllog;..|struct c|
|000008c0| 61 6c 6c 6c 6f 67 20 6c | 69 73 74 69 6e 67 5b 32 |alllog l|isting[2|
|000008d0| 30 5d 3b 0a 09 73 74 72 | 75 63 74 20 74 6d 20 2a |0];..str|uct tm *|
|000008e0| 74 6d 3b 0a 09 63 68 61 | 72 20 2a 74 73 74 72 69 |tm;..cha|r *tstri|
|000008f0| 6e 67 3b 0a 09 0a 09 63 | 6f 75 6e 74 3d 30 3b 0a |ng;....c|ount=0;.|
|00000900| 09 66 6f 72 20 28 61 3d | 30 3b 20 61 3c 32 30 3b |.for (a=|0; a<20;|
|00000910| 20 2b 2b 61 29 20 7b 0a | 09 09 6c 69 73 74 69 6e | ++a) {.|..listin|
|00000920| 67 5b 61 5d 2e 43 4c 66 | 75 6c 6c 6e 61 6d 65 5b |g[a].CLf|ullname[|
|00000930| 30 5d 3d 30 3b 0a 09 09 | 6c 69 73 74 69 6e 67 5b |0]=0;...|listing[|
|00000940| 61 5d 2e 43 4c 74 69 6d | 65 3d 30 4c 3b 0a 09 09 |a].CLtim|e=0L;...|
|00000950| 6c 69 73 74 69 6e 67 5b | 61 5d 2e 43 4c 66 6c 61 |listing[|a].CLfla|
|00000960| 67 73 3d 30 3b 0a 09 09 | 7d 0a 09 61 61 3d 70 6f |gs=0;...|}..aa=po|
|00000970| 73 2d 31 3b 0a 09 77 68 | 69 6c 65 28 63 6f 75 6e |s-1;..wh|ile(coun|
|00000980| 74 3c 32 30 29 20 7b 0a | 09 09 69 66 20 28 61 61 |t<20) {.|..if (aa|
|00000990| 3c 30 4c 29 20 61 61 3d | 43 41 4c 4c 4c 4f 47 3b |<0L) aa=|CALLLOG;|
|000009a0| 0a 09 09 6c 73 65 65 6b | 28 66 69 6c 65 2c 28 61 |...lseek|(file,(a|
|000009b0| 61 2a 73 69 7a 65 6f 66 | 28 73 74 72 75 63 74 20 |a*sizeof|(struct |
|000009c0| 63 61 6c 6c 6c 6f 67 29 | 29 2c 30 29 3b 0a 09 09 |calllog)|),0);...|
|000009d0| 72 65 61 64 28 66 69 6c | 65 2c 26 63 61 6c 6c 6c |read(fil|e,&calll|
|000009e0| 6f 67 2c 73 69 7a 65 6f | 66 28 73 74 72 75 63 74 |og,sizeo|f(struct|
|000009f0| 20 63 61 6c 6c 6c 6f 67 | 29 29 3b 0a 09 09 69 66 | calllog|));...if|
|00000a00| 20 28 63 61 6c 6c 6c 6f | 67 2e 43 4c 66 6c 61 67 | (calllo|g.CLflag|
|00000a10| 73 3d 3d 43 4c 5f 4c 4f | 47 49 4e 29 20 7b 0a 09 |s==CL_LO|GIN) {..|
|00000a20| 09 09 73 74 72 63 70 79 | 28 6c 69 73 74 69 6e 67 |..strcpy|(listing|
|00000a30| 5b 63 6f 75 6e 74 5d 2e | 43 4c 66 75 6c 6c 6e 61 |[count].|CLfullna|
|00000a40| 6d 65 2c 63 61 6c 6c 6c | 6f 67 2e 43 4c 66 75 6c |me,calll|og.CLful|
|00000a50| 6c 6e 61 6d 65 29 3b 0a | 09 09 09 6c 69 73 74 69 |lname);.|...listi|
|00000a60| 6e 67 5b 63 6f 75 6e 74 | 5d 2e 43 4c 74 69 6d 65 |ng[count|].CLtime|
|00000a70| 3d 63 61 6c 6c 6c 6f 67 | 2e 43 4c 74 69 6d 65 3b |=calllog|.CLtime;|
|00000a80| 0a 09 09 09 6c 69 73 74 | 69 6e 67 5b 63 6f 75 6e |....list|ing[coun|
|00000a90| 74 5d 2e 43 4c 66 6c 61 | 67 73 3d 63 61 6c 6c 6c |t].CLfla|gs=calll|
|00000aa0| 6f 67 2e 43 4c 66 6c 61 | 67 73 3b 0a 09 09 09 2b |og.CLfla|gs;....+|
|00000ab0| 2b 63 6f 75 6e 74 3b 0a | 09 09 09 7d 0a 09 09 69 |+count;.|...}...i|
|00000ac0| 66 20 28 61 61 3d 3d 70 | 6f 73 29 20 62 72 65 61 |f (aa==p|os) brea|
|00000ad0| 6b 3b 0a 09 09 61 61 3d | 61 61 2d 31 3b 0a 09 09 |k;...aa=|aa-1;...|
|00000ae0| 7d 0a 09 66 6f 72 20 28 | 61 3d 31 39 3b 20 61 3e |}..for (|a=19; a>|
|00000af0| 3d 30 3b 20 2d 2d 61 29 | 20 7b 0a 09 09 74 6d 3d |=0; --a)| {...tm=|
|00000b00| 28 73 74 72 75 63 74 20 | 74 6d 20 2a 29 6c 6f 63 |(struct |tm *)loc|
|00000b10| 61 6c 74 69 6d 65 28 26 | 6c 69 73 74 69 6e 67 5b |altime(&|listing[|
|00000b20| 61 5d 2e 43 4c 74 69 6d | 65 29 3b 0a 09 09 74 73 |a].CLtim|e);...ts|
|00000b30| 74 72 69 6e 67 3d 28 63 | 68 61 72 20 2a 29 61 73 |tring=(c|har *)as|
|00000b40| 63 74 69 6d 65 28 74 6d | 29 3b 0a 09 09 70 72 69 |ctime(tm|);...pri|
|00000b50| 6e 74 66 28 22 25 33 30 | 73 20 25 73 22 2c 6c 69 |ntf("%30|s %s",li|
|00000b60| 73 74 69 6e 67 5b 61 5d | 2e 43 4c 66 75 6c 6c 6e |sting[a]|.CLfulln|
|00000b70| 61 6d 65 2c 74 73 74 72 | 69 6e 67 29 3b 0a 09 09 |ame,tstr|ing);...|
|00000b80| 7d 0a 09 72 65 74 75 72 | 6e 28 30 29 3b 0a 7d 0a |}..retur|n(0);.}.|
|00000b90| 53 48 41 52 5f 45 4f 46 | 0a 66 69 0a 65 63 68 6f |SHAR_EOF|.fi.echo|
|00000ba0| 20 73 68 61 72 3a 20 22 | 65 78 74 72 61 63 74 69 | shar: "|extracti|
|00000bb0| 6e 67 20 27 72 6d 61 69 | 6c 2e 63 27 22 20 27 28 |ng 'rmai|l.c'" '(|
|00000bc0| 37 36 39 39 20 63 68 61 | 72 61 63 74 65 72 73 29 |7699 cha|racters)|
|00000bd0| 27 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 72 6d |'.if tes|t -f 'rm|
|00000be0| 61 69 6c 2e 63 27 0a 74 | 68 65 6e 0a 09 65 63 68 |ail.c'.t|hen..ech|
|00000bf0| 6f 20 73 68 61 72 3a 20 | 22 77 69 6c 6c 20 6e 6f |o shar: |"will no|
|00000c00| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00000c10| 73 74 69 6e 67 20 66 69 | 6c 65 20 27 72 6d 61 69 |sting fi|le 'rmai|
|00000c20| 6c 2e 63 27 22 0a 65 6c | 73 65 0a 63 61 74 20 3c |l.c'".el|se.cat <|
|00000c30| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 72 |< \SHAR_|EOF > 'r|
|00000c40| 6d 61 69 6c 2e 63 27 0a | 2f 2a 0a 09 43 69 74 61 |mail.c'.|/*..Cita|
|00000c50| 64 65 6c 2f 55 58 20 75 | 75 63 70 20 6d 61 69 6c |del/UX u|ucp mail|
|00000c60| 20 72 65 63 69 65 76 65 | 72 0a 09 56 65 72 73 69 | recieve|r..Versi|
|00000c70| 6f 6e 20 32 2e 31 30 2c | 20 4a 61 6e 75 61 72 79 |on 2.10,| January|
|00000c80| 20 31 39 38 39 0a 0a 54 | 68 69 73 20 69 73 20 6a | 1989..T|his is j|
|00000c90| 75 73 74 20 61 20 71 75 | 69 63 6b 20 68 61 63 6b |ust a qu|ick hack|
|00000ca0| 20 49 20 74 68 72 65 77 | 20 74 6f 67 65 74 68 65 | I threw| togethe|
|00000cb0| 72 20 74 6f 20 65 6e 61 | 62 6c 65 20 42 42 53 20 |r to ena|ble BBS |
|00000cc0| 75 73 65 72 73 0a 74 6f | 20 72 65 63 69 65 76 65 |users.to| recieve|
|00000cd0| 20 6d 61 69 6c 20 74 68 | 72 6f 75 67 68 20 74 68 | mail th|rough th|
|00000ce0| 65 20 75 75 63 70 20 6d | 61 69 6c 20 66 61 63 69 |e uucp m|ail faci|
|00000cf0| 6c 69 74 79 2e 20 4d 6f | 76 65 20 72 6d 61 69 6c |lity. Mo|ve rmail|
|00000d00| 20 74 6f 20 72 6d 61 69 | 6c 2e 72 65 61 6c 0a 61 | to rmai|l.real.a|
|00000d10| 6e 64 20 63 6f 6d 70 69 | 6c 65 20 74 68 69 73 20 |nd compi|le this |
|00000d20| 70 72 6f 67 72 61 6d 20 | 61 73 20 72 6d 61 69 6c |program |as rmail|
|00000d30| 2e 0a 20 20 20 0a 20 20 | 4e 65 77 20 63 68 61 6e |..   .  |New chan|
|00000d40| 67 65 3a 20 6d 61 69 6c | 20 63 61 6e 20 6e 6f 77 |ge: mail| can now|
|00000d50| 20 62 65 20 72 65 63 69 | 65 76 65 64 20 62 79 20 | be reci|eved by |
|00000d60| 75 73 65 72 20 6e 75 6d | 62 65 72 2c 20 69 2e 65 |user num|ber, i.e|
|00000d70| 2e 20 73 79 73 6e 61 6d | 65 21 63 69 74 31 32 33 |. sysnam|e!cit123|
|00000d80| 0a 20 20 0a 20 20 54 68 | 69 73 20 70 72 6f 67 72 |.  .  Th|is progr|
|00000d90| 61 6d 20 6c 6f 6f 6b 73 | 20 61 74 20 74 68 65 20 |am looks| at the |
|00000da0| 72 65 63 69 70 69 65 6e | 74 20 74 6f 20 64 65 74 |recipien|t to det|
|00000db0| 65 72 6d 69 6e 65 20 69 | 66 20 68 65 2f 73 68 65 |ermine i|f he/she|
|00000dc0| 20 69 73 20 61 20 62 62 | 73 20 75 73 65 72 2e 20 | is a bb|s user. |
|00000dd0| 49 74 0a 66 61 6c 6c 73 | 20 62 61 63 6b 20 6f 6e |It.falls| back on|
|00000de0| 20 74 68 65 20 6f 6c 64 | 20 6d 61 69 6c 65 72 20 | the old| mailer |
|00000df0| 69 66 3a 0a 20 20 0a 20 | 20 31 2e 20 54 68 65 20 |if:.  . | 1. The |
|00000e00| 70 72 6f 67 72 61 6d 20 | 69 73 20 63 61 6c 6c 65 |program |is calle|
|00000e10| 64 20 77 69 74 68 20 6c | 65 73 73 20 6f 72 20 6d |d with l|ess or m|
|00000e20| 6f 72 65 20 74 68 61 6e | 20 6f 6e 65 20 61 72 67 |ore than| one arg|
|00000e30| 75 6d 65 6e 74 0a 20 20 | 32 2e 20 54 68 65 20 72 |ument.  |2. The r|
|00000e40| 65 63 69 70 69 65 6e 74 | 20 69 73 20 6e 6f 74 20 |ecipient| is not |
|00000e50| 73 6f 6d 65 6f 6e 65 20 | 69 6e 20 74 68 65 20 42 |someone |in the B|
|00000e60| 42 53 20 75 73 65 72 20 | 66 69 6c 65 0a 20 20 20 |BS user |file.   |
|00000e70| 20 20 28 73 6f 20 75 73 | 65 72 73 20 77 68 6f 20 |  (so us|ers who |
|00000e80| 61 72 65 20 69 6e 20 2f | 65 74 63 2f 70 61 73 73 |are in /|etc/pass|
|00000e90| 77 64 20 63 61 6e 20 73 | 74 69 6c 6c 20 72 65 63 |wd can s|till rec|
|00000ea0| 69 65 76 65 20 6d 61 69 | 6c 29 0a 20 20 33 2e 20 |ieve mai|l).  3. |
|00000eb0| 54 68 65 20 72 65 63 69 | 70 69 65 6e 74 20 6e 61 |The reci|pient na|
|00000ec0| 6d 65 20 63 6f 6e 74 61 | 69 6e 73 20 21 20 6f 72 |me conta|ins ! or|
|00000ed0| 20 40 20 63 68 61 72 61 | 63 74 65 72 73 0a 20 20 | @ chara|cters.  |
|00000ee0| 20 20 20 28 73 6f 20 69 | 74 20 64 6f 65 73 6e 27 |   (so i|t doesn'|
|00000ef0| 74 20 74 72 79 20 74 6f | 20 6d 61 69 6c 20 73 6f |t try to| mail so|
|00000f00| 6d 65 74 68 69 6e 67 20 | 74 68 61 74 20 72 65 61 |mething |that rea|
|00000f10| 6c 6c 79 20 73 68 6f 75 | 6c 64 20 62 65 20 73 65 |lly shou|ld be se|
|00000f20| 6e 74 0a 20 20 20 20 20 | 6f 75 74 20 6f 66 20 74 |nt.     |out of t|
|00000f30| 68 65 20 73 79 73 74 65 | 6d 20 76 69 61 20 75 75 |he syste|m via uu|
|00000f40| 63 70 29 0a 0a 20 47 65 | 6e 65 72 61 6c 6c 79 2c |cp).. Ge|nerally,|
|00000f50| 20 74 68 69 73 20 70 72 | 6f 67 72 61 6d 20 77 69 | this pr|ogram wi|
|00000f60| 6c 6c 20 72 65 71 75 69 | 72 65 20 61 20 62 69 74 |ll requi|re a bit|
|00000f70| 20 6f 66 20 68 61 63 6b | 69 6e 67 20 62 65 66 6f | of hack|ing befo|
|00000f80| 72 65 20 69 74 20 77 69 | 6c 6c 20 72 75 6e 0a 6f |re it wi|ll run.o|
|00000f90| 6e 20 79 6f 75 72 20 73 | 79 73 74 65 6d 2e 20 49 |n your s|ystem. I|
|00000fa0| 66 20 79 6f 75 20 68 61 | 76 65 20 61 6e 79 20 71 |f you ha|ve any q|
|00000fb0| 75 65 73 74 69 6f 6e 73 | 2c 20 63 61 6c 6c 20 55 |uestions|, call U|
|00000fc0| 4e 43 45 4e 53 4f 52 45 | 44 21 20 42 42 53 20 61 |NCENSORE|D! BBS a|
|00000fd0| 74 0a 28 39 31 34 29 20 | 37 36 31 2d 36 38 37 37 |t.(914) |761-6877|
|00000fe0| 2e 20 47 6f 6f 64 20 6c | 75 63 6b 2e 2e 2e 0a 0a |. Good l|uck.....|
|00000ff0| 2a 2f 0a 20 20 0a 23 69 | 6e 63 6c 75 64 65 20 3c |*/.  .#i|nclude <|
|00001000| 66 63 6e 74 6c 2e 68 3e | 0a 23 69 6e 63 6c 75 64 |fcntl.h>|.#includ|
|00001010| 65 20 3c 73 74 64 69 6f | 2e 68 3e 0a 23 69 6e 63 |e <stdio|.h>.#inc|
|00001020| 6c 75 64 65 20 3c 63 74 | 79 70 65 2e 68 3e 0a 23 |lude <ct|ype.h>.#|
|00001030| 69 6e 63 6c 75 64 65 20 | 22 2f 75 73 72 2f 62 62 |include |"/usr/bb|
|00001040| 73 2f 63 69 74 61 64 65 | 6c 2e 68 22 0a 0a 6c 6f |s/citade|l.h"..lo|
|00001050| 6e 67 20 6c 73 65 65 6b | 28 29 3b 0a 6c 6f 6e 67 |ng lseek|();.long|
|00001060| 20 61 74 6f 6c 28 29 3b | 0a 0a 6c 6f 6e 67 20 66 | atol();|..long f|
|00001070| 69 6e 64 75 73 65 72 28 | 66 69 6c 65 2c 6e 61 6d |induser(|file,nam|
|00001080| 65 29 0a 69 6e 74 20 66 | 69 6c 65 3b 0a 63 68 61 |e).int f|ile;.cha|
|00001090| 72 20 6e 61 6d 65 5b 5d | 3b 0a 7b 0a 09 73 74 72 |r name[]|;.{..str|
|000010a0| 75 63 74 20 75 73 65 72 | 73 75 70 70 20 74 65 6d |uct user|supp tem|
|000010b0| 70 3b 0a 09 69 6e 74 20 | 61 3b 0a 09 6c 6f 6e 67 |p;..int |a;..long|
|000010c0| 20 62 6f 74 74 6f 6d 2c | 74 6f 70 2c 67 75 65 73 | bottom,|top,gues|
|000010d0| 73 2c 6f 62 6f 74 74 6f | 6d 2c 6f 74 6f 70 3b 0a |s,obotto|m,otop;.|
|000010e0| 0a 09 6f 62 6f 74 74 6f | 6d 3d 28 2d 31 4c 29 3b |..obotto|m=(-1L);|
|000010f0| 20 6f 74 6f 70 3d 28 2d | 31 4c 29 3b 0a 0a 09 62 | otop=(-|1L);...b|
|00001100| 6f 74 74 6f 6d 3d 30 4c | 3b 0a 09 74 6f 70 3d 28 |ottom=0L|;..top=(|
|00001110| 6c 73 65 65 6b 28 66 69 | 6c 65 2c 30 4c 2c 32 29 |lseek(fi|le,0L,2)|
|00001120| 2f 28 6c 6f 6e 67 29 73 | 69 7a 65 6f 66 28 73 74 |/(long)s|izeof(st|
|00001130| 72 75 63 74 20 75 73 65 | 72 73 75 70 70 29 29 3b |ruct use|rsupp));|
|00001140| 0a 0a 46 50 54 3a 09 69 | 66 20 28 28 6f 62 6f 74 |..FPT:.i|f ((obot|
|00001150| 74 6f 6d 3d 3d 62 6f 74 | 74 6f 6d 29 26 26 28 6f |tom==bot|tom)&&(o|
|00001160| 74 6f 70 3d 3d 74 6f 70 | 29 29 20 7b 0a 09 09 72 |top==top|)) {...r|
|00001170| 65 74 75 72 6e 28 2d 31 | 4c 29 3b 20 7d 0a 09 6f |eturn(-1|L); }..o|
|00001180| 62 6f 74 74 6f 6d 3d 62 | 6f 74 74 6f 6d 3b 20 6f |bottom=b|ottom; o|
|00001190| 74 6f 70 3d 74 6f 70 3b | 0a 09 67 75 65 73 73 3d |top=top;|..guess=|
|000011a0| 28 28 28 74 6f 70 2d 62 | 6f 74 74 6f 6d 29 2f 32 |(((top-b|ottom)/2|
|000011b0| 29 2b 62 6f 74 74 6f 6d | 29 3b 0a 09 6c 73 65 65 |)+bottom|);..lsee|
|000011c0| 6b 28 66 69 6c 65 2c 28 | 67 75 65 73 73 2a 28 6c |k(file,(|guess*(l|
|000011d0| 6f 6e 67 29 73 69 7a 65 | 6f 66 28 73 74 72 75 63 |ong)size|of(struc|
|000011e0| 74 20 75 73 65 72 73 75 | 70 70 29 29 2c 30 29 3b |t usersu|pp)),0);|
|000011f0| 0a 09 72 65 61 64 28 66 | 69 6c 65 2c 26 74 65 6d |..read(f|ile,&tem|
|00001200| 70 2c 73 69 7a 65 6f 66 | 28 73 74 72 75 63 74 20 |p,sizeof|(struct |
|00001210| 75 73 65 72 73 75 70 70 | 29 29 3b 0a 09 61 3d 73 |usersupp|));..a=s|
|00001220| 74 72 75 63 6d 70 28 74 | 65 6d 70 2e 66 75 6c 6c |trucmp(t|emp.full|
|00001230| 6e 61 6d 65 2c 6e 61 6d | 65 29 3b 0a 09 69 66 20 |name,nam|e);..if |
|00001240| 28 61 3d 3d 30 29 0a 09 | 09 0a 09 09 72 65 74 75 |(a==0)..|....retu|
|00001250| 72 6e 28 6c 73 65 65 6b | 28 66 69 6c 65 2c 28 67 |rn(lseek|(file,(g|
|00001260| 75 65 73 73 2a 28 6c 6f | 6e 67 29 73 69 7a 65 6f |uess*(lo|ng)sizeo|
|00001270| 66 28 73 74 72 75 63 74 | 20 75 73 65 72 73 75 70 |f(struct| usersup|
|00001280| 70 29 29 2c 30 29 29 3b | 0a 09 69 66 20 28 61 3c |p)),0));|..if (a<|
|00001290| 30 29 20 7b 0a 09 09 62 | 6f 74 74 6f 6d 3d 67 75 |0) {...b|ottom=gu|
|000012a0| 65 73 73 3b 0a 09 09 67 | 6f 74 6f 20 46 50 54 3b |ess;...g|oto FPT;|
|000012b0| 20 7d 0a 09 69 66 20 28 | 61 3e 30 29 20 7b 0a 09 | }..if (|a>0) {..|
|000012c0| 09 74 6f 70 3d 67 75 65 | 73 73 3b 0a 09 09 67 6f |.top=gue|ss;...go|
|000012d0| 74 6f 20 46 50 54 3b 20 | 7d 0a 7d 0a 73 65 6e 64 |to FPT; |}.}.send|
|000012e0| 5f 6d 65 73 73 61 67 65 | 28 66 69 6c 65 6e 61 6d |_message|(filenam|
|000012f0| 65 2c 72 65 74 62 75 66 | 29 09 2f 2a 20 73 65 6e |e,retbuf|)./* sen|
|00001300| 64 20 61 20 6d 65 73 73 | 61 67 65 20 74 6f 20 74 |d a mess|age to t|
|00001310| 68 65 20 6d 61 73 74 65 | 72 20 66 69 6c 65 20 2a |he maste|r file *|
|00001320| 2f 0a 63 68 61 72 20 66 | 69 6c 65 6e 61 6d 65 5b |/.char f|ilename[|
|00001330| 5d 3b 09 09 2f 2a 20 74 | 65 6d 70 66 69 6c 65 6e |];../* t|empfilen|
|00001340| 61 6d 65 20 6f 66 20 70 | 72 6f 70 65 72 20 6d 65 |ame of p|roper me|
|00001350| 73 73 61 67 65 20 2a 2f | 0a 73 74 72 75 63 74 20 |ssage */|.struct |
|00001360| 73 6d 72 65 74 75 72 6e | 20 2a 72 65 74 62 75 66 |smreturn| *retbuf|
|00001370| 3b 09 2f 2a 20 72 65 74 | 75 72 6e 20 69 6e 66 6f |;./* ret|urn info|
|00001380| 72 6d 61 74 69 6f 6e 20 | 2a 2f 0a 7b 0a 0a 69 6e |rmation |*/.{..in|
|00001390| 74 20 66 69 6c 65 2c 61 | 2c 62 2c 63 2c 64 2c 65 |t file,a|,b,c,d,e|
|000013a0| 2c 66 69 6c 65 32 3b 0a | 6c 6f 6e 67 20 61 61 2c |,file2;.|long aa,|
|000013b0| 62 62 2c 63 63 2c 64 64 | 2c 65 65 2c 74 65 6d 70 |bb,cc,dd|,ee,temp|
|000013c0| 6c 65 6e 2c 68 69 62 79 | 74 65 73 2c 6f 72 69 67 |len,hiby|tes,orig|
|000013d0| 70 6f 73 3b 0a 63 68 61 | 72 20 61 61 61 5b 31 30 |pos;.cha|r aaa[10|
|000013e0| 30 5d 3b 0a 73 74 72 75 | 63 74 20 6d 73 67 6d 61 |0];.stru|ct msgma|
|000013f0| 69 6e 20 6d 73 67 6d 61 | 69 6e 3b 0a 0a 0a 09 66 |in msgma|in;....f|
|00001400| 69 6c 65 3d 6f 70 65 6e | 28 22 2f 75 73 72 2f 62 |ile=open|("/usr/b|
|00001410| 62 73 2f 4d 4d 73 74 72 | 75 63 74 75 72 65 22 2c |bs/MMstr|ucture",|
|00001420| 4f 5f 52 44 57 52 29 3b | 0a 09 69 66 20 28 66 69 |O_RDWR);|..if (fi|
|00001430| 6c 65 3c 30 29 20 65 78 | 69 74 28 31 33 29 3b 0a |le<0) ex|it(13);.|
|00001440| 50 57 4d 49 4e 53 3a 0a | 09 61 3d 72 65 61 64 28 |PWMINS:.|.a=read(|
|00001450| 66 69 6c 65 2c 26 6d 73 | 67 6d 61 69 6e 2c 73 69 |file,&ms|gmain,si|
|00001460| 7a 65 6f 66 28 73 74 72 | 75 63 74 20 6d 73 67 6d |zeof(str|uct msgm|
|00001470| 61 69 6e 29 29 3b 0a 09 | 69 66 20 28 61 3c 31 29 |ain));..|if (a<1)|
|00001480| 20 65 78 69 74 28 31 34 | 29 3b 0a 09 69 66 20 28 | exit(14|);..if (|
|00001490| 6d 73 67 6d 61 69 6e 2e | 4d 4d 66 6c 61 67 73 20 |msgmain.|MMflags |
|000014a0| 26 20 4d 4d 5f 42 55 53 | 59 29 20 7b 0a 09 09 09 |& MM_BUS|Y) {....|
|000014b0| 09 09 20 6c 73 65 65 6b | 28 66 69 6c 65 2c 30 4c |.. lseek|(file,0L|
|000014c0| 2c 30 29 3b 20 67 6f 74 | 6f 20 50 57 4d 49 4e 53 |,0); got|o PWMINS|
|000014d0| 3b 20 7d 0a 0a 09 6c 73 | 65 65 6b 28 66 69 6c 65 |; }...ls|eek(file|
|000014e0| 2c 30 4c 2c 30 29 3b 0a | 09 6d 73 67 6d 61 69 6e |,0L,0);.|.msgmain|
|000014f0| 2e 4d 4d 66 6c 61 67 73 | 3d 28 6d 73 67 6d 61 69 |.MMflags|=(msgmai|
|00001500| 6e 2e 4d 4d 66 6c 61 67 | 73 7c 4d 4d 5f 42 55 53 |n.MMflag|s|MM_BUS|
|00001510| 59 29 3b 0a 09 61 3d 77 | 72 69 74 65 28 66 69 6c |Y);..a=w|rite(fil|
|00001520| 65 2c 26 6d 73 67 6d 61 | 69 6e 2c 73 69 7a 65 6f |e,&msgma|in,sizeo|
|00001530| 66 28 73 74 72 75 63 74 | 20 6d 73 67 6d 61 69 6e |f(struct| msgmain|
|00001540| 29 29 3b 20 69 66 20 28 | 61 3c 31 29 20 65 78 69 |)); if (|a<1) exi|
|00001550| 74 28 31 36 29 3b 0a 09 | 63 6c 6f 73 65 28 66 69 |t(16);..|close(fi|
|00001560| 6c 65 29 3b 0a 09 6f 72 | 69 67 70 6f 73 3d 6d 73 |le);..or|igpos=ms|
|00001570| 67 6d 61 69 6e 2e 4d 4d | 63 75 72 70 6f 73 3b 0a |gmain.MM|curpos;.|
|00001580| 0a 2f 2a 20 6d 65 61 73 | 75 72 65 20 74 68 65 20 |./* meas|ure the |
|00001590| 6d 65 73 73 61 67 65 20 | 2a 2f 0a 66 69 6c 65 3d |message |*/.file=|
|000015a0| 6f 70 65 6e 28 66 69 6c | 65 6e 61 6d 65 2c 4f 5f |open(fil|ename,O_|
|000015b0| 52 44 4f 4e 4c 59 29 3b | 20 69 66 20 28 66 69 6c |RDONLY);| if (fil|
|000015c0| 65 3c 30 29 20 65 78 69 | 74 28 31 37 29 3b 0a 74 |e<0) exi|t(17);.t|
|000015d0| 65 6d 70 6c 65 6e 3d 6c | 73 65 65 6b 28 66 69 6c |emplen=l|seek(fil|
|000015e0| 65 2c 30 4c 2c 32 29 3b | 0a 63 6c 6f 73 65 28 66 |e,0L,2);|.close(f|
|000015f0| 69 6c 65 29 3b 0a 0a 2f | 2a 20 63 68 65 63 6b 20 |ile);../|* check |
|00001600| 66 6f 72 20 46 46 20 62 | 79 74 65 73 20 2a 2f 0a |for FF b|ytes */.|
|00001610| 68 69 62 79 74 65 73 3d | 30 4c 3b 0a 66 69 6c 65 |hibytes=|0L;.file|
|00001620| 3d 6f 70 65 6e 28 22 2f | 75 73 72 2f 62 62 73 2f |=open("/|usr/bbs/|
|00001630| 6d 73 67 6d 61 69 6e 22 | 2c 4f 5f 52 44 57 52 29 |msgmain"|,O_RDWR)|
|00001640| 3b 0a 69 66 20 28 66 69 | 6c 65 3c 30 29 20 65 78 |;.if (fi|le<0) ex|
|00001650| 69 74 28 31 38 29 3b 0a | 62 62 3d 6c 73 65 65 6b |it(18);.|bb=lseek|
|00001660| 28 66 69 6c 65 2c 6d 73 | 67 6d 61 69 6e 2e 4d 4d |(file,ms|gmain.MM|
|00001670| 63 75 72 70 6f 73 2c 30 | 29 3b 0a 0a 63 63 3d 6c |curpos,0|);..cc=l|
|00001680| 73 65 65 6b 28 66 69 6c | 65 2c 30 4c 2c 31 29 3b |seek(fil|e,0L,1);|
|00001690| 0a 66 6f 72 20 28 62 62 | 3d 30 4c 3b 20 62 62 3c |.for (bb|=0L; bb<|
|000016a0| 74 65 6d 70 6c 65 6e 3b | 20 2b 2b 62 62 29 20 7b |templen;| ++bb) {|
|000016b0| 0a 09 69 66 20 28 63 63 | 3e 3d 4d 4d 5f 46 49 4c |..if (cc|>=MM_FIL|
|000016c0| 45 4c 45 4e 29 20 63 63 | 3d 6c 73 65 65 6b 28 66 |ELEN) cc|=lseek(f|
|000016d0| 69 6c 65 2c 30 4c 2c 30 | 29 3b 0a 09 63 3d 30 3b |ile,0L,0|);..c=0;|
|000016e0| 20 72 65 61 64 28 66 69 | 6c 65 2c 26 63 2c 31 29 | read(fi|le,&c,1)|
|000016f0| 3b 20 2b 2b 63 63 3b 0a | 09 69 66 20 28 63 3e 31 |; ++cc;.|.if (c>1|
|00001700| 32 37 29 20 2b 2b 68 69 | 62 79 74 65 73 3b 09 09 |27) ++hi|bytes;..|
|00001710| 2f 2a 20 62 75 6d 70 20 | 63 6f 75 6e 74 20 69 66 |/* bump |count if|
|00001720| 20 68 69 20 62 69 74 20 | 73 65 74 20 2a 2f 0a 09 | hi bit |set */..|
|00001730| 7d 0a 0a 6d 73 67 6d 61 | 69 6e 2e 4d 4d 6c 6f 77 |}..msgma|in.MMlow|
|00001740| 65 73 74 3d 6d 73 67 6d | 61 69 6e 2e 4d 4d 6c 6f |est=msgm|ain.MMlo|
|00001750| 77 65 73 74 2b 68 69 62 | 79 74 65 73 3b 0a 2b 2b |west+hib|ytes;.++|
|00001760| 6d 73 67 6d 61 69 6e 2e | 4d 4d 68 69 67 68 65 73 |msgmain.|MMhighes|
|00001770| 74 3b 0a 0a 63 63 3d 6c | 73 65 65 6b 28 66 69 6c |t;..cc=l|seek(fil|
|00001780| 65 2c 6d 73 67 6d 61 69 | 6e 2e 4d 4d 63 75 72 70 |e,msgmai|n.MMcurp|
|00001790| 6f 73 2c 30 29 3b 0a 0a | 66 69 6c 65 32 3d 6f 70 |os,0);..|file2=op|
|000017a0| 65 6e 28 66 69 6c 65 6e | 61 6d 65 2c 4f 5f 52 44 |en(filen|ame,O_RD|
|000017b0| 4f 4e 4c 59 29 3b 20 69 | 66 20 28 66 69 6c 65 32 |ONLY); i|f (file2|
|000017c0| 3c 30 29 20 65 78 69 74 | 28 31 39 29 3b 0a 63 63 |<0) exit|(19);.cc|
|000017d0| 3d 6c 73 65 65 6b 28 66 | 69 6c 65 2c 30 4c 2c 31 |=lseek(f|ile,0L,1|
|000017e0| 29 3b 0a 66 6f 72 20 28 | 62 62 3d 30 4c 3b 20 62 |);.for (|bb=0L; b|
|000017f0| 62 3c 74 65 6d 70 6c 65 | 6e 3b 20 2b 2b 62 62 29 |b<temple|n; ++bb)|
|00001800| 20 7b 0a 09 69 66 20 28 | 28 28 6c 6f 6e 67 29 63 | {..if (|((long)c|
|00001810| 63 29 3e 3d 28 28 6c 6f | 6e 67 29 4d 4d 5f 46 49 |c)>=((lo|ng)MM_FI|
|00001820| 4c 45 4c 45 4e 29 29 20 | 63 63 3d 6c 73 65 65 6b |LELEN)) |cc=lseek|
|00001830| 28 66 69 6c 65 2c 30 4c | 2c 30 29 3b 0a 09 72 65 |(file,0L|,0);..re|
|00001840| 61 64 28 66 69 6c 65 32 | 2c 26 62 2c 31 29 3b 20 |ad(file2|,&b,1); |
|00001850| 0a 09 77 72 69 74 65 28 | 66 69 6c 65 2c 26 62 2c |..write(|file,&b,|
|00001860| 31 29 3b 20 2b 2b 63 63 | 3b 0a 09 7d 0a 6d 73 67 |1); ++cc|;..}.msg|
|00001870| 6d 61 69 6e 2e 4d 4d 63 | 75 72 70 6f 73 3d 6c 73 |main.MMc|urpos=ls|
|00001880| 65 65 6b 28 66 69 6c 65 | 2c 30 4c 2c 31 29 3b 0a |eek(file|,0L,1);.|
|00001890| 63 6c 6f 73 65 28 66 69 | 6c 65 32 29 3b 09 2f 2a |close(fi|le2);./*|
|000018a0| 20 64 6f 6e 65 20 77 69 | 74 68 20 74 65 6d 70 20 | done wi|th temp |
|000018b0| 66 69 6c 65 20 2a 2f 0a | 63 6c 6f 73 65 28 66 69 |file */.|close(fi|
|000018c0| 6c 65 29 3b 09 2f 2a 20 | 64 6f 6e 65 20 77 69 74 |le);./* |done wit|
|000018d0| 68 20 6d 61 73 74 65 72 | 20 66 69 6c 65 20 2a 2f |h master| file */|
|000018e0| 0a 0a 0a 2f 2a 20 6e 6f | 77 20 75 70 64 61 74 65 |.../* no|w update|
|000018f0| 20 74 68 65 20 6d 65 73 | 73 61 67 65 20 73 74 72 | the mes|sage str|
|00001900| 75 63 74 75 72 65 20 2a | 2f 0a 0a 6d 73 67 6d 61 |ucture *|/..msgma|
|00001910| 69 6e 2e 4d 4d 66 6c 61 | 67 73 3d 6d 73 67 6d 61 |in.MMfla|gs=msgma|
|00001920| 69 6e 2e 4d 4d 66 6c 61 | 67 73 20 26 20 7e 4d 4d |in.MMfla|gs & ~MM|
|00001930| 5f 42 55 53 59 3b 0a 0a | 66 69 6c 65 3d 6f 70 65 |_BUSY;..|file=ope|
|00001940| 6e 28 22 2f 75 73 72 2f | 62 62 73 2f 4d 4d 73 74 |n("/usr/|bbs/MMst|
|00001950| 72 75 63 74 75 72 65 22 | 2c 4f 5f 52 44 57 52 29 |ructure"|,O_RDWR)|
|00001960| 3b 20 69 66 20 28 66 69 | 6c 65 3c 30 29 20 65 78 |; if (fi|le<0) ex|
|00001970| 69 74 28 32 30 29 3b 0a | 61 3d 77 72 69 74 65 28 |it(20);.|a=write(|
|00001980| 66 69 6c 65 2c 26 6d 73 | 67 6d 61 69 6e 2c 73 69 |file,&ms|gmain,si|
|00001990| 7a 65 6f 66 28 73 74 72 | 75 63 74 20 6d 73 67 6d |zeof(str|uct msgm|
|000019a0| 61 69 6e 29 29 3b 20 69 | 66 20 28 61 3c 31 29 20 |ain)); i|f (a<1) |
|000019b0| 65 78 69 74 28 32 31 29 | 3b 0a 63 6c 6f 73 65 28 |exit(21)|;.close(|
|000019c0| 66 69 6c 65 29 3b 0a 0a | 72 65 74 62 75 66 2d 3e |file);..|retbuf->|
|000019d0| 73 6d 6e 75 6d 62 65 72 | 3d 6d 73 67 6d 61 69 6e |smnumber|=msgmain|
|000019e0| 2e 4d 4d 68 69 67 68 65 | 73 74 3b 0a 72 65 74 62 |.MMhighe|st;.retb|
|000019f0| 75 66 2d 3e 73 6d 70 6f | 73 3d 6f 72 69 67 70 6f |uf->smpo|s=origpo|
|00001a00| 73 3b 0a 0a 0a 0a 72 65 | 74 75 72 6e 28 30 29 3b |s;....re|turn(0);|
|00001a10| 0a 0a 7d 0a 0a 6d 61 6b | 65 5f 6d 65 73 73 61 67 |..}..mak|e_messag|
|00001a20| 65 28 66 69 6c 65 6e 61 | 6d 65 2c 72 65 63 69 70 |e(filena|me,recip|
|00001a30| 69 65 6e 74 29 0a 63 68 | 61 72 20 66 69 6c 65 6e |ient).ch|ar filen|
|00001a40| 61 6d 65 5b 5d 3b 09 2f | 2a 20 74 65 6d 70 6f 72 |ame[];./|* tempor|
|00001a50| 61 72 79 20 66 69 6c 65 | 20 6e 61 6d 65 20 2a 2f |ary file| name */|
|00001a60| 0a 63 68 61 72 20 72 65 | 63 69 70 69 65 6e 74 5b |.char re|cipient[|
|00001a70| 5d 3b 09 2f 2a 20 4e 55 | 4c 4c 20 69 66 20 69 74 |];./* NU|LL if it|
|00001a80| 27 73 20 6e 6f 74 20 6d | 61 69 6c 20 2a 2f 0a 7b |'s not m|ail */.{|
|00001a90| 20 0a 09 63 68 61 72 20 | 61 75 74 68 6f 72 5b 33 | ..char |author[3|
|00001aa0| 30 30 5d 3b 0a 09 46 49 | 4c 45 20 2a 66 70 3b 0a |00];..FI|LE *fp;.|
|00001ab0| 09 69 6e 74 20 61 2c 62 | 2c 63 2c 6f 6c 64 3b 0a |.int a,b|,c,old;.|
|00001ac0| 09 6c 6f 6e 67 20 61 61 | 2c 62 62 2c 63 63 2c 62 |.long aa|,bb,cc,b|
|00001ad0| 65 67 2c 6e 6f 77 3b 0a | 09 63 68 61 72 20 61 61 |eg,now;.|.char aa|
|00001ae0| 61 5b 33 30 30 5d 2c 62 | 62 62 5b 33 30 30 5d 3b |a[300],b|bb[300];|
|00001af0| 0a 0a 09 73 74 72 63 70 | 79 28 61 75 74 68 6f 72 |...strcp|y(author|
|00001b00| 2c 22 55 55 43 50 20 4d | 61 69 6c 65 72 22 29 3b |,"UUCP M|ailer");|
|00001b10| 0a 09 73 74 72 63 70 79 | 28 61 61 61 2c 22 22 29 |..strcpy|(aaa,"")|
|00001b20| 3b 0a 09 67 65 74 73 28 | 61 61 61 29 3b 0a 09 69 |;..gets(|aaa);..i|
|00001b30| 66 20 28 73 74 72 6e 63 | 6d 70 28 61 61 61 2c 22 |f (strnc|mp(aaa,"|
|00001b40| 46 72 6f 6d 20 22 2c 35 | 29 29 20 67 6f 74 6f 20 |From ",5|)) goto |
|00001b50| 4e 4f 46 52 4d 3b 0a 09 | 73 74 72 63 70 79 28 61 |NOFRM;..|strcpy(a|
|00001b60| 61 61 2c 26 61 61 61 5b | 35 5d 29 3b 0a 09 73 74 |aa,&aaa[|5]);..st|
|00001b70| 72 63 70 79 28 62 62 62 | 2c 22 73 6f 6d 65 77 68 |rcpy(bbb|,"somewh|
|00001b80| 65 72 65 22 29 3b 0a 09 | 66 6f 72 20 28 61 3d 30 |ere");..|for (a=0|
|00001b90| 3b 20 61 3c 73 74 72 6c | 65 6e 28 61 61 61 29 3b |; a<strl|en(aaa);|
|00001ba0| 20 2b 2b 61 29 0a 09 09 | 69 66 20 28 21 73 74 72 | ++a)...|if (!str|
|00001bb0| 6e 63 6d 70 28 26 61 61 | 61 5b 61 5d 2c 22 72 65 |ncmp(&aa|a[a],"re|
|00001bc0| 6d 6f 74 65 20 66 72 6f | 6d 20 22 2c 31 32 29 29 |mote fro|m ",12))|
|00001bd0| 20 7b 0a 09 09 09 73 74 | 72 63 70 79 28 62 62 62 | {....st|rcpy(bbb|
|00001be0| 2c 26 61 61 61 5b 61 2b | 31 32 5d 29 3b 0a 09 09 |,&aaa[a+|12]);...|
|00001bf0| 09 61 61 61 5b 61 5d 3d | 30 3b 0a 09 09 09 7d 0a |.aaa[a]=|0;....}.|
|00001c00| 09 66 6f 72 20 28 61 3d | 30 3b 20 61 3c 73 74 72 |.for (a=|0; a<str|
|00001c10| 6c 65 6e 28 61 61 61 29 | 3b 20 2b 2b 61 29 20 69 |len(aaa)|; ++a) i|
|00001c20| 66 20 28 61 61 61 5b 61 | 5d 3d 3d 33 32 29 20 61 |f (aaa[a|]==32) a|
|00001c30| 61 61 5b 61 5d 3d 30 3b | 0a 09 73 74 72 63 61 74 |aa[a]=0;|..strcat|
|00001c40| 28 62 62 62 2c 22 21 22 | 29 3b 0a 09 73 74 72 63 |(bbb,"!"|);..strc|
|00001c50| 61 74 28 62 62 62 2c 61 | 61 61 29 3b 0a 09 73 74 |at(bbb,a|aa);..st|
|00001c60| 72 63 70 79 28 61 75 74 | 68 6f 72 2c 62 62 62 29 |rcpy(aut|hor,bbb)|
|00001c70| 3b 0a 09 61 61 61 5b 30 | 5d 3d 30 3b 0a 0a 4e 4f |;..aaa[0|]=0;..NO|
|00001c80| 46 52 4d 3a 09 74 69 6d | 65 28 26 6e 6f 77 29 3b |FRM:.tim|e(&now);|
|00001c90| 0a 09 66 70 3d 66 6f 70 | 65 6e 28 66 69 6c 65 6e |..fp=fop|en(filen|
|00001ca0| 61 6d 65 2c 22 77 62 22 | 29 3b 20 69 66 20 28 66 |ame,"wb"|); if (f|
|00001cb0| 70 3d 3d 4e 55 4c 4c 29 | 20 65 78 69 74 28 32 32 |p==NULL)| exit(22|
|00001cc0| 29 3b 0a 09 70 75 74 63 | 28 32 35 35 2c 66 70 29 |);..putc|(255,fp)|
|00001cd0| 3b 0a 09 70 75 74 63 28 | 4d 45 53 5f 4e 4f 52 4d |;..putc(|MES_NORM|
|00001ce0| 41 4c 2c 66 70 29 3b 0a | 09 70 75 74 63 28 31 2c |AL,fp);.|.putc(1,|
|00001cf0| 66 70 29 3b 0a 09 66 70 | 72 69 6e 74 66 28 66 70 |fp);..fp|rintf(fp|
|00001d00| 2c 22 54 25 6c 64 22 2c | 6e 6f 77 29 3b 20 70 75 |,"T%ld",|now); pu|
|00001d10| 74 63 28 30 2c 66 70 29 | 3b 0a 09 66 70 72 69 6e |tc(0,fp)|;..fprin|
|00001d20| 74 66 28 66 70 2c 22 41 | 25 73 22 2c 61 75 74 68 |tf(fp,"A|%s",auth|
|00001d30| 6f 72 29 3b 20 70 75 74 | 63 28 30 2c 66 70 29 3b |or); put|c(0,fp);|
|00001d40| 0a 09 69 66 20 28 72 65 | 63 69 70 69 65 6e 74 5b |..if (re|cipient[|
|00001d50| 30 5d 21 3d 30 29 20 7b | 20 66 70 72 69 6e 74 66 |0]!=0) {| fprintf|
|00001d60| 28 66 70 2c 22 52 25 73 | 22 2c 72 65 63 69 70 69 |(fp,"R%s|",recipi|
|00001d70| 65 6e 74 29 3b 20 70 75 | 74 63 28 30 2c 66 70 29 |ent); pu|tc(0,fp)|
|00001d80| 3b 20 7d 0a 09 66 70 72 | 69 6e 74 66 28 66 70 2c |; }..fpr|intf(fp,|
|00001d90| 22 4f 4d 61 69 6c 22 29 | 3b 20 70 75 74 63 28 30 |"OMail")|; putc(0|
|00001da0| 2c 66 70 29 3b 0a 09 66 | 70 72 69 6e 74 66 28 66 |,fp);..f|printf(f|
|00001db0| 70 2c 22 4e 25 73 22 2c | 4e 4f 44 45 4e 41 4d 45 |p,"N%s",|NODENAME|
|00001dc0| 29 3b 20 70 75 74 63 28 | 30 2c 66 70 29 3b 0a 09 |); putc(|0,fp);..|
|00001dd0| 70 75 74 63 28 27 4d 27 | 2c 66 70 29 3b 0a 09 69 |putc('M'|,fp);..i|
|00001de0| 66 20 28 61 61 61 5b 30 | 5d 21 3d 30 29 20 66 70 |f (aaa[0|]!=0) fp|
|00001df0| 72 69 6e 74 66 28 66 70 | 2c 22 25 73 5c 6e 22 2c |rintf(fp|,"%s\n",|
|00001e00| 61 61 61 29 3b 0a 09 64 | 6f 20 7b 0a 09 09 61 3d |aaa);..d|o {...a=|
|00001e10| 67 65 74 63 28 73 74 64 | 69 6e 29 3b 0a 09 09 69 |getc(std|in);...i|
|00001e20| 66 20 28 61 3e 30 29 20 | 70 75 74 63 28 61 2c 66 |f (a>0) |putc(a,f|
|00001e30| 70 29 3b 0a 09 09 7d 20 | 77 68 69 6c 65 28 61 3e |p);...} |while(a>|
|00001e40| 30 29 3b 0a 0a 4d 45 46 | 49 4e 3a 09 70 75 74 63 |0);..MEF|IN:.putc|
|00001e50| 28 30 2c 66 70 29 3b 0a | 09 66 63 6c 6f 73 65 28 |(0,fp);.|.fclose(|
|00001e60| 66 70 29 3b 0a 09 72 65 | 74 75 72 6e 28 30 29 3b |fp);..re|turn(0);|
|00001e70| 0a 0a 7d 0a 0a 73 74 72 | 75 63 6d 70 28 73 74 31 |..}..str|ucmp(st1|
|00001e80| 2c 73 74 32 29 0a 63 68 | 61 72 20 73 74 31 5b 5d |,st2).ch|ar st1[]|
|00001e90| 2c 73 74 32 5b 5d 3b 0a | 7b 0a 09 69 6e 74 20 61 |,st2[];.|{..int a|
|00001ea0| 3b 0a 09 63 68 61 72 20 | 61 61 61 5b 31 30 30 5d |;..char |aaa[100]|
|00001eb0| 2c 62 62 62 5b 31 30 30 | 5d 3b 0a 09 66 6f 72 20 |,bbb[100|];..for |
|00001ec0| 28 61 3d 30 3b 20 61 3c | 3d 73 74 72 6c 65 6e 28 |(a=0; a<|=strlen(|
|00001ed0| 73 74 31 29 3b 20 2b 2b | 61 29 20 61 61 61 5b 61 |st1); ++|a) aaa[a|
|00001ee0| 5d 3d 74 6f 6c 6f 77 65 | 72 28 73 74 31 5b 61 5d |]=tolowe|r(st1[a]|
|00001ef0| 29 3b 0a 09 66 6f 72 20 | 28 61 3d 30 3b 20 61 3c |);..for |(a=0; a<|
|00001f00| 3d 73 74 72 6c 65 6e 28 | 73 74 32 29 3b 20 2b 2b |=strlen(|st2); ++|
|00001f10| 61 29 20 62 62 62 5b 61 | 5d 3d 74 6f 6c 6f 77 65 |a) bbb[a|]=tolowe|
|00001f20| 72 28 73 74 32 5b 61 5d | 29 3b 0a 09 61 3d 73 74 |r(st2[a]|);..a=st|
|00001f30| 72 63 6d 70 28 61 61 61 | 2c 62 62 62 29 3b 0a 09 |rcmp(aaa|,bbb);..|
|00001f40| 72 65 74 75 72 6e 28 61 | 29 3b 0a 7d 0a 0a 6d 61 |return(a|);.}..ma|
|00001f50| 69 6e 28 61 72 67 63 2c | 61 72 67 76 29 0a 69 6e |in(argc,|argv).in|
|00001f60| 74 20 61 72 67 63 3b 0a | 63 68 61 72 20 2a 61 72 |t argc;.|char *ar|
|00001f70| 67 76 5b 5d 3b 0a 7b 0a | 09 69 6e 74 20 61 2c 66 |gv[];.{.|.int a,f|
|00001f80| 69 6c 65 3b 0a 09 6c 6f | 6e 67 20 61 61 3b 0a 09 |ile;..lo|ng aa;..|
|00001f90| 63 68 61 72 20 61 61 61 | 5b 31 30 30 5d 2c 74 65 |char aaa|[100],te|
|00001fa0| 6d 70 5b 32 30 5d 3b 0a | 09 73 74 72 75 63 74 20 |mp[20];.|.struct |
|00001fb0| 75 73 65 72 73 75 70 70 | 20 75 73 65 72 73 75 70 |usersupp| usersup|
|00001fc0| 70 3b 0a 09 73 74 72 75 | 63 74 20 73 6d 72 65 74 |p;..stru|ct smret|
|00001fd0| 75 72 6e 20 73 6d 72 65 | 74 75 72 6e 3b 0a 09 73 |urn smre|turn;..s|
|00001fe0| 74 72 75 63 74 20 71 75 | 69 63 6b 72 6f 6f 6d 20 |truct qu|ickroom |
|00001ff0| 71 75 69 63 6b 72 6f 6f | 6d 3b 0a 09 73 74 72 75 |quickroo|m;..stru|
|00002000| 63 74 20 66 75 6c 6c 72 | 6f 6f 6d 20 66 75 6c 6c |ct fullr|oom full|
|00002010| 72 6f 6f 6d 3b 0a 09 0a | 09 73 70 72 69 6e 74 66 |room;...|.sprintf|
|00002020| 28 74 65 6d 70 2c 22 2f | 74 6d 70 2f 72 6d 61 69 |(temp,"/|tmp/rmai|
|00002030| 6c 2e 25 64 22 2c 67 65 | 74 70 69 64 28 29 29 3b |l.%d",ge|tpid());|
|00002040| 0a 09 67 6f 74 6f 20 54 | 52 59 3b 0a 47 49 56 45 |..goto T|RY;.GIVE|
|00002050| 55 50 3a 09 65 78 65 63 | 76 28 22 2f 75 73 72 2f |UP:.exec|v("/usr/|
|00002060| 62 69 6e 2f 72 6d 61 69 | 6c 2e 72 65 61 6c 22 2c |bin/rmai|l.real",|
|00002070| 61 72 67 76 29 3b 0a 09 | 65 78 69 74 28 31 29 3b |argv);..|exit(1);|
|00002080| 0a 0a 54 52 59 3a 09 69 | 66 20 28 61 72 67 63 21 |..TRY:.i|f (argc!|
|00002090| 3d 32 29 20 67 6f 74 6f | 20 47 49 56 45 55 50 3b |=2) goto| GIVEUP;|
|000020a0| 0a 09 73 74 72 63 70 79 | 28 61 61 61 2c 61 72 67 |..strcpy|(aaa,arg|
|000020b0| 76 5b 31 5d 29 3b 0a 09 | 66 6f 72 20 28 61 3d 30 |v[1]);..|for (a=0|
|000020c0| 3b 20 61 3c 73 74 72 6c | 65 6e 28 61 61 61 29 3b |; a<strl|en(aaa);|
|000020d0| 20 2b 2b 61 29 20 7b 0a | 09 09 69 66 20 28 28 61 | ++a) {.|..if ((a|
|000020e0| 61 61 5b 61 5d 3d 3d 27 | 21 27 29 7c 7c 28 61 61 |aa[a]=='|!')||(aa|
|000020f0| 61 5b 61 5d 3d 3d 27 40 | 27 29 29 20 67 6f 74 6f |a[a]=='@|')) goto|
|00002100| 20 47 49 56 45 55 50 3b | 0a 09 09 69 66 20 28 61 | GIVEUP;|...if (a|
|00002110| 61 61 5b 61 5d 3d 3d 27 | 5f 27 29 20 61 61 61 5b |aa[a]=='|_') aaa[|
|00002120| 61 5d 3d 33 32 3b 0a 09 | 09 7d 0a 09 63 68 65 63 |a]=32;..|.}..chec|
|00002130| 6b 34 6e 28 61 61 61 29 | 3b 0a 09 61 6c 69 61 73 |k4n(aaa)|;..alias|
|00002140| 28 61 61 61 29 3b 0a 09 | 69 66 20 28 73 74 72 75 |(aaa);..|if (stru|
|00002150| 63 6d 70 28 61 61 61 2c | 22 73 79 73 6f 70 22 29 |cmp(aaa,|"sysop")|
|00002160| 29 20 7b 0a 09 09 66 69 | 6c 65 3d 6f 70 65 6e 28 |) {...fi|le=open(|
|00002170| 22 2f 75 73 72 2f 62 62 | 73 2f 75 73 65 72 73 75 |"/usr/bb|s/usersu|
|00002180| 70 70 22 2c 4f 5f 52 44 | 57 52 29 3b 0a 09 09 69 |pp",O_RD|WR);...i|
|00002190| 66 20 28 66 69 6c 65 3c | 30 29 20 67 6f 74 6f 20 |f (file<|0) goto |
|000021a0| 47 49 56 45 55 50 3b 0a | 09 09 61 61 3d 66 69 6e |GIVEUP;.|..aa=fin|
|000021b0| 64 75 73 65 72 28 66 69 | 6c 65 2c 61 61 61 29 3b |duser(fi|le,aaa);|
|000021c0| 0a 09 09 69 66 20 28 61 | 61 3d 3d 28 2d 31 4c 29 |...if (a|a==(-1L)|
|000021d0| 29 20 7b 0a 09 09 09 63 | 6c 6f 73 65 28 66 69 6c |) {....c|lose(fil|
|000021e0| 65 29 3b 0a 09 09 09 67 | 6f 74 6f 20 47 49 56 45 |e);....g|oto GIVE|
|000021f0| 55 50 3b 0a 09 09 09 7d | 0a 09 09 7d 0a 09 6d 61 |UP;....}|...}..ma|
|00002200| 6b 65 5f 6d 65 73 73 61 | 67 65 28 74 65 6d 70 2c |ke_messa|ge(temp,|
|00002210| 61 61 61 29 3b 0a 09 73 | 65 6e 64 5f 6d 65 73 73 |aaa);..s|end_mess|
|00002220| 61 67 65 28 74 65 6d 70 | 2c 26 73 6d 72 65 74 75 |age(temp|,&smretu|
|00002230| 72 6e 29 3b 0a 09 69 66 | 20 28 73 74 72 75 63 6d |rn);..if| (strucm|
|00002240| 70 28 61 61 61 2c 22 73 | 79 73 6f 70 22 29 29 20 |p(aaa,"s|ysop")) |
|00002250| 7b 0a 09 09 61 61 3d 66 | 69 6e 64 75 73 65 72 28 |{...aa=f|induser(|
|00002260| 66 69 6c 65 2c 61 61 61 | 29 3b 0a 09 09 72 65 61 |file,aaa|);...rea|
|00002270| 64 28 66 69 6c 65 2c 26 | 75 73 65 72 73 75 70 70 |d(file,&|usersupp|
|00002280| 2c 73 69 7a 65 6f 66 28 | 73 74 72 75 63 74 20 75 |,sizeof(|struct u|
|00002290| 73 65 72 73 75 70 70 29 | 29 3b 0a 09 09 66 6f 72 |sersupp)|);...for|
|000022a0| 20 28 61 3d 30 3b 20 61 | 3c 28 4d 41 49 4c 53 4c | (a=0; a|<(MAILSL|
|000022b0| 4f 54 53 2d 31 29 3b 20 | 2b 2b 61 29 20 7b 0a 09 |OTS-1); |++a) {..|
|000022c0| 09 09 75 73 65 72 73 75 | 70 70 2e 6d 61 69 6c 6e |..usersu|pp.mailn|
|000022d0| 75 6d 5b 61 5d 3d 75 73 | 65 72 73 75 70 70 2e 6d |um[a]=us|ersupp.m|
|000022e0| 61 69 6c 6e 75 6d 5b 61 | 2b 31 5d 3b 0a 09 09 09 |ailnum[a|+1];....|
|000022f0| 75 73 65 72 73 75 70 70 | 2e 6d 61 69 6c 70 6f 73 |usersupp|.mailpos|
|00002300| 5b 61 5d 3d 75 73 65 72 | 73 75 70 70 2e 6d 61 69 |[a]=user|supp.mai|
|00002310| 6c 70 6f 73 5b 61 2b 31 | 5d 3b 0a 09 09 09 7d 0a |lpos[a+1|];....}.|
|00002320| 09 09 75 73 65 72 73 75 | 70 70 2e 6d 61 69 6c 6e |..usersu|pp.mailn|
|00002330| 75 6d 5b 4d 41 49 4c 53 | 4c 4f 54 53 2d 31 5d 3d |um[MAILS|LOTS-1]=|
|00002340| 73 6d 72 65 74 75 72 6e | 2e 73 6d 6e 75 6d 62 65 |smreturn|.smnumbe|
|00002350| 72 3b 0a 09 09 75 73 65 | 72 73 75 70 70 2e 6d 61 |r;...use|rsupp.ma|
|00002360| 69 6c 70 6f 73 5b 4d 41 | 49 4c 53 4c 4f 54 53 2d |ilpos[MA|ILSLOTS-|
|00002370| 31 5d 3d 73 6d 72 65 74 | 75 72 6e 2e 73 6d 70 6f |1]=smret|urn.smpo|
|00002380| 73 3b 0a 09 09 61 61 3d | 66 69 6e 64 75 73 65 72 |s;...aa=|finduser|
|00002390| 28 66 69 6c 65 2c 61 61 | 61 29 3b 0a 09 09 77 72 |(file,aa|a);...wr|
|000023a0| 69 74 65 28 66 69 6c 65 | 2c 26 75 73 65 72 73 75 |ite(file|,&usersu|
|000023b0| 70 70 2c 73 69 7a 65 6f | 66 28 73 74 72 75 63 74 |pp,sizeo|f(struct|
|000023c0| 20 75 73 65 72 73 75 70 | 70 29 29 3b 0a 09 09 63 | usersup|p));...c|
|000023d0| 6c 6f 73 65 28 66 69 6c | 65 29 3b 0a 09 09 7d 0a |lose(fil|e);...}.|
|000023e0| 0a 09 65 6c 73 65 20 7b | 09 2f 2a 20 66 69 6c 65 |..else {|./* file|
|000023f0| 20 69 74 20 69 6e 20 41 | 69 64 65 3e 20 2a 2f 0a | it in A|ide> */.|
|00002400| 09 09 66 69 6c 65 3d 6f | 70 65 6e 28 22 2f 75 73 |..file=o|pen("/us|
|00002410| 72 2f 62 62 73 2f 71 75 | 69 63 6b 72 6f 6f 6d 22 |r/bbs/qu|ickroom"|
|00002420| 2c 4f 5f 52 44 57 52 29 | 3b 0a 09 09 6c 73 65 65 |,O_RDWR)|;...lsee|
|00002430| 6b 28 66 69 6c 65 2c 28 | 6c 6f 6e 67 29 28 32 2a |k(file,(|long)(2*|
|00002440| 73 69 7a 65 6f 66 28 73 | 74 72 75 63 74 20 71 75 |sizeof(s|truct qu|
|00002450| 69 63 6b 72 6f 6f 6d 29 | 29 2c 30 29 3b 0a 09 09 |ickroom)|),0);...|
|00002460| 72 65 61 64 28 66 69 6c | 65 2c 26 71 75 69 63 6b |read(fil|e,&quick|
|00002470| 72 6f 6f 6d 2c 73 69 7a | 65 6f 66 28 73 74 72 75 |room,siz|eof(stru|
|00002480| 63 74 20 71 75 69 63 6b | 72 6f 6f 6d 29 29 3b 0a |ct quick|room));.|
|00002490| 09 09 71 75 69 63 6b 72 | 6f 6f 6d 2e 51 52 68 69 |..quickr|oom.QRhi|
|000024a0| 67 68 65 73 74 3d 73 6d | 72 65 74 75 72 6e 2e 73 |ghest=sm|return.s|
|000024b0| 6d 6e 75 6d 62 65 72 3b | 0a 09 09 6c 73 65 65 6b |mnumber;|...lseek|
|000024c0| 28 66 69 6c 65 2c 28 6c | 6f 6e 67 29 28 32 2a 73 |(file,(l|ong)(2*s|
|000024d0| 69 7a 65 6f 66 28 73 74 | 72 75 63 74 20 71 75 69 |izeof(st|ruct qui|
|000024e0| 63 6b 72 6f 6f 6d 29 29 | 2c 30 29 3b 0a 09 09 77 |ckroom))|,0);...w|
|000024f0| 72 69 74 65 28 66 69 6c | 65 2c 26 71 75 69 63 6b |rite(fil|e,&quick|
|00002500| 72 6f 6f 6d 2c 73 69 7a | 65 6f 66 28 73 74 72 75 |room,siz|eof(stru|
|00002510| 63 74 20 71 75 69 63 6b | 72 6f 6f 6d 29 29 3b 0a |ct quick|room));.|
|00002520| 09 09 63 6c 6f 73 65 28 | 66 69 6c 65 29 3b 0a 09 |..close(|file);..|
|00002530| 09 0a 09 09 66 69 6c 65 | 3d 6f 70 65 6e 28 22 2f |....file|=open("/|
|00002540| 75 73 72 2f 62 62 73 2f | 72 6f 6f 6d 73 2f 66 75 |usr/bbs/|rooms/fu|
|00002550| 6c 6c 72 6d 32 22 2c 4f | 5f 52 44 57 52 29 3b 0a |llrm2",O|_RDWR);.|
|00002560| 09 09 72 65 61 64 28 66 | 69 6c 65 2c 26 66 75 6c |..read(f|ile,&ful|
|00002570| 6c 72 6f 6f 6d 2c 73 69 | 7a 65 6f 66 28 73 74 72 |lroom,si|zeof(str|
|00002580| 75 63 74 20 66 75 6c 6c | 72 6f 6f 6d 29 29 3b 0a |uct full|room));.|
|00002590| 09 09 66 6f 72 20 28 61 | 3d 30 3b 20 61 3c 28 4d |..for (a|=0; a<(M|
|000025a0| 53 47 53 50 45 52 52 4d | 2d 31 29 3b 20 2b 2b 61 |SGSPERRM|-1); ++a|
|000025b0| 29 20 7b 0a 09 09 09 66 | 75 6c 6c 72 6f 6f 6d 2e |) {....f|ullroom.|
|000025c0| 46 52 6e 75 6d 5b 61 5d | 3d 66 75 6c 6c 72 6f 6f |FRnum[a]|=fullroo|
|000025d0| 6d 2e 46 52 6e 75 6d 5b | 61 2b 31 5d 3b 0a 09 09 |m.FRnum[|a+1];...|
|000025e0| 09 66 75 6c 6c 72 6f 6f | 6d 2e 46 52 70 6f 73 5b |.fullroo|m.FRpos[|
|000025f0| 61 5d 3d 66 75 6c 6c 72 | 6f 6f 6d 2e 46 52 70 6f |a]=fullr|oom.FRpo|
|00002600| 73 5b 61 2b 31 5d 3b 0a | 09 09 09 7d 0a 09 09 66 |s[a+1];.|...}...f|
|00002610| 75 6c 6c 72 6f 6f 6d 2e | 46 52 6e 75 6d 5b 4d 53 |ullroom.|FRnum[MS|
|00002620| 47 53 50 45 52 52 4d 2d | 31 5d 3d 73 6d 72 65 74 |GSPERRM-|1]=smret|
|00002630| 75 72 6e 2e 73 6d 6e 75 | 6d 62 65 72 3b 0a 09 09 |urn.smnu|mber;...|
|00002640| 66 75 6c 6c 72 6f 6f 6d | 2e 46 52 70 6f 73 5b 4d |fullroom|.FRpos[M|
|00002650| 53 47 53 50 45 52 52 4d | 2d 31 5d 3d 73 6d 72 65 |SGSPERRM|-1]=smre|
|00002660| 74 75 72 6e 2e 73 6d 70 | 6f 73 3b 0a 09 09 6c 73 |turn.smp|os;...ls|
|00002670| 65 65 6b 28 66 69 6c 65 | 2c 30 4c 2c 30 29 3b 0a |eek(file|,0L,0);.|
|00002680| 09 09 77 72 69 74 65 28 | 66 69 6c 65 2c 26 66 75 |..write(|file,&fu|
|00002690| 6c 6c 72 6f 6f 6d 2c 73 | 69 7a 65 6f 66 28 73 74 |llroom,s|izeof(st|
|000026a0| 72 75 63 74 20 66 75 6c | 6c 72 6f 6f 6d 29 29 3b |ruct ful|lroom));|
|000026b0| 0a 09 09 63 6c 6f 73 65 | 28 66 69 6c 65 29 3b 0a |...close|(file);.|
|000026c0| 09 09 7d 0a 09 0a 09 75 | 6e 6c 69 6e 6b 28 74 65 |..}....u|nlink(te|
|000026d0| 6d 70 29 3b 0a 09 65 78 | 69 74 28 30 29 3b 0a 7d |mp);..ex|it(0);.}|
|000026e0| 0a 0a 61 6c 69 61 73 28 | 6e 61 6d 65 29 0a 63 68 |..alias(|name).ch|
|000026f0| 61 72 20 6e 61 6d 65 5b | 5d 3b 20 7b 0a 09 46 49 |ar name[|]; {..FI|
|00002700| 4c 45 20 2a 66 70 3b 0a | 09 69 6e 74 20 61 2c 62 |LE *fp;.|.int a,b|
|00002710| 3b 0a 09 63 68 61 72 20 | 61 61 61 5b 35 30 5d 2c |;..char |aaa[50],|
|00002720| 62 62 62 5b 35 30 5d 3b | 0a 09 0a 09 66 70 3d 66 |bbb[50];|....fp=f|
|00002730| 6f 70 65 6e 28 22 2f 75 | 73 72 2f 62 62 73 2f 6e |open("/u|sr/bbs/n|
|00002740| 65 74 77 6f 72 6b 2f 6d | 61 69 6c 2e 61 6c 69 61 |etwork/m|ail.alia|
|00002750| 73 65 73 22 2c 22 72 22 | 29 3b 0a 09 69 66 20 28 |ses","r"|);..if (|
|00002760| 66 70 3d 3d 4e 55 4c 4c | 29 20 72 65 74 75 72 6e |fp==NULL|) return|
|00002770| 28 32 29 3b 0a 47 4e 41 | 3a 09 73 74 72 63 70 79 |(2);.GNA|:.strcpy|
|00002780| 28 61 61 61 2c 22 22 29 | 3b 20 73 74 72 63 70 79 |(aaa,"")|; strcpy|
|00002790| 28 62 62 62 2c 22 22 29 | 3b 0a 09 64 6f 20 7b 0a |(bbb,"")|;..do {.|
|000027a0| 09 09 61 3d 67 65 74 63 | 28 66 70 29 3b 0a 09 09 |..a=getc|(fp);...|
|000027b0| 69 66 20 28 61 3d 3d 27 | 2c 27 29 20 61 3d 30 3b |if (a=='|,') a=0;|
|000027c0| 0a 09 09 69 66 20 28 61 | 3e 30 29 20 7b 20 62 3d |...if (a|>0) { b=|
|000027d0| 73 74 72 6c 65 6e 28 61 | 61 61 29 3b 20 61 61 61 |strlen(a|aa); aaa|
|000027e0| 5b 62 5d 3d 61 3b 20 61 | 61 61 5b 62 2b 31 5d 3d |[b]=a; a|aa[b+1]=|
|000027f0| 30 3b 20 7d 0a 09 09 7d | 20 77 68 69 6c 65 28 61 |0; }...}| while(a|
|00002800| 3e 30 29 3b 0a 09 64 6f | 20 7b 0a 09 09 61 3d 67 |>0);..do| {...a=g|
|00002810| 65 74 63 28 66 70 29 3b | 0a 09 09 69 66 20 28 61 |etc(fp);|...if (a|
|00002820| 3d 3d 31 30 29 20 61 3d | 30 3b 0a 09 09 69 66 20 |==10) a=|0;...if |
|00002830| 28 61 3e 30 29 20 7b 20 | 62 3d 73 74 72 6c 65 6e |(a>0) { |b=strlen|
|00002840| 28 62 62 62 29 3b 20 62 | 62 62 5b 62 5d 3d 61 3b |(bbb); b|bb[b]=a;|
|00002850| 20 62 62 62 5b 62 2b 31 | 5d 3d 30 3b 20 7d 0a 09 | bbb[b+1|]=0; }..|
|00002860| 09 7d 20 77 68 69 6c 65 | 28 61 3e 30 29 3b 0a 09 |.} while|(a>0);..|
|00002870| 69 66 20 28 61 3c 30 29 | 20 7b 0a 09 09 66 63 6c |if (a<0)| {...fcl|
|00002880| 6f 73 65 28 66 70 29 3b | 0a 09 09 72 65 74 75 72 |ose(fp);|...retur|
|00002890| 6e 28 31 29 3b 0a 09 09 | 7d 0a 09 69 66 20 28 73 |n(1);...|}..if (s|
|000028a0| 74 72 75 63 6d 70 28 6e | 61 6d 65 2c 61 61 61 29 |trucmp(n|ame,aaa)|
|000028b0| 29 20 67 6f 74 6f 20 47 | 4e 41 3b 0a 09 66 63 6c |) goto G|NA;..fcl|
|000028c0| 6f 73 65 28 66 70 29 3b | 0a 09 73 74 72 63 70 79 |ose(fp);|..strcpy|
|000028d0| 28 6e 61 6d 65 2c 62 62 | 62 29 3b 0a 09 72 65 74 |(name,bb|b);..ret|
|000028e0| 75 72 6e 28 30 29 3b 0a | 7d 0a 0a 63 68 65 63 6b |urn(0);.|}..check|
|000028f0| 34 6e 28 6e 61 6d 65 29 | 0a 63 68 61 72 20 6e 61 |4n(name)|.char na|
|00002900| 6d 65 5b 5d 3b 20 7b 0a | 09 73 74 72 75 63 74 20 |me[]; {.|.struct |
|00002910| 75 73 65 72 73 75 70 70 | 20 75 73 65 72 73 75 70 |usersupp| usersup|
|00002920| 70 3b 0a 09 69 6e 74 20 | 61 2c 66 69 6c 65 3b 0a |p;..int |a,file;.|
|00002930| 09 0a 09 69 66 20 28 28 | 73 74 72 6e 63 6d 70 28 |...if ((|strncmp(|
|00002940| 6e 61 6d 65 2c 22 63 69 | 74 22 2c 32 29 29 7c 7c |name,"ci|t",2))|||
|00002950| 28 61 74 6f 6c 28 26 6e | 61 6d 65 5b 33 5d 29 3d |(atol(&n|ame[3])=|
|00002960| 3d 30 4c 29 29 20 72 65 | 74 75 72 6e 28 30 29 3b |=0L)) re|turn(0);|
|00002970| 0a 0a 09 66 69 6c 65 3d | 6f 70 65 6e 28 22 2f 75 |...file=|open("/u|
|00002980| 73 72 2f 62 62 73 2f 75 | 73 65 72 73 75 70 70 22 |sr/bbs/u|sersupp"|
|00002990| 2c 4f 5f 52 44 4f 4e 4c | 59 29 3b 0a 09 77 68 69 |,O_RDONL|Y);..whi|
|000029a0| 6c 65 20 28 72 65 61 64 | 28 66 69 6c 65 2c 26 75 |le (read|(file,&u|
|000029b0| 73 65 72 73 75 70 70 2c | 73 69 7a 65 6f 66 28 73 |sersupp,|sizeof(s|
|000029c0| 74 72 75 63 74 20 75 73 | 65 72 73 75 70 70 29 29 |truct us|ersupp))|
|000029d0| 3e 30 29 20 7b 0a 09 09 | 69 66 20 28 75 73 65 72 |>0) {...|if (user|
|000029e0| 73 75 70 70 2e 65 74 65 | 72 6e 61 6c 3d 3d 61 74 |supp.ete|rnal==at|
|000029f0| 6f 6c 28 26 6e 61 6d 65 | 5b 33 5d 29 29 20 7b 0a |ol(&name|[3])) {.|
|00002a00| 09 09 09 73 74 72 63 70 | 79 28 6e 61 6d 65 2c 75 |...strcp|y(name,u|
|00002a10| 73 65 72 73 75 70 70 2e | 66 75 6c 6c 6e 61 6d 65 |sersupp.|fullname|
|00002a20| 29 3b 0a 09 09 09 67 6f | 74 6f 20 43 4c 43 4e 3b |);....go|to CLCN;|
|00002a30| 0a 09 09 09 7d 0a 09 09 | 7d 0a 43 4c 43 4e 3a 09 |....}...|}.CLCN:.|
|00002a40| 63 6c 6f 73 65 28 66 69 | 6c 65 29 3b 0a 09 72 65 |close(fi|le);..re|
|00002a50| 74 75 72 6e 28 30 29 3b | 0a 7d 0a 53 48 41 52 5f |turn(0);|.}.SHAR_|
|00002a60| 45 4f 46 0a 66 69 0a 65 | 63 68 6f 20 73 68 61 72 |EOF.fi.e|cho shar|
|00002a70| 3a 20 22 65 78 74 72 61 | 63 74 69 6e 67 20 27 72 |: "extra|cting 'r|
|00002a80| 6e 65 77 73 2e 63 27 22 | 20 27 28 34 31 32 35 20 |news.c'"| '(4125 |
|00002a90| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 69 66 20 |characte|rs)'.if |
|00002aa0| 74 65 73 74 20 2d 66 20 | 27 72 6e 65 77 73 2e 63 |test -f |'rnews.c|
|00002ab0| 27 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |'.then..|echo sha|
|00002ac0| 72 3a 20 22 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |r: "will| not ove|
|00002ad0| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|00002ae0| 20 66 69 6c 65 20 27 72 | 6e 65 77 73 2e 63 27 22 | file 'r|news.c'"|
|00002af0| 0a 65 6c 73 65 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |.else.ca|t << \SH|
|00002b00| 41 52 5f 45 4f 46 20 3e | 20 27 72 6e 65 77 73 2e |AR_EOF >| 'rnews.|
|00002b10| 63 27 0a 2f 2a 20 43 69 | 74 61 64 65 6c 2f 55 58 |c'./* Ci|tadel/UX|
|00002b20| 20 72 6e 65 77 73 0a 20 | 2a 20 76 65 72 73 69 6f | rnews. |* versio|
|00002b30| 6e 20 31 2e 30 32 0a 20 | 2a 0a 20 2a 20 54 68 69 |n 1.02. |*. * Thi|
|00002b40| 73 20 70 72 6f 67 72 61 | 6d 20 66 75 6e 63 74 69 |s progra|m functi|
|00002b50| 6f 6e 73 20 74 68 65 20 | 73 61 6d 65 20 61 73 20 |ons the |same as |
|00002b60| 74 68 65 20 73 74 61 6e | 64 61 72 64 20 72 6e 65 |the stan|dard rne|
|00002b70| 77 73 20 70 72 6f 67 72 | 61 6d 20 66 6f 72 0a 20 |ws progr|am for. |
|00002b80| 2a 20 55 73 65 4e 65 74 | 2e 20 49 74 20 61 63 63 |* UseNet|. It acc|
|00002b90| 65 70 74 73 20 73 74 61 | 6e 64 61 72 64 20 69 6e |epts sta|ndard in|
|00002ba0| 70 75 74 2c 20 61 6e 64 | 20 6c 6f 6f 6b 73 20 66 |put, and| looks f|
|00002bb0| 6f 72 20 72 6f 6f 6d 73 | 20 74 6f 20 70 6f 73 74 |or rooms| to post|
|00002bc0| 20 6d 65 73 73 61 67 65 | 73 0a 20 2a 20 69 6e 20 | message|s. * in |
|00002bd0| 74 68 61 74 20 6d 61 74 | 63 68 20 74 68 65 20 6e |that mat|ch the n|
|00002be0| 61 6d 65 73 20 6f 66 20 | 74 68 65 20 6e 65 77 73 |ames of |the news|
|00002bf0| 67 72 6f 75 70 73 2e 20 | 6e 65 74 77 6f 72 6b 2f |groups. |network/|
|00002c00| 72 6e 65 77 73 2e 78 72 | 65 66 20 69 73 20 63 68 |rnews.xr|ef is ch|
|00002c10| 65 63 6b 65 64 0a 20 2a | 20 69 6e 20 63 61 73 65 |ecked. *| in case|
|00002c20| 20 74 68 65 20 73 79 73 | 6f 70 20 77 61 6e 74 73 | the sys|op wants|
|00002c30| 20 74 6f 20 63 72 6f 73 | 73 2d 72 65 66 65 72 65 | to cros|s-refere|
|00002c40| 6e 63 65 20 72 6f 6f 6d | 20 6e 61 6d 65 73 20 74 |nce room| names t|
|00002c50| 6f 20 6e 65 77 73 67 72 | 6f 75 70 20 6e 61 6d 65 |o newsgr|oup name|
|00002c60| 73 2e 0a 20 2a 20 20 20 | 54 68 65 20 6e 65 74 70 |s.. *   |The netp|
|00002c70| 72 6f 63 20 70 72 6f 67 | 72 61 6d 20 69 73 20 72 |roc prog|ram is r|
|00002c80| 65 71 75 69 72 65 64 20 | 66 6f 72 20 66 69 6e 61 |equired |for fina|
|00002c90| 6c 20 70 72 6f 63 65 73 | 73 69 6e 67 2e 0a 20 2a |l proces|sing.. *|
|00002ca0| 20 0a 20 2a 20 75 73 61 | 67 65 3a 0a 20 2a 20 20 | . * usa|ge:. *  |
|00002cb0| 20 20 20 20 20 20 20 20 | 72 6e 65 77 73 20 20 20 |        |rnews   |
|00002cc0| 20 20 20 20 20 3c 73 74 | 64 69 6e 20 69 73 20 74 |     <st|din is t|
|00002cd0| 72 61 6e 73 6c 61 74 65 | 64 20 74 6f 20 43 69 74 |ranslate|d to Cit|
|00002ce0| 2f 55 58 20 66 6f 72 6d | 61 74 20 61 6e 64 20 70 |/UX form|at and p|
|00002cf0| 6f 73 74 65 64 3e 0a 20 | 2a 20 20 20 20 20 20 20 |osted>. |*       |
|00002d00| 20 20 20 72 6e 65 77 73 | 20 2d 63 20 20 20 20 20 |   rnews| -c     |
|00002d10| 3c 61 73 73 75 6d 65 73 | 20 73 74 64 69 6e 20 69 |<assumes| stdin i|
|00002d20| 73 20 61 6c 72 65 61 64 | 79 20 69 6e 20 43 69 74 |s alread|y in Cit|
|00002d30| 2f 55 58 20 66 6f 72 6d | 61 74 20 61 6e 64 20 70 |/UX form|at and p|
|00002d40| 6f 73 74 73 3e 0a 20 2a | 2f 0a 0a 23 69 6e 63 6c |osts>. *|/..#incl|
|00002d50| 75 64 65 20 3c 66 63 6e | 74 6c 2e 68 3e 0a 23 69 |ude <fcn|tl.h>.#i|
|00002d60| 6e 63 6c 75 64 65 20 3c | 73 74 64 69 6f 2e 68 3e |nclude <|stdio.h>|
|00002d70| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 63 74 79 70 65 |.#includ|e <ctype|
|00002d80| 2e 68 3e 0a 23 69 6e 63 | 6c 75 64 65 20 3c 74 69 |.h>.#inc|lude <ti|
|00002d90| 6d 65 2e 68 3e 0a 23 69 | 6e 63 6c 75 64 65 20 22 |me.h>.#i|nclude "|
|00002da0| 63 69 74 61 64 65 6c 2e | 68 22 0a 0a 6c 6f 6e 67 |citadel.|h"..long|
|00002db0| 20 6c 73 65 65 6b 28 29 | 3b 0a 6c 6f 6e 67 20 61 | lseek()|;.long a|
|00002dc0| 74 6f 6c 28 29 3b 0a 0a | 6d 61 69 6e 28 61 72 67 |tol();..|main(arg|
|00002dd0| 63 2c 61 72 67 76 29 0a | 69 6e 74 20 61 72 67 63 |c,argv).|int argc|
|00002de0| 3b 0a 63 68 61 72 20 2a | 61 72 67 76 5b 5d 3b 20 |;.char *|argv[]; |
|00002df0| 7b 0a 09 63 68 61 72 20 | 61 61 61 5b 31 30 30 5d |{..char |aaa[100]|
|00002e00| 2c 62 62 62 5b 31 30 30 | 5d 2c 63 63 63 5b 31 30 |,bbb[100|],ccc[10|
|00002e10| 30 5d 3b 0a 09 63 68 61 | 72 20 61 75 74 68 6f 72 |0];..cha|r author|
|00002e20| 5b 35 30 5d 2c 72 65 63 | 69 70 69 65 6e 74 5b 35 |[50],rec|ipient[5|
|00002e30| 30 5d 2c 72 6f 6f 6d 5b | 35 30 5d 2c 6e 6f 64 65 |0],room[|50],node|
|00002e40| 5b 35 30 5d 2c 70 61 74 | 68 5b 33 30 30 5d 3b 0a |[50],pat|h[300];.|
|00002e50| 09 6c 6f 6e 67 20 6d 69 | 64 2c 6e 6f 77 2c 62 63 |.long mi|d,now,bc|
|00002e60| 6f 75 6e 74 2c 61 61 3b | 0a 09 69 6e 74 20 61 3b |ount,aa;|..int a;|
|00002e70| 0a 09 63 68 61 72 20 66 | 6c 6e 6d 5b 31 30 30 5d |..char f|lnm[100]|
|00002e80| 2c 74 6e 61 6d 65 5b 31 | 30 30 5d 3b 0a 09 46 49 |,tname[1|00];..FI|
|00002e90| 4c 45 20 2a 6d 6f 75 74 | 2c 2a 6d 74 65 6d 70 3b |LE *mout|,*mtemp;|
|00002ea0| 0a 0a 09 63 68 64 69 72 | 28 42 42 53 44 49 52 29 |...chdir|(BBSDIR)|
|00002eb0| 3b 0a 09 73 70 72 69 6e | 74 66 28 66 6c 6e 6d 2c |;..sprin|tf(flnm,|
|00002ec0| 22 2e 2f 6e 65 74 77 6f | 72 6b 2f 73 70 6f 6f 6c |"./netwo|rk/spool|
|00002ed0| 69 6e 2f 72 6e 65 77 73 | 2e 25 64 22 2c 67 65 74 |in/rnews|.%d",get|
|00002ee0| 70 69 64 28 29 29 3b 0a | 09 73 70 72 69 6e 74 66 |pid());.|.sprintf|
|00002ef0| 28 74 6e 61 6d 65 2c 22 | 2f 74 6d 70 2f 72 6e 65 |(tname,"|/tmp/rne|
|00002f00| 77 73 2e 25 64 22 2c 67 | 65 74 70 69 64 28 29 29 |ws.%d",g|etpid())|
|00002f10| 3b 0a 0a 09 6d 6f 75 74 | 3d 66 6f 70 65 6e 28 66 |;...mout|=fopen(f|
|00002f20| 6c 6e 6d 2c 22 77 22 29 | 3b 0a 09 69 66 20 28 28 |lnm,"w")|;..if ((|
|00002f30| 61 72 67 63 3d 3d 32 29 | 26 26 28 21 73 74 72 63 |argc==2)|&&(!strc|
|00002f40| 6d 70 28 61 72 67 76 5b | 31 5d 2c 22 2d 63 22 29 |mp(argv[|1],"-c")|
|00002f50| 29 29 20 7b 0a 09 09 77 | 68 69 6c 65 20 28 28 61 |)) {...w|hile ((a|
|00002f60| 3d 67 65 74 63 28 73 74 | 64 69 6e 29 29 3e 3d 30 |=getc(st|din))>=0|
|00002f70| 29 20 70 75 74 63 28 61 | 2c 6d 6f 75 74 29 3b 0a |) putc(a|,mout);.|
|00002f80| 09 09 67 6f 74 6f 20 45 | 4e 44 3b 0a 09 09 7d 0a |..goto E|ND;...}.|
|00002f90| 41 3a 09 61 3d 67 65 74 | 6c 69 6e 65 28 61 61 61 |A:.a=get|line(aaa|
|00002fa0| 2c 73 74 64 69 6e 29 3b | 0a 09 69 66 20 28 61 3c |,stdin);|..if (a<|
|00002fb0| 30 29 20 67 6f 74 6f 20 | 45 4e 44 3b 0a 09 69 66 |0) goto |END;..if|
|00002fc0| 20 28 73 74 72 6e 63 6d | 70 28 61 61 61 2c 22 23 | (strncm|p(aaa,"#|
|00002fd0| 21 20 72 6e 65 77 73 20 | 22 2c 39 29 29 20 67 6f |! rnews |",9)) go|
|00002fe0| 74 6f 20 41 3b 0a 09 62 | 63 6f 75 6e 74 3d 61 74 |to A;..b|count=at|
|00002ff0| 6f 6c 28 26 61 61 61 5b | 39 5d 29 3b 0a 09 6d 74 |ol(&aaa[|9]);..mt|
|00003000| 65 6d 70 3d 66 6f 70 65 | 6e 28 74 6e 61 6d 65 2c |emp=fope|n(tname,|
|00003010| 22 77 22 29 3b 0a 09 66 | 6f 72 20 28 61 61 3d 30 |"w");..f|or (aa=0|
|00003020| 4c 3b 20 61 61 3c 62 63 | 6f 75 6e 74 3b 20 2b 2b |L; aa<bc|ount; ++|
|00003030| 61 61 29 20 7b 0a 09 09 | 61 3d 67 65 74 63 28 73 |aa) {...|a=getc(s|
|00003040| 74 64 69 6e 29 3b 0a 09 | 09 69 66 20 28 61 3c 30 |tdin);..|.if (a<0|
|00003050| 29 20 67 6f 74 6f 20 4e | 4d 41 3b 0a 09 09 69 66 |) goto N|MA;...if|
|00003060| 20 28 61 3e 3d 30 29 20 | 70 75 74 63 28 61 2c 6d | (a>=0) |putc(a,m|
|00003070| 74 65 6d 70 29 3b 0a 09 | 09 7d 0a 4e 4d 41 3a 09 |temp);..|.}.NMA:.|
|00003080| 66 63 6c 6f 73 65 28 6d | 74 65 6d 70 29 3b 0a 09 |fclose(m|temp);..|
|00003090| 69 66 20 28 61 3c 30 29 | 20 67 6f 74 6f 20 45 4e |if (a<0)| goto EN|
|000030a0| 44 3b 0a 0a 09 6d 74 65 | 6d 70 3d 66 6f 70 65 6e |D;...mte|mp=fopen|
|000030b0| 28 74 6e 61 6d 65 2c 22 | 72 22 29 3b 0a 09 73 74 |(tname,"|r");..st|
|000030c0| 72 63 70 79 28 61 75 74 | 68 6f 72 2c 22 22 29 3b |rcpy(aut|hor,"");|
|000030d0| 0a 09 73 74 72 63 70 79 | 28 72 65 63 69 70 69 65 |..strcpy|(recipie|
|000030e0| 6e 74 2c 22 22 29 3b 0a | 09 73 74 72 63 70 79 28 |nt,"");.|.strcpy(|
|000030f0| 72 6f 6f 6d 2c 22 22 29 | 3b 0a 09 73 74 72 63 70 |room,"")|;..strcp|
|00003100| 79 28 6e 6f 64 65 2c 22 | 22 29 3b 0a 09 73 74 72 |y(node,"|");..str|
|00003110| 63 70 79 28 70 61 74 68 | 2c 22 22 29 3b 0a 0a 42 |cpy(path|,"");..B|
|00003120| 3a 09 61 3d 67 65 74 6c | 69 6e 65 28 61 61 61 2c |:.a=getl|ine(aaa,|
|00003130| 6d 74 65 6d 70 29 3b 0a | 09 69 66 20 28 61 3d 3d |mtemp);.|.if (a==|
|00003140| 30 29 20 67 6f 74 6f 20 | 43 3b 0a 09 69 66 20 28 |0) goto |C;..if (|
|00003150| 61 3c 30 29 20 67 6f 74 | 6f 20 41 42 4f 52 54 3b |a<0) got|o ABORT;|
|00003160| 0a 0a 09 69 66 20 28 21 | 73 74 72 6e 63 6d 70 28 |...if (!|strncmp(|
|00003170| 61 61 61 2c 22 46 72 6f | 6d 3a 20 22 2c 35 29 29 |aaa,"Fro|m: ",5))|
|00003180| 20 7b 0a 09 09 77 68 69 | 6c 65 28 28 61 61 61 5b | {...whi|le((aaa[|
|00003190| 30 5d 21 3d 27 28 27 29 | 26 26 28 61 61 61 5b 30 |0]!='(')|&&(aaa[0|
|000031a0| 5d 21 3d 30 29 29 20 7b | 0a 09 09 09 73 74 72 63 |]!=0)) {|....strc|
|000031b0| 70 79 28 26 61 61 61 5b | 30 5d 2c 26 61 61 61 5b |py(&aaa[|0],&aaa[|
|000031c0| 31 5d 29 3b 0a 09 09 09 | 7d 0a 09 09 73 74 72 63 |1]);....|}...strc|
|000031d0| 70 79 28 26 61 61 61 5b | 30 5d 2c 26 61 61 61 5b |py(&aaa[|0],&aaa[|
|000031e0| 31 5d 29 3b 0a 09 09 66 | 6f 72 20 28 61 3d 30 3b |1]);...f|or (a=0;|
|000031f0| 20 61 3c 73 74 72 6c 65 | 6e 28 61 61 61 29 3b 20 | a<strle|n(aaa); |
|00003200| 2b 2b 61 29 20 69 66 20 | 28 61 61 61 5b 61 5d 3d |++a) if |(aaa[a]=|
|00003210| 3d 27 29 27 29 20 61 61 | 61 5b 61 5d 3d 30 3b 0a |=')') aa|a[a]=0;.|
|00003220| 09 09 73 74 72 63 70 79 | 28 61 75 74 68 6f 72 2c |..strcpy|(author,|
|00003230| 61 61 61 29 3b 0a 09 09 | 67 6f 74 6f 20 42 3b 0a |aaa);...|goto B;.|
|00003240| 09 09 7d 0a 0a 09 69 66 | 20 28 21 73 74 72 6e 63 |..}...if| (!strnc|
|00003250| 6d 70 28 61 61 61 2c 22 | 50 61 74 68 3a 20 22 2c |mp(aaa,"|Path: ",|
|00003260| 35 29 29 20 73 74 72 63 | 70 79 28 70 61 74 68 2c |5)) strc|py(path,|
|00003270| 26 61 61 61 5b 36 5d 29 | 3b 0a 0a 09 69 66 20 28 |&aaa[6])|;...if (|
|00003280| 21 73 74 72 6e 63 6d 70 | 28 61 61 61 2c 22 4e 65 |!strncmp|(aaa,"Ne|
|00003290| 77 73 67 72 6f 75 70 73 | 3a 20 22 2c 31 31 29 29 |wsgroups|: ",11))|
|000032a0| 20 7b 0a 09 09 73 74 72 | 63 70 79 28 72 6f 6f 6d | {...str|cpy(room|
|000032b0| 2c 26 61 61 61 5b 31 32 | 5d 29 3b 0a 09 09 66 6f |,&aaa[12|]);...fo|
|000032c0| 72 20 28 61 3d 30 3b 20 | 61 3c 73 74 72 6c 65 6e |r (a=0; |a<strlen|
|000032d0| 28 61 61 61 29 3b 20 2b | 2b 61 29 20 69 66 20 28 |(aaa); +|+a) if (|
|000032e0| 61 61 61 5b 61 5d 3d 3d | 27 2c 27 29 20 61 61 61 |aaa[a]==|',') aaa|
|000032f0| 5b 61 5d 3d 30 3b 0a 09 | 09 67 6f 74 6f 20 42 3b |[a]=0;..|.goto B;|
|00003300| 0a 09 09 7d 0a 0a 09 69 | 66 20 28 21 73 74 72 6e |...}...i|f (!strn|
|00003310| 63 6d 70 28 61 61 61 2c | 22 4d 65 73 73 61 67 65 |cmp(aaa,|"Message|
|00003320| 2d 49 44 3a 20 22 2c 31 | 31 29 29 20 7b 0a 09 09 |-ID: ",1|1)) {...|
|00003330| 73 74 72 63 70 79 28 62 | 62 62 2c 26 61 61 61 5b |strcpy(b|bb,&aaa[|
|00003340| 31 33 5d 29 3b 0a 09 09 | 66 6f 72 20 28 61 3d 30 |13]);...|for (a=0|
|00003350| 3b 20 61 3c 73 74 72 6c | 65 6e 28 62 62 62 29 3b |; a<strl|en(bbb);|
|00003360| 20 2b 2b 61 29 20 69 66 | 20 28 62 62 62 5b 61 5d | ++a) if| (bbb[a]|
|00003370| 3d 3d 27 40 27 29 20 62 | 62 62 5b 61 5d 3d 30 3b |=='@') b|bb[a]=0;|
|00003380| 0a 09 09 6d 69 64 3d 61 | 74 6f 6c 28 62 62 62 29 |...mid=a|tol(bbb)|
|00003390| 3b 0a 09 09 77 68 69 6c | 65 28 28 61 61 61 5b 30 |;...whil|e((aaa[0|
|000033a0| 5d 21 3d 27 40 27 29 26 | 26 28 61 61 61 5b 30 5d |]!='@')&|&(aaa[0]|
|000033b0| 21 3d 30 29 29 20 7b 0a | 09 09 09 73 74 72 63 70 |!=0)) {.|...strcp|
|000033c0| 79 28 26 61 61 61 5b 30 | 5d 2c 26 61 61 61 5b 31 |y(&aaa[0|],&aaa[1|
|000033d0| 5d 29 3b 0a 09 09 09 7d | 0a 09 09 73 74 72 63 70 |]);....}|...strcp|
|000033e0| 79 28 26 61 61 61 5b 30 | 5d 2c 26 61 61 61 5b 31 |y(&aaa[0|],&aaa[1|
|000033f0| 5d 29 3b 0a 66 6f 72 20 | 28 61 3d 30 3b 20 61 3c |]);.for |(a=0; a<|
|00003400| 73 74 72 6c 65 6e 28 61 | 61 61 29 3b 20 2b 2b 61 |strlen(a|aa); ++a|
|00003410| 29 20 69 66 20 28 28 61 | 61 61 5b 61 5d 3d 3d 27 |) if ((a|aa[a]=='|
|00003420| 2e 27 29 7c 7c 28 61 61 | 61 5b 61 5d 3d 3d 27 3e |.')||(aa|a[a]=='>|
|00003430| 27 29 29 20 61 61 61 5b | 61 5d 3d 30 3b 0a 09 09 |')) aaa[|a]=0;...|
|00003440| 73 74 72 63 70 79 28 6e | 6f 64 65 2c 61 61 61 29 |strcpy(n|ode,aaa)|
|00003450| 3b 0a 09 09 67 6f 74 6f | 20 42 3b 0a 09 09 7d 0a |;...goto| B;...}.|
|00003460| 09 09 67 6f 74 6f 20 42 | 3b 0a 0a 43 3a 09 69 66 |..goto B|;..C:.if|
|00003470| 20 28 28 61 75 74 68 6f | 72 5b 30 5d 3d 3d 30 29 | ((autho|r[0]==0)|
|00003480| 7c 7c 28 72 6f 6f 6d 5b | 30 5d 3d 3d 30 29 7c 7c |||(room[|0]==0)|||
|00003490| 28 6e 6f 64 65 5b 30 5d | 3d 3d 30 29 29 20 67 6f |(node[0]|==0)) go|
|000034a0| 74 6f 20 41 42 4f 52 54 | 3b 0a 09 70 75 74 63 28 |to ABORT|;..putc(|
|000034b0| 32 35 35 2c 6d 6f 75 74 | 29 3b 09 09 09 2f 2a 20 |255,mout|);.../* |
|000034c0| 73 74 61 72 74 20 6f 66 | 20 6d 65 73 73 61 67 65 |start of| message|
|000034d0| 20 2a 2f 0a 09 70 75 74 | 63 28 4d 45 53 5f 4e 4f | */..put|c(MES_NO|
|000034e0| 52 4d 41 4c 2c 6d 6f 75 | 74 29 3b 09 09 2f 2a 20 |RMAL,mou|t);../* |
|000034f0| 6e 6f 74 20 61 6e 6f 6e | 79 6d 6f 75 73 20 2a 2f |not anon|ymous */|
|00003500| 0a 09 70 75 74 63 28 31 | 2c 6d 6f 75 74 29 3b 09 |..putc(1|,mout);.|
|00003510| 09 09 2f 2a 20 6e 6f 74 | 20 66 6f 72 6d 61 74 74 |../* not| formatt|
|00003520| 65 64 20 2a 2f 0a 09 74 | 69 6d 65 28 26 6e 6f 77 |ed */..t|ime(&now|
|00003530| 29 3b 0a 0a 09 66 70 72 | 69 6e 74 66 28 6d 6f 75 |);...fpr|intf(mou|
|00003540| 74 2c 22 49 25 6c 64 22 | 2c 6d 69 64 29 3b 20 70 |t,"I%ld"|,mid); p|
|00003550| 75 74 63 28 30 2c 6d 6f | 75 74 29 3b 0a 09 66 70 |utc(0,mo|ut);..fp|
|00003560| 72 69 6e 74 66 28 6d 6f | 75 74 2c 22 50 25 73 22 |rintf(mo|ut,"P%s"|
|00003570| 2c 70 61 74 68 29 3b 20 | 70 75 74 63 28 30 2c 6d |,path); |putc(0,m|
|00003580| 6f 75 74 29 3b 0a 09 66 | 70 72 69 6e 74 66 28 6d |out);..f|printf(m|
|00003590| 6f 75 74 2c 22 54 25 6c | 64 22 2c 6e 6f 77 29 3b |out,"T%l|d",now);|
|000035a0| 20 70 75 74 63 28 30 2c | 6d 6f 75 74 29 3b 0a 09 | putc(0,|mout);..|
|000035b0| 66 70 72 69 6e 74 66 28 | 6d 6f 75 74 2c 22 41 25 |fprintf(|mout,"A%|
|000035c0| 73 22 2c 61 75 74 68 6f | 72 29 3b 20 70 75 74 63 |s",autho|r); putc|
|000035d0| 28 30 2c 6d 6f 75 74 29 | 3b 0a 09 73 74 72 63 70 |(0,mout)|;..strcp|
|000035e0| 79 28 63 63 63 2c 72 6f | 6f 6d 29 3b 0a 09 67 65 |y(ccc,ro|om);..ge|
|000035f0| 74 72 6f 6f 6d 28 72 6f | 6f 6d 2c 63 63 63 29 3b |troom(ro|om,ccc);|
|00003600| 0a 09 66 70 72 69 6e 74 | 66 28 6d 6f 75 74 2c 22 |..fprint|f(mout,"|
|00003610| 4f 25 73 22 2c 72 6f 6f | 6d 29 3b 20 70 75 74 63 |O%s",roo|m); putc|
|00003620| 28 30 2c 6d 6f 75 74 29 | 3b 0a 09 66 70 72 69 6e |(0,mout)|;..fprin|
|00003630| 74 66 28 6d 6f 75 74 2c | 22 4e 25 73 22 2c 6e 6f |tf(mout,|"N%s",no|
|00003640| 64 65 29 3b 20 70 75 74 | 63 28 30 2c 6d 6f 75 74 |de); put|c(0,mout|
|00003650| 29 3b 0a 09 66 70 72 69 | 6e 74 66 28 6d 6f 75 74 |);..fpri|ntf(mout|
|00003660| 2c 22 4d 22 29 3b 0a 09 | 61 3d 30 3b 0a 09 61 61 |,"M");..|a=0;..aa|
|00003670| 61 5b 30 5d 3d 30 3b 0a | 0a 44 3a 09 64 6f 20 7b |a[0]=0;.|.D:.do {|
|00003680| 0a 09 09 61 3d 67 65 74 | 63 28 6d 74 65 6d 70 29 |...a=get|c(mtemp)|
|00003690| 3b 0a 09 09 69 66 20 28 | 61 3e 30 29 20 70 75 74 |;...if (|a>0) put|
|000036a0| 63 28 61 2c 6d 6f 75 74 | 29 3b 0a 09 09 7d 20 77 |c(a,mout|);...} w|
|000036b0| 68 69 6c 65 20 28 61 3e | 30 29 3b 0a 09 70 75 74 |hile (a>|0);..put|
|000036c0| 63 28 30 2c 6d 6f 75 74 | 29 3b 0a 41 42 4f 52 54 |c(0,mout|);.ABORT|
|000036d0| 3a 09 70 63 6c 6f 73 65 | 28 6d 74 65 6d 70 29 3b |:.pclose|(mtemp);|
|000036e0| 0a 09 75 6e 6c 69 6e 6b | 28 74 6e 61 6d 65 29 3b |..unlink|(tname);|
|000036f0| 0a 09 67 6f 74 6f 20 41 | 3b 0a 0a 45 4e 44 3a 09 |..goto A|;..END:.|
|00003700| 70 75 74 63 28 30 2c 6d | 6f 75 74 29 3b 0a 09 66 |putc(0,m|out);..f|
|00003710| 63 6c 6f 73 65 28 6d 6f | 75 74 29 3b 0a 09 75 6e |close(mo|ut);..un|
|00003720| 6c 69 6e 6b 28 74 6e 61 | 6d 65 29 3b 0a 09 65 78 |link(tna|me);..ex|
|00003730| 65 63 6c 70 28 22 6e 65 | 74 70 72 6f 63 22 2c 22 |eclp("ne|tproc","|
|00003740| 6e 65 74 70 72 6f 63 22 | 2c 4e 55 4c 4c 29 3b 0a |netproc"|,NULL);.|
|00003750| 09 65 78 69 74 28 30 29 | 3b 0a 7d 0a 0a 73 74 72 |.exit(0)|;.}..str|
|00003760| 75 63 6d 70 28 73 74 31 | 2c 73 74 32 29 0a 63 68 |ucmp(st1|,st2).ch|
|00003770| 61 72 20 73 74 31 5b 5d | 3b 0a 63 68 61 72 20 73 |ar st1[]|;.char s|
|00003780| 74 32 5b 5d 3b 20 7b 0a | 09 69 6e 74 20 61 3b 0a |t2[]; {.|.int a;.|
|00003790| 09 63 68 61 72 20 61 61 | 61 5b 31 30 30 5d 2c 62 |.char aa|a[100],b|
|000037a0| 62 62 5b 31 30 30 5d 3b | 0a 09 66 6f 72 20 28 61 |bb[100];|..for (a|
|000037b0| 3d 30 3b 20 61 3c 3d 73 | 74 72 6c 65 6e 28 73 74 |=0; a<=s|trlen(st|
|000037c0| 31 29 3b 20 2b 2b 61 29 | 20 61 61 61 5b 61 5d 3d |1); ++a)| aaa[a]=|
|000037d0| 74 6f 6c 6f 77 65 72 28 | 73 74 31 5b 61 5d 29 3b |tolower(|st1[a]);|
|000037e0| 0a 09 66 6f 72 20 28 61 | 3d 30 3b 20 61 3c 3d 73 |..for (a|=0; a<=s|
|000037f0| 74 72 6c 65 6e 28 73 74 | 32 29 3b 20 2b 2b 61 29 |trlen(st|2); ++a)|
|00003800| 20 62 62 62 5b 61 5d 3d | 74 6f 6c 6f 77 65 72 28 | bbb[a]=|tolower(|
|00003810| 73 74 32 5b 61 5d 29 3b | 0a 09 61 3d 73 74 72 63 |st2[a]);|..a=strc|
|00003820| 6d 70 28 61 61 61 2c 62 | 62 62 29 3b 0a 09 72 65 |mp(aaa,b|bb);..re|
|00003830| 74 75 72 6e 28 61 29 3b | 0a 09 7d 0a 0a 67 65 74 |turn(a);|..}..get|
|00003840| 72 6f 6f 6d 28 72 6f 6f | 6d 2c 6e 67 72 6f 75 70 |room(roo|m,ngroup|
|00003850| 29 09 09 2f 2a 20 78 72 | 65 66 20 74 61 62 6c 65 |)../* xr|ef table|
|00003860| 20 2a 2f 0a 63 68 61 72 | 20 72 6f 6f 6d 5b 5d 3b | */.char| room[];|
|00003870| 20 0a 63 68 61 72 20 6e | 67 72 6f 75 70 5b 5d 3b | .char n|group[];|
|00003880| 20 7b 0a 09 46 49 4c 45 | 20 2a 66 70 3b 0a 09 69 | {..FILE| *fp;..i|
|00003890| 6e 74 20 61 2c 62 3b 0a | 09 63 68 61 72 20 61 61 |nt a,b;.|.char aa|
|000038a0| 61 5b 35 30 5d 2c 62 62 | 62 5b 35 30 5d 3b 0a 09 |a[50],bb|b[50];..|
|000038b0| 0a 09 73 74 72 63 70 79 | 28 72 6f 6f 6d 2c 6e 67 |..strcpy|(room,ng|
|000038c0| 72 6f 75 70 29 3b 0a 09 | 66 70 3d 66 6f 70 65 6e |roup);..|fp=fopen|
|000038d0| 28 22 6e 65 74 77 6f 72 | 6b 2f 72 6e 65 77 73 2e |("networ|k/rnews.|
|000038e0| 78 72 65 66 22 2c 22 72 | 22 29 3b 0a 47 4e 41 3a |xref","r|");.GNA:|
|000038f0| 09 73 74 72 63 70 79 28 | 61 61 61 2c 22 22 29 3b |.strcpy(|aaa,"");|
|00003900| 20 73 74 72 63 70 79 28 | 62 62 62 2c 22 22 29 3b | strcpy(|bbb,"");|
|00003910| 0a 09 64 6f 20 7b 0a 09 | 09 61 3d 67 65 74 63 28 |..do {..|.a=getc(|
|00003920| 66 70 29 3b 0a 09 09 69 | 66 20 28 61 3d 3d 27 2c |fp);...i|f (a==',|
|00003930| 27 29 20 61 3d 30 3b 0a | 09 09 69 66 20 28 61 3e |') a=0;.|..if (a>|
|00003940| 30 29 20 7b 20 62 3d 73 | 74 72 6c 65 6e 28 61 61 |0) { b=s|trlen(aa|
|00003950| 61 29 3b 20 61 61 61 5b | 62 5d 3d 61 3b 20 61 61 |a); aaa[|b]=a; aa|
|00003960| 61 5b 62 2b 31 5d 3d 30 | 3b 20 7d 0a 09 09 7d 20 |a[b+1]=0|; }...} |
|00003970| 77 68 69 6c 65 28 61 3e | 30 29 3b 0a 09 64 6f 20 |while(a>|0);..do |
|00003980| 7b 0a 09 09 61 3d 67 65 | 74 63 28 66 70 29 3b 0a |{...a=ge|tc(fp);.|
|00003990| 09 09 69 66 20 28 61 3d | 3d 31 30 29 20 61 3d 30 |..if (a=|=10) a=0|
|000039a0| 3b 0a 09 09 69 66 20 28 | 61 3e 30 29 20 7b 20 62 |;...if (|a>0) { b|
|000039b0| 3d 73 74 72 6c 65 6e 28 | 62 62 62 29 3b 20 62 62 |=strlen(|bbb); bb|
|000039c0| 62 5b 62 5d 3d 61 3b 20 | 62 62 62 5b 62 2b 31 5d |b[b]=a; |bbb[b+1]|
|000039d0| 3d 30 3b 20 7d 0a 09 09 | 7d 20 77 68 69 6c 65 28 |=0; }...|} while(|
|000039e0| 61 3e 30 29 3b 0a 09 69 | 66 20 28 61 3c 30 29 20 |a>0);..i|f (a<0) |
|000039f0| 7b 0a 09 09 66 63 6c 6f | 73 65 28 66 70 29 3b 0a |{...fclo|se(fp);.|
|00003a00| 09 09 72 65 74 75 72 6e | 28 31 29 3b 0a 09 09 7d |..return|(1);...}|
|00003a10| 0a 09 69 66 20 28 73 74 | 72 75 63 6d 70 28 6e 67 |..if (st|rucmp(ng|
|00003a20| 72 6f 75 70 2c 61 61 61 | 29 29 20 67 6f 74 6f 20 |roup,aaa|)) goto |
|00003a30| 47 4e 41 3b 0a 09 66 63 | 6c 6f 73 65 28 66 70 29 |GNA;..fc|lose(fp)|
|00003a40| 3b 0a 09 73 74 72 63 70 | 79 28 72 6f 6f 6d 2c 62 |;..strcp|y(room,b|
|00003a50| 62 62 29 3b 0a 09 72 65 | 74 75 72 6e 28 30 29 3b |bb);..re|turn(0);|
|00003a60| 0a 7d 0a 0a 67 65 74 6c | 69 6e 65 28 73 74 72 2c |.}..getl|ine(str,|
|00003a70| 66 70 29 0a 63 68 61 72 | 20 73 74 72 5b 5d 3b 0a |fp).char| str[];.|
|00003a80| 46 49 4c 45 20 2a 66 70 | 3b 20 7b 0a 09 69 6e 74 |FILE *fp|; {..int|
|00003a90| 20 61 2c 62 3b 0a 0a 09 | 61 3d 30 3b 0a 09 73 74 | a,b;...|a=0;..st|
|00003aa0| 72 5b 30 5d 3d 30 3b 0a | 09 64 6f 20 7b 0a 09 09 |r[0]=0;.|.do {...|
|00003ab0| 61 3d 67 65 74 63 28 66 | 70 29 3b 0a 09 09 69 66 |a=getc(f|p);...if|
|00003ac0| 20 28 61 3e 31 30 29 20 | 7b 20 62 3d 73 74 72 6c | (a>10) |{ b=strl|
|00003ad0| 65 6e 28 73 74 72 29 3b | 20 73 74 72 5b 62 5d 3d |en(str);| str[b]=|
|00003ae0| 61 3b 20 73 74 72 5b 62 | 2b 31 5d 3d 30 3b 20 7d |a; str[b|+1]=0; }|
|00003af0| 0a 09 09 7d 20 77 68 69 | 6c 65 28 61 3e 31 30 29 |...} whi|le(a>10)|
|00003b00| 3b 0a 09 69 66 20 28 61 | 3c 30 29 20 72 65 74 75 |;..if (a|<0) retu|
|00003b10| 72 6e 28 61 29 3b 0a 09 | 72 65 74 75 72 6e 28 73 |rn(a);..|return(s|
|00003b20| 74 72 6c 65 6e 28 73 74 | 72 29 29 3b 0a 09 7d 0a |trlen(st|r));..}.|
|00003b30| 53 48 41 52 5f 45 4f 46 | 0a 66 69 0a 65 63 68 6f |SHAR_EOF|.fi.echo|
|00003b40| 20 73 68 61 72 3a 20 22 | 65 78 74 72 61 63 74 69 | shar: "|extracti|
|00003b50| 6e 67 20 27 72 6f 6f 6d | 73 2e 63 27 22 20 27 28 |ng 'room|s.c'" '(|
|00003b60| 31 35 37 33 34 20 63 68 | 61 72 61 63 74 65 72 73 |15734 ch|aracters|
|00003b70| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 72 |)'.if te|st -f 'r|
|00003b80| 6f 6f 6d 73 2e 63 27 0a | 74 68 65 6e 0a 09 65 63 |ooms.c'.|then..ec|
|00003b90| 68 6f 20 73 68 61 72 3a | 20 22 77 69 6c 6c 20 6e |ho shar:| "will n|
|00003ba0| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00003bb0| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 27 72 6f 6f |isting f|ile 'roo|
|00003bc0| 6d 73 2e 63 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |ms.c'".e|lse.cat |
|00003bd0| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00003be0| 72 6f 6f 6d 73 2e 63 27 | 0a 2f 2a 20 43 69 74 61 |rooms.c'|./* Cita|
|00003bf0| 64 65 6c 2f 55 58 20 72 | 6f 6f 6d 2d 6f 72 69 65 |del/UX r|oom-orie|
|00003c00| 6e 74 65 64 20 72 6f 75 | 74 69 6e 65 73 20 2a 2f |nted rou|tines */|
|00003c10| 0a 0a 23 69 6e 63 6c 75 | 64 65 20 3c 66 63 6e 74 |..#inclu|de <fcnt|
|00003c20| 6c 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 20 3c 73 |l.h>.#in|clude <s|
|00003c30| 74 64 69 6f 2e 68 3e 0a | 23 69 6e 63 6c 75 64 65 |tdio.h>.|#include|
|00003c40| 20 3c 63 74 79 70 65 2e | 68 3e 0a 23 69 6e 63 6c | <ctype.|h>.#incl|
|00003c50| 75 64 65 20 3c 74 69 6d | 65 2e 68 3e 0a 23 69 6e |ude <tim|e.h>.#in|
|00003c60| 63 6c 75 64 65 20 3c 73 | 79 73 2f 74 79 70 65 73 |clude <s|ys/types|
|00003c70| 2e 68 3e 0a 23 69 6e 63 | 6c 75 64 65 20 3c 73 79 |.h>.#inc|lude <sy|
|00003c80| 73 2f 73 74 61 74 2e 68 | 3e 0a 23 69 6e 63 6c 75 |s/stat.h|>.#inclu|
|00003c90| 64 65 20 3c 73 79 73 2f | 69 6f 63 74 6c 2e 68 3e |de <sys/|ioctl.h>|
|00003ca0| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 73 69 67 6e 61 |.#includ|e <signa|
|00003cb0| 6c 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 20 3c 70 |l.h>.#in|clude <p|
|00003cc0| 77 64 2e 68 3e 0a 23 69 | 6e 63 6c 75 64 65 20 3c |wd.h>.#i|nclude <|
|00003cd0| 73 65 74 6a 6d 70 2e 68 | 3e 0a 23 69 6e 63 6c 75 |setjmp.h|>.#inclu|
|00003ce0| 64 65 20 3c 74 65 72 6d | 69 6f 2e 68 3e 0a 23 69 |de <term|io.h>.#i|
|00003cf0| 6e 63 6c 75 64 65 20 22 | 63 69 74 61 64 65 6c 2e |nclude "|citadel.|
|00003d00| 68 22 0a 0a 23 64 65 66 | 69 6e 65 20 49 46 45 58 |h"..#def|ine IFEX|
|00003d10| 50 45 52 54 20 69 66 20 | 28 75 73 65 72 73 75 70 |PERT if |(usersup|
|00003d20| 70 2e 66 6c 61 67 73 26 | 55 53 5f 45 58 50 45 52 |p.flags&|US_EXPER|
|00003d30| 54 29 0a 23 64 65 66 69 | 6e 65 20 49 46 4e 45 58 |T).#defi|ne IFNEX|
|00003d40| 50 45 52 54 20 69 66 20 | 28 28 75 73 65 72 73 75 |PERT if |((usersu|
|00003d50| 70 70 2e 66 6c 61 67 73 | 26 55 53 5f 45 58 50 45 |pp.flags|&US_EXPE|
|00003d60| 52 54 29 3d 3d 30 29 0a | 23 64 65 66 69 6e 65 20 |RT)==0).|#define |
|00003d70| 49 46 41 49 44 45 20 69 | 66 20 28 75 73 65 72 73 |IFAIDE i|f (users|
|00003d80| 75 70 70 2e 61 78 6c 65 | 76 65 6c 3e 3d 36 29 0a |upp.axle|vel>=6).|
|00003d90| 23 64 65 66 69 6e 65 20 | 49 46 4e 41 49 44 45 20 |#define |IFNAIDE |
|00003da0| 69 66 20 28 75 73 65 72 | 73 75 70 70 2e 61 78 6c |if (user|supp.axl|
|00003db0| 65 76 65 6c 3c 36 29 0a | 0a 6c 6f 6e 67 20 61 74 |evel<6).|.long at|
|00003dc0| 6f 6c 28 29 3b 0a 6c 6f | 6e 67 20 6c 73 65 65 6b |ol();.lo|ng lseek|
|00003dd0| 28 29 3b 0a 6c 6f 6e 67 | 20 66 69 6e 64 75 73 65 |();.long| finduse|
|00003de0| 72 28 29 3b 0a 0a 65 78 | 74 65 72 6e 20 69 6e 74 |r();..ex|tern int|
|00003df0| 20 63 75 72 72 5f 72 6d | 3b 0a 65 78 74 65 72 6e | curr_rm|;.extern|
|00003e00| 20 69 6e 74 20 75 67 6e | 75 6d 3b 0a 65 78 74 65 | int ugn|um;.exte|
|00003e10| 72 6e 20 6c 6f 6e 67 20 | 75 67 6c 73 6e 3b 0a 65 |rn long |uglsn;.e|
|00003e20| 78 74 65 72 6e 20 73 74 | 72 75 63 74 20 71 75 69 |xtern st|ruct qui|
|00003e30| 63 6b 72 6f 6f 6d 20 71 | 75 69 63 6b 72 6f 6f 6d |ckroom q|uickroom|
|00003e40| 3b 0a 65 78 74 65 72 6e | 20 73 74 72 75 63 74 20 |;.extern| struct |
|00003e50| 75 73 65 72 73 75 70 70 | 20 75 73 65 72 73 75 70 |usersupp| usersup|
|00003e60| 70 3b 0a 65 78 74 65 72 | 6e 20 73 74 72 75 63 74 |p;.exter|n struct|
|00003e70| 20 66 75 6c 6c 72 6f 6f | 6d 20 66 75 6c 6c 72 6f | fullroo|m fullro|
|00003e80| 6f 6d 3b 0a 0a 6b 6e 72 | 6f 6f 6d 73 28 55 53 67 |om;..knr|ooms(USg|
|00003e90| 69 76 65 6e 29 0a 73 74 | 72 75 63 74 20 75 73 65 |iven).st|ruct use|
|00003ea0| 72 73 75 70 70 20 2a 55 | 53 67 69 76 65 6e 3b 0a |rsupp *U|Sgiven;.|
|00003eb0| 7b 0a 09 69 6e 74 20 61 | 2c 62 2c 63 2c 64 2c 66 |{..int a|,b,c,d,f|
|00003ec0| 69 6c 65 3b 0a 09 73 74 | 72 75 63 74 20 71 75 69 |ile;..st|ruct qui|
|00003ed0| 63 6b 72 6f 6f 6d 20 51 | 52 73 63 72 61 74 63 68 |ckroom Q|Rscratch|
|00003ee0| 3b 0a 0a 09 62 3d 31 3b | 0a 09 70 72 69 6e 74 66 |;...b=1;|..printf|
|00003ef0| 28 22 5c 6e 20 20 20 52 | 6f 6f 6d 73 20 77 69 74 |("\n   R|ooms wit|
|00003f00| 68 20 75 6e 72 65 61 64 | 20 6d 65 73 73 61 67 65 |h unread| message|
|00003f10| 73 3a 5c 6e 22 29 3b 0a | 09 66 69 6c 65 3d 6f 70 |s:\n");.|.file=op|
|00003f20| 65 6e 28 22 2e 2f 71 75 | 69 63 6b 72 6f 6f 6d 22 |en("./qu|ickroom"|
|00003f30| 2c 4f 5f 52 44 4f 4e 4c | 59 29 3b 20 69 66 20 28 |,O_RDONL|Y); if (|
|00003f40| 66 69 6c 65 3c 30 29 20 | 72 65 74 75 72 6e 28 31 |file<0) |return(1|
|00003f50| 29 3b 0a 09 66 6f 72 20 | 28 61 3d 30 3b 20 61 3c |);..for |(a=0; a<|
|00003f60| 4d 41 58 52 4f 4f 4d 53 | 3b 20 2b 2b 61 29 20 7b |MAXROOMS|; ++a) {|
|00003f70| 0a 09 09 63 3d 72 65 61 | 64 28 66 69 6c 65 2c 26 |...c=rea|d(file,&|
|00003f80| 51 52 73 63 72 61 74 63 | 68 2c 73 69 7a 65 6f 66 |QRscratc|h,sizeof|
|00003f90| 28 73 74 72 75 63 74 20 | 71 75 69 63 6b 72 6f 6f |(struct |quickroo|
|00003fa0| 6d 29 29 3b 0a 09 09 69 | 66 20 28 63 3c 31 29 20 |m));...i|f (c<1) |
|00003fb0| 69 6e 74 65 72 72 28 35 | 38 29 3b 0a 09 09 69 66 |interr(5|8);...if|
|00003fc0| 20 28 61 3d 3d 31 29 20 | 51 52 73 63 72 61 74 63 | (a==1) |QRscratc|
|00003fd0| 68 2e 51 52 68 69 67 68 | 65 73 74 3d 55 53 67 69 |h.QRhigh|est=USgi|
|00003fe0| 76 65 6e 2d 3e 6d 61 69 | 6c 6e 75 6d 5b 4d 41 49 |ven->mai|lnum[MAI|
|00003ff0| 4c 53 4c 4f 54 53 2d 31 | 5d 3b 0a 09 09 64 3d 62 |LSLOTS-1|];...d=b|
|00004000| 2b 73 74 72 6c 65 6e 28 | 51 52 73 63 72 61 74 63 |+strlen(|QRscratc|
|00004010| 68 2e 51 52 6e 61 6d 65 | 29 2b 33 3b 0a 09 09 69 |h.QRname|)+3;...i|
|00004020| 66 20 28 28 51 52 73 63 | 72 61 74 63 68 2e 51 52 |f ((QRsc|ratch.QR|
|00004030| 66 6c 61 67 73 20 26 20 | 51 52 5f 49 4e 55 53 45 |flags & |QR_INUSE|
|00004040| 29 0a 09 09 09 26 26 20 | 28 51 52 73 63 72 61 74 |)....&& |(QRscrat|
|00004050| 63 68 2e 51 52 68 69 67 | 68 65 73 74 3e 20 28 55 |ch.QRhig|hest> (U|
|00004060| 53 67 69 76 65 6e 2d 3e | 6c 61 73 74 73 65 65 6e |Sgiven->|lastseen|
|00004070| 5b 61 5d 29 20 29 0a 09 | 09 09 26 26 20 28 20 28 |[a]) )..|..&& ( (|
|00004080| 61 21 3d 32 29 20 7c 7c | 20 28 55 53 67 69 76 65 |a!=2) ||| (USgive|
|00004090| 6e 2d 3e 61 78 6c 65 76 | 65 6c 3e 3d 36 29 29 0a |n->axlev|el>=6)).|
|000040a0| 09 09 09 26 26 20 28 51 | 52 73 63 72 61 74 63 68 |...&& (Q|Rscratch|
|000040b0| 2e 51 52 67 65 6e 20 21 | 3d 20 28 55 53 67 69 76 |.QRgen !|= (USgiv|
|000040c0| 65 6e 2d 3e 66 6f 72 67 | 65 74 5b 61 5d 29 20 29 |en->forg|et[a]) )|
|000040d0| 0a 0a 09 09 09 26 26 20 | 28 09 28 28 51 52 73 63 |.....&& |(.((QRsc|
|000040e0| 72 61 74 63 68 2e 51 52 | 66 6c 61 67 73 26 51 52 |ratch.QR|flags&QR|
|000040f0| 5f 50 52 45 46 4f 4e 4c | 59 29 3d 3d 30 29 0a 09 |_PREFONL|Y)==0)..|
|00004100| 09 09 7c 7c 09 28 28 55 | 53 67 69 76 65 6e 2d 3e |..||.((U|Sgiven->|
|00004110| 61 78 6c 65 76 65 6c 29 | 3e 3d 35 29 0a 09 09 09 |axlevel)|>=5)....|
|00004120| 29 0a 0a 09 09 09 26 26 | 20 28 09 28 28 51 52 73 |).....&&| (.((QRs|
|00004130| 63 72 61 74 63 68 2e 51 | 52 66 6c 61 67 73 26 51 |cratch.Q|Rflags&Q|
|00004140| 52 5f 50 52 49 56 41 54 | 45 29 3d 3d 30 29 0a 20 |R_PRIVAT|E)==0). |
|00004150| 20 20 09 09 09 7c 7c 09 | 28 28 55 53 67 69 76 65 |  ...||.|((USgive|
|00004160| 6e 2d 3e 61 78 6c 65 76 | 65 6c 29 3e 3d 36 29 0a |n->axlev|el)>=6).|
|00004170| 20 20 20 09 09 09 7c 7c | 09 28 51 52 73 63 72 61 |   ...|||.(QRscra|
|00004180| 74 63 68 2e 51 52 67 65 | 6e 3d 3d 28 55 53 67 69 |tch.QRge|n==(USgi|
|00004190| 76 65 6e 2d 3e 67 65 6e | 65 72 61 74 69 6f 6e 5b |ven->gen|eration[|
|000041a0| 61 5d 29 29 0a 20 20 20 | 09 09 09 29 0a 0a 09 09 |a])).   |...)....|
|000041b0| 29 20 7b 0a 09 09 69 66 | 20 28 64 3e 3d 28 55 53 |) {...if| (d>=(US|
|000041c0| 67 69 76 65 6e 2d 3e 73 | 63 72 65 65 6e 77 69 64 |given->s|creenwid|
|000041d0| 74 68 29 29 20 7b 0a 09 | 09 09 70 72 69 6e 74 66 |th)) {..|..printf|
|000041e0| 28 22 5c 6e 22 29 3b 20 | 62 3d 31 3b 20 7d 0a 09 |("\n"); |b=1; }..|
|000041f0| 09 63 3d 72 6f 6f 6d 5f | 70 72 6f 6d 70 74 28 26 |.c=room_|prompt(&|
|00004200| 51 52 73 63 72 61 74 63 | 68 29 3b 0a 09 09 70 72 |QRscratc|h);...pr|
|00004210| 69 6e 74 66 28 22 25 73 | 25 63 20 20 22 2c 51 52 |intf("%s|%c  ",QR|
|00004220| 73 63 72 61 74 63 68 2e | 51 52 6e 61 6d 65 2c 63 |scratch.|QRname,c|
|00004230| 29 3b 0a 09 09 62 3d 62 | 2b 73 74 72 6c 65 6e 28 |);...b=b|+strlen(|
|00004240| 51 52 73 63 72 61 74 63 | 68 2e 51 52 6e 61 6d 65 |QRscratc|h.QRname|
|00004250| 29 2b 33 3b 0a 09 09 7d | 0a 09 7d 20 0a 09 69 66 |)+3;...}|..} ..if|
|00004260| 20 28 62 21 3d 31 29 20 | 70 72 69 6e 74 66 28 22 | (b!=1) |printf("|
|00004270| 5c 6e 22 29 3b 0a 0a 09 | 62 3d 31 3b 0a 09 70 72 |\n");...|b=1;..pr|
|00004280| 69 6e 74 66 28 22 5c 6e | 20 20 20 4e 6f 20 75 6e |intf("\n|   No un|
|00004290| 73 65 65 6e 20 6d 65 73 | 73 61 67 65 73 20 69 6e |seen mes|sages in|
|000042a0| 3a 5c 6e 22 29 3b 0a 09 | 6c 73 65 65 6b 28 66 69 |:\n");..|lseek(fi|
|000042b0| 6c 65 2c 30 4c 2c 30 29 | 3b 0a 09 66 6f 72 20 28 |le,0L,0)|;..for (|
|000042c0| 61 3d 30 3b 20 61 3c 4d | 41 58 52 4f 4f 4d 53 3b |a=0; a<M|AXROOMS;|
|000042d0| 20 2b 2b 61 29 20 7b 0a | 09 09 63 3d 72 65 61 64 | ++a) {.|..c=read|
|000042e0| 28 66 69 6c 65 2c 26 51 | 52 73 63 72 61 74 63 68 |(file,&Q|Rscratch|
|000042f0| 2c 73 69 7a 65 6f 66 28 | 73 74 72 75 63 74 20 71 |,sizeof(|struct q|
|00004300| 75 69 63 6b 72 6f 6f 6d | 29 29 3b 0a 09 09 69 66 |uickroom|));...if|
|00004310| 20 28 63 3c 31 29 20 72 | 65 74 75 72 6e 28 31 29 | (c<1) r|eturn(1)|
|00004320| 3b 0a 09 09 69 66 20 28 | 61 3d 3d 31 29 20 51 52 |;...if (|a==1) QR|
|00004330| 73 63 72 61 74 63 68 2e | 51 52 68 69 67 68 65 73 |scratch.|QRhighes|
|00004340| 74 3d 55 53 67 69 76 65 | 6e 2d 3e 6d 61 69 6c 6e |t=USgive|n->mailn|
|00004350| 75 6d 5b 4d 41 49 4c 53 | 4c 4f 54 53 2d 31 5d 3b |um[MAILS|LOTS-1];|
|00004360| 0a 09 09 69 66 20 28 28 | 51 52 73 63 72 61 74 63 |...if ((|QRscratc|
|00004370| 68 2e 51 52 66 6c 61 67 | 73 20 26 20 51 52 5f 49 |h.QRflag|s & QR_I|
|00004380| 4e 55 53 45 29 0a 09 09 | 09 26 26 20 28 51 52 73 |NUSE)...|.&& (QRs|
|00004390| 63 72 61 74 63 68 2e 51 | 52 68 69 67 68 65 73 74 |cratch.Q|Rhighest|
|000043a0| 3c 3d 55 53 67 69 76 65 | 6e 2d 3e 6c 61 73 74 73 |<=USgive|n->lasts|
|000043b0| 65 65 6e 5b 61 5d 29 0a | 09 09 09 26 26 20 28 20 |een[a]).|...&& ( |
|000043c0| 28 61 21 3d 32 29 20 7c | 7c 20 28 28 55 53 67 69 |(a!=2) ||| ((USgi|
|000043d0| 76 65 6e 2d 3e 61 78 6c | 65 76 65 6c 29 3e 3d 36 |ven->axl|evel)>=6|
|000043e0| 29 29 0a 09 09 09 26 26 | 20 28 51 52 73 63 72 61 |))....&&| (QRscra|
|000043f0| 74 63 68 2e 51 52 67 65 | 6e 20 21 3d 20 55 53 67 |tch.QRge|n != USg|
|00004400| 69 76 65 6e 2d 3e 66 6f | 72 67 65 74 5b 61 5d 29 |iven->fo|rget[a])|
|00004410| 0a 0a 09 09 09 26 26 20 | 28 09 28 28 51 52 73 63 |.....&& |(.((QRsc|
|00004420| 72 61 74 63 68 2e 51 52 | 66 6c 61 67 73 26 51 52 |ratch.QR|flags&QR|
|00004430| 5f 50 52 45 46 4f 4e 4c | 59 29 3d 3d 30 29 0a 09 |_PREFONL|Y)==0)..|
|00004440| 09 09 7c 7c 09 28 28 55 | 53 67 69 76 65 6e 2d 3e |..||.((U|Sgiven->|
|00004450| 61 78 6c 65 76 65 6c 29 | 3e 3d 35 29 0a 09 09 09 |axlevel)|>=5)....|
|00004460| 29 0a 0a 09 09 09 26 26 | 20 28 09 28 28 51 52 73 |).....&&| (.((QRs|
|00004470| 63 72 61 74 63 68 2e 51 | 52 66 6c 61 67 73 26 51 |cratch.Q|Rflags&Q|
|00004480| 52 5f 50 52 49 56 41 54 | 45 29 3d 3d 30 29 0a 20 |R_PRIVAT|E)==0). |
|00004490| 20 20 09 09 09 7c 7c 09 | 28 28 55 53 67 69 76 65 |  ...||.|((USgive|
|000044a0| 6e 2d 3e 61 78 6c 65 76 | 65 6c 29 3e 3d 36 29 0a |n->axlev|el)>=6).|
|000044b0| 20 20 20 09 09 09 7c 7c | 09 28 51 52 73 63 72 61 |   ...|||.(QRscra|
|000044c0| 74 63 68 2e 51 52 67 65 | 6e 3d 3d 55 53 67 69 76 |tch.QRge|n==USgiv|
|000044d0| 65 6e 2d 3e 67 65 6e 65 | 72 61 74 69 6f 6e 5b 61 |en->gene|ration[a|
|000044e0| 5d 29 0a 20 20 20 09 09 | 09 29 0a 0a 09 09 29 20 |]).   ..|.)....) |
|000044f0| 7b 0a 09 09 64 3d 73 74 | 72 6c 65 6e 28 51 52 73 |{...d=st|rlen(QRs|
|00004500| 63 72 61 74 63 68 2e 51 | 52 6e 61 6d 65 29 2b 33 |cratch.Q|Rname)+3|
|00004510| 2b 62 3b 0a 09 09 69 66 | 20 28 64 3e 3d 28 55 53 |+b;...if| (d>=(US|
|00004520| 67 69 76 65 6e 2d 3e 73 | 63 72 65 65 6e 77 69 64 |given->s|creenwid|
|00004530| 74 68 29 29 20 7b 0a 09 | 09 09 70 72 69 6e 74 66 |th)) {..|..printf|
|00004540| 28 22 5c 6e 22 29 3b 20 | 62 3d 31 3b 20 7d 0a 09 |("\n"); |b=1; }..|
|00004550| 09 63 3d 72 6f 6f 6d 5f | 70 72 6f 6d 70 74 28 26 |.c=room_|prompt(&|
|00004560| 51 52 73 63 72 61 74 63 | 68 29 3b 0a 09 09 70 72 |QRscratc|h);...pr|
|00004570| 69 6e 74 66 28 22 25 73 | 25 63 20 20 22 2c 51 52 |intf("%s|%c  ",QR|
|00004580| 73 63 72 61 74 63 68 2e | 51 52 6e 61 6d 65 2c 63 |scratch.|QRname,c|
|00004590| 29 3b 0a 09 09 62 3d 62 | 2b 73 74 72 6c 65 6e 28 |);...b=b|+strlen(|
|000045a0| 51 52 73 63 72 61 74 63 | 68 2e 51 52 6e 61 6d 65 |QRscratc|h.QRname|
|000045b0| 29 2b 33 3b 0a 09 09 7d | 0a 09 7d 0a 09 69 66 20 |)+3;...}|..}..if |
|000045c0| 28 62 21 3d 31 29 20 70 | 72 69 6e 74 66 28 22 5c |(b!=1) p|rintf("\|
|000045d0| 6e 22 29 3b 0a 0a 09 63 | 6c 6f 73 65 28 66 69 6c |n");...c|lose(fil|
|000045e0| 65 29 3b 0a 09 72 65 74 | 75 72 6e 28 30 29 3b 0a |e);..ret|urn(0);.|
|000045f0| 7d 0a 0a 6c 69 73 74 7a | 72 6f 6f 6d 73 28 55 53 |}..listz|rooms(US|
|00004600| 67 69 76 65 6e 29 09 09 | 2f 2a 20 6c 69 73 74 20 |given)..|/* list |
|00004610| 70 75 62 6c 69 63 20 66 | 6f 72 67 6f 74 74 65 6e |public f|orgotten|
|00004620| 20 72 6f 6f 6d 73 20 2a | 2f 0a 73 74 72 75 63 74 | rooms *|/.struct|
|00004630| 20 75 73 65 72 73 75 70 | 70 20 2a 55 53 67 69 76 | usersup|p *USgiv|
|00004640| 65 6e 3b 0a 7b 0a 09 69 | 6e 74 20 61 2c 62 2c 63 |en;.{..i|nt a,b,c|
|00004650| 2c 64 2c 66 69 6c 65 3b | 0a 09 73 74 72 75 63 74 |,d,file;|..struct|
|00004660| 20 71 75 69 63 6b 72 6f | 6f 6d 20 51 52 73 63 72 | quickro|om QRscr|
|00004670| 61 74 63 68 3b 0a 0a 09 | 62 3d 31 3b 0a 09 70 72 |atch;...|b=1;..pr|
|00004680| 69 6e 74 66 28 22 5c 6e | 20 20 20 46 6f 72 67 6f |intf("\n|   Forgo|
|00004690| 74 74 65 6e 20 70 75 62 | 6c 69 63 20 72 6f 6f 6d |tten pub|lic room|
|000046a0| 73 3a 5c 6e 22 29 3b 0a | 09 66 69 6c 65 3d 6f 70 |s:\n");.|.file=op|
|000046b0| 65 6e 28 22 2e 2f 71 75 | 69 63 6b 72 6f 6f 6d 22 |en("./qu|ickroom"|
|000046c0| 2c 4f 5f 52 44 4f 4e 4c | 59 29 3b 20 69 66 20 28 |,O_RDONL|Y); if (|
|000046d0| 66 69 6c 65 3c 30 29 20 | 72 65 74 75 72 6e 28 31 |file<0) |return(1|
|000046e0| 29 3b 0a 09 66 6f 72 20 | 28 61 3d 30 3b 20 61 3c |);..for |(a=0; a<|
|000046f0| 4d 41 58 52 4f 4f 4d 53 | 3b 20 2b 2b 61 29 20 7b |MAXROOMS|; ++a) {|
|00004700| 0a 09 09 63 3d 72 65 61 | 64 28 66 69 6c 65 2c 26 |...c=rea|d(file,&|
|00004710| 51 52 73 63 72 61 74 63 | 68 2c 73 69 7a 65 6f 66 |QRscratc|h,sizeof|
|00004720| 28 73 74 72 75 63 74 20 | 71 75 69 63 6b 72 6f 6f |(struct |quickroo|
|00004730| 6d 29 29 3b 0a 09 09 69 | 66 20 28 63 3c 31 29 20 |m));...i|f (c<1) |
|00004740| 69 6e 74 65 72 72 28 35 | 38 29 3b 0a 09 09 69 66 |interr(5|8);...if|
|00004750| 20 28 61 3d 3d 31 29 20 | 51 52 73 63 72 61 74 63 | (a==1) |QRscratc|
|00004760| 68 2e 51 52 68 69 67 68 | 65 73 74 3d 55 53 67 69 |h.QRhigh|est=USgi|
|00004770| 76 65 6e 2d 3e 6d 61 69 | 6c 6e 75 6d 5b 4d 41 49 |ven->mai|lnum[MAI|
|00004780| 4c 53 4c 4f 54 53 2d 31 | 5d 3b 0a 09 09 69 66 20 |LSLOTS-1|];...if |
|00004790| 28 28 51 52 73 63 72 61 | 74 63 68 2e 51 52 66 6c |((QRscra|tch.QRfl|
|000047a0| 61 67 73 20 26 20 51 52 | 5f 49 4e 55 53 45 29 0a |ags & QR|_INUSE).|
|000047b0| 09 09 09 26 26 20 28 51 | 52 73 63 72 61 74 63 68 |...&& (Q|Rscratch|
|000047c0| 2e 51 52 67 65 6e 20 3d | 3d 20 28 55 53 67 69 76 |.QRgen =|= (USgiv|
|000047d0| 65 6e 2d 3e 66 6f 72 67 | 65 74 5b 61 5d 29 20 29 |en->forg|et[a]) )|
|000047e0| 0a 09 09 09 26 26 20 28 | 20 28 61 21 3d 32 29 20 |....&& (| (a!=2) |
|000047f0| 7c 7c 20 28 28 55 53 67 | 69 76 65 6e 2d 3e 61 78 ||| ((USg|iven->ax|
|00004800| 6c 65 76 65 6c 29 3e 3d | 36 29 29 0a 09 09 09 26 |level)>=|6))....&|
|00004810| 26 20 28 09 28 28 51 52 | 73 63 72 61 74 63 68 2e |& (.((QR|scratch.|
|00004820| 51 52 66 6c 61 67 73 26 | 51 52 5f 50 52 49 56 41 |QRflags&|QR_PRIVA|
|00004830| 54 45 29 3d 3d 30 29 0a | 20 20 20 09 09 09 7c 7c |TE)==0).|   ...|||
|00004840| 09 28 28 55 53 67 69 76 | 65 6e 2d 3e 61 78 6c 65 |.((USgiv|en->axle|
|00004850| 76 65 6c 29 3e 3d 36 29 | 0a 20 20 20 09 09 09 7c |vel)>=6)|.   ...||
|00004860| 7c 09 28 51 52 73 63 72 | 61 74 63 68 2e 51 52 67 ||.(QRscr|atch.QRg|
|00004870| 65 6e 3d 3d 28 55 53 67 | 69 76 65 6e 2d 3e 67 65 |en==(USg|iven->ge|
|00004880| 6e 65 72 61 74 69 6f 6e | 5b 61 5d 29 29 0a 20 20 |neration|[a])).  |
|00004890| 20 09 09 29 0a 09 09 29 | 20 7b 0a 09 09 64 3d 62 | ..)...)| {...d=b|
|000048a0| 2b 73 74 72 6c 65 6e 28 | 51 52 73 63 72 61 74 63 |+strlen(|QRscratc|
|000048b0| 68 2e 51 52 6e 61 6d 65 | 29 2b 33 3b 0a 09 09 69 |h.QRname|)+3;...i|
|000048c0| 66 20 28 64 3e 3d 28 55 | 53 67 69 76 65 6e 2d 3e |f (d>=(U|Sgiven->|
|000048d0| 73 63 72 65 65 6e 77 69 | 64 74 68 29 29 20 7b 0a |screenwi|dth)) {.|
|000048e0| 09 09 09 70 72 69 6e 74 | 66 28 22 5c 6e 22 29 3b |...print|f("\n");|
|000048f0| 20 62 3d 31 3b 20 7d 0a | 09 09 63 3d 72 6f 6f 6d | b=1; }.|..c=room|
|00004900| 5f 70 72 6f 6d 70 74 28 | 26 51 52 73 63 72 61 74 |_prompt(|&QRscrat|
|00004910| 63 68 29 3b 0a 09 09 70 | 72 69 6e 74 66 28 22 25 |ch);...p|rintf("%|
|00004920| 73 25 63 20 20 22 2c 51 | 52 73 63 72 61 74 63 68 |s%c  ",Q|Rscratch|
|00004930| 2e 51 52 6e 61 6d 65 2c | 63 29 3b 0a 09 09 62 3d |.QRname,|c);...b=|
|00004940| 62 2b 73 74 72 6c 65 6e | 28 51 52 73 63 72 61 74 |b+strlen|(QRscrat|
|00004950| 63 68 2e 51 52 6e 61 6d | 65 29 2b 33 3b 0a 09 09 |ch.QRnam|e)+3;...|
|00004960| 7d 0a 09 7d 20 0a 09 69 | 66 20 28 62 21 3d 31 29 |}..} ..i|f (b!=1)|
|00004970| 20 70 72 69 6e 74 66 28 | 22 5c 6e 22 29 3b 0a 09 | printf(|"\n");..|
|00004980| 63 6c 6f 73 65 28 66 69 | 6c 65 29 3b 0a 09 72 65 |close(fi|le);..re|
|00004990| 74 75 72 6e 28 30 29 3b | 0a 7d 0a 0a 65 64 69 74 |turn(0);|.}..edit|
|000049a0| 72 6f 6f 6d 28 29 20 7b | 09 2f 2a 20 2e 3c 41 3e |room() {|./* .<A>|
|000049b0| 69 64 65 20 3c 45 3e 64 | 69 74 20 72 6f 6f 6d 20 |ide <E>d|it room |
|000049c0| 2a 2f 0a 09 69 6e 74 20 | 66 69 6c 65 2c 66 69 6c |*/..int |file,fil|
|000049d0| 65 32 2c 61 2c 62 3b 0a | 09 63 68 61 72 20 61 61 |e2,a,b;.|.char aa|
|000049e0| 61 5b 35 30 5d 3b 20 6c | 6f 6e 67 20 61 61 3b 0a |a[50]; l|ong aa;.|
|000049f0| 09 73 74 72 75 63 74 20 | 75 73 65 72 73 75 70 70 |.struct |usersupp|
|00004a00| 20 74 65 6d 70 55 53 3b | 0a 0a 09 69 66 20 28 63 | tempUS;|...if (c|
|00004a10| 75 72 72 5f 72 6d 3c 33 | 29 20 7b 0a 09 09 70 72 |urr_rm<3|) {...pr|
|00004a20| 69 6e 74 66 28 22 43 61 | 6e 27 74 20 65 64 69 74 |intf("Ca|n't edit|
|00004a30| 20 74 68 69 73 20 72 6f | 6f 6d 2e 5c 6e 22 29 3b | this ro|om.\n");|
|00004a40| 0a 09 09 72 65 74 75 72 | 6e 28 30 29 3b 0a 09 09 |...retur|n(0);...|
|00004a50| 7d 0a 09 66 69 6c 65 3d | 6f 70 65 6e 28 22 71 75 |}..file=|open("qu|
|00004a60| 69 63 6b 72 6f 6f 6d 22 | 2c 4f 5f 52 44 57 52 29 |ickroom"|,O_RDWR)|
|00004a70| 3b 0a 09 69 66 20 28 66 | 69 6c 65 3c 30 29 20 69 |;..if (f|ile<0) i|
|00004a80| 6e 74 65 72 72 28 33 34 | 29 3b 0a 09 6c 73 65 65 |nterr(34|);..lsee|
|00004a90| 6b 28 66 69 6c 65 2c 28 | 6c 6f 6e 67 29 28 63 75 |k(file,(|long)(cu|
|00004aa0| 72 72 5f 72 6d 2a 73 69 | 7a 65 6f 66 28 73 74 72 |rr_rm*si|zeof(str|
|00004ab0| 75 63 74 20 71 75 69 63 | 6b 72 6f 6f 6d 29 29 2c |uct quic|kroom)),|
|00004ac0| 30 29 3b 0a 09 61 3d 72 | 65 61 64 28 66 69 6c 65 |0);..a=r|ead(file|
|00004ad0| 2c 26 71 75 69 63 6b 72 | 6f 6f 6d 2c 73 69 7a 65 |,&quickr|oom,size|
|00004ae0| 6f 66 28 73 74 72 75 63 | 74 20 71 75 69 63 6b 72 |of(struc|t quickr|
|00004af0| 6f 6f 6d 29 29 3b 0a 09 | 69 66 20 28 61 3c 31 29 |oom));..|if (a<1)|
|00004b00| 20 69 6e 74 65 72 72 28 | 33 35 29 3b 0a 09 70 72 | interr(|35);..pr|
|00004b10| 69 6e 74 66 28 22 52 6f | 6f 6d 20 6e 61 6d 65 20 |intf("Ro|om name |
|00004b20| 69 73 20 63 75 72 72 65 | 6e 74 6c 79 3a 20 25 73 |is curre|ntly: %s|
|00004b30| 5c 6e 22 2c 71 75 69 63 | 6b 72 6f 6f 6d 2e 51 52 |\n",quic|kroom.QR|
|00004b40| 6e 61 6d 65 29 3b 0a 09 | 70 72 69 6e 74 66 28 22 |name);..|printf("|
|00004b50| 4e 65 77 20 6e 61 6d 65 | 20 3c 72 65 74 75 72 6e |New name| <return|
|00004b60| 3d 73 61 6d 65 3e 3f 20 | 22 29 3b 0a 09 67 65 74 |=same>? |");..get|
|00004b70| 6c 69 6e 65 28 61 61 61 | 2c 31 39 29 3b 0a 09 69 |line(aaa|,19);..i|
|00004b80| 66 20 28 61 61 61 5b 30 | 5d 21 3d 30 29 20 73 74 |f (aaa[0|]!=0) st|
|00004b90| 72 63 70 79 28 71 75 69 | 63 6b 72 6f 6f 6d 2e 51 |rcpy(qui|ckroom.Q|
|00004ba0| 52 6e 61 6d 65 2c 61 61 | 61 29 3b 0a 09 70 72 69 |Rname,aa|a);..pri|
|00004bb0| 6e 74 66 28 22 54 68 69 | 73 20 69 73 20 63 75 72 |ntf("Thi|s is cur|
|00004bc0| 72 65 6e 74 6c 79 20 61 | 22 29 3b 0a 09 69 66 20 |rently a|");..if |
|00004bd0| 28 28 71 75 69 63 6b 72 | 6f 6f 6d 2e 51 52 66 6c |((quickr|oom.QRfl|
|00004be0| 61 67 73 26 51 52 5f 50 | 52 49 56 41 54 45 29 3d |ags&QR_P|RIVATE)=|
|00004bf0| 3d 30 29 20 70 72 69 6e | 74 66 28 22 20 70 75 62 |=0) prin|tf(" pub|
|00004c00| 6c 69 63 22 29 3b 0a 09 | 69 66 20 28 71 75 69 63 |lic");..|if (quic|
|00004c10| 6b 72 6f 6f 6d 2e 51 52 | 66 6c 61 67 73 26 51 52 |kroom.QR|flags&QR|
|00004c20| 5f 50 52 49 56 41 54 45 | 29 20 70 72 69 6e 74 66 |_PRIVATE|) printf|
|00004c30| 28 22 20 70 72 69 76 61 | 74 65 22 29 3b 0a 09 69 |(" priva|te");..i|
|00004c40| 66 20 28 71 75 69 63 6b | 72 6f 6f 6d 2e 51 52 66 |f (quick|room.QRf|
|00004c50| 6c 61 67 73 26 51 52 5f | 50 41 53 53 57 4f 52 44 |lags&QR_|PASSWORD|
|00004c60| 45 44 29 20 70 72 69 6e | 74 66 28 22 2c 20 70 61 |ED) prin|tf(", pa|
|00004c70| 73 73 77 6f 72 64 65 64 | 22 29 3b 0a 09 69 66 20 |ssworded|");..if |
|00004c80| 28 71 75 69 63 6b 72 6f | 6f 6d 2e 51 52 66 6c 61 |(quickro|om.QRfla|
|00004c90| 67 73 26 51 52 5f 47 55 | 45 53 53 4e 41 4d 45 29 |gs&QR_GU|ESSNAME)|
|00004ca0| 20 70 72 69 6e 74 66 28 | 22 2c 20 67 75 65 73 73 | printf(|", guess|
|00004cb0| 6e 61 6d 65 22 29 3b 0a | 09 70 72 69 6e 74 66 28 |name");.|.printf(|
|00004cc0| 22 20 72 6f 6f 6d 22 29 | 3b 0a 09 69 66 20 28 28 |" room")|;..if ((|
|00004cd0| 71 75 69 63 6b 72 6f 6f | 6d 2e 51 52 66 6c 61 67 |quickroo|m.QRflag|
|00004ce0| 73 26 51 52 5f 50 41 53 | 53 57 4f 52 44 45 44 29 |s&QR_PAS|SWORDED)|
|00004cf0| 3d 3d 51 52 5f 50 41 53 | 53 57 4f 52 44 45 44 29 |==QR_PAS|SWORDED)|
|00004d00| 0a 09 09 09 70 72 69 6e | 74 66 28 22 2c 20 70 61 |....prin|tf(", pa|
|00004d10| 73 73 77 6f 72 64 3a 20 | 25 73 22 2c 71 75 69 63 |ssword: |%s",quic|
|00004d20| 6b 72 6f 6f 6d 2e 51 52 | 70 61 73 73 77 64 29 3b |kroom.QR|passwd);|
|00004d30| 0a 09 70 72 69 6e 74 66 | 28 22 2e 5c 6e 22 29 3b |..printf|(".\n");|
|00004d40| 0a 69 66 20 28 71 75 69 | 63 6b 72 6f 6f 6d 2e 51 |.if (qui|ckroom.Q|
|00004d50| 52 66 6c 61 67 73 26 51 | 52 5f 50 52 45 46 4f 4e |Rflags&Q|R_PREFON|
|00004d60| 4c 59 29 20 70 72 69 6e | 74 66 28 22 50 52 45 46 |LY) prin|tf("PREF|
|00004d70| 45 52 52 45 44 20 55 53 | 45 52 53 20 4f 4e 4c 59 |ERRED US|ERS ONLY|
|00004d80| 2e 5c 6e 22 29 3b 0a 69 | 66 20 28 71 75 69 63 6b |.\n");.i|f (quick|
|00004d90| 72 6f 6f 6d 2e 51 52 66 | 6c 61 67 73 26 51 52 5f |room.QRf|lags&QR_|
|00004da0| 44 49 52 45 43 54 4f 52 | 59 29 20 7b 0a 09 70 72 |DIRECTOR|Y) {..pr|
|00004db0| 69 6e 74 66 28 22 44 69 | 72 65 63 74 6f 72 79 20 |intf("Di|rectory |
|00004dc0| 72 6f 6f 6d 22 29 3b 0a | 09 69 66 20 28 71 75 69 |room");.|.if (qui|
|00004dd0| 63 6b 72 6f 6f 6d 2e 51 | 52 66 6c 61 67 73 26 51 |ckroom.Q|Rflags&Q|
|00004de0| 52 5f 55 50 4c 4f 41 44 | 29 20 70 72 69 6e 74 66 |R_UPLOAD|) printf|
|00004df0| 28 22 2c 20 75 70 6c 6f | 61 64 69 6e 67 20 61 6c |(", uplo|ading al|
|00004e00| 6c 6f 77 65 64 22 29 3b | 0a 09 69 66 20 28 71 75 |lowed");|..if (qu|
|00004e10| 69 63 6b 72 6f 6f 6d 2e | 51 52 66 6c 61 67 73 26 |ickroom.|QRflags&|
|00004e20| 51 52 5f 44 4f 57 4e 4c | 4f 41 44 29 20 70 72 69 |QR_DOWNL|OAD) pri|
|00004e30| 6e 74 66 28 22 2c 20 64 | 6f 77 6e 6c 6f 61 64 69 |ntf(", d|ownloadi|
|00004e40| 6e 67 20 61 6c 6c 6f 77 | 65 64 22 29 3b 0a 09 69 |ng allow|ed");..i|
|00004e50| 66 20 28 71 75 69 63 6b | 72 6f 6f 6d 2e 51 52 66 |f (quick|room.QRf|
|00004e60| 6c 61 67 73 26 51 52 5f | 56 49 53 44 49 52 29 20 |lags&QR_|VISDIR) |
|00004e70| 70 72 69 6e 74 66 28 22 | 2c 20 76 69 73 69 62 6c |printf("|, visibl|
|00004e80| 65 20 64 69 72 65 63 74 | 6f 72 79 22 29 3b 0a 09 |e direct|ory");..|
|00004e90| 70 72 69 6e 74 66 28 22 | 2e 5c 6e 44 69 72 65 63 |printf("|.\nDirec|
|00004ea0| 74 6f 72 79 20 6e 61 6d | 65 3a 20 25 73 5c 6e 22 |tory nam|e: %s\n"|
|00004eb0| 2c 71 75 69 63 6b 72 6f | 6f 6d 2e 51 52 64 69 72 |,quickro|om.QRdir|
|00004ec0| 6e 61 6d 65 29 3b 20 7d | 0a 69 66 20 28 71 75 69 |name); }|.if (qui|
|00004ed0| 63 6b 72 6f 6f 6d 2e 51 | 52 66 6c 61 67 73 26 51 |ckroom.Q|Rflags&Q|
|00004ee0| 52 5f 41 4e 4f 4e 4f 4e | 4c 59 29 0a 09 70 72 69 |R_ANONON|LY)..pri|
|00004ef0| 6e 74 66 28 22 41 6e 6f | 6e 79 6d 6f 75 73 2d 6f |ntf("Ano|nymous-o|
|00004f00| 6e 6c 79 20 72 6f 6f 6d | 2e 5c 6e 22 29 3b 0a 0a |nly room|.\n");..|
|00004f10| 71 75 69 63 6b 72 6f 6f | 6d 2e 51 52 66 6c 61 67 |quickroo|m.QRflag|
|00004f20| 73 3d 28 71 75 69 63 6b | 72 6f 6f 6d 2e 51 52 66 |s=(quick|room.QRf|
|00004f30| 6c 61 67 73 7c 51 52 5f | 50 52 49 56 41 54 45 7c |lags|QR_|PRIVATE||
|00004f40| 51 52 5f 50 41 53 53 57 | 4f 52 44 45 44 7c 51 52 |QR_PASSW|ORDED|QR|
|00004f50| 5f 47 55 45 53 53 4e 41 | 4d 45 29 3b 0a 71 75 69 |_GUESSNA|ME);.qui|
|00004f60| 63 6b 72 6f 6f 6d 2e 51 | 52 66 6c 61 67 73 3d 28 |ckroom.Q|Rflags=(|
|00004f70| 71 75 69 63 6b 72 6f 6f | 6d 2e 51 52 66 6c 61 67 |quickroo|m.QRflag|
|00004f80| 73 7c 51 52 5f 44 49 52 | 45 43 54 4f 52 59 7c 51 |s|QR_DIR|ECTORY|Q|
|00004f90| 52 5f 55 50 4c 4f 41 44 | 7c 51 52 5f 44 4f 57 4e |R_UPLOAD||QR_DOWN|
|00004fa0| 4c 4f 41 44 29 3b 0a 71 | 75 69 63 6b 72 6f 6f 6d |LOAD);.q|uickroom|
|00004fb0| 2e 51 52 66 6c 61 67 73 | 3d 28 71 75 69 63 6b 72 |.QRflags|=(quickr|
|00004fc0| 6f 6f 6d 2e 51 52 66 6c | 61 67 73 7c 51 52 5f 56 |oom.QRfl|ags|QR_V|
|00004fd0| 49 53 44 49 52 7c 51 52 | 5f 41 4e 4f 4e 4f 4e 4c |ISDIR|QR|_ANONONL|
|00004fe0| 59 29 3b 0a 71 75 69 63 | 6b 72 6f 6f 6d 2e 51 52 |Y);.quic|kroom.QR|
|00004ff0| 66 6c 61 67 73 3d 28 71 | 75 69 63 6b 72 6f 6f 6d |flags=(q|uickroom|
|00005000| 2e 51 52 66 6c 61 67 73 | 7c 51 52 5f 41 4e 4f 4e |.QRflags||QR_ANON|
|00005010| 32 7c 51 52 5f 4e 45 54 | 57 4f 52 4b 7c 51 52 5f |2|QR_NET|WORK|QR_|
|00005020| 50 52 45 46 4f 4e 4c 59 | 29 3b 0a 09 70 72 69 6e |PREFONLY|);..prin|
|00005030| 74 66 28 22 4e 65 77 20 | 72 6f 6f 6d 20 74 79 70 |tf("New |room typ|
|00005040| 65 3f 20 3c 31 3e 70 75 | 62 20 3c 32 3e 67 75 65 |e? <1>pu|b <2>gue|
|00005050| 73 73 6e 61 6d 65 20 3c | 33 3e 70 61 73 73 77 64 |ssname <|3>passwd|
|00005060| 20 3c 34 3e 69 6e 76 2d | 6f 6e 6c 79 20 3a 20 22 | <4>inv-|only : "|
|00005070| 29 3b 0a 09 64 6f 20 7b | 0a 09 09 62 3d 69 6e 6b |);..do {|...b=ink|
|00005080| 65 79 28 29 2d 34 38 3b | 0a 09 09 7d 20 77 68 69 |ey()-48;|...} whi|
|00005090| 6c 65 20 28 28 62 3c 31 | 29 7c 7c 28 62 3e 34 29 |le ((b<1|)||(b>4)|
|000050a0| 29 3b 0a 09 70 72 69 6e | 74 66 28 22 25 64 5c 6e |);..prin|tf("%d\n|
|000050b0| 22 2c 62 29 3b 0a 09 69 | 66 20 28 62 21 3d 32 29 |",b);..i|f (b!=2)|
|000050c0| 20 71 75 69 63 6b 72 6f | 6f 6d 2e 51 52 66 6c 61 | quickro|om.QRfla|
|000050d0| 67 73 3d 28 71 75 69 63 | 6b 72 6f 6f 6d 2e 51 52 |gs=(quic|kroom.QR|
|000050e0| 66 6c 61 67 73 2d 51 52 | 5f 47 55 45 53 53 4e 41 |flags-QR|_GUESSNA|
|000050f0| 4d 45 29 3b 0a 09 69 66 | 20 28 62 21 3d 33 29 20 |ME);..if| (b!=3) |
|00005100| 71 75 69 63 6b 72 6f 6f | 6d 2e 51 52 66 6c 61 67 |quickroo|m.QRflag|
|00005110| 73 3d 28 71 75 69 63 6b | 72 6f 6f 6d 2e 51 52 66 |s=(quick|room.QRf|
|00005120| 6c 61 67 73 2d 51 52 5f | 50 41 53 53 57 4f 52 44 |lags-QR_|PASSWORD|
|00005130| 45 44 29 3b 0a 09 69 66 | 20 28 62 3d 3d 31 29 20 |ED);..if| (b==1) |
|00005140| 71 75 69 63 6b 72 6f 6f | 6d 2e 51 52 66 6c 61 67 |quickroo|m.QRflag|
|00005150| 73 3d 28 71 75 69 63 6b | 72 6f 6f 6d 2e 51 52 66 |s=(quick|room.QRf|
|00005160| 6c 61 67 73 2d 51 52 5f | 50 52 49 56 41 54 45 29 |lags-QR_|PRIVATE)|
|00005170| 3b 0a 09 69 66 20 28 28 | 71 75 69 63 6b 72 6f 6f |;..if ((|quickroo|
|00005180| 6d 2e 51 52 66 6c 61 67 | 73 26 51 52 5f 50 41 53 |m.QRflag|s&QR_PAS|
|00005190| 53 57 4f 52 44 45 44 29 | 3d 3d 51 52 5f 50 41 53 |SWORDED)|==QR_PAS|
|000051a0| 53 57 4f 52 44 45 44 29 | 20 7b 0a 09 09 70 72 69 |SWORDED)| {...pri|
|000051b0| 6e 74 66 28 22 3c 72 65 | 74 75 72 6e 3e 20 6f 72 |ntf("<re|turn> or|
|000051c0| 20 6e 65 77 20 70 61 73 | 73 77 6f 72 64 3a 20 22 | new pas|sword: "|
|000051d0| 29 3b 0a 09 09 67 65 74 | 6c 69 6e 65 28 61 61 61 |);...get|line(aaa|
|000051e0| 2c 39 29 3b 0a 09 09 69 | 66 20 28 61 61 61 5b 30 |,9);...i|f (aaa[0|
|000051f0| 5d 21 3d 30 29 20 73 74 | 72 63 70 79 28 71 75 69 |]!=0) st|rcpy(qui|
|00005200| 63 6b 72 6f 6f 6d 2e 51 | 52 70 61 73 73 77 64 2c |ckroom.Q|Rpasswd,|
|00005210| 61 61 61 29 3b 20 7d 0a | 09 69 66 20 28 28 71 75 |aaa); }.|.if ((qu|
|00005220| 69 63 6b 72 6f 6f 6d 2e | 51 52 66 6c 61 67 73 26 |ickroom.|QRflags&|
|00005230| 51 52 5f 50 52 49 56 41 | 54 45 29 3d 3d 51 52 5f |QR_PRIVA|TE)==QR_|
|00005240| 50 52 49 56 41 54 45 29 | 20 7b 0a 09 09 70 72 69 |PRIVATE)| {...pri|
|00005250| 6e 74 66 28 22 43 61 75 | 73 65 20 75 73 65 72 73 |ntf("Cau|se users|
|00005260| 20 74 6f 20 66 6f 72 67 | 65 74 20 72 6f 6f 6d 3f | to forg|et room?|
|00005270| 20 22 29 3b 0a 09 09 69 | 66 20 28 79 65 73 6e 6f | ");...i|f (yesno|
|00005280| 28 29 3d 3d 31 29 20 7b | 09 2b 2b 71 75 69 63 6b |()==1) {|.++quick|
|00005290| 72 6f 6f 6d 2e 51 52 67 | 65 6e 3b 0a 09 09 09 09 |room.QRg|en;.....|
|000052a0| 69 66 20 28 71 75 69 63 | 6b 72 6f 6f 6d 2e 51 52 |if (quic|kroom.QR|
|000052b0| 67 65 6e 3d 3d 31 30 30 | 29 20 71 75 69 63 6b 72 |gen==100|) quickr|
|000052c0| 6f 6f 6d 2e 51 52 67 65 | 6e 3d 31 30 3b 20 7d 0a |oom.QRge|n=10; }.|
|000052d0| 09 09 7d 0a 0a 09 70 72 | 69 6e 74 66 28 22 50 72 |..}...pr|intf("Pr|
|000052e0| 65 66 65 72 72 65 64 20 | 75 73 65 72 73 20 6f 6e |eferred |users on|
|000052f0| 6c 79 3f 20 22 29 3b 0a | 69 66 20 28 79 65 73 6e |ly? ");.|if (yesn|
|00005300| 6f 28 29 3d 3d 30 29 20 | 71 75 69 63 6b 72 6f 6f |o()==0) |quickroo|
|00005310| 6d 2e 51 52 66 6c 61 67 | 73 3d 28 71 75 69 63 6b |m.QRflag|s=(quick|
|00005320| 72 6f 6f 6d 2e 51 52 66 | 6c 61 67 73 2d 51 52 5f |room.QRf|lags-QR_|
|00005330| 50 52 45 46 4f 4e 4c 59 | 29 3b 0a 09 70 72 69 6e |PREFONLY|);..prin|
|00005340| 74 66 28 22 44 69 72 65 | 63 74 6f 72 79 20 72 6f |tf("Dire|ctory ro|
|00005350| 6f 6d 3f 20 22 29 3b 0a | 69 66 20 28 79 65 73 6e |om? ");.|if (yesn|
|00005360| 6f 28 29 3d 3d 30 29 20 | 71 75 69 63 6b 72 6f 6f |o()==0) |quickroo|
|00005370| 6d 2e 51 52 66 6c 61 67 | 73 3d 28 71 75 69 63 6b |m.QRflag|s=(quick|
|00005380| 72 6f 6f 6d 2e 51 52 66 | 6c 61 67 73 2d 51 52 5f |room.QRf|lags-QR_|
|00005390| 44 49 52 45 43 54 4f 52 | 59 29 3b 0a 65 6c 73 65 |DIRECTOR|Y);.else|
|000053a0| 20 7b 0a 09 70 72 69 6e | 74 66 28 22 20 20 20 20 | {..prin|tf("    |
|000053b0| 20 44 69 72 65 63 74 6f | 72 79 20 6e 61 6d 65 3f | Directo|ry name?|
|000053c0| 20 22 29 3b 0a 09 67 65 | 74 6c 69 6e 65 28 71 75 | ");..ge|tline(qu|
|000053d0| 69 63 6b 72 6f 6f 6d 2e | 51 52 64 69 72 6e 61 6d |ickroom.|QRdirnam|
|000053e0| 65 2c 31 34 29 3b 0a 09 | 70 72 69 6e 74 66 28 22 |e,14);..|printf("|
|000053f0| 20 20 55 70 6c 6f 61 64 | 69 6e 67 20 61 6c 6c 6f |  Upload|ing allo|
|00005400| 77 65 64 3f 20 22 29 3b | 0a 69 66 20 28 79 65 73 |wed? ");|.if (yes|
|00005410| 6e 6f 28 29 3d 3d 30 29 | 20 71 75 69 63 6b 72 6f |no()==0)| quickro|
|00005420| 6f 6d 2e 51 52 66 6c 61 | 67 73 3d 28 71 75 69 63 |om.QRfla|gs=(quic|
|00005430| 6b 72 6f 6f 6d 2e 51 52 | 66 6c 61 67 73 2d 51 52 |kroom.QR|flags-QR|
|00005440| 5f 55 50 4c 4f 41 44 29 | 3b 0a 09 70 72 69 6e 74 |_UPLOAD)|;..print|
|00005450| 66 28 22 44 6f 77 6e 6c | 6f 61 64 69 6e 67 20 61 |f("Downl|oading a|
|00005460| 6c 6c 6f 77 65 64 3f 20 | 22 29 3b 0a 69 66 20 28 |llowed? |");.if (|
|00005470| 79 65 73 6e 6f 28 29 3d | 3d 30 29 20 71 75 69 63 |yesno()=|=0) quic|
|00005480| 6b 72 6f 6f 6d 2e 51 52 | 66 6c 61 67 73 3d 28 71 |kroom.QR|flags=(q|
|00005490| 75 69 63 6b 72 6f 6f 6d | 2e 51 52 66 6c 61 67 73 |uickroom|.QRflags|
|000054a0| 2d 51 52 5f 44 4f 57 4e | 4c 4f 41 44 29 3b 0a 09 |-QR_DOWN|LOAD);..|
|000054b0| 70 72 69 6e 74 66 28 22 | 20 20 56 69 73 69 62 6c |printf("|  Visibl|
|000054c0| 65 20 44 69 72 65 63 74 | 6f 72 79 3f 20 22 29 3b |e Direct|ory? ");|
|000054d0| 0a 69 66 20 28 79 65 73 | 6e 6f 28 29 3d 3d 30 29 |.if (yes|no()==0)|
|000054e0| 20 71 75 69 63 6b 72 6f | 6f 6d 2e 51 52 66 6c 61 | quickro|om.QRfla|
|000054f0| 67 73 3d 28 71 75 69 63 | 6b 72 6f 6f 6d 2e 51 52 |gs=(quic|kroom.QR|
|00005500| 66 6c 61 67 73 2d 51 52 | 5f 56 49 53 44 49 52 29 |flags-QR|_VISDIR)|
|00005510| 3b 20 7d 0a 09 70 72 69 | 6e 74 66 28 22 4e 65 74 |; }..pri|ntf("Net|
|00005520| 77 6f 72 6b 20 52 6f 6f | 6d 3f 20 22 29 3b 0a 69 |work Roo|m? ");.i|
|00005530| 66 20 28 79 65 73 6e 6f | 28 29 3d 3d 30 29 20 71 |f (yesno|()==0) q|
|00005540| 75 69 63 6b 72 6f 6f 6d | 2e 51 52 66 6c 61 67 73 |uickroom|.QRflags|
|00005550| 3d 28 71 75 69 63 6b 72 | 6f 6f 6d 2e 51 52 66 6c |=(quickr|oom.QRfl|
|00005560| 61 67 73 2d 51 52 5f 4e | 45 54 57 4f 52 4b 29 3b |ags-QR_N|ETWORK);|
|00005570| 0a 09 70 72 69 6e 74 66 | 28 22 3c 31 3e 4e 6f 72 |..printf|("<1>Nor|
|00005580| 6d 61 6c 20 3c 32 3e 41 | 6e 6f 6e 2d 6f 6e 6c 79 |mal <2>A|non-only|
|00005590| 20 3c 33 3e 41 6e 6f 6e | 2d 6f 70 74 69 6f 6e 20 | <3>Anon|-option |
|000055a0| 3f 20 22 29 3b 0a 09 64 | 6f 20 7b 0a 09 09 61 3d |? ");..d|o {...a=|
|000055b0| 69 6e 6b 65 79 28 29 2d | 34 38 3b 0a 09 09 7d 20 |inkey()-|48;...} |
|000055c0| 77 68 69 6c 65 28 28 61 | 3c 31 29 7c 7c 28 61 3e |while((a|<1)||(a>|
|000055d0| 33 29 29 3b 0a 09 70 72 | 69 6e 74 66 28 22 25 64 |3));..pr|intf("%d|
|000055e0| 5c 6e 22 2c 61 29 3b 0a | 69 66 20 28 28 61 3d 3d |\n",a);.|if ((a==|
|000055f0| 31 29 7c 7c 28 61 3d 3d | 33 29 29 20 71 75 69 63 |1)||(a==|3)) quic|
|00005600| 6b 72 6f 6f 6d 2e 51 52 | 66 6c 61 67 73 3d 28 71 |kroom.QR|flags=(q|
|00005610| 75 69 63 6b 72 6f 6f 6d | 2e 51 52 66 6c 61 67 73 |uickroom|.QRflags|
|00005620| 2d 51 52 5f 41 4e 4f 4e | 4f 4e 4c 59 29 3b 0a 69 |-QR_ANON|ONLY);.i|
|00005630| 66 20 28 28 61 3d 3d 31 | 29 7c 7c 28 61 3d 3d 32 |f ((a==1|)||(a==2|
|00005640| 29 29 20 71 75 69 63 6b | 72 6f 6f 6d 2e 51 52 66 |)) quick|room.QRf|
|00005650| 6c 61 67 73 3d 28 71 75 | 69 63 6b 72 6f 6f 6d 2e |lags=(qu|ickroom.|
|00005660| 51 52 66 6c 61 67 73 2d | 51 52 5f 41 4e 4f 4e 32 |QRflags-|QR_ANON2|
|00005670| 29 3b 0a 52 41 4e 53 55 | 3a 09 66 69 6c 65 32 3d |);.RANSU|:.file2=|
|00005680| 6f 70 65 6e 28 22 75 73 | 65 72 73 75 70 70 22 2c |open("us|ersupp",|
|00005690| 4f 5f 52 44 4f 4e 4c 59 | 29 3b 09 2f 2a 20 28 67 |O_RDONLY|);./* (g|
|000056a0| 65 65 2c 20 74 68 61 6e | 6b 73 20 61 20 6c 6f 74 |ee, than|ks a lot|
|000056b0| 21 29 20 2a 2f 0a 09 69 | 66 20 28 71 75 69 63 6b |!) */..i|f (quick|
|000056c0| 72 6f 6f 6d 2e 51 52 72 | 6f 6f 6d 61 69 64 65 3e |room.QRr|oomaide>|
|000056d0| 3d 30 4c 29 20 7b 0a 09 | 09 64 6f 20 7b 0a 09 09 |=0L) {..|.do {...|
|000056e0| 09 61 3d 72 65 61 64 28 | 66 69 6c 65 32 2c 26 74 |.a=read(|file2,&t|
|000056f0| 65 6d 70 55 53 2c 73 69 | 7a 65 6f 66 28 73 74 72 |empUS,si|zeof(str|
|00005700| 75 63 74 20 75 73 65 72 | 73 75 70 70 29 29 3b 0a |uct user|supp));.|
|00005710| 09 09 09 7d 20 77 68 69 | 6c 65 28 28 61 3e 30 29 |...} whi|le((a>0)|
|00005720| 26 26 28 71 75 69 63 6b | 72 6f 6f 6d 2e 51 52 72 |&&(quick|room.QRr|
|00005730| 6f 6f 6d 61 69 64 65 21 | 3d 74 65 6d 70 55 53 2e |oomaide!|=tempUS.|
|00005740| 65 74 65 72 6e 61 6c 29 | 29 3b 0a 09 09 63 6c 6f |eternal)|);...clo|
|00005750| 73 65 28 66 69 6c 65 32 | 29 3b 0a 09 09 69 66 20 |se(file2|);...if |
|00005760| 28 61 3e 30 29 20 70 72 | 69 6e 74 66 28 22 52 6f |(a>0) pr|intf("Ro|
|00005770| 6f 6d 20 61 69 64 65 20 | 69 73 20 63 75 72 72 65 |om aide |is curre|
|00005780| 6e 74 6c 79 3a 20 25 73 | 5c 6e 4e 65 77 20 22 2c |ntly: %s|\nNew ",|
|00005790| 0a 09 09 09 74 65 6d 70 | 55 53 2e 66 75 6c 6c 6e |....temp|US.fulln|
|000057a0| 61 6d 65 29 3b 0a 09 09 | 7d 0a 09 65 6c 73 65 20 |ame);...|}..else |
|000057b0| 70 72 69 6e 74 66 28 22 | 4e 6f 20 72 6f 6f 6d 20 |printf("|No room |
|000057c0| 61 69 64 65 2e 5c 6e 22 | 29 3b 0a 09 70 72 69 6e |aide.\n"|);..prin|
|000057d0| 74 66 28 22 52 6f 6f 6d | 20 61 69 64 65 20 28 52 |tf("Room| aide (R|
|000057e0| 45 54 55 52 4e 20 74 6f | 20 6c 65 61 76 65 20 75 |ETURN to| leave u|
|000057f0| 6e 63 68 61 6e 67 65 64 | 29 3a 20 22 29 3b 0a 09 |nchanged|): ");..|
|00005800| 67 65 74 6c 69 6e 65 28 | 61 61 61 2c 32 39 29 3b |getline(|aaa,29);|
|00005810| 0a 09 69 66 20 28 61 61 | 61 5b 30 5d 21 3d 30 29 |..if (aa|a[0]!=0)|
|00005820| 20 7b 0a 09 09 66 69 6c | 65 32 3d 6f 70 65 6e 28 | {...fil|e2=open(|
|00005830| 22 75 73 65 72 73 75 70 | 70 22 2c 4f 5f 52 44 4f |"usersup|p",O_RDO|
|00005840| 4e 4c 59 29 3b 0a 09 09 | 61 61 3d 66 69 6e 64 75 |NLY);...|aa=findu|
|00005850| 73 65 72 28 66 69 6c 65 | 32 2c 61 61 61 29 3b 0a |ser(file|2,aaa);.|
|00005860| 09 09 72 65 61 64 28 66 | 69 6c 65 32 2c 26 74 65 |..read(f|ile2,&te|
|00005870| 6d 70 55 53 2c 73 69 7a | 65 6f 66 28 73 74 72 75 |mpUS,siz|eof(stru|
|00005880| 63 74 20 75 73 65 72 73 | 75 70 70 29 29 3b 0a 09 |ct users|upp));..|
|00005890| 09 63 6c 6f 73 65 28 66 | 69 6c 65 32 29 3b 0a 09 |.close(f|ile2);..|
|000058a0| 09 69 66 20 28 61 61 3d | 3d 28 2d 31 4c 29 29 20 |.if (aa=|=(-1L)) |
|000058b0| 7b 0a 09 09 09 70 72 69 | 6e 74 66 28 22 4e 6f 20 |{....pri|ntf("No |
|000058c0| 73 75 63 68 20 75 73 65 | 72 2e 5c 6e 22 29 3b 20 |such use|r.\n"); |
|000058d0| 67 6f 74 6f 20 52 41 4e | 53 55 3b 20 7d 0a 09 09 |goto RAN|SU; }...|
|000058e0| 71 75 69 63 6b 72 6f 6f | 6d 2e 51 52 72 6f 6f 6d |quickroo|m.QRroom|
|000058f0| 61 69 64 65 3d 74 65 6d | 70 55 53 2e 65 74 65 72 |aide=tem|pUS.eter|
|00005900| 6e 61 6c 3b 0a 09 09 7d | 0a 09 70 72 69 6e 74 66 |nal;...}|..printf|
|00005910| 28 22 5c 6e 5c 6e 53 61 | 76 65 20 63 68 61 6e 67 |("\n\nSa|ve chang|
|00005920| 65 73 20 28 79 2f 6e 29 | 3f 20 22 29 3b 0a 09 69 |es (y/n)|? ");..i|
|00005930| 66 20 28 79 65 73 6e 6f | 28 29 3d 3d 30 29 20 7b |f (yesno|()==0) {|
|00005940| 0a 09 09 6c 73 65 65 6b | 28 66 69 6c 65 2c 28 6c |...lseek|(file,(l|
|00005950| 6f 6e 67 29 28 63 75 72 | 72 5f 72 6d 2a 73 69 7a |ong)(cur|r_rm*siz|
|00005960| 65 6f 66 28 73 74 72 75 | 63 74 20 71 75 69 63 6b |eof(stru|ct quick|
|00005970| 72 6f 6f 6d 29 29 2c 30 | 29 3b 0a 09 09 62 3d 72 |room)),0|);...b=r|
|00005980| 65 61 64 28 66 69 6c 65 | 2c 26 71 75 69 63 6b 72 |ead(file|,&quickr|
|00005990| 6f 6f 6d 2c 73 69 7a 65 | 6f 66 28 73 74 72 75 63 |oom,size|of(struc|
|000059a0| 74 20 71 75 69 63 6b 72 | 6f 6f 6d 29 29 3b 0a 09 |t quickr|oom));..|
|000059b0| 09 69 66 20 28 62 3c 31 | 29 20 69 6e 74 65 72 72 |.if (b<1|) interr|
|000059c0| 28 33 36 29 3b 0a 09 09 | 63 6c 6f 73 65 28 66 69 |(36);...|close(fi|
|000059d0| 6c 65 29 3b 20 72 65 74 | 75 72 6e 28 30 29 3b 0a |le); ret|urn(0);.|
|000059e0| 09 09 7d 0a 09 6c 73 65 | 65 6b 28 66 69 6c 65 2c |..}..lse|ek(file,|
|000059f0| 28 6c 6f 6e 67 29 28 63 | 75 72 72 5f 72 6d 2a 73 |(long)(c|urr_rm*s|
|00005a00| 69 7a 65 6f 66 28 73 74 | 72 75 63 74 20 71 75 69 |izeof(st|ruct qui|
|00005a10| 63 6b 72 6f 6f 6d 29 29 | 2c 30 29 3b 0a 09 62 3d |ckroom))|,0);..b=|
|00005a20| 77 72 69 74 65 28 66 69 | 6c 65 2c 26 71 75 69 63 |write(fi|le,&quic|
|00005a30| 6b 72 6f 6f 6d 2c 73 69 | 7a 65 6f 66 28 73 74 72 |kroom,si|zeof(str|
|00005a40| 75 63 74 20 71 75 69 63 | 6b 72 6f 6f 6d 29 29 3b |uct quic|kroom));|
|00005a50| 0a 09 63 6c 6f 73 65 28 | 66 69 6c 65 29 3b 0a 09 |..close(|file);..|
|00005a60| 69 66 20 28 71 75 69 63 | 6b 72 6f 6f 6d 2e 51 52 |if (quic|kroom.QR|
|00005a70| 66 6c 61 67 73 20 26 20 | 51 52 5f 44 49 52 45 43 |flags & |QR_DIREC|
|00005a80| 54 4f 52 59 29 20 7b 0a | 09 09 73 70 72 69 6e 74 |TORY) {.|..sprint|
|00005a90| 66 28 61 61 61 2c 22 6d | 6b 64 69 72 20 2e 2f 66 |f(aaa,"m|kdir ./f|
|00005aa0| 69 6c 65 73 2f 25 73 22 | 2c 71 75 69 63 6b 72 6f |iles/%s"|,quickro|
|00005ab0| 6f 6d 2e 51 52 64 69 72 | 6e 61 6d 65 29 3b 0a 09 |om.QRdir|name);..|
|00005ac0| 09 73 79 73 74 65 6d 28 | 61 61 61 29 3b 0a 09 09 |.system(|aaa);...|
|00005ad0| 73 70 72 69 6e 74 66 28 | 61 61 61 2c 22 2e 2f 66 |sprintf(|aaa,"./f|
|00005ae0| 69 6c 65 73 2f 25 73 22 | 2c 71 75 69 63 6b 72 6f |iles/%s"|,quickro|
|00005af0| 6f 6d 2e 51 52 64 69 72 | 6e 61 6d 65 29 3b 0a 09 |om.QRdir|name);..|
|00005b00| 09 63 68 6d 6f 64 28 61 | 61 61 2c 30 37 37 37 29 |.chmod(a|aa,0777)|
|00005b10| 3b 0a 09 09 7d 0a 09 73 | 70 72 69 6e 74 66 28 61 |;...}..s|printf(a|
|00005b20| 61 61 2c 22 25 73 25 63 | 20 65 64 69 74 65 64 20 |aa,"%s%c| edited |
|00005b30| 62 79 20 25 73 22 2c 0a | 09 09 71 75 69 63 6b 72 |by %s",.|..quickr|
|00005b40| 6f 6f 6d 2e 51 52 6e 61 | 6d 65 2c 72 6f 6f 6d 5f |oom.QRna|me,room_|
|00005b50| 70 72 6f 6d 70 74 28 26 | 71 75 69 63 6b 72 6f 6f |prompt(&|quickroo|
|00005b60| 6d 29 2c 75 73 65 72 73 | 75 70 70 2e 66 75 6c 6c |m),users|upp.full|
|00005b70| 6e 61 6d 65 29 3b 0a 09 | 61 69 64 65 5f 6d 65 73 |name);..|aide_mes|
|00005b80| 73 61 67 65 28 61 61 61 | 29 3b 0a 09 72 65 74 75 |sage(aaa|);..retu|
|00005b90| 72 6e 28 30 29 3b 0a 7d | 0a 0a 75 6e 67 6f 74 6f |rn(0);.}|..ungoto|
|00005ba0| 28 29 20 7b 0a 09 69 66 | 20 28 75 67 6e 75 6d 3d |() {..if| (ugnum=|
|00005bb0| 3d 28 2d 31 29 29 20 72 | 65 74 75 72 6e 28 30 29 |=(-1)) r|eturn(0)|
|00005bc0| 3b 0a 09 72 65 61 64 79 | 65 72 73 65 6c 66 28 29 |;..ready|erself()|
|00005bd0| 3b 0a 09 63 75 72 72 5f | 72 6d 3d 75 67 6e 75 6d |;..curr_|rm=ugnum|
|00005be0| 3b 0a 09 67 6f 74 6f 63 | 75 72 72 28 29 3b 0a 09 |;..gotoc|urr();..|
|00005bf0| 75 73 65 72 73 75 70 70 | 2e 6c 61 73 74 73 65 65 |usersupp|.lastsee|
|00005c00| 6e 5b 63 75 72 72 5f 72 | 6d 5d 3d 75 67 6c 73 6e |n[curr_r|m]=uglsn|
|00005c10| 3b 0a 09 77 72 69 74 65 | 79 65 72 73 65 6c 66 28 |;..write|yerself(|
|00005c20| 29 3b 0a 09 72 65 74 75 | 72 6e 28 30 29 3b 0a 7d |);..retu|rn(0);.}|
|00005c30| 0a 0a 64 6f 77 6e 6c 6f | 61 64 28 63 29 0a 69 6e |..downlo|ad(c).in|
|00005c40| 74 20 63 3b 0a 7b 0a 09 | 69 6e 74 20 61 3b 0a 09 |t c;.{..|int a;..|
|00005c50| 63 68 61 72 20 61 61 61 | 5b 31 30 30 5d 2c 62 62 |char aaa|[100],bb|
|00005c60| 62 5b 31 30 30 5d 3b 0a | 09 69 66 20 28 28 71 75 |b[100];.|.if ((qu|
|00005c70| 69 63 6b 72 6f 6f 6d 2e | 51 52 66 6c 61 67 73 26 |ickroom.|QRflags&|
|00005c80| 51 52 5f 44 49 52 45 43 | 54 4f 52 59 29 0a 09 09 |QR_DIREC|TORY)...|
|00005c90| 26 26 28 71 75 69 63 6b | 72 6f 6f 6d 2e 51 52 66 |&&(quick|room.QRf|
|00005ca0| 6c 61 67 73 26 51 52 5f | 44 4f 57 4e 4c 4f 41 44 |lags&QR_|DOWNLOAD|
|00005cb0| 29 29 20 7b 0a 09 09 09 | 70 72 69 6e 74 66 28 22 |)) {....|printf("|
|00005cc0| 45 6e 74 65 72 20 66 69 | 6c 65 6e 61 6d 65 3a 20 |Enter fi|lename: |
|00005cd0| 22 29 3b 0a 09 09 09 67 | 65 74 6c 69 6e 65 28 61 |");....g|etline(a|
|00005ce0| 61 61 2c 31 35 29 3b 0a | 09 09 09 66 6f 72 20 28 |aa,15);.|...for (|
|00005cf0| 61 3d 30 3b 20 61 3c 73 | 74 72 6c 65 6e 28 61 61 |a=0; a<s|trlen(aa|
|00005d00| 61 29 3b 20 2b 2b 61 29 | 20 7b 0a 09 09 09 09 61 |a); ++a)| {.....a|
|00005d10| 61 61 5b 61 5d 3d 74 6f | 6c 6f 77 65 72 28 61 61 |aa[a]=to|lower(aa|
|00005d20| 61 5b 61 5d 29 3b 0a 09 | 09 09 09 69 66 20 28 61 |a[a]);..|...if (a|
|00005d30| 61 61 5b 61 5d 3d 3d 27 | 2f 27 29 20 61 61 61 5b |aa[a]=='|/') aaa[|
|00005d40| 61 5d 3d 27 5f 27 3b 0a | 09 09 09 09 7d 0a 09 73 |a]='_';.|....}..s|
|00005d50| 70 72 69 6e 74 66 28 62 | 62 62 2c 22 66 69 6c 65 |printf(b|bb,"file|
|00005d60| 73 2f 25 73 2f 25 73 22 | 2c 71 75 69 63 6b 72 6f |s/%s/%s"|,quickro|
|00005d70| 6f 6d 2e 51 52 64 69 72 | 6e 61 6d 65 2c 61 61 61 |om.QRdir|name,aaa|
|00005d80| 29 3b 0a 09 69 66 20 28 | 63 3d 3d 30 29 20 66 6f |);..if (|c==0) fo|
|00005d90| 72 6d 6f 75 74 28 62 62 | 62 29 3b 0a 09 69 66 20 |rmout(bb|b);..if |
|00005da0| 28 63 3d 3d 31 29 20 7b | 0a 09 09 73 70 72 69 6e |(c==1) {|...sprin|
|00005db0| 74 66 28 61 61 61 2c 22 | 77 63 73 65 6e 64 20 25 |tf(aaa,"|wcsend %|
|00005dc0| 73 22 2c 62 62 62 29 3b | 0a 09 09 73 79 73 74 65 |s",bbb);|...syste|
|00005dd0| 6d 28 61 61 61 29 3b 0a | 09 09 7d 0a 09 69 66 20 |m(aaa);.|..}..if |
|00005de0| 28 63 3d 3d 32 29 20 7b | 0a 09 09 73 69 67 6e 61 |(c==2) {|...signa|
|00005df0| 6c 28 53 49 47 51 55 49 | 54 2c 53 49 47 5f 44 46 |l(SIGQUI|T,SIG_DF|
|00005e00| 4c 29 3b 0a 09 09 73 74 | 74 79 62 62 73 28 31 29 |L);...st|tybbs(1)|
|00005e10| 3b 0a 09 09 73 70 72 69 | 6e 74 66 28 61 61 61 2c |;...spri|ntf(aaa,|
|00005e20| 22 63 61 74 20 3c 25 73 | 22 2c 62 62 62 29 3b 0a |"cat <%s|",bbb);.|
|00005e30| 09 09 73 79 73 74 65 6d | 28 61 61 61 29 3b 0a 09 |..system|(aaa);..|
|00005e40| 09 73 74 74 79 62 62 73 | 28 30 29 3b 0a 09 09 75 |.sttybbs|(0);...u|
|00005e50| 6e 6c 69 6e 6b 28 22 63 | 6f 72 65 22 29 3b 09 2f |nlink("c|ore");./|
|00005e60| 2a 20 6a 75 73 74 20 69 | 6e 20 63 61 73 65 20 74 |* just i|n case t|
|00005e70| 68 65 20 63 6f 72 65 20 | 77 61 73 20 64 75 6d 70 |he core |was dump|
|00005e80| 65 64 20 2a 2f 0a 09 09 | 7d 0a 09 7d 0a 09 65 6c |ed */...|}..}..el|
|00005e90| 73 65 0a 09 09 70 72 69 | 6e 74 66 28 22 4e 6f 74 |se...pri|ntf("Not|
|00005ea0| 20 69 6e 20 74 68 69 73 | 20 72 6f 6f 6d 2e 5c 6e | in this| room.\n|
|00005eb0| 22 29 3b 0a 09 72 65 74 | 75 72 6e 28 30 29 3b 0a |");..ret|urn(0);.|
|00005ec0| 7d 0a 0a 72 6f 6f 6d 64 | 69 72 28 29 20 7b 0a 09 |}..roomd|ir() {..|
|00005ed0| 63 68 61 72 20 61 61 61 | 5b 31 30 30 5d 3b 0a 09 |char aaa|[100];..|
|00005ee0| 69 66 20 28 28 71 75 69 | 63 6b 72 6f 6f 6d 2e 51 |if ((qui|ckroom.Q|
|00005ef0| 52 66 6c 61 67 73 26 51 | 52 5f 44 49 52 45 43 54 |Rflags&Q|R_DIRECT|
|00005f00| 4f 52 59 29 0a 09 20 20 | 20 26 26 28 71 75 69 63 |ORY)..  | &&(quic|
|00005f10| 6b 72 6f 6f 6d 2e 51 52 | 66 6c 61 67 73 26 51 52 |kroom.QR|flags&QR|
|00005f20| 5f 56 49 53 44 49 52 29 | 29 20 7b 0a 09 09 73 70 |_VISDIR)|) {...sp|
|00005f30| 72 69 6e 74 66 28 61 61 | 61 2c 22 2e 2f 66 69 6c |rintf(aa|a,"./fil|
|00005f40| 65 73 2f 25 73 22 2c 71 | 75 69 63 6b 72 6f 6f 6d |es/%s",q|uickroom|
|00005f50| 2e 51 52 64 69 72 6e 61 | 6d 65 29 3b 0a 09 09 70 |.QRdirna|me);...p|
|00005f60| 72 69 6e 74 66 28 22 44 | 69 72 65 63 74 6f 72 79 |rintf("D|irectory|
|00005f70| 20 6f 66 20 25 73 21 25 | 73 2f 25 73 5c 6e 22 2c | of %s!%|s/%s\n",|
|00005f80| 4e 4f 44 45 4e 41 4d 45 | 2c 42 42 53 44 49 52 2c |NODENAME|,BBSDIR,|
|00005f90| 26 61 61 61 5b 32 5d 29 | 3b 0a 09 09 64 69 72 65 |&aaa[2])|;...dire|
|00005fa0| 63 74 6f 72 79 28 61 61 | 61 29 3b 0a 09 09 7d 0a |ctory(aa|a);...}.|
|00005fb0| 09 65 6c 73 65 0a 09 09 | 70 72 69 6e 74 66 28 22 |.else...|printf("|
|00005fc0| 4e 6f 74 20 69 6e 20 74 | 68 69 73 20 72 6f 6f 6d |Not in t|his room|
|00005fd0| 2e 5c 6e 22 29 3b 0a 09 | 72 65 74 75 72 6e 28 30 |.\n");..|return(0|
|00005fe0| 29 3b 0a 7d 0a 0a 69 6e | 76 69 74 65 28 29 20 7b |);.}..in|vite() {|
|00005ff0| 09 2f 2a 20 61 64 64 20 | 61 20 75 73 65 72 20 74 |./* add |a user t|
|00006000| 6f 20 61 20 70 72 69 76 | 61 74 65 20 72 6f 6f 6d |o a priv|ate room|
|00006010| 20 2a 2f 0a 09 63 68 61 | 72 20 61 61 61 5b 33 31 | */..cha|r aaa[31|
|00006020| 5d 3b 0a 09 69 6e 74 20 | 66 69 6c 65 3b 0a 09 6c |];..int |file;..l|
|00006030| 6f 6e 67 20 61 61 3b 0a | 09 73 74 72 75 63 74 20 |ong aa;.|.struct |
|00006040| 75 73 65 72 73 75 70 70 | 20 55 53 73 63 72 61 74 |usersupp| USscrat|
|00006050| 63 68 3b 0a 09 69 66 20 | 28 28 71 75 69 63 6b 72 |ch;..if |((quickr|
|00006060| 6f 6f 6d 2e 51 52 66 6c | 61 67 73 26 51 52 5f 50 |oom.QRfl|ags&QR_P|
|00006070| 52 49 56 41 54 45 29 3d | 3d 30 29 20 7b 0a 09 09 |RIVATE)=|=0) {...|
|00006080| 70 72 69 6e 74 66 28 22 | 4e 6f 74 20 61 20 70 72 |printf("|Not a pr|
|00006090| 69 76 61 74 65 20 72 6f | 6f 6d 2e 5c 6e 22 29 3b |ivate ro|om.\n");|
|000060a0| 0a 09 09 72 65 74 75 72 | 6e 28 30 29 3b 0a 09 09 |...retur|n(0);...|
|000060b0| 7d 0a 09 70 72 69 6e 74 | 66 28 22 4e 61 6d 65 20 |}..print|f("Name |
|000060c0| 6f 66 20 75 73 65 72 3f | 20 22 29 3b 0a 09 67 65 |of user?| ");..ge|
|000060d0| 74 6c 69 6e 65 28 61 61 | 61 2c 33 30 29 3b 0a 09 |tline(aa|a,30);..|
|000060e0| 69 66 20 28 61 61 61 5b | 30 5d 3d 3d 30 29 20 72 |if (aaa[|0]==0) r|
|000060f0| 65 74 75 72 6e 28 30 29 | 3b 0a 09 66 69 6c 65 3d |eturn(0)|;..file=|
|00006100| 6f 70 65 6e 28 22 75 73 | 65 72 73 75 70 70 22 2c |open("us|ersupp",|
|00006110| 4f 5f 52 44 57 52 29 3b | 0a 09 69 66 20 28 66 69 |O_RDWR);|..if (fi|
|00006120| 6c 65 3c 30 29 20 69 6e | 74 65 72 72 28 33 38 29 |le<0) in|terr(38)|
|00006130| 3b 0a 09 61 61 3d 66 69 | 6e 64 75 73 65 72 28 66 |;..aa=fi|nduser(f|
|00006140| 69 6c 65 2c 61 61 61 29 | 3b 0a 09 69 66 20 28 61 |ile,aaa)|;..if (a|
|00006150| 61 21 3d 28 2d 31 4c 29 | 29 20 7b 0a 09 09 72 65 |a!=(-1L)|) {...re|
|00006160| 61 64 28 66 69 6c 65 2c | 26 55 53 73 63 72 61 74 |ad(file,|&USscrat|
|00006170| 63 68 2c 73 69 7a 65 6f | 66 28 73 74 72 75 63 74 |ch,sizeo|f(struct|
|00006180| 20 75 73 65 72 73 75 70 | 70 29 29 3b 0a 09 09 6c | usersup|p));...l|
|00006190| 73 65 65 6b 28 66 69 6c | 65 2c 61 61 2c 30 29 3b |seek(fil|e,aa,0);|
|000061a0| 0a 09 09 55 53 73 63 72 | 61 74 63 68 2e 67 65 6e |...USscr|atch.gen|
|000061b0| 65 72 61 74 69 6f 6e 5b | 63 75 72 72 5f 72 6d 5d |eration[|curr_rm]|
|000061c0| 3d 71 75 69 63 6b 72 6f | 6f 6d 2e 51 52 67 65 6e |=quickro|om.QRgen|
|000061d0| 3b 0a 09 09 55 53 73 63 | 72 61 74 63 68 2e 66 6f |;...USsc|ratch.fo|
|000061e0| 72 67 65 74 5b 63 75 72 | 72 5f 72 6d 5d 3d 28 2d |rget[cur|r_rm]=(-|
|000061f0| 31 29 3b 0a 09 09 77 72 | 69 74 65 28 66 69 6c 65 |1);...wr|ite(file|
|00006200| 2c 26 55 53 73 63 72 61 | 74 63 68 2c 73 69 7a 65 |,&USscra|tch,size|
|00006210| 6f 66 28 73 74 72 75 63 | 74 20 75 73 65 72 73 75 |of(struc|t usersu|
|00006220| 70 70 29 29 3b 0a 09 09 | 7d 0a 09 65 6c 73 65 09 |pp));...|}..else.|
|00006230| 70 72 69 6e 74 66 28 22 | 4e 6f 20 73 75 63 68 20 |printf("|No such |
|00006240| 75 73 65 72 2e 5c 6e 22 | 29 3b 0a 09 63 6c 6f 73 |user.\n"|);..clos|
|00006250| 65 28 66 69 6c 65 29 3b | 0a 09 72 65 74 75 72 6e |e(file);|..return|
|00006260| 28 30 29 3b 0a 0a 7d 0a | 0a 6b 69 63 6b 6f 75 74 |(0);..}.|.kickout|
|00006270| 28 29 20 7b 09 2f 2a 20 | 6b 69 63 6b 20 61 20 75 |() {./* |kick a u|
|00006280| 73 65 72 20 6f 75 74 20 | 6f 66 20 61 20 70 72 69 |ser out |of a pri|
|00006290| 76 61 74 65 20 72 6f 6f | 6d 20 2a 2f 0a 09 69 6e |vate roo|m */..in|
|000062a0| 74 20 66 69 6c 65 3b 0a | 09 63 68 61 72 20 61 61 |t file;.|.char aa|
|000062b0| 61 5b 31 30 30 5d 3b 0a | 09 6c 6f 6e 67 20 61 61 |a[100];.|.long aa|
|000062c0| 3b 0a 09 73 74 72 75 63 | 74 20 75 73 65 72 73 75 |;..struc|t usersu|
|000062d0| 70 70 20 55 53 73 63 72 | 61 74 63 68 3b 0a 09 69 |pp USscr|atch;..i|
|000062e0| 66 20 28 28 71 75 69 63 | 6b 72 6f 6f 6d 2e 51 52 |f ((quic|kroom.QR|
|000062f0| 66 6c 61 67 73 26 51 52 | 5f 50 52 49 56 41 54 45 |flags&QR|_PRIVATE|
|00006300| 29 3d 3d 30 29 20 7b 0a | 09 09 70 72 69 6e 74 66 |)==0) {.|..printf|
|00006310| 28 22 4e 6f 74 20 61 20 | 70 72 69 76 61 74 65 20 |("Not a |private |
|00006320| 72 6f 6f 6d 2e 5c 6e 22 | 29 3b 0a 09 09 72 65 74 |room.\n"|);...ret|
|00006330| 75 72 6e 28 30 29 3b 0a | 09 09 7d 0a 09 70 72 69 |urn(0);.|..}..pri|
|00006340| 6e 74 66 28 22 4e 61 6d | 65 20 6f 66 20 75 73 65 |ntf("Nam|e of use|
|00006350| 72 3f 20 22 29 3b 0a 09 | 67 65 74 6c 69 6e 65 28 |r? ");..|getline(|
|00006360| 61 61 61 2c 33 30 29 3b | 0a 09 66 69 6c 65 3d 6f |aaa,30);|..file=o|
|00006370| 70 65 6e 28 22 75 73 65 | 72 73 75 70 70 22 2c 4f |pen("use|rsupp",O|
|00006380| 5f 52 44 57 52 29 3b 0a | 09 69 66 20 28 66 69 6c |_RDWR);.|.if (fil|
|00006390| 65 3c 30 29 20 69 6e 74 | 65 72 72 28 34 30 29 3b |e<0) int|err(40);|
|000063a0| 0a 09 61 61 3d 66 69 6e | 64 75 73 65 72 28 66 69 |..aa=fin|duser(fi|
|000063b0| 6c 65 2c 61 61 61 29 3b | 0a 09 69 66 20 28 61 61 |le,aaa);|..if (aa|
|000063c0| 21 3d 28 2d 31 4c 29 29 | 20 7b 0a 09 09 72 65 61 |!=(-1L))| {...rea|
|000063d0| 64 28 66 69 6c 65 2c 26 | 55 53 73 63 72 61 74 63 |d(file,&|USscratc|
|000063e0| 68 2c 73 69 7a 65 6f 66 | 28 73 74 72 75 63 74 20 |h,sizeof|(struct |
|000063f0| 75 73 65 72 73 75 70 70 | 29 29 3b 0a 09 09 6c 73 |usersupp|));...ls|
+--------+-------------------------+-------------------------+--------+--------+