![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to useredit.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3|
Return to useredit.cpp CVS log | Up to [Synchronet] / sbbs / src / sbbs3 |
1.1 root 1: /* useredit.cpp */
2:
3: /* Synchronet online sysop user editor */
4:
1.1.1.2 ! root 5: /* $Id: useredit.cpp,v 1.42 2010/03/06 00:13:04 rswindell Exp $ */
1.1 root 6:
7: /****************************************************************************
8: * @format.tab-size 4 (Plain Text/Source Code File Header) *
9: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
10: * *
1.1.1.2 ! root 11: * Copyright 2010 Rob Swindell - http://www.synchro.net/copyright.html *
1.1 root 12: * *
13: * This program is free software; you can redistribute it and/or *
14: * modify it under the terms of the GNU General Public License *
15: * as published by the Free Software Foundation; either version 2 *
16: * of the License, or (at your option) any later version. *
17: * See the GNU General Public License for more details: gpl.txt or *
18: * http://www.fsf.org/copyleft/gpl.html *
19: * *
20: * Anonymous FTP access to the most recent released source is available at *
21: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
22: * *
23: * Anonymous CVS access to the development source and modification history *
24: * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login *
26: * (just hit return, no password is necessary) *
27: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src *
28: * *
29: * For Synchronet coding style and modification guidelines, see *
30: * http://www.synchro.net/source.html *
31: * *
32: * You are encouraged to submit any modifications (preferably in Unix diff *
33: * format) via e-mail to [email protected] *
34: * *
35: * Note: If this box doesn't appear square, then you need to fix your tabs. *
36: ****************************************************************************/
37:
38: /*******************************************************************/
39: /* The function useredit(), and functions that are closely related */
40: /*******************************************************************/
41:
42: #include "sbbs.h"
43:
44: #define SEARCH_TXT 0
45: #define SEARCH_ARS 1
46:
47: /****************************************************************************/
48: /* Edits user data. Can only edit users with a Main Security Level less */
49: /* than or equal to the current user's Main Security Level */
50: /* Called from functions waitforcall, main_sec, xfer_sec and inkey */
51: /****************************************************************************/
52: void sbbs_t::useredit(int usernumber)
53: {
54: char str[256],tmp2[256],tmp3[256],c,stype=SEARCH_TXT;
55: char tmp[512];
56: char search[256]={""},artxt[128]={""};
57: uchar *ar=NULL;
58: uint i,j,k;
59: float f;
60: long l;
61: user_t user;
62: struct tm tm;
63:
64: if(online==ON_REMOTE && console&(CON_R_ECHO|CON_R_INPUT) && !chksyspass())
65: return;
66: #if 0 /* no local logins in v3 */
67: if(online==ON_LOCAL) {
68: if(!(cfg.sys_misc&SM_L_SYSOP))
69: return;
70: if(cfg.node_misc&NM_SYSPW && !chksyspass())
1.1.1.2 ! root 71: return;
! 72: }
1.1 root 73: #endif
74: if(usernumber)
75: user.number=usernumber;
76: else
77: user.number=useron.number;
78: action=NODE_SYSP;
79: if(sys_status&SS_INUEDIT)
80: return;
81: sys_status|=SS_INUEDIT;
82: while(online) {
83: CLS;
84: attr(LIGHTGRAY);
85: getuserdat(&cfg,&user);
86: if(!user.number) {
87: user.number=1;
88: getuserdat(&cfg,&user);
89: if(!user.number) {
90: bputs(text[NoUserData]);
91: getkey(0);
92: sys_status&=~SS_INUEDIT;
1.1.1.2 ! root 93: return;
! 94: }
! 95: }
1.1 root 96: unixtodstr(&cfg,time(NULL),str);
97: unixtodstr(&cfg,user.laston,tmp);
98: if(strcmp(str,tmp) && user.ltoday) {
99: user.ltoday=user.ttoday=user.ptoday=user.etoday=user.textra=0;
100: user.freecdt=cfg.level_freecdtperday[user.level];
1.1.1.2 ! root 101: putuserdat(&cfg,&user); /* Leave alone */
! 102: }
1.1 root 103: if(user.misc&DELETED)
104: bputs(text[Deleted]);
105: else if(user.misc&INACTIVE)
106: bputs(text[Inactive]);
107: bprintf(text[UeditAliasPassword]
108: ,user.alias, (user.level>useron.level && console&CON_R_ECHO)
109: || !(cfg.sys_misc&SM_ECHO_PW) ? "XXXXXXXX" : user.pass
110: , unixtodstr(&cfg,user.pwmod,tmp));
111: bprintf(text[UeditRealNamePhone]
112: ,user.level>useron.level && console&CON_R_ECHO
113: ? "XXXXXXXX" : user.name
114: ,user.level>useron.level && console&CON_R_ECHO
115: ? "XXX-XXX-XXXX" : user.phone);
116: bprintf(text[UeditAddressBirthday]
117: ,user.address,getage(&cfg,user.birth),user.sex,user.birth);
118: bprintf(text[UeditLocationZipcode],user.location,user.zipcode);
119: bprintf(text[UeditNoteHandle],user.note,user.handle);
120: bprintf(text[UeditComputerModem],user.comp,user.modem);
121: if(user.netmail[0])
122: bprintf(text[UserNetMail],user.netmail);
123:
1.1.1.2 ! root 124: SAFEPRINTF2(str,"%suser/%4.4u.msg", cfg.data_dir,user.number);
1.1 root 125: i=fexist(str);
126: if(user.comment[0] || i)
127: bprintf(text[UeditCommentLine],i ? '+' : ' '
128: ,user.comment);
129: else
130: CRLF;
131: if(localtime_r(&user.laston,&tm)==NULL)
132: return;
133: bprintf(text[UserDates]
134: ,unixtodstr(&cfg,user.firston,str),unixtodstr(&cfg,user.expire,tmp)
135: ,unixtodstr(&cfg,user.laston,tmp2),tm.tm_hour, tm.tm_min);
136:
137: bprintf(text[UserTimes]
138: ,user.timeon,user.ttoday,cfg.level_timeperday[user.level]
139: ,user.tlast,cfg.level_timepercall[user.level],user.textra);
140: if(user.posts)
141: f=(float)user.logons/user.posts;
142: else
143: f=0;
144: bprintf(text[UserLogons]
145: ,user.logons,user.ltoday,cfg.level_callsperday[user.level],user.posts
146: ,f ? (uint)(100/f) : user.posts>user.logons ? 100 : 0
147: ,user.ptoday);
148: bprintf(text[UserEmails]
149: ,user.emails,user.fbacks,getmail(&cfg,user.number,0),user.etoday);
150:
151: bprintf(text[UserUploads],ultoac(user.ulb,tmp),user.uls);
152: if(user.leech)
1.1.1.2 ! root 153: SAFEPRINTF(str,text[UserLeech],user.leech);
1.1 root 154: else
155: str[0]=0;
156: bprintf(text[UserDownloads],ultoac(user.dlb,tmp),user.dls,str);
157: bprintf(text[UserCredits],ultoac(user.cdt,tmp)
158: ,ultoac(user.freecdt,tmp2),ultoac(cfg.level_freecdtperday[user.level],str));
159: bprintf(text[UserMinutes],ultoac(user.min,tmp));
160: bprintf(text[UeditSecLevel],user.level);
161: bprintf(text[UeditFlags],ltoaf(user.flags1,tmp),ltoaf(user.flags3,tmp2)
162: ,ltoaf(user.flags2,tmp3),ltoaf(user.flags4,str));
163: bprintf(text[UeditExempts],ltoaf(user.exempt,tmp),ltoaf(user.rest,tmp2));
164: l=lastuser(&cfg);
165: ASYNC;
166: if(lncntr>=rows-2)
167: lncntr=0;
168: bprintf(text[UeditPrompt],user.number,l);
169: if(user.level>useron.level && console&CON_R_INPUT)
1.1.1.2 ! root 170: SAFECOPY(str,"QG[]?/{},");
1.1 root 171: else
1.1.1.2 ! root 172: SAFECOPY(str,"ABCDEFGHIJKLMNOPQRSTUVWXYZ+[]?/{}~*$#");
1.1 root 173: l=getkeys(str,l);
174: if(l&0x80000000L) {
175: user.number=(ushort)(l&~0x80000000L);
1.1.1.2 ! root 176: continue;
! 177: }
1.1 root 178: switch(l) {
179: case 'A':
180: bputs(text[EnterYourAlias]);
181: getstr(user.alias,LEN_ALIAS,K_LINE|K_EDIT|K_AUTODEL);
182: putuserrec(&cfg,user.number,U_ALIAS,LEN_ALIAS,user.alias);
183: if(!(user.misc&DELETED))
184: putusername(&cfg,user.number,user.alias);
185: bputs(text[EnterYourHandle]);
186: getstr(user.handle,LEN_HANDLE,K_LINE|K_EDIT|K_AUTODEL);
187: putuserrec(&cfg,user.number,U_HANDLE,LEN_HANDLE,user.handle);
188: break;
189: case 'B':
190: bprintf(text[EnterYourBirthday]
191: ,cfg.sys_misc&SM_EURODATE ? "DD/MM/YY" : "MM/DD/YY");
192: gettmplt(user.birth,"nn/nn/nn",K_LINE|K_EDIT|K_AUTODEL);
193: putuserrec(&cfg,user.number,U_BIRTH,LEN_BIRTH,user.birth);
194: break;
195: case 'C':
196: bputs(text[EnterYourComputer]);
197: getstr(user.comp,LEN_COMP,K_LINE|K_EDIT|K_AUTODEL);
198: putuserrec(&cfg,user.number,U_COMP,LEN_COMP,user.comp);
199: break;
200: case 'D':
201: if(user.misc&DELETED) {
202: if(!noyes(text[UeditRestoreQ])) {
203: putuserrec(&cfg,user.number,U_MISC,8
204: ,ultoa(user.misc&~DELETED,str,16));
1.1.1.2 ! root 205: putusername(&cfg,user.number,user.alias);
! 206: }
! 207: break;
! 208: }
1.1 root 209: if(user.misc&INACTIVE) {
210: if(!noyes(text[UeditActivateQ]))
211: putuserrec(&cfg,user.number,U_MISC,8
212: ,ultoa(user.misc&~INACTIVE,str,16));
1.1.1.2 ! root 213: break;
! 214: }
1.1 root 215: if(!noyes(text[UeditDeleteQ])) {
216: getsmsg(user.number);
217: if(getmail(&cfg,user.number,0)) {
218: if(yesno(text[UeditReadUserMailWQ]))
1.1.1.2 ! root 219: readmail(user.number,MAIL_YOUR);
! 220: }
1.1 root 221: if(getmail(&cfg,user.number,1)) {
222: if(yesno(text[UeditReadUserMailSQ]))
1.1.1.2 ! root 223: readmail(user.number,MAIL_SENT);
! 224: }
1.1 root 225: putuserrec(&cfg,user.number,U_MISC,8
226: ,ultoa(user.misc|DELETED,str,16));
227: putusername(&cfg,user.number,nulstr);
1.1.1.2 ! root 228: break;
! 229: }
1.1 root 230: if(!noyes(text[UeditDeactivateUserQ])) {
231: if(getmail(&cfg,user.number,0)) {
232: if(yesno(text[UeditReadUserMailWQ]))
1.1.1.2 ! root 233: readmail(user.number,MAIL_YOUR);
! 234: }
1.1 root 235: if(getmail(&cfg,user.number,1)) {
236: if(yesno(text[UeditReadUserMailSQ]))
1.1.1.2 ! root 237: readmail(user.number,MAIL_SENT);
! 238: }
1.1 root 239: putuserrec(&cfg,user.number,U_MISC,8
240: ,ultoa(user.misc|INACTIVE,str,16));
1.1.1.2 ! root 241: break;
! 242: }
1.1 root 243: break;
244: case 'E':
245: if(!yesno(text[ChangeExemptionQ]))
246: break;
247: while(online) {
248: bprintf(text[FlagEditing],ltoaf(user.exempt,tmp));
249: c=(char)getkeys("ABCDEFGHIJKLMNOPQRSTUVWXYZ?\r",0);
250: if(sys_status&SS_ABORT)
251: break;
252: if(c==CR) break;
253: if(c=='?') {
254: menu("exempt");
1.1.1.2 ! root 255: continue;
! 256: }
1.1 root 257: if(user.level>useron.level
258: && !(useron.exempt&FLAG(c)) && console&CON_R_INPUT)
259: continue;
260: user.exempt^=FLAG(c);
1.1.1.2 ! root 261: putuserrec(&cfg,user.number,U_EXEMPT,8,ultoa(user.exempt,tmp,16));
! 262: }
1.1 root 263: break;
264: case 'F':
265: i=1;
266: while(online) {
267: bprintf("\r\nFlag Set #%d\r\n",i);
268: switch(i) {
269: case 1:
270: bprintf(text[FlagEditing],ltoaf(user.flags1,tmp));
271: break;
272: case 2:
273: bprintf(text[FlagEditing],ltoaf(user.flags2,tmp));
274: break;
275: case 3:
276: bprintf(text[FlagEditing],ltoaf(user.flags3,tmp));
277: break;
278: case 4:
279: bprintf(text[FlagEditing],ltoaf(user.flags4,tmp));
1.1.1.2 ! root 280: break;
! 281: }
1.1 root 282: c=(char)getkeys("ABCDEFGHIJKLMNOPQRSTUVWXYZ?1234\r",0);
283: if(sys_status&SS_ABORT)
284: break;
285: if(c==CR) break;
286: if(c=='?') {
1.1.1.2 ! root 287: SAFEPRINTF(str,"flags%d",i);
1.1 root 288: menu(str);
1.1.1.2 ! root 289: continue;
! 290: }
1.1 root 291: if(isdigit(c)) {
292: i=c&0xf;
1.1.1.2 ! root 293: continue;
! 294: }
1.1 root 295: if(user.level>useron.level && console&CON_R_INPUT)
296: switch(i) {
297: case 1:
298: if(!(useron.flags1&FLAG(c)))
299: continue;
300: break;
301: case 2:
302: if(!(useron.flags2&FLAG(c)))
303: continue;
304: break;
305: case 3:
306: if(!(useron.flags3&FLAG(c)))
307: continue;
308: break;
309: case 4:
310: if(!(useron.flags4&FLAG(c)))
311: continue;
1.1.1.2 ! root 312: break;
! 313: }
1.1 root 314: switch(i) {
315: case 1:
316: user.flags1^=FLAG(c);
317: putuserrec(&cfg,user.number,U_FLAGS1,8
318: ,ultoa(user.flags1,tmp,16));
319: break;
320: case 2:
321: user.flags2^=FLAG(c);
322: putuserrec(&cfg,user.number,U_FLAGS2,8
323: ,ultoa(user.flags2,tmp,16));
324: break;
325: case 3:
326: user.flags3^=FLAG(c);
327: putuserrec(&cfg,user.number,U_FLAGS3,8
328: ,ultoa(user.flags3,tmp,16));
329: break;
330: case 4:
331: user.flags4^=FLAG(c);
332: putuserrec(&cfg,user.number,U_FLAGS4,8
333: ,ultoa(user.flags4,tmp,16));
1.1.1.2 ! root 334: break;
! 335: }
! 336: }
1.1 root 337: break;
338: case 'G':
339: bputs(text[GoToUser]);
340: if(getstr(str,LEN_ALIAS,K_UPPER|K_LINE)) {
341: if(isdigit(str[0])) {
342: i=atoi(str);
343: if(i>lastuser(&cfg))
344: break;
1.1.1.2 ! root 345: if(i) user.number=i;
! 346: }
1.1 root 347: else {
348: i=finduser(str);
1.1.1.2 ! root 349: if(i) user.number=i;
! 350: }
! 351: }
1.1 root 352: break;
353: case 'H': /* edit user's information file */
354: attr(LIGHTGRAY);
1.1.1.2 ! root 355: SAFEPRINTF2(str,"%suser/%4.4u.msg", cfg.data_dir,user.number);
1.1 root 356: editfile(str);
357: break;
358: case 'I':
359: maindflts(&user);
360: break;
361: case 'J': /* Edit Minutes */
362: bputs(text[UeditMinutes]);
363: ultoa(user.min,str,10);
364: if(getstr(str,10,K_NUMBER|K_LINE))
365: putuserrec(&cfg,user.number,U_MIN,10,str);
366: break;
367: case 'K': /* date changes */
368: bputs(text[UeditLastOn]);
369: unixtodstr(&cfg,user.laston,str);
370: gettmplt(str,"nn/nn/nn",K_LINE|K_EDIT);
371: if(sys_status&SS_ABORT)
372: break;
373: user.laston=dstrtounix(&cfg,str);
374: putuserrec(&cfg,user.number,U_LASTON,8,ultoa(user.laston,tmp,16));
375: bputs(text[UeditFirstOn]);
376: unixtodstr(&cfg,user.firston,str);
377: gettmplt(str,"nn/nn/nn",K_LINE|K_EDIT);
378: if(sys_status&SS_ABORT)
379: break;
380: user.firston=dstrtounix(&cfg,str);
381: putuserrec(&cfg,user.number,U_FIRSTON,8,ultoa(user.firston,tmp,16));
382: bputs(text[UeditExpire]);
383: unixtodstr(&cfg,user.expire,str);
384: gettmplt(str,"nn/nn/nn",K_LINE|K_EDIT);
385: if(sys_status&SS_ABORT)
386: break;
387: user.expire=dstrtounix(&cfg,str);
388: putuserrec(&cfg,user.number,U_EXPIRE,8,ultoa(user.expire,tmp,16));
389: bputs(text[UeditPwModDate]);
390: unixtodstr(&cfg,user.pwmod,str);
391: gettmplt(str,"nn/nn/nn",K_LINE|K_EDIT);
392: if(sys_status&SS_ABORT)
393: break;
394: user.pwmod=dstrtounix(&cfg,str);
395: putuserrec(&cfg,user.number,U_PWMOD,8,ultoa(user.pwmod,tmp,16));
396: break;
397: case 'L':
398: bputs(text[EnterYourAddress]);
399: getstr(user.address,LEN_ADDRESS,K_LINE|K_EDIT|K_AUTODEL);
400: if(sys_status&SS_ABORT)
401: break;
402: putuserrec(&cfg,user.number,U_ADDRESS,LEN_ADDRESS,user.address);
403: bputs(text[EnterYourCityState]);
404: getstr(user.location,LEN_LOCATION,K_LINE|K_EDIT|K_AUTODEL);
405: if(sys_status&SS_ABORT)
406: break;
407: putuserrec(&cfg,user.number,U_LOCATION,LEN_LOCATION,user.location);
408: bputs(text[EnterYourZipCode]);
409: getstr(user.zipcode,LEN_ZIPCODE,K_LINE|K_EDIT|K_AUTODEL|K_UPPER);
410: if(sys_status&SS_ABORT)
411: break;
412: putuserrec(&cfg,user.number,U_ZIPCODE,LEN_ZIPCODE,user.zipcode);
413: break;
414: case 'M':
415: bputs(text[UeditML]);
416: ultoa(user.level,str,10);
417: if(getstr(str,2,K_NUMBER|K_LINE))
418: if(!(atoi(str)>useron.level && console&CON_R_INPUT))
419: putuserrec(&cfg,user.number,U_LEVEL,2,str);
420: break;
421: case 'N':
422: bputs(text[UeditNote]);
423: getstr(user.note,LEN_NOTE,K_LINE|K_EDIT|K_AUTODEL);
424: putuserrec(&cfg,user.number,U_NOTE,LEN_NOTE,user.note);
425: break;
426: case 'O':
427: bputs(text[UeditComment]);
428: getstr(user.comment,60,K_LINE|K_EDIT|K_AUTODEL);
429: putuserrec(&cfg,user.number,U_COMMENT,60,user.comment);
430: break;
431: case 'P':
432: bputs(text[EnterYourPhoneNumber]);
433: getstr(user.phone,LEN_PHONE,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
434: putuserrec(&cfg,user.number,U_PHONE,LEN_PHONE,user.phone);
435: break;
436: case 'Q':
437: CLS;
438: sys_status&=~SS_INUEDIT;
439: FREE_AR(ar); /* assertion here */
440: return;
441: case 'R':
442: bputs(text[EnterYourRealName]);
443: getstr(user.name,LEN_NAME,K_LINE|K_EDIT|K_AUTODEL);
444: putuserrec(&cfg,user.number,U_NAME,LEN_NAME,user.name);
445: break;
446: case 'S':
447: bputs(text[EnterYourSex]);
448: if(getstr(str,1,K_UPPER|K_LINE))
449: putuserrec(&cfg,user.number,U_SEX,1,str);
450: break;
451: case 'T': /* Text Search */
452: bputs(text[SearchStringPrompt]);
453: if(getstr(search,30,K_UPPER|K_LINE))
454: stype=SEARCH_TXT;
455: break;
456: case 'U':
457: bputs(text[UeditUlBytes]);
458: ultoa(user.ulb,str,10);
459: if(getstr(str,10,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL))
460: putuserrec(&cfg,user.number,U_ULB,10,str);
461: if(sys_status&SS_ABORT)
462: break;
463: bputs(text[UeditUploads]);
1.1.1.2 ! root 464: SAFEPRINTF(str,"%u",user.uls);
1.1 root 465: if(getstr(str,5,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL))
466: putuserrec(&cfg,user.number,U_ULS,5,str);
467: if(sys_status&SS_ABORT)
468: break;
469: bputs(text[UeditDlBytes]);
470: ultoa(user.dlb,str,10);
471: if(getstr(str,10,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL))
472: putuserrec(&cfg,user.number,U_DLB,10,str);
473: if(sys_status&SS_ABORT)
474: break;
475: bputs(text[UeditDownloads]);
1.1.1.2 ! root 476: SAFEPRINTF(str,"%u",user.dls);
1.1 root 477: if(getstr(str,5,K_NUMBER|K_LINE|K_EDIT|K_AUTODEL))
478: putuserrec(&cfg,user.number,U_DLS,5,str);
479: break;
480: case 'V':
481: CLS;
482: attr(LIGHTGRAY);
483: for(i=0;i<10;i++) {
484: bprintf(text[QuickValidateFmt]
485: ,i,cfg.val_level[i],ltoaf(cfg.val_flags1[i],str)
486: ,ltoaf(cfg.val_exempt[i],tmp)
1.1.1.2 ! root 487: ,ltoaf(cfg.val_rest[i],tmp3));
! 488: }
1.1 root 489: ASYNC;
490: bputs(text[QuickValidatePrompt]);
491: c=getkey(0);
492: if(!isdigit(c))
493: break;
494: i=c&0xf;
495: user.level=cfg.val_level[i];
496: user.flags1=cfg.val_flags1[i];
497: user.flags2=cfg.val_flags2[i];
498: user.flags3=cfg.val_flags3[i];
499: user.flags4=cfg.val_flags4[i];
500: user.exempt=cfg.val_exempt[i];
501: user.rest=cfg.val_rest[i];
502: user.cdt+=cfg.val_cdt[i];
503: now=time(NULL);
504: if(cfg.val_expire[i]) {
505: if(user.expire<now)
506: user.expire=now+((long)cfg.val_expire[i]*24L*60L*60L);
507: else
1.1.1.2 ! root 508: user.expire+=((long)cfg.val_expire[i]*24L*60L*60L);
! 509: }
1.1 root 510: putuserdat(&cfg,&user);
511: break;
512: case 'W':
513: bputs(text[UeditPassword]);
514: getstr(user.pass,LEN_PASS,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
515: putuserrec(&cfg,user.number,U_PASS,LEN_PASS,user.pass);
516: break;
517: case 'X':
518: attr(LIGHTGRAY);
1.1.1.2 ! root 519: SAFEPRINTF2(str,"%suser/%4.4u.msg", cfg.data_dir,user.number);
1.1 root 520: printfile(str,0);
521: pause();
522: break;
523: case 'Y':
524: if(!noyes(text[UeditCopyUserQ])) {
525: bputs(text[UeditCopyUserToSlot]);
526: i=getnum(lastuser(&cfg));
527: if((int)i>0) {
528: user.number=i;
529: putusername(&cfg,user.number,user.alias);
1.1.1.2 ! root 530: putuserdat(&cfg,&user);
! 531: }
! 532: }
1.1 root 533: break;
534: case 'Z':
535: if(!yesno(text[ChangeRestrictsQ]))
536: break;
537: while(online) {
538: bprintf(text[FlagEditing],ltoaf(user.rest,tmp));
539: c=(char)getkeys("ABCDEFGHIJKLMNOPQRSTUVWXYZ?\r",0);
540: if(sys_status&SS_ABORT)
541: break;
542: if(c==CR) break;
543: if(c=='?') {
544: menu("restrict");
1.1.1.2 ! root 545: continue;
! 546: }
1.1 root 547: user.rest^=FLAG(c);
1.1.1.2 ! root 548: putuserrec(&cfg,user.number,U_REST,8,ultoa(user.rest,tmp,16));
! 549: }
1.1 root 550: break;
551: case '?':
552: CLS;
553: menu("uedit"); /* Sysop Uedit Edit Menu */
554: pause();
555: break;
556: case '~':
557: bputs(text[UeditLeech]);
558: if(getstr(str,2,K_NUMBER|K_LINE))
559: putuserrec(&cfg,user.number,U_LEECH,2,ultoa(atoi(str),tmp,16));
560: break;
561: case '+':
562: bputs(text[ModifyCredits]);
563: getstr(str,10,K_UPPER|K_LINE);
564: l=atol(str);
565: if(strstr(str,"M"))
566: l*=0x100000L;
567: else if(strstr(str,"K"))
568: l*=1024;
569: else if(strstr(str,"$"))
570: l*=cfg.cdt_per_dollar;
571: if(l<0L && l*-1 > (long)user.cdt)
572: user.cdt=0L;
573: else
574: user.cdt+=l;
575: putuserrec(&cfg,user.number,U_CDT,10,ultoa(user.cdt,tmp,10));
576: break;
577: case '*':
578: bputs(text[ModifyMinutes]);
579: getstr(str,10,K_UPPER|K_LINE);
580: l=atol(str);
581: if(strstr(str,"H"))
582: l*=60L;
583: if(l<0L && l*-1 > (long)user.min)
584: user.min=0L;
585: else
586: user.min+=l;
587: putuserrec(&cfg,user.number,U_MIN,10,ultoa(user.min,tmp,10));
588: break;
589: case '#': /* read new user questionaire */
1.1.1.2 ! root 590: SAFEPRINTF2(str,"%suser/%4.4u.dat", cfg.data_dir,user.number);
1.1 root 591: if(!cfg.new_sof[0] || !fexist(str))
592: break;
593: read_sif_dat(cfg.new_sof,str);
594: if(!noyes(text[DeleteQuestionaireQ]))
595: remove(str);
596: break;
597: case '$':
598: bputs(text[UeditCredits]);
599: ultoa(user.cdt,str,10);
600: if(getstr(str,10,K_NUMBER|K_LINE))
601: putuserrec(&cfg,user.number,U_CDT,10,str);
602: break;
603: case '/':
604: bputs(text[SearchStringPrompt]);
605: if(getstr(artxt,40,K_UPPER|K_LINE))
606: stype=SEARCH_ARS;
607: FREE_AR(ar);
608: ar=arstr(NULL,artxt,&cfg);
609: break;
610: case '{':
611: if(stype==SEARCH_TXT)
612: user.number=searchdn(search,user.number);
613: else {
614: if(!ar)
615: break;
616: k=user.number;
617: for(i=k-1;i;i--) {
618: user.number=i;
619: getuserdat(&cfg,&user);
1.1.1.2 ! root 620: if(chk_ar(ar,&user,/* client: */NULL)) {
1.1 root 621: outchar(BEL);
1.1.1.2 ! root 622: break;
! 623: }
! 624: }
1.1 root 625: if(!i)
1.1.1.2 ! root 626: user.number=k;
! 627: }
1.1 root 628: break;
629: case '}':
630: if(stype==SEARCH_TXT)
631: user.number=searchup(search,user.number);
632: else {
633: if(!ar)
634: break;
635: j=lastuser(&cfg);
636: k=user.number;
637: for(i=k+1;i<=j;i++) {
638: user.number=i;
639: getuserdat(&cfg,&user);
1.1.1.2 ! root 640: if(chk_ar(ar,&user,/* client: */NULL)) {
1.1 root 641: outchar(BEL);
1.1.1.2 ! root 642: break;
! 643: }
! 644: }
1.1 root 645: if(i>j)
1.1.1.2 ! root 646: user.number=k;
! 647: }
1.1 root 648: break;
649: case ']':
650: if(user.number==lastuser(&cfg))
651: user.number=1;
652: else user.number++;
653: break;
654: case '[':
655: if(user.number==1)
656: user.number=lastuser(&cfg);
657: else user.number--;
658: break;
659: } /* switch */
660: } /* while */
661: sys_status&=~SS_INUEDIT;
662: FREE_AR(ar);
663: }
664:
665: /****************************************************************************/
666: /* Seaches forward through the USER.DAT file for the ocurrance of 'search' */
667: /* starting at the offset for usernum+1 and returning the usernumber of the */
668: /* record where the string was found or the original usernumber if the */
669: /* string wasn't found */
670: /* Called from the function useredit */
671: /****************************************************************************/
672: int sbbs_t::searchup(char *search,int usernum)
673: {
674: char userdat[U_LEN+1];
675: int file,count;
676: uint i=usernum+1;
677: long flen;
678:
679: if(!search[0])
680: return(usernum);
1.1.1.2 ! root 681: SAFEPRINTF(userdat,"%suser/user.dat", cfg.data_dir);
1.1 root 682: if((file=nopen(userdat,O_RDONLY|O_DENYNONE))==-1)
683: return(usernum);
684:
1.1.1.2 ! root 685: flen=(long)filelength(file);
1.1 root 686: lseek(file,(long)((long)usernum*U_LEN),0);
687:
688: while((i*U_LEN)<=(ulong)flen) {
689: count=0;
690: while(count<LOOP_NODEDAB
691: && lock(file,(long)((long)(i-1)*U_LEN),U_LEN)==-1) {
692: if(count)
693: mswait(100);
694: count++;
695: }
696:
697: if(count>=LOOP_NODEDAB) {
698: close(file);
699: errormsg(WHERE,ERR_LOCK,"user.dat",i);
700: return(usernum);
701: }
702:
703: if(read(file,userdat,U_LEN)!=U_LEN) {
704: unlock(file,(long)((long)(i-1)*U_LEN),U_LEN);
705: close(file);
706: errormsg(WHERE,ERR_READ,"user.dat",U_LEN);
707: return(usernum);
708: }
709:
710: unlock(file,(long)((long)(i-1)*U_LEN),U_LEN);
711: userdat[U_LEN]=0;
712: strupr(userdat);
713: if(strstr(userdat,search)) {
714: outchar(BEL);
715: close(file);
716: return(i);
717: }
718: i++;
719: }
720: close(file);
721: return(usernum);
722: }
723:
724: /****************************************************************************/
725: /* Seaches backward through the USER.DAT file for the ocurrance of 'search' */
726: /* starting at the offset for usernum-1 and returning the usernumber of the */
727: /* record where the string was found or the original usernumber if the */
728: /* string wasn't found */
729: /* Called from the function useredit */
730: /****************************************************************************/
731: int sbbs_t::searchdn(char *search,int usernum)
732: {
733: char userdat[U_LEN+1];
734: int file,count;
735: uint i=usernum-1;
736:
737: if(!search[0])
738: return(usernum);
1.1.1.2 ! root 739: SAFEPRINTF(userdat,"%suser/user.dat", cfg.data_dir);
1.1 root 740: if((file=nopen(userdat,O_RDONLY|O_DENYNONE))==-1)
741: return(usernum);
742: while(i) {
743: lseek(file,(long)((long)(i-1)*U_LEN),0);
744: count=0;
745: while(count<LOOP_NODEDAB
746: && lock(file,(long)((long)(i-1)*U_LEN),U_LEN)==-1) {
747: if(count)
748: mswait(100);
749: count++;
750: }
751:
752: if(count>=LOOP_NODEDAB) {
753: close(file);
754: errormsg(WHERE,ERR_LOCK,"user.dat",i);
755: return(usernum);
756: }
757:
758: if(read(file,userdat,U_LEN)==-1) {
759: unlock(file,(long)((long)(i-1)*U_LEN),U_LEN);
760: close(file);
761: errormsg(WHERE,ERR_READ,"USER.DAT",U_LEN);
762: return(usernum);
763: }
764: unlock(file,(long)((long)(i-1)*U_LEN),U_LEN);
765: userdat[U_LEN]=0;
766: strupr(userdat);
767: if(strstr(userdat,search)) {
768: outchar(BEL);
769: close(file);
770: return(i);
771: }
772: i--;
773: }
774: close(file);
775: return(usernum);
776: }
777:
778: /****************************************************************************/
779: /* This function view/edits the users main default settings. */
780: /****************************************************************************/
781: void sbbs_t::maindflts(user_t* user)
782: {
783: char str[256],ch;
784: char tmp[512];
785: int i;
786:
787: action=NODE_DFLT;
788: while(online) {
789: CLS;
790: getuserdat(&cfg,user);
791: if(user->rows)
792: rows=user->rows;
793: bprintf(text[UserDefaultsHdr],user->alias,user->number);
1.1.1.2 ! root 794: safe_snprintf(str,sizeof(str),"%s%s%s%s%s"
1.1 root 795: ,user->misc&AUTOTERM ? "Auto Detect ":nulstr
796: ,user->misc&ANSI ? "ANSI ":"TTY "
797: ,user->misc&COLOR ? "(Color) ":"(Mono) "
798: ,user->misc&WIP ? "WIP" : user->misc&RIP ? "RIP "
799: : user->misc&HTML ? "HTML " : nulstr
800: ,user->misc&NO_EXASCII ? "ASCII Only":nulstr);
801: bprintf(text[UserDefaultsTerminal],str);
802: if(cfg.total_xedits)
803: bprintf(text[UserDefaultsXeditor]
804: ,user->xedit ? cfg.xedit[user->xedit-1]->name : "None");
805: if(user->rows)
806: ultoa(user->rows,tmp,10);
807: else
1.1.1.2 ! root 808: SAFEPRINTF(tmp,"Auto Detect (%ld)",rows);
1.1 root 809: bprintf(text[UserDefaultsRows],tmp);
810: if(cfg.total_shells>1)
811: bprintf(text[UserDefaultsCommandSet]
812: ,cfg.shell[user->shell]->name);
813: bprintf(text[UserDefaultsArcType]
814: ,user->tmpext);
815: bprintf(text[UserDefaultsMenuMode]
816: ,user->misc&EXPERT ? text[On] : text[Off]);
817: bprintf(text[UserDefaultsPause]
818: ,user->misc&UPAUSE ? text[On] : text[Off]);
819: bprintf(text[UserDefaultsHotKey]
820: ,user->misc&COLDKEYS ? text[Off] : text[On]);
821: bprintf(text[UserDefaultsCursor]
822: ,user->misc&SPIN ? text[On] : user->misc&NOPAUSESPIN ? text[Off] : "Pause Prompt Only");
823: bprintf(text[UserDefaultsCLS]
824: ,user->misc&CLRSCRN ? text[On] : text[Off]);
825: bprintf(text[UserDefaultsAskNScan]
826: ,user->misc&ASK_NSCAN ? text[On] : text[Off]);
827: bprintf(text[UserDefaultsAskSScan]
828: ,user->misc&ASK_SSCAN ? text[On] : text[Off]);
829: bprintf(text[UserDefaultsANFS]
830: ,user->misc&ANFSCAN ? text[On] : text[Off]);
831: bprintf(text[UserDefaultsRemember]
832: ,user->misc&CURSUB ? text[On] : text[Off]);
833: bprintf(text[UserDefaultsBatFlag]
834: ,user->misc&BATCHFLAG ? text[On] : text[Off]);
835: if(cfg.sys_misc&SM_FWDTONET)
836: bprintf(text[UserDefaultsNetMail]
837: ,user->misc&NETMAIL ? text[On] : text[Off]);
838: if(startup->options&BBS_OPT_AUTO_LOGON && user->exempt&FLAG('V'))
839: bprintf(text[UserDefaultsAutoLogon]
840: ,user->misc&AUTOLOGON ? text[On] : text[Off]);
841: if(useron.exempt&FLAG('Q') || user->misc&QUIET)
842: bprintf(text[UserDefaultsQuiet]
843: ,user->misc&QUIET ? text[On] : text[Off]);
1.1.1.2 ! root 844: SAFECOPY(str,"None");
! 845: for(i=0;i<cfg.total_prots;i++) {
! 846: if(user->prot==cfg.prot[i]->mnemonic) {
! 847: SAFECOPY(str,cfg.prot[i]->name);
! 848: break;
! 849: }
! 850: }
1.1 root 851: bprintf(text[UserDefaultsProtocol],str
1.1.1.2 ! root 852: ,user->misc&AUTOHANG ? "(Auto-Hangup)":nulstr);
1.1 root 853: if(cfg.sys_misc&SM_PWEDIT && !(user->rest&FLAG('G')))
854: bputs(text[UserDefaultsPassword]);
855:
856: ASYNC;
857: bputs(text[UserDefaultsWhich]);
1.1.1.2 ! root 858: SAFECOPY(str,"HTBALPRSYFNCQXZ\r");
1.1 root 859: if(cfg.sys_misc&SM_PWEDIT && !(user->rest&FLAG('G')))
860: strcat(str,"W");
861: if(useron.exempt&FLAG('Q') || user->misc&QUIET)
862: strcat(str,"D");
863: if(cfg.total_xedits)
864: strcat(str,"E");
865: if(cfg.sys_misc&SM_FWDTONET)
866: strcat(str,"M");
867: if(startup->options&BBS_OPT_AUTO_LOGON && user->exempt&FLAG('V'))
868: strcat(str,"I");
869: if(cfg.total_shells>1)
870: strcat(str,"K");
871:
872: ch=(char)getkeys(str,0);
873: switch(ch) {
874: case 'T':
875: if(yesno(text[AutoTerminalQ])) {
876: user->misc|=AUTOTERM;
877: user->misc&=~(ANSI|RIP|WIP|HTML);
1.1.1.2 ! root 878: user->misc|=autoterm;
! 879: }
1.1 root 880: else
881: user->misc&=~AUTOTERM;
882: if(!(user->misc&AUTOTERM)) {
883: if(yesno(text[AnsiTerminalQ]))
884: user->misc|=ANSI;
885: else
1.1.1.2 ! root 886: user->misc&=~(ANSI|COLOR);
! 887: }
1.1 root 888: if(user->misc&ANSI) {
889: if(yesno(text[ColorTerminalQ]))
890: user->misc|=COLOR;
891: else
1.1.1.2 ! root 892: user->misc&=~COLOR;
! 893: }
1.1 root 894: if(!yesno(text[ExAsciiTerminalQ]))
895: user->misc|=NO_EXASCII;
896: else
897: user->misc&=~NO_EXASCII;
898: if(!(user->misc&AUTOTERM)) {
899: if(!noyes(text[RipTerminalQ]))
900: user->misc|=RIP;
901: else
1.1.1.2 ! root 902: user->misc&=~RIP;
! 903: }
1.1 root 904: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
905: break;
906: case 'B':
907: user->misc^=BATCHFLAG;
908: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
909: break;
910: case 'E':
1.1.1.2 ! root 911: if(noyes(text[UseExternalEditorQ])) {
1.1 root 912: putuserrec(&cfg,user->number,U_XEDIT,8,nulstr);
1.1.1.2 ! root 913: break;
! 914: }
1.1 root 915: if(user->xedit)
916: user->xedit--;
917: for(i=0;i<cfg.total_xedits;i++)
1.1.1.2 ! root 918: uselect(1,i,text[ExternalEditorHeading],cfg.xedit[i]->name, cfg.xedit[i]->ar);
1.1 root 919: if((i=uselect(0,user->xedit,0,0,0))>=0)
920: putuserrec(&cfg,user->number,U_XEDIT,8,cfg.xedit[i]->code);
921: break;
922: case 'K': /* Command shell */
923: for(i=0;i<cfg.total_shells;i++)
1.1.1.2 ! root 924: uselect(1,i,text[CommandShellHeading],cfg.shell[i]->name,cfg.shell[i]->ar);
1.1 root 925: if((i=uselect(0,user->shell,0,0,0))>=0)
926: putuserrec(&cfg,user->number,U_SHELL,8,cfg.shell[i]->code);
927: break;
928: case 'A':
929: for(i=0;i<cfg.total_fcomps;i++)
1.1.1.2 ! root 930: uselect(1,i,text[ArchiveTypeHeading],cfg.fcomp[i]->ext,cfg.fcomp[i]->ar);
1.1 root 931: if((i=uselect(0,0,0,0,0))>=0)
932: putuserrec(&cfg,user->number,U_TMPEXT,3,cfg.fcomp[i]->ext);
933: break;
934: case 'L':
935: bputs(text[HowManyRows]);
936: if((ch=(char)getnum(99))!=-1) {
937: putuserrec(&cfg,user->number,U_ROWS,2,ultoa(ch,tmp,10));
938: if(user==&useron) {
939: useron.rows=ch;
940: ansi_getlines();
941: }
942: }
943: break;
944: case 'P':
945: user->misc^=UPAUSE;
946: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
947: break;
948: case 'H':
949: user->misc^=COLDKEYS;
950: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
951: break;
952: case 'S':
953: user->misc^=SPIN;
954: if(!(user->misc&SPIN)) {
1.1.1.2 ! root 955: if(!yesno(text[SpinningCursorOnPauseQ]))
1.1 root 956: user->misc|=NOPAUSESPIN;
957: else
958: user->misc&=~NOPAUSESPIN;
959: }
960: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
961: break;
962: case 'F':
963: user->misc^=ANFSCAN;
964: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
965: break;
966: case 'X':
967: user->misc^=EXPERT;
968: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
969: break;
970: case 'R': /* Remember current sub/dir */
971: user->misc^=CURSUB;
972: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
973: break;
974: case 'Y': /* Prompt for scanning message to you */
975: user->misc^=ASK_SSCAN;
976: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
977: break;
978: case 'N': /* Prompt for new message/files scanning */
979: user->misc^=ASK_NSCAN;
980: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
981: break;
982: case 'M': /* NetMail address */
983: if(noyes(text[ForwardMailQ]))
984: user->misc&=~NETMAIL;
985: else {
986: user->misc|=NETMAIL;
987: bputs(text[EnterNetMailAddress]);
988: if(!getstr(user->netmail,LEN_NETMAIL,K_EDIT|K_AUTODEL|K_LINE))
989: break;
1.1.1.2 ! root 990: putuserrec(&cfg,user->number,U_NETMAIL,LEN_NETMAIL,user->netmail);
! 991: }
1.1 root 992: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
993: break;
994: case 'C':
995: user->misc^=CLRSCRN;
996: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
997: break;
998: case 'D':
999: user->misc^=QUIET;
1000: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
1001: break;
1002: case 'I':
1003: user->misc^=AUTOLOGON;
1004: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
1005: break;
1006: case 'W':
1007: if(!noyes(text[NewPasswordQ])) {
1008: bputs(text[CurrentPassword]);
1009: console|=CON_R_ECHOX;
1010: ch=getstr(str,LEN_PASS,K_UPPER);
1011: console&=~(CON_R_ECHOX|CON_L_ECHOX);
1012: if(strcmp(str,user->pass)) {
1013: bputs(text[WrongPassword]);
1014: pause();
1.1.1.2 ! root 1015: break;
! 1016: }
1.1 root 1017: bputs(text[NewPassword]);
1018: if(!getstr(str,LEN_PASS,K_UPPER|K_LINE))
1019: break;
1020: truncsp(str);
1021: if(!chkpass(str,user,false)) {
1022: CRLF;
1023: pause();
1.1.1.2 ! root 1024: break;
! 1025: }
1.1 root 1026: bputs(text[VerifyPassword]);
1027: console|=CON_R_ECHOX;
1028: getstr(tmp,LEN_PASS*2,K_UPPER);
1029: console&=~(CON_R_ECHOX|CON_L_ECHOX);
1030: if(strcmp(str,tmp)) {
1031: bputs(text[WrongPassword]);
1032: pause();
1.1.1.2 ! root 1033: break;
! 1034: }
1.1 root 1035: if(!online)
1036: break;
1037: putuserrec(&cfg,user->number,U_PASS,LEN_PASS,str);
1038: now=time(NULL);
1039: putuserrec(&cfg,user->number,U_PWMOD,8,ultoa(now,tmp,16));
1040: bputs(text[PasswordChanged]);
1.1.1.2 ! root 1041: SAFEPRINTF(str,"%s changed password",useron.alias);
! 1042: logline(LOG_NOTICE,nulstr,str);
1.1 root 1043: }
1.1.1.2 ! root 1044: SAFEPRINTF2(str,"%suser/%04u.sig",cfg.data_dir,user->number);
! 1045: if(fexist(str) && yesno(text[ViewSignatureQ]))
1.1 root 1046: printfile(str,P_NOATCODES);
1.1.1.2 ! root 1047: if(!noyes(text[CreateEditSignatureQ]))
1.1 root 1048: editfile(str);
1.1.1.2 ! root 1049: else if(fexist(str) && !noyes(text[DeleteSignatureQ]))
1.1 root 1050: remove(str);
1051: break;
1052: case 'Z':
1053: xfer_prot_menu(XFER_DOWNLOAD);
1054: SYNC;
1055: mnemonics(text[ProtocolOrQuit]);
1.1.1.2 ! root 1056: SAFECOPY(str,"Q");
1.1 root 1057: for(i=0;i<cfg.total_prots;i++)
1.1.1.2 ! root 1058: if(cfg.prot[i]->dlcmd[0] && chk_ar(cfg.prot[i]->ar,&useron,&client)) {
! 1059: SAFEPRINTF(tmp,"%c",cfg.prot[i]->mnemonic);
! 1060: strcat(str,tmp);
! 1061: }
1.1 root 1062: ch=(char)getkeys(str,0);
1063: if(ch=='Q' || sys_status&SS_ABORT) {
1064: ch=' ';
1.1.1.2 ! root 1065: putuserrec(&cfg,user->number,U_PROT,1,&ch);
! 1066: }
1.1 root 1067: else
1068: putuserrec(&cfg,user->number,U_PROT,1,&ch);
1069: if(yesno(text[HangUpAfterXferQ]))
1070: user->misc|=AUTOHANG;
1071: else
1072: user->misc&=~AUTOHANG;
1073: putuserrec(&cfg,user->number,U_MISC,8,ultoa(user->misc,str,16));
1074: break;
1075: default:
1.1.1.2 ! root 1076: return;
! 1077: }
! 1078: }
1.1 root 1079: }
1080:
1081: void sbbs_t::purgeuser(int usernumber)
1082: {
1083: char str[128];
1084: user_t user;
1085:
1086: user.number=usernumber;
1087: getuserdat(&cfg,&user);
1.1.1.2 ! root 1088: SAFEPRINTF2(str,"Purged %s #%u",user.alias,usernumber);
1.1 root 1089: logentry("!*",str);
1.1.1.2 ! root 1090: delallmail(usernumber, MAIL_ANY);
1.1 root 1091: putusername(&cfg,usernumber,nulstr);
1092: putuserrec(&cfg,usernumber,U_MISC,8,ultoa(user.misc|DELETED,str,16));
1093: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.