![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to smm.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2 / smm|
Return to smm.c CVS log | Up to [Synchronet] / sbbs / sbbs2 / smm |
1.1 root 1: /* SMM.C */
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: /* Synchronet Match Maker */
6:
7: #include "xsdk.h"
8: #include "crc32.h"
9: #include "smmdefs.h"
10: #include "smmvars.c"
11:
12: /* RCIOLL.ASM */
13:
14: int rioini(int com,int irq); /* initialize com,irq */
15: int setbaud(int rate); /* set baud rate */
16: int rioctl(int action); /* remote i/o control */
17: int dtr(char onoff); /* set/reset dtr */
18: int outcom(int ch); /* send character */
19: int incom(void); /* receive character */
20: int ivhctl(int intcode); /* local i/o redirection */
21:
22: /************************/
23: /* Remote I/O Constants */
24: /************************/
25:
26: /* i/o mode and state flags */
27: #define CTSCK 0x1000 /* check cts (mode only) */
28: #define RTSCK 0x2000 /* check rts (mode only) */
29: #define TXBOF 0x0800 /* transmit buffer overflow (outcom only) */
30: #define ABORT 0x0400 /* check for ^C (mode), aborting (state) */
31: #define PAUSE 0x0200 /* check for ^S (mode), pausing (state) */
32: #define NOINP 0x0100 /* input buffer empty (incom only) */
33:
34: /* status flags */
35: #define RIODCD 0x80 /* DCD on */
36: #define RI 0x40 /* Ring indicate */
37: #define DSR 0x20 /* Dataset ready */
38: #define CTS 0x10 /* CTS on */
39: #define FERR 0x08 /* Frameing error */
40: #define PERR 0x04 /* Parity error */
41: #define OVRR 0x02 /* Overrun */
42: #define RXLOST 0x01 /* Receive buffer overflow */
43:
44: /* rioctl() arguments */
45: /* returns mode or state flags in high 8 bits, status flags in low 8 bits */
46:
47: /* the following return mode in high 8 bits */
48: #define IOMODE 0 /* no operation */
49: #define IOSM 1 /* i/o set mode flags */
50: #define IOCM 2 /* i/o clear mode flags */
51: /* the following return state in high 8 bits */
52: #define IOSTATE 4 /* no operation */
53: #define IOSS 5 /* i/o set state flags */
54: #define IOCS 6 /* i/o clear state flags */
55: #define IOFB 0x308 /* i/o buffer flush */
56: #define IOFI 0x208 /* input buffer flush */
57: #define IOFO 0x108 /* output buffer flush */
58: #define IOCE 9 /* i/o clear error flags */
59:
60: /* return count (16bit) */
61: #define RXBC 0x0a /* get receive buffer count */
62: #define TXBC 0x0b /* get transmit buffer count */
63: #define TXSYNC 0x0c /* sync transmition (seconds<<8|0x0c) */
64: #define IDLE 0x0d /* suspend communication routines */
65: #define RESUME 0x10d /* return from suspended state */
66: #define RLERC 0x000e /* read line error count and clear */
67: #define CPTON 0x0110 /* set input translation flag for ctrl-p on */
68: #define CPTOFF 0x0010 /* set input translation flag for ctrl-p off */
69: #define GETCPT 0x8010 /* return the status of ctrl-p translation */
70: #define MSR 0x0011 /* read modem status register */
71: #define FIFOCTL 0x0012 /* FIFO UART control */
72: #define TSTYPE 0x0013 /* Time-slice API type */
73: #define GETTST 0x8013 /* Get Time-slice API type */
74:
75:
76: #define I14DB 0x001d /* DigiBoard int 14h driver */
77: #define I14PC 0x011d /* PC int 14h driver */
78: #define I14PS 0x021d /* PS/2 int 14h driver */
79: #define I14FO 0x031d /* FOSSIL int 14h driver */
80:
81:
82: /* ivhctl() arguments */
83: #define INT29R 1 /* copy int 29h output to remote */
84: #define INT29L 2 /* Use _putlc for int 29h */
85: #define INT16 0x10 /* return remote chars to int 16h calls */
86: #define INTCLR 0 /* release int 16h, int 29h */
87:
88: #define CLREOL 256 /* Character to erase to end of line */
89: #define HIGH 8 /* High intensity for curatr */
90:
91: extern uint riobp;
92: extern int mswtyp;
93:
94: unsigned _stklen=16000; /* Set stack size in code, not header */
95:
96: int cbreakh(void); /* ctrl-break handler */
97:
98: char getage(char *birth);
99: char long_user_info(user_t user);
100: void main_user_info(user_t user);
101:
102: char *nulstr="";
103: char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
104: char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
105: ,"Jul","Aug","Sep","Oct","Nov","Dec"};
106: char tmp[256],door_sys[128];
107:
108: char io_int=0;
109: struct date date;
110: struct time curtime;
111: time_t now;
112: int smm_pause=1,node_scrnlen;
113: questionnaire_t *que[5];
114: int total_ques;
115: user_t useron,tmpuser;
116: ixb_t ixb;
117: ulong useron_record,system_crc;
118: FILE *stream,*index,*trashfile;
119:
120: char *PrevReadSendQuitOrMore="\r\n\1n\1b\1h[\1cP\1b]revious screen, "
121: "[\1cR\1b]ead profile, [\1cS\1b]end telegram, [\1cQ\1b]uit, or "
122: "[\1cM\1b]ore: \1w";
123:
124: int intocm(int in)
125: {
126: return(in*2.538071);
127: }
128:
129: int cmtoin(int cm)
130: {
131: int i;
132:
133: i=cm*0.394;
134: if(((float)cm*0.394)-(float)i>=.5)
135: i++;
136: return(i);
137: }
138:
139: int kgtolp(int kg)
140: {
141: return(kg*2.2046);
142: }
143:
144: int lptokg(int lp)
145: {
146: int i;
147:
148: i=lp*0.453597;
149: if(((float)lp*0.453597)-(float)i>=.5)
150: i++;
151: return(i);
152: }
153:
154: /****************************************************************************/
155: /* Performs printf() through local assembly routines */
156: /* Called from everywhere */
157: /****************************************************************************/
158: int lprintf(char *fmat, ...) {
159: char sbuf[256];
160: int chcount;
161:
162: chcount=vsprintf(sbuf,fmat,_va_ptr);
163: lputs(sbuf);
164: return(chcount);
165: }
166:
167: /*****************************************************************************/
168: /* Returns command line generated from instr with %c replacments */
169: /*****************************************************************************/
170: char *cmdstr(char *instr, char *fpath, char *fspec, char *outstr)
171: {
172: static char static_cmd[128];
173: char str[256],str2[128],*cmd;
174: int i,j,len;
175:
176: if(outstr==NULL)
177: cmd=static_cmd;
178: else
179: cmd=outstr;
180: len=strlen(instr);
181: for(i=j=0;i<len && j<128;i++) {
182: if(instr[i]=='%') {
183: i++;
184: cmd[j]=0;
185: switch(toupper(instr[i])) {
186: case 'A': /* User alias */
187: strcat(cmd,user_name);
188: break;
189: case 'B': /* Baud (DTE) Rate */
190: strcat(cmd,ultoa(com_rate,str,10));
191: break;
192: case 'C': /* Connect Description */
193: strcat(cmd,ultoa(user_dce,str,10));
194: break;
195: case 'F': /* File path */
196: strcat(cmd,fpath);
197: break;
198: case 'G': /* Temp directory */
199: strcat(cmd,temp_dir);
200: break;
201: case 'I': /* UART IRQ Line */
202: strcat(cmd,itoa(com_irq,str,10));
203: break;
204: case 'J':
205: strcat(cmd,data_dir);
206: break;
207: case 'K':
208: strcat(cmd,ctrl_dir);
209: break;
210: case 'N': /* Node Directory (same as SBBSNODE environment var) */
211: strcat(cmd,node_dir);
212: break;
213: case 'O': /* SysOp */
214: strcat(cmd,sys_op);
215: break;
216: case 'P': /* COM Port */
217: strcat(cmd,itoa(com_port,str,10));
218: break;
219: case 'Q': /* QWK ID */
220: strcat(cmd,sys_id);
221: break;
222: case 'R': /* Rows */
223: strcat(cmd,itoa(user_rows,str,10));
224: break;
225: case 'S': /* File Spec */
226: strcat(cmd,fspec);
227: break;
228: case 'T': /* Time left in seconds */
229: strcat(cmd,itoa(time(NULL)-starttime,str,10));
230: break;
231: case 'U': /* UART I/O Address (in hex) */
232: strcat(cmd,itoa(com_base,str,16));
233: break;
234: case 'W': /* Time-slice API type (mswtype) */
235: #ifndef __OS2__
236: strcat(cmd,itoa(mswtyp,str,10));
237: #endif
238: break;
239: case '&': /* Address of msr */
240: sprintf(str,"%lu",&riobp-1);
241: strcat(cmd,str);
242: break;
243: case 'Z':
244: strcat(cmd,text_dir);
245: break;
246: case '!': /* EXEC Directory */
247: strcat(cmd,exec_dir);
248: break;
249: case '#': /* Node number (same as SBBSNNUM environment var) */
250: sprintf(str,"%d",node_num);
251: strcat(cmd,str);
252: break;
253: case '*':
254: sprintf(str,"%03d",node_num);
255: strcat(cmd,str);
256: break;
257: case '$': /* Credits */
258: strcat(cmd,ultoa(user_cdt,str,10));
259: break;
260: case '%': /* %% for percent sign */
261: strcat(cmd,"%");
262: break;
263: default: /* unknown specification */
264: if(isdigit(instr[i])) {
265: sprintf(str,"%0*d",instr[i]&0xf,user_number);
266: strcat(cmd,str); }
267: break; }
268: j=strlen(cmd); }
269: else
270: cmd[j++]=instr[i]; }
271: cmd[j]=0;
272:
273: return(cmd);
274: }
275:
276: char *base41(unsigned int i, char *str)
277: {
278: char c;
279: unsigned int j=41*41,k;
280:
281: for(c=0;c<3;c++) {
282: k=i/j;
283: str[c]='0'+k;
284: i-=(k*j);
285: j/=41;
286: if(str[c]>=':')
287: str[c]='A'+(str[c]-':');
288: if(str[c]>='[')
289: str[c]='#'+(str[c]-'['); }
290: str[c]=0;
291: return(str);
292: }
293:
294: /****************************************************************************/
295: /* Updates 16-bit "rcrc" with character 'ch' */
296: /****************************************************************************/
297: void ucrc16(uchar ch, ushort *rcrc) {
298: ushort i, cy;
299: uchar nch=ch;
300:
301: for (i=0; i<8; i++) {
302: cy=*rcrc & 0x8000;
303: *rcrc<<=1;
304: if (nch & 0x80) *rcrc |= 1;
305: nch<<=1;
306: if (cy) *rcrc ^= 0x1021; }
307: }
308:
309: /****************************************************************************/
310: /* Returns 16-crc of string (not counting terminating NULL) */
311: /****************************************************************************/
312: ushort crc16(char *str)
313: {
314: int i=0;
315: ushort crc=0;
316:
317: ucrc16(0,&crc);
318: while(str[i])
319: ucrc16(str[i++],&crc);
320: ucrc16(0,&crc);
321: ucrc16(0,&crc);
322: return(crc);
323: }
324:
325:
326: int cdt_warning(long cdt)
327: {
328: if(cdt==0)
329: return(1);
330: if(cdt>0) {
331: bprintf("\1m\1hYou will receive \1w%luk\1m in credits for this action!\r\n"
332: ,cdt/1024L);
333: return(1); }
334:
335: bprintf("\1m\1hThis action will cost you \1w%luk\1m in credits.",(-cdt)/1024L);
336: if(user_cdt+cdt_adjustment<-cdt) {
337: bprintf("\r\n\r\n\1r\1hSorry, you only have \1w%luk\1m in credits.\r\n"
338: ,(user_cdt+cdt_adjustment)/1024L);
339: return(0); }
340: return(!noyes(" Continue"));
341: }
342:
343: void adjust_cdt(long cdt)
344: {
345: if(cdt==0)
346: return;
347: cdt_adjustment+=cdt;
348: }
349:
350: int got_flags(char *req, char *got)
351: {
352: int i,j;
353:
354: for(i=0;req[i];i++) {
355: for(j=0;got[j];j++)
356: if(req[i]==got[j])
357: break;
358: if(!got[j])
359: break; }
360: if(!req[i])
361: return(1);
362: return(0);
363: }
364:
365: int can_add()
366: {
367: uchar age=getage(user_birth);
368:
369: if(user_level<min_level || (age && getage(user_birth)<min_age)
370: || !got_flags(req_flags1,user_flags1)
371: || !got_flags(req_flags2,user_flags2)
372: || !got_flags(req_flags3,user_flags3)
373: || !got_flags(req_flags4,user_flags4)
374: )
375: return(0);
376: return(1);
377: }
378:
379:
380: int trash(char *instr)
381: {
382: char str[128],word[128];
383:
384: if(!trashfile)
385: return(0);
386: strcpy(str,instr);
387: strupr(str);
388: rewind(trashfile);
389: while(!ferror(trashfile)) {
390: if(!fgets(word,125,trashfile))
391: break;
392: truncsp(word);
393: if(!word[0])
394: continue;
395: strupr(word);
396: if(strstr(str,word))
397: return(1); }
398: return(0);
399: }
400:
401: long fdate_dir(char *filespec)
402: {
403: struct ffblk f;
404: struct date fd;
405: struct time ft;
406:
407: if(findfirst(filespec,&f,FA_RDONLY|FA_HIDDEN|FA_SYSTEM|FA_DIREC)==NULL) {
408: fd.da_day=f.ff_fdate&0x1f;
409: fd.da_mon=(f.ff_fdate>>5)&0xf;
410: fd.da_year=1980+((f.ff_fdate>>9)&0x7f);
411: ft.ti_hour=(f.ff_ftime>>11)&0x1f;
412: ft.ti_min=(f.ff_ftime>>5)&0x3f;
413: ft.ti_sec=(f.ff_ftime&0xf)*2;
414: return(dostounix(&fd,&ft)); }
415: else return(NULL);
416: }
417:
418: /****************************************************************************/
419: /* Generates a 24 character ASCII string that represents the time_t pointer */
420: /* Used as a replacement for ctime() */
421: /****************************************************************************/
422: char *timestr(time_t *intime)
423: {
424: static char str[256];
425: char mer[3],hour;
426: struct tm *gm;
427:
428: gm=localtime(intime);
429: if(gm->tm_hour>=12) {
430: if(gm->tm_hour==12)
431: hour=12;
432: else
433: hour=gm->tm_hour-12;
434: strcpy(mer,"pm"); }
435: else {
436: if(gm->tm_hour==0)
437: hour=12;
438: else
439: hour=gm->tm_hour;
440: strcpy(mer,"am"); }
441: sprintf(str,"%s %s %02d %4d %02d:%02d %s"
442: ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
443: ,hour,gm->tm_min,mer);
444: return(str);
445: }
446:
447:
448: void puttgram(int usernumber, char *strin)
449: {
450: char str[256];
451: int file,i;
452:
453: sprintf(str,"%4.4u.MSG",usernumber);
454: if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
455: printf("\7Error opening/creating %s for creat/append access\n",str);
456: return; }
457: i=strlen(strin);
458: if(write(file,strin,i)!=i) {
459: close(file);
460: printf("\7Error writing %u bytes to %s\n",i,str);
461: return; }
462: close(file);
463: }
464:
465:
466: int send_telegram(user_t user)
467: {
468: uchar str[256],line[256],buf[1024];
469: int i;
470:
471: if(!useron.number) {
472: bputs("\r\n\1h\1rYou must create a profile first.\r\n");
473: pause();
474: return(1); }
475:
476: if(user_level<telegram_level) {
477: bputs("\r\n\1h\1rYou have insufficient access to send telegrams."
478: "\r\n");
479: pause();
480: return(1); }
481:
482: main_user_info(user);
483: CRLF;
484: if(!cdt_warning(telegram_cdt))
485: return(0);
486: if(telegram_cdt)
487: CRLF;
488: bprintf("\1n\1hSending a telegram to \1y%s\1w:\r\n\r\n"
489: ,user.name);
490: now=time(NULL);
491: memset(buf,0,512);
492: sprintf(buf,"\1n\1c\1hMatch Maker\1b telegram from \1c%s\1b "
493: "on %s:\1y\r\n"
494: ,useron.name,timestr(&now));
495: for(i=0;i<5 && !aborted;i++) {
496: bprintf("\1n\1h\1g%u of 5: \1n\1g",i+1);
497: if(!getstr(line,70,i==4 ? K_MSG:K_MSG|K_WRAP))
498: break;
499: sprintf(str,"\1n\1g%4s%s\r\n",nulstr,line);
500: strcat(buf,str); }
501: if(!i || aborted || !yesno("\r\nSave"))
502: return(0);
503: if(!(user.misc&USER_FROMSMB)) {
504: putsmsg(user.number,TGRAM_NOTICE);
505: puttgram(user.number,buf); }
506: else {
507: if((i=nopen("TELEGRAM.DAB",O_WRONLY|O_CREAT|O_APPEND|SH_DENYNO))
508: ==-1) {
509: bprintf("\r\n\1r\1h\1iError writing telegram!\r\n");
510: pause();
511: return(1); }
512: write(i,useron.system,sizeof(useron.system));
513: write(i,user.system,sizeof(user.system));
514: write(i,&user.number,sizeof(user.number));
515: write(i,buf,512);
516: close(i); }
517: adjust_cdt(telegram_cdt);
518: if(notify_user && notify_user!=user_number) {
519: sprintf(str,"\1n\1hSMM: \1y%s\1m sent a telegram to \1y%s\1m "
520: "from the Match Maker\r\n",user_name,user.name);
521: if(node_dir[0])
522: putsmsg(notify_user,str);
523: else
524: puttgram(notify_user,str); }
525: return(1);
526: }
527:
528: /****************************************************************************/
529: /* Returns 32-crc of string (not counting terminating NULL) */
530: /****************************************************************************/
531: ulong crc32(char *str)
532: {
533: int i=0;
534: ulong crc=0xffffffffUL;
535:
536: while(str[i])
537: crc=ucrc32(str[i++],crc);
538: crc=~crc;
539: return(crc);
540: }
541:
542:
543: /****************************************************************************/
544: /* Converts unix time format (long - time_t) into a char str MM/DD/YY */
545: /****************************************************************************/
546: char *unixtodstr(time_t unix, char *str)
547: {
548:
549: if(!unix)
550: strcpy(str,"00/00/00");
551: else {
552: unixtodos(unix,&date,&curtime);
553: if((unsigned)date.da_mon>12) { /* DOS leap year bug */
554: date.da_mon=1;
555: date.da_year++; }
556: if((unsigned)date.da_day>31)
557: date.da_day=1;
558: sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
559: ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
560: return(str);
561: }
562:
563: /****************************************************************************/
564: /* Converts a date string in format MM/DD/YY into unix time format */
565: /****************************************************************************/
566: time_t dstrtounix(char *str)
567: {
568:
569: if(!strcmp(str,"00/00/00") || !str[0])
570: return(NULL);
571: curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
572: if(str[6]<'7')
573: date.da_year=2000+((str[6]&0xf)*10)+(str[7]&0xf);
574: else
575: date.da_year=1900+((str[6]&0xf)*10)+(str[7]&0xf);
576: date.da_mon=((str[0]&0xf)*10)+(str[1]&0xf);
577: date.da_day=((str[3]&0xf)*10)+(str[4]&0xf);
578: return(dostounix(&date,&curtime));
579: }
580:
581: /****************************************************************************/
582: /* Returns the age derived from the string 'birth' in the format MM/DD/YY */
583: /****************************************************************************/
584: char getage(char *birth)
585: {
586: char age;
587:
588: if(birth[0]<=SP)
589: return(0);
590: getdate(&date);
591: age=(date.da_year-1900)-(((birth[6]&0xf)*10)+(birth[7]&0xf));
592: if(atoi(birth)>12 || atoi(birth+3)>31)
593: return(0);
594: if(((birth[0]&0xf)*10)+(birth[1]&0xf)>date.da_mon ||
595: (((birth[0]&0xf)*10)+(birth[1]&0xf)==date.da_mon &&
596: ((birth[3]&0xf)*10)+(birth[4]&0xf)>date.da_day))
597: age--;
598: if(age<0)
599: return(0);
600: return(age);
601: }
602:
603: char marital_ch(char user_marital)
604: {
605: switch(user_marital) {
606: case MARITAL_SINGLE:
607: return('S');
608: case MARITAL_DIVORCED:
609: return('D');
610: case MARITAL_MARRIED:
611: return('M');
612: case MARITAL_WIDOWED:
613: return('W');
614: case MARITAL_OTHER:
615: return('O'); }
616: if(user_marital)
617: return('*');
618: return(SP);
619: }
620:
621: char race_ch(char user_race)
622: {
623: switch(user_race) {
624: case RACE_WHITE:
625: return('W');
626: case RACE_BLACK:
627: return('B');
628: case RACE_HISPANIC:
629: return('H');
630: case RACE_AMERINDIAN:
631: return('I');
632: case RACE_ASIAN:
633: return('A');
634: case RACE_MIDEASTERN:
635: return('M');
636: case RACE_OTHER:
637: return('O'); }
638: if(user_race)
639: return('*');
640: return(SP);
641: }
642:
643: char *hair(char user_hair)
644: {
645: switch(user_hair) {
646: case HAIR_BLONDE:
647: return("BLN");
648: case HAIR_BROWN:
649: return("BRN");
650: case HAIR_RED:
651: return("RED");
652: case HAIR_BLACK:
653: return("BLK");
654: case HAIR_GREY:
655: return("GRY");
656: case HAIR_OTHER:
657: return("OTH"); }
658: if(user_hair)
659: return("*");
660: return(nulstr);
661: }
662:
663: char *eyes(char user_eyes)
664: {
665: switch(user_eyes) {
666: case EYES_BLUE:
667: return("BLU");
668: case EYES_BROWN:
669: return("BRN");
670: case EYES_GREEN:
671: return("GRN");
672: case EYES_HAZEL:
673: return("HAZ");
674: case EYES_OTHER:
675: return("OTH"); }
676: if(user_eyes)
677: return("*");
678: return(nulstr);
679: }
680:
681: char *marital(char user_marital)
682: {
683: switch(user_marital) {
684: case MARITAL_SINGLE:
685: return("Single");
686: case MARITAL_MARRIED:
687: return("Married");
688: case MARITAL_DIVORCED:
689: return("Divorced");
690: case MARITAL_WIDOWED:
691: return("Widowed");
692: case MARITAL_OTHER:
693: return("Other"); }
694: if(user_marital)
695: return("*");
696: return(nulstr);
697: }
698:
699: char *race(char user_race)
700: {
701: switch(user_race) {
702: case RACE_WHITE:
703: return("White");
704: case RACE_BLACK:
705: return("Black");
706: case RACE_HISPANIC:
707: return("Hispanic");
708: case RACE_ASIAN:
709: return("Asian");
710: case RACE_AMERINDIAN:
711: return("American Indian");
712: case RACE_MIDEASTERN:
713: return("Middle Eastern");
714: case RACE_OTHER:
715: return("Other"); }
716: if(user_race)
717: return("*");
718: return(nulstr);
719: }
720:
721: ushort getzodiac(char *birth)
722: {
723: if((!strncmp(birth,"03",2) && atoi(birth+3)>=21)
724: || (!strncmp(birth,"04",2) && atoi(birth+3)<=19))
725: return(ZODIAC_ARIES);
726: if((!strncmp(birth,"04",2) && atoi(birth+3)>=20)
727: || (!strncmp(birth,"05",2) && atoi(birth+3)<=20))
728: return(ZODIAC_TAURUS);
729: if((!strncmp(birth,"05",2) && atoi(birth+3)>=21)
730: || (!strncmp(birth,"06",2) && atoi(birth+3)<=20))
731: return(ZODIAC_GEMINI);
732: if((!strncmp(birth,"06",2) && atoi(birth+3)>=21)
733: || (!strncmp(birth,"07",2) && atoi(birth+3)<=22))
734: return(ZODIAC_CANCER);
735: if((!strncmp(birth,"07",2) && atoi(birth+3)>=23)
736: || (!strncmp(birth,"08",2) && atoi(birth+3)<=22))
737: return(ZODIAC_LEO);
738: if((!strncmp(birth,"08",2) && atoi(birth+3)>=23)
739: || (!strncmp(birth,"09",2) && atoi(birth+3)<=22))
740: return(ZODIAC_VIRGO);
741: if((!strncmp(birth,"09",2) && atoi(birth+3)>=23)
742: || (!strncmp(birth,"10",2) && atoi(birth+3)<=22))
743: return(ZODIAC_LIBRA);
744: if((!strncmp(birth,"10",2) && atoi(birth+3)>=23)
745: || (!strncmp(birth,"11",2) && atoi(birth+3)<=21))
746: return(ZODIAC_SCORPIO);
747: if((!strncmp(birth,"11",2) && atoi(birth+3)>=22)
748: || (!strncmp(birth,"12",2) && atoi(birth+3)<=21))
749: return(ZODIAC_SAGITTARIUS);
750: if((!strncmp(birth,"12",2) && atoi(birth+3)>=22)
751: || (!strncmp(birth,"01",2) && atoi(birth+3)<=19))
752: return(ZODIAC_CAPRICORN);
753: if((!strncmp(birth,"01",2) && atoi(birth+3)>=20)
754: || (!strncmp(birth,"02",2) && atoi(birth+3)<=18))
755: return(ZODIAC_AQUARIUS);
756: if((!strncmp(birth,"02",2) && atoi(birth+3)>=19)
757: || (!strncmp(birth,"03",2) && atoi(birth+3)<=20))
758: return(ZODIAC_PISCES);
759: return(0xff);
760: }
761:
762: char *zodiac(short user_zodiac)
763: {
764: switch(user_zodiac)
765: {
766: case ZODIAC_ARIES:
767: return("Aries");
768: case ZODIAC_TAURUS:
769: return("Taurus");
770: case ZODIAC_GEMINI:
771: return("Gemini");
772: case ZODIAC_CANCER:
773: return("Cancer");
774: case ZODIAC_LEO:
775: return("Leo");
776: case ZODIAC_VIRGO:
777: return("Virgo");
778: case ZODIAC_LIBRA:
779: return("Libra");
780: case ZODIAC_SCORPIO:
781: return("Scorpio");
782: case ZODIAC_SAGITTARIUS:
783: return("Sagittarius");
784: case ZODIAC_CAPRICORN:
785: return("Capricorn");
786: case ZODIAC_AQUARIUS:
787: return("Aquarius");
788: case ZODIAC_PISCES:
789: return("Pisces"); }
790: return(nulstr);
791: }
792:
793: short ans2bits(char *str)
794: {
795: int i,j;
796: ushort bits=0;
797:
798: j=strlen(str);
799: for(i=0;i<j;i++) {
800: if(str[i]=='*')
801: return(0xffff);
802: bits|=(1<<str[i]-'A'); }
803: return(bits);
804: }
805:
806: uchar ans2uchar(char *str)
807: {
808: int i,j;
809: uchar bits=0;
810:
811: j=strlen(str);
812: for(i=0;i<j;i++) {
813: if(str[i]=='*')
814: return(0xff);
815: bits|=(1<<str[i]-'A'); }
816: return(bits);
817: }
818:
819:
820: void bits2ans(ushort bits, char *str)
821: {
822: char tmp[25];
823: int i;
824:
825: str[0]=0;
826: if(bits==0xffff) {
827: strcpy(str,"*");
828: return; }
829: for(i=0;i<16;i++)
830: if(bits&(1<<i)) {
831: tmp[0]='A'+i;
832: tmp[1]=0;
833: strcat(str,tmp); }
834: }
835:
836: void bits2str(ushort user, char *str)
837: {
838: int i;
839:
840: str[0]=0;
841: if(user==0xffff) {
842: strcpy(str,"*");
843: return; }
844: for(i=0;i<16;i++)
845: if(user&(1<<i))
846: str[i]='A'+i;
847: else
848: str[i]=SP;
849: str[i]=0;
850: }
851:
852: void uchar2ans(uchar bits, char *str)
853: {
854: char tmp[25];
855: int i;
856:
857: str[0]=0;
858: if(bits==0xff) {
859: strcpy(str,"*");
860: return; }
861: for(i=0;i<8;i++)
862: if(bits&(1<<i)) {
863: tmp[0]='A'+i;
864: tmp[1]=0;
865: strcat(str,tmp); }
866: }
867:
868: int basic_match(user_t user, user_t mate)
869: {
870: int max=0,match=0,age=getage(mate.birth),zodiac=getzodiac(mate.birth);
871:
872: if(user.pref_sex!='*' && user.pref_sex!=mate.sex
873: && !(user.misc&USER_FRIEND))
874: return(0);
875:
876: if(zodiac&user.pref_zodiac) match++;
877: else if(user.misc&USER_REQZODIAC)
878: return(0);
879: if(zodiac==user.pref_zodiac) match++;
880: max+=2;
881:
882: if(stricmp(mate.zipcode,user.min_zipcode)>=0
883: && stricmp(mate.zipcode,user.max_zipcode)<=0) match+=2;
884: else if(user.misc&USER_REQZIP) return(0);
885: max+=2;
886:
887: if(mate.marital&user.pref_marital) match++;
888: else if(user.misc&USER_REQMARITAL)
889: return(0);
890: if(mate.marital==user.pref_marital) match++;
891: max+=2;
892:
893: if(mate.race&user.pref_race) match++;
894: else if(user.misc&USER_REQRACE)
895: return(0);
896: if(mate.race==user.pref_race) match++;
897: max+=2;
898:
899: if(mate.hair&user.pref_hair) match++;
900: else if(user.misc&USER_REQHAIR)
901: return(0);
902: if(mate.hair==user.pref_hair) match++;
903: max+=2;
904:
905: if(mate.eyes&user.pref_eyes) match++;
906: else if(user.misc&USER_REQEYES)
907: return(0);
908: if(mate.eyes==user.pref_eyes) match++;
909: max+=2;
910:
911: if(age>=user.min_age
912: && (!user.max_age || age<=user.max_age)) match+=2;
913: else {
914: if(user.misc&USER_REQAGE) return(0);
915: if(age<user.min_age-((user.max_age-user.min_age)/2)
916: || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/2)))
917: match-=4;
918: else if(age<user.min_age-((user.max_age-user.min_age)/3)
919: || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/3)))
920: match-=3;
921: else if(age<user.min_age-((user.max_age-user.min_age)/4)
922: || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/4)))
923: match-=2;
924: else if(age<user.min_age-((user.max_age-user.min_age)/5)
925: || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/5)))
926: match--; }
927:
928: max+=2;
929:
930: if(mate.weight>=user.min_weight
931: && (!user.max_weight || mate.weight<=user.max_weight)) match+=2;
932: else {
933: if(user.misc&USER_REQWEIGHT) return(0);
934: if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/2)
935: || (user.max_weight
936: && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/2)))
937: match-=4;
938: else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/3)
939: || (user.max_weight
940: && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/3)))
941: match-=3;
942: else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/4)
943: || (user.max_weight
944: && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/4)))
945: match-=2;
946: else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/5)
947: || (user.max_weight
948: && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/5)))
949: match--; }
950: max+=2;
951:
952: if(mate.height>=user.min_height
953: && (!user.max_height || mate.height<=user.max_height)) match+=2;
954: else {
955: if(user.misc&USER_REQHEIGHT) return(0);
956: if(mate.height<user.min_height-((user.max_height-user.min_height)/2)
957: || (user.max_height
958: && mate.height>user.max_height+((user.max_height-user.min_height)/2)))
959: match-=4;
960: else if(mate.height<user.min_height-((user.max_height-user.min_height)/3)
961: || (user.max_height
962: && mate.height>user.max_height+((user.max_height-user.min_height)/3)))
963: match-=3;
964: else if(mate.height<user.min_height-((user.max_height-user.min_height)/4)
965: || (user.max_height
966: && mate.height>user.max_height+((user.max_height-user.min_height)/4)))
967: match-=2;
968: else if(mate.height<user.min_height-((user.max_height-user.min_height)/5)
969: || (user.max_height
970: && mate.height>user.max_height+((user.max_height-user.min_height)/5)))
971: match--; }
972: max+=2;
973:
974: if(mate.income>=user.min_income
975: && (!user.max_income || mate.income==0xffffffffUL
976: || mate.income<=user.max_income)) match++;
977: else {
978: if(user.misc&USER_REQINCOME) return(0);
979: if(mate.income<user.min_income-((user.max_income-user.min_income)/2)
980: || (user.max_income
981: && mate.income>user.max_income+((user.max_income-user.min_income)/2)))
982: match-=4;
983: else if(mate.income<user.min_income-((user.max_income-user.min_income)/3)
984: || (user.max_income
985: && mate.income>user.max_income+((user.max_income-user.min_income)/3)))
986: match-=3;
987: else if(mate.income<user.min_income-((user.max_income-user.min_income)/4)
988: || (user.max_income
989: && mate.income>user.max_income+((user.max_income-user.min_income)/4)))
990: match-=2;
991: else if(mate.income<user.min_income-((user.max_income-user.min_income)/5)
992: || (user.max_income
993: && mate.income>user.max_income+((user.max_income-user.min_income)/5)))
994: match--; }
995: max++;
996:
997: if(match<=0)
998: return(0);
999:
1000: return(((float)match/max)*100.0);
1001: }
1002:
1003: int sys_quenum(char *name)
1004: {
1005: int i;
1006:
1007: for(i=0;i<total_ques;i++)
1008: if(!stricmp(que[i]->name,name))
1009: break;
1010: if(i<total_ques)
1011: return(i);
1012: return(-1);
1013: }
1014:
1015: int user_quenum(char *name, user_t user)
1016: {
1017: int i;
1018:
1019: for(i=0;i<5;i++)
1020: if(!stricmp(user.queans[i].name,name))
1021: break;
1022: if(i<5)
1023: return(i);
1024: return(-1);
1025: }
1026:
1027: int total_match(user_t user, user_t mate)
1028: {
1029: int i,j,s,u,match1,match2,quematches=0,quemax=0,quematch;
1030:
1031: match1=basic_match(user,mate);
1032: if(!match1) return(0);
1033: match2=basic_match(mate,user);
1034: if(!match2) return(0);
1035:
1036: for(i=0;i<5;i++) {
1037: if(!user.queans[i].name[0])
1038: continue;
1039: s=sys_quenum(user.queans[i].name);
1040: if(s==-1)
1041: continue;
1042: u=user_quenum(user.queans[i].name,mate);
1043: if(u==-1)
1044: continue;
1045: for(j=0;j<que[s]->total_ques;j++) {
1046: if(user.queans[u].pref[j]&mate.queans[i].self[j]) quematches+=4;
1047: if(user.queans[u].pref[j]==mate.queans[i].self[j]) quematches+=2;
1048: if(user.queans[u].self[j]&mate.queans[i].pref[j]) quematches+=2;
1049: if(user.queans[u].self[j]==mate.queans[i].pref[j]) quematches++;
1050: quemax+=9; } }
1051:
1052: if(!quemax) /* no questionnaires in common */
1053: return((match1+match1+match1+match1+match2+match2)/6);
1054:
1055: quematch=((float)quematches/quemax)*100.0;
1056: return((match1+match1+match1+match1+match2+match2+quematch)/7);
1057: }
1058:
1059:
1060: void main_user_info(user_t user)
1061: {
1062: char str[128],min[64],max[64];
1063: int i;
1064:
1065: attr(LIGHTGRAY);
1066: cls();
1067: if(SYSOP)
1068: bprintf("\1n\1gReal: \1h%.25s #%lu (%.40s)\r\n"
1069: ,user.realname,user.number,user.system);
1070: bprintf("\1n\1gName: \1h%-25.25s \1b%-10s \1c%-15s \1m%s\r\n"
1071: ,user.name
1072: ,marital(user.marital),race(user.race)
1073: ,user.sex=='M' ? "Male":"Female");
1074: if(smm_misc&SMM_METRIC)
1075: sprintf(str," %-4u",intocm(user.height));
1076: else
1077: sprintf(str,"%2u'%-2u",user.height/12,user.height%12);
1078: bprintf("\1n\1gHair: \1h%3s \1n\1gEyes: \1h%3s \1n\1gHeight:"
1079: "\1h%s \1n\1gWeight: \1h%-3u \1n\1gAge: \1h%-3u "
1080: "\1n\1gZodiac: \1h%s\r\n"
1081: ,hair(user.hair),eyes(user.eyes),str
1082: ,smm_misc&SMM_METRIC ? lptokg(user.weight) : user.weight
1083: ,getage(user.birth),zodiac(getzodiac(user.birth)));
1084: bprintf("\1n\1gFrom: \1h%-30.30s \1n\1gZip: \1h%-10.10s "
1085: "\1n\1gIncome: \1h$%sK\1n\1g/year\r\n"
1086: ,user.location,user.zipcode
1087: ,user.income==0xffffffffUL ? "?":ultoa(user.income/1000UL,tmp,10));
1088: if(smm_misc&SMM_METRIC) {
1089: sprintf(min,"%u",intocm(user.min_height));
1090: sprintf(max,"%u",intocm(user.max_height)); }
1091: else {
1092: sprintf(min,"%u'%u",user.min_height/12,user.min_height%12);
1093: sprintf(max,"%u'%u",user.max_height/12,user.max_height%12); }
1094: bprintf("\1n\1gPref: \1h\1%c%c\1%c%c\1m%c \1%c%3u\1n\1g-\1h\1%c%u\1n\1h "
1095: "\1%c%s \1n\1ghair \1h\1%c%s \1n\1geyes \1h\1%c%s\1n\1g-\1h\1%c%s "
1096: "\1%c%u\1n\1g-\1h\1%c%u\1n\1glbs \1h\1%c$%luK\1n\1g-\1h\1%c%luK\1n\1%c "
1097: "\1h%.3s\r\n"
1098: ,user.misc&USER_REQMARITAL ? 'w':'b'
1099: ,marital_ch(user.pref_marital)
1100: ,user.misc&USER_REQRACE ? 'w':'g'
1101: ,race_ch(user.pref_race)
1102: ,user.pref_sex
1103: ,user.misc&USER_REQAGE ? 'w':'g'
1104: ,user.min_age
1105: ,user.misc&USER_REQAGE ? 'w':'g'
1106: ,user.max_age
1107: ,user.misc&USER_REQHAIR ? 'w':'g'
1108: ,hair(user.pref_hair)
1109: ,user.misc&USER_REQEYES ? 'w':'g'
1110: ,eyes(user.pref_eyes)
1111: ,user.misc&USER_REQHEIGHT ? 'w':'g'
1112: ,min
1113: ,user.misc&USER_REQHEIGHT ? 'w':'g'
1114: ,max
1115: ,user.misc&USER_REQWEIGHT ? 'w':'g'
1116: ,smm_misc&SMM_METRIC ? lptokg(user.min_weight) : user.min_weight
1117: ,user.misc&USER_REQWEIGHT ? 'w':'g'
1118: ,smm_misc&SMM_METRIC ? lptokg(user.max_weight) : user.max_weight
1119: ,user.misc&USER_REQINCOME ? 'w':'g'
1120: ,user.min_income/1000L
1121: ,user.misc&USER_REQINCOME ? 'w':'g'
1122: ,user.max_income/1000L
1123: ,user.misc&USER_REQZODIAC ? 'w':'g'
1124: ,zodiac(user.pref_zodiac));
1125:
1126: bprintf("\1r\1i%s\1n\1w\1h\r\n",user.misc&USER_PHOTO ? "PHOTO":nulstr);
1127: for(i=0;i<5;i++) {
1128: if(!user.note[i][0])
1129: break;
1130: bprintf("%15s%.50s\r\n",nulstr,user.note[i]); }
1131: }
1132:
1133: char long_user_info(user_t user)
1134: {
1135: char str[128],fname[128],path[128],ch;
1136: int i,j,k,s,u,max,match1,match2,user_match,mate_match;
1137:
1138: while(1) {
1139: checkline();
1140: main_user_info(user);
1141:
1142: CRLF;
1143: /**
1144: if(user.misc&USER_FROMSMB)
1145: bprintf("\1r\1hImported via message base from \1w%s\1r.\r\n"
1146: ,user.system);
1147: **/
1148: bprintf("\1h\1mThis user meets your profile preferences:\1w%3u%% "
1149: ,match1=basic_match(useron,user));
1150: bprintf("\1n\1gCreated: \1h%s\r\n",unixtodstr(user.created,str));
1151: bprintf("\1h\1mYou meet this user's profile preferences:\1w%3u%% "
1152: ,match2=basic_match(user,useron));
1153: bprintf("\1n\1gUpdated: \1h%s\r\n",unixtodstr(user.updated,str));
1154:
1155: if(!smm_pause)
1156: lncntr=0;
1157:
1158: CRLF;
1159: bputs("\1n\1b\1hQuestionnaires:\r\n");
1160: for(i=0;i<5;i++) {
1161: max=mate_match=user_match=0;
1162: if(!user.queans[i].name[0])
1163: continue;
1164: s=sys_quenum(user.queans[i].name);
1165: if(s==-1)
1166: continue;
1167: if(que[s]->req_age>getage(useron.birth))
1168: continue;
1169: if(match1 && match2)
1170: u=user_quenum(user.queans[i].name,useron);
1171: else
1172: u=-1;
1173: bprintf("\1h\1c%-25s ",que[s]->desc);
1174: if(u==-1) {
1175: CRLF;
1176: continue; }
1177: for(j=0;j<que[s]->total_ques;j++) {
1178: if(useron.queans[u].pref[j]&user.queans[i].self[j]) user_match+=2;
1179: if(useron.queans[u].pref[j]==user.queans[i].self[j]) user_match++;
1180: if(useron.queans[u].self[j]&user.queans[i].pref[j]) mate_match+=2;
1181: if(useron.queans[u].self[j]==user.queans[i].pref[j]) mate_match++;
1182: max+=3; }
1183: bprintf("\1n\1c%s matches your pref:\1h%3u%% "
1184: "\1n\1cYou match %s pref:\1h%3u%%\r\n"
1185: ,user.sex=='M' ? "He":"She"
1186: ,(int)(((float)user_match/max)*100.0)
1187: ,user.sex=='M' ? "his":"her"
1188: ,(int)(((float)mate_match/max)*100.0)); }
1189:
1190: bprintf("\r\n\1r\1hOverall match: \1w%u%%",total_match(useron,user));
1191: if(user.purity)
1192: bprintf(" \1r\1hPurity test: \1w%u%%",user.purity);
1193: if(user.mbtype[0])
1194: bprintf(" \1r\1hPersonality type: \1w%s",user.mbtype);
1195: CRLF;
1196:
1197: if(aborted) {
1198: aborted=0;
1199: return(0); }
1200: if(!smm_pause) {
1201: if(kbhit())
1202: return(0);
1203: return(1); }
1204: nodesync();
1205: if(lncntr>=user_rows-2)
1206: lncntr=0;
1207: CRLF;
1208: bputs("\1h\1b[\1cV\1b]iew questionnaires, ");
1209: if(user.misc&USER_PHOTO)
1210: bputs("[\1cD\1b]ownload photo, ");
1211: bputs("[\1cS\1b]end telegram, [\1cQ\1b]uit, or [Next]: \1c");
1212: strcpy(str,"VSQN\r");
1213: if(user.misc&USER_PHOTO)
1214: strcat(str,"D");
1215: if(SYSOP)
1216: strcat(str,"+");
1217: switch(getkeys(str,0)) {
1218: case '+':
1219: user.misc|=USER_PHOTO;
1220: break;
1221: case 'Q':
1222: return(0);
1223: case CR:
1224: case 'N':
1225: return(1);
1226: case 'D':
1227: if(!useron.number) {
1228: bputs("\r\n\1h\1rYou must create a profile first.\r\n");
1229: pause();
1230: break; }
1231: if(!(useron.misc&USER_PHOTO)) {
1232: bputs("\r\n\1h\1rYou cannot download photos until your photo is "
1233: "added.\r\n");
1234: pause();
1235: break; }
1236: for(i=0;user.system[i];i++)
1237: if(isalnum(user.system[i]))
1238: break;
1239: if(!user.system[i])
1240: fname[0]='~';
1241: else
1242: fname[0]=user.system[i];
1243: for(i=strlen(user.system)-1;i>0;i--)
1244: if(isalnum(user.system[i]))
1245: break;
1246: if(i<=0)
1247: fname[1]='~';
1248: else
1249: fname[1]=user.system[i];
1250: fname[2]=0;
1251: strupr(user.system);
1252: strcat(fname,base41(crc16(user.system),tmp));
1253: strcat(fname,base41(user.number,tmp));
1254: strcat(fname,".JPG");
1255: strupr(fname);
1256: sprintf(path,"PHOTO\\%s",fname);
1257: if(!fexist(path)) {
1258: bputs("\r\n\1n\1hUnpacking...");
1259: sprintf(str,"%spkunzip photo %s photo",exec_dir,fname);
1260: system(str);
1261: bputs("\r\n");
1262: if(!fexist(path)) {
1263: bputs("\r\n\1n\1h\1i\1rUnpacking failed!\1n\r\n");
1264: pause();
1265: break; } }
1266: if(com_port) {
1267: cmdstr(zmodem_send,path,path,str);
1268: ivhctl(INTCLR);
1269: ivhctl(INT29L);
1270: system(str);
1271: ivhctl(INTCLR);
1272: i=INT29L;
1273: i|=(INT29R|INT16);
1274: ivhctl(i); }
1275: else
1276: system(cmdstr(local_view,path,path,str));
1277: pause();
1278: break;
1279:
1280:
1281: case 'S':
1282: send_telegram(user);
1283: break;
1284: case 'V':
1285:
1286: if(user_level<que_level) {
1287: bputs("\r\n\1h\1rYou have insufficient access to read "
1288: "questoinnaires.\r\n");
1289: pause();
1290: break; }
1291:
1292: for(i=0;i<5;i++) {
1293: aborted=0;
1294: if(!user.queans[i].name[0])
1295: continue;
1296: s=sys_quenum(user.queans[i].name);
1297: if(s==-1)
1298: continue;
1299: if(que[s]->req_age>getage(useron.birth))
1300: continue;
1301: if(match1 && match2)
1302: u=user_quenum(user.queans[i].name,useron);
1303: else
1304: u=-1;
1305: sprintf(str,"\r\nDo you wish to view the \1w%s\1b questionnaire"
1306: ,que[s]->desc);
1307: if(!yesno(str))
1308: continue;
1309: if(!cdt_warning(que_cdt))
1310: continue;
1311: adjust_cdt(que_cdt);
1312: for(j=0;j<que[s]->total_ques && !aborted;) {
1313: cls();
1314: bprintf("\1n\1m\1hQuestionnaire: \1y%-25s \1mQuestion: "
1315: "\1y%d \1mof \1y%d \1h\1b(Ctrl-C to Abort)\r\n\r\n"
1316: ,que[s]->desc,j+1,que[s]->total_ques);
1317: bprintf("\1w\1h%s\r\n\r\n",que[s]->que[j].txt);
1318: for(k=0;k<que[s]->que[j].answers;k++)
1319: bprintf("\1h\1b%c\1w) \1g%s\r\n",'A'+k
1320: ,que[s]->que[j].ans[k]);
1321: bits2str(user.queans[i].self[j],str);
1322: bprintf("\1n\1g\r\n%25s: \1h%-16s "
1323: ,user.name,str);
1324: bits2str(user.queans[i].pref[j],str);
1325: bprintf("\1n\1g %15s: \1h%s","Preferred mate",str);
1326: if(u!=-1) {
1327: bits2str(useron.queans[u].pref[j],str);
1328: bprintf("\1n\1g\r\n%25s: \1h%-16s "
1329: ,"Your preferred mate",str);
1330: bits2str(useron.queans[u].self[j],str);
1331: bprintf("\1n\1g %15s: \1h%s","You",str); }
1332: CRLF;
1333: if(!aborted) {
1334: lncntr=0;
1335: bputs("\r\n\1h\1b[\1cP\1b]revious, [\1cQ\1b]uit, "
1336: "or [Next]: \1c");
1337: ch=getkeys("PQN\r",0);
1338: if(ch=='P') {
1339: if(j) j--;
1340: continue; }
1341: if(ch=='Q')
1342: break;
1343: j++; } } }
1344: break;
1345:
1346: } }
1347: return(0);
1348: }
1349:
1350:
1351: /* Returns 0 if aborted, 1 if continue, negative if previous */
1352: int short_user_info(user_t user)
1353: {
1354: char str[128],height[64],ch;
1355: int i,match;
1356: int records;
1357: ulong name_crc;
1358: static char name[26],lastname[26],highmatch;
1359: static long topixb,topdab,lastixb,lastdab;
1360: static int count;
1361:
1362: if(!lncntr && smm_pause) {
1363: topdab=ftell(stream)-sizeof(user_t);
1364: topixb=ftell(index)-sizeof(ixb_t);
1365: if(!topdab)
1366: lastdab=lastixb=0;
1367: count=0;
1368: printfile("LIST_HDR.ASC");
1369: strcpy(lastname,name);
1370: name[0]=highmatch=0; }
1371: if(user.number) {
1372: match=total_match(useron,user);
1373: if(!match) str[0]=0;
1374: else if(match>=90) sprintf(str,"\1w%u%%",match);
1375: else if(match>=80) sprintf(str,"\1c%u%%",match);
1376: else if(match>=70) sprintf(str,"\1y%u%%",match);
1377: else if(match>=60) sprintf(str,"\1g%u%%",match);
1378: else if(match>=50) sprintf(str,"\1m%u%%",match);
1379: else if(match>=40) sprintf(str,"\1r%u%%",match);
1380: else if(match>=30) sprintf(str,"\1b%u%%",match);
1381: else if(match>=20) sprintf(str,"\1n\1g%u%%",match);
1382: else if(match>=10) sprintf(str,"\1n\1c%u%%",match);
1383: else sprintf(str,"\1n%u%%",match);
1384: if(smm_misc&SMM_METRIC)
1385: sprintf(height," %-4u",intocm(user.height));
1386: else
1387: sprintf(height,"%2u'%-2u",user.height/12,user.height%12);
1388: bprintf("\1n\1h%c\1n\1g%c\1h\1c%c\1b%3u \1g%3s \1m%3s\1r%s \1y%-3u "
1389: "\1n\1g%-25.25s\1r\1h\1i%c\1n\1h%-25.25s%s\r\n"
1390: ,user.sex==user.pref_sex ? 'G':user.sex=='*' ? 'B'
1391: : marital_ch(user.marital)
1392: ,race_ch(user.race)
1393: ,user.sex
1394: ,getage(user.birth)
1395: ,hair(user.hair)
1396: ,eyes(user.eyes)
1397: ,height
1398: ,smm_misc&SMM_METRIC ? lptokg(user.weight) : user.weight
1399: ,user.location
1400: ,user.misc&USER_PHOTO ? '+':SP
1401: ,user.name
1402: ,str
1403: );
1404: if(match &&
1405: (!name[0] || !stricmp(name,lastname)
1406: || (stricmp(user.name,lastname) && match>highmatch))) {
1407: highmatch=match;
1408: sprintf(name,"%.25s",user.name);
1409: strupr(name); }
1410: }
1411:
1412: if(lncntr>=user_rows-2 || !user.number) {
1413: lncntr=0;
1414: bputs(PrevReadSendQuitOrMore);
1415: ch=getkey(K_UPPER);
1416: if(ch=='Q') {
1417: cls();
1418: aborted=1; }
1419: else if(ch=='P') {
1420: cls();
1421: records=((ftell(stream)-topdab)/sizeof(user_t));
1422: fseek(stream,lastdab,SEEK_SET);
1423: fseek(index,lastixb,SEEK_SET);
1424: lastdab-=(records)*sizeof(user_t);
1425: lastixb-=(records)*sizeof(ixb_t);
1426: if(lastdab<0) lastdab=0;
1427: if(lastixb<0) lastixb=0;
1428: return(-count); }
1429: else if(ch=='R' || ch=='G' || ch=='S') {
1430: bprintf("\1n\r\1>\1y\1hUser name: ");
1431: if(getstr(name,25,K_NOCRLF|K_LINE|K_EDIT|K_AUTODEL|K_UPPER)) {
1432: truncsp(name);
1433: name_crc=crc32(name);
1434: cls();
1435: rewind(index);
1436: while(!feof(index)) {
1437: if(!fread(&ixb,sizeof(ixb_t),1,index))
1438: break;
1439: if(!ixb.number) /* DELETED */
1440: continue;
1441: if(ixb.name!=name_crc)
1442: continue;
1443: fseek(stream
1444: ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
1445: *sizeof(user_t),SEEK_SET);
1446: if(!fread(&user,sizeof(user_t),1,stream))
1447: continue;
1448: if(ch=='S' && send_telegram(user))
1449: break;
1450: if(ch!='S' && !long_user_info(user))
1451: break; } }
1452: fseek(stream,topdab,SEEK_SET);
1453: fseek(index,topixb,SEEK_SET);
1454: cls();
1455: return(-1); }
1456: else {
1457: lastixb=topixb;
1458: lastdab=topdab;
1459: cls(); } }
1460:
1461: count++;
1462: if(aborted)
1463: return(0);
1464: return(1);
1465: }
1466:
1467:
1468: int get_your_det(user_t *user)
1469: {
1470: char str[128],*p,*hdr;
1471: int i;
1472:
1473: while(1) {
1474: checkline();
1475: cls();
1476: bputs("\1h\0014 Your Detailed Personal Information \1n \1h\1b"
1477: "(Ctrl-C to Abort)\r\n\r\n");
1478:
1479: nodesync();
1480: bputs("\1h\1bPlease enter your name or alias: ");
1481: strcpy(str,user->name);
1482: if(!getstr(str,25,K_LINE|K_EDIT|K_AUTODEL|K_UPRLWR))
1483: return(0);
1484: truncsp(str);
1485: if(trash(str)) {
1486: bprintf("\r\n\1h\1rSorry, you can't use that name.\r\n\r\n\1p");
1487: continue; }
1488: strcpy(user->name,str);
1489:
1490: CRLF;
1491: nodesync();
1492: bprintf("\1h\1gPlease enter your height in %s: "
1493: ,smm_misc&SMM_METRIC ? "centimeters" : "feet'inches (example: 5'7)");
1494: if(user->height) {
1495: if(smm_misc&SMM_METRIC)
1496: sprintf(str,"%u",intocm(user->height));
1497: else
1498: sprintf(str,"%u'%u",user->height/12,user->height%12); }
1499: else
1500: str[0]=0;
1501: if(!getstr(str,4,K_LINE|K_EDIT|K_AUTODEL))
1502: return(0);
1503: if(smm_misc&SMM_METRIC)
1504: user->height=cmtoin(atoi(str));
1505: else {
1506: user->height=atoi(str)*12;
1507: p=strchr(str,'\'');
1508: if(p) user->height+=atoi(p+1); }
1509:
1510: CRLF;
1511: nodesync();
1512: bprintf("\1h\1mPlease enter your weight (in %s): "
1513: ,smm_misc&SMM_METRIC ? "kilograms":"pounds");
1514: if(user->weight)
1515: sprintf(str,"%u"
1516: ,smm_misc&SMM_METRIC ? lptokg(user->weight) : user->weight);
1517: else
1518: str[0]=0;
1519: if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL|K_LINE))
1520: return(0);
1521: if(smm_misc&SMM_METRIC)
1522: user->weight=kgtolp(atoi(str));
1523: else
1524: user->weight=atoi(str);
1525:
1526: CRLF;
1527: nodesync();
1528: bputs("\1h\1rPlease enter your annual income in dollars (ENTER=undisclosed): ");
1529: if(user->income && user->income!=0xffffffff)
1530: sprintf(str,"%luK",user->income/1000);
1531: else
1532: str[0]=0;
1533: getstr(str,6,K_UPPER|K_EDIT|K_AUTODEL|K_LINE);
1534: if(aborted)
1535: return(0);
1536: if(strchr(str,'K'))
1537: user->income=atol(str)*1000L;
1538: else if(str[0]==0)
1539: user->income=0xffffffffUL;
1540: else
1541: user->income=atol(str);
1542:
1543: CRLF;
1544: nodesync();
1545: bputs("\1h\1cPlease enter your location (city, state): ");
1546: strcpy(str,user->location);
1547: if(!getstr(str,30,K_LINE|K_EDIT|K_AUTODEL|K_UPRLWR))
1548: return(0);
1549: truncsp(str);
1550: if(trash(str)) {
1551: bprintf("\r\n\1r\1hSorry, you can't use that location.\r\n\r\n\1p");
1552: continue; }
1553: strcpy(user->location,str);
1554:
1555:
1556: CRLF;
1557: nodesync();
1558: bputs("\1h\1gPlease enter your zip/postal code: ");
1559: if(!getstr(user->zipcode,10,K_LINE|K_EDIT|K_AUTODEL))
1560: return(0);
1561:
1562: CRLF;
1563: nodesync();
1564: for(i=0;i<5;i++) {
1565: bprintf("\1n\1gPersonal text - Line %u of 5: ",i+1);
1566: if(wordwrap[0])
1567: user->note[i][0]=0;
1568: strcpy(str,user->note[i]);
1569: if(!getstr(str,50,i==4 ? K_LINE|K_EDIT:K_LINE|K_EDIT|K_WRAP))
1570: break;
1571: if(trash(str)) {
1572: bprintf("\r\n\1r\1hSorry, you can't use that text.\r\n\r\n");
1573: i--;
1574: continue; }
1575: strcpy(user->note[i],str); }
1576: while(i++<5)
1577: user->note[i][0]=0;
1578: aborted=0;
1579: nodesync();
1580: if(yesno("\r\nIs the above information correct"))
1581: break; }
1582: return(1);
1583: }
1584:
1585: int get_pref_det(user_t *user)
1586: {
1587: char str[128],*p,*hdr;
1588: int i;
1589:
1590: while(1) {
1591: checkline();
1592: cls();
1593: bputs("\1h\0014 Detailed Information on Your Preferred Mate \1n "
1594: "\1h\1b(Ctrl-C to Abort)\r\n\r\n");
1595:
1596: nodesync();
1597: bputs("\1n\1cPlease enter the minimum age of your preferred mate: \1h");
1598: if(user->min_age)
1599: sprintf(str,"%u",user->min_age);
1600: else
1601: str[0]=0;
1602: getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
1603: if(aborted)
1604: return(0);
1605: user->min_age=atoi(str);
1606:
1607: nodesync();
1608: bputs("\1h\1cPlease enter the maximum age of your preferred mate: \1h");
1609: if(user->max_age)
1610: sprintf(str,"%u",user->max_age);
1611: else
1612: str[0]=0;
1613: getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
1614: if(aborted)
1615: return(0);
1616: user->max_age=atoi(str);
1617: if(user->min_age) {
1618: strcpy(str,"Do you require your mate's age fall within this range");
1619: if(user->misc&USER_REQAGE)
1620: i=yesno(str);
1621: else
1622: i=!noyes(str);
1623: if(i)
1624: user->misc|=USER_REQAGE;
1625: else
1626: user->misc&=~USER_REQAGE; }
1627: else
1628: user->misc&=~USER_REQAGE;
1629: if(aborted)
1630: return(0);
1631:
1632: CRLF;
1633: nodesync();
1634: bprintf("\1n\1gPlease enter the minimum height of your preferred mate "
1635: "in %s: \1w\1h",smm_misc&SMM_METRIC ? "centimeters":"feet'inches");
1636: if(user->min_height) {
1637: if(smm_misc&SMM_METRIC)
1638: sprintf(str,"%u",intocm(user->min_height));
1639: else
1640: sprintf(str,"%u'%u",user->min_height/12,user->min_height%12); }
1641: else
1642: str[0]=0;
1643: getstr(str,4,K_EDIT|K_AUTODEL);
1644: if(aborted)
1645: return(0);
1646: if(smm_misc&SMM_METRIC)
1647: user->min_height=cmtoin(atoi(str));
1648: else {
1649: user->min_height=atoi(str)*12;
1650: p=strchr(str,'\'');
1651: if(p) user->min_height+=atoi(p+1); }
1652: nodesync();
1653: bprintf("\1h\1gPlease enter the maximum height of your preferred mate "
1654: "in %s: \1w",smm_misc&SMM_METRIC ? "centimeters":"feet'inches");
1655: if(user->max_height) {
1656: if(smm_misc&SMM_METRIC)
1657: sprintf(str,"%u",intocm(user->max_height));
1658: else
1659: sprintf(str,"%u'%u",user->max_height/12,user->max_height%12); }
1660: else
1661: str[0]=0;
1662: getstr(str,4,K_EDIT|K_AUTODEL);
1663: if(aborted)
1664: return(0);
1665: if(smm_misc&SMM_METRIC)
1666: user->max_height=cmtoin(atoi(str));
1667: else {
1668: user->max_height=atoi(str)*12;
1669: p=strchr(str,'\'');
1670: if(p) user->max_height+=atoi(p+1); }
1671: strcpy(str,"Do you require your mate's height fall within this range");
1672: if(user->misc&USER_REQHEIGHT)
1673: i=yesno(str);
1674: else
1675: i=!noyes(str);
1676: if(i)
1677: user->misc|=USER_REQHEIGHT;
1678: else
1679: user->misc&=~USER_REQHEIGHT;
1680: if(aborted)
1681: return(0);
1682:
1683:
1684: CRLF;
1685: nodesync();
1686: bprintf("\1n\1mPlease enter the minimum weight of your preferred mate in %s:"
1687: " \1w\1h",smm_misc&SMM_METRIC ? "kilograms":"pounds");
1688: if(user->min_weight) {
1689: if(smm_misc&SMM_METRIC)
1690: sprintf(str,"%u",lptokg(user->min_weight));
1691: else
1692: sprintf(str,"%u",user->min_weight); }
1693: else
1694: str[0]=0;
1695: getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
1696: if(aborted)
1697: return(0);
1698: if(smm_misc&SMM_METRIC)
1699: user->min_weight=kgtolp(atoi(str));
1700: else
1701: user->min_weight=atoi(str);
1702:
1703: nodesync();
1704: bprintf("\1h\1mPlease enter the maximum weight of your preferred mate in %s:"
1705: " \1w",smm_misc&SMM_METRIC ? "kilograms":"pounds");
1706: if(user->max_weight) {
1707: if(smm_misc&SMM_METRIC)
1708: sprintf(str,"%u",lptokg(user->max_weight));
1709: else
1710: sprintf(str,"%u",user->max_weight); }
1711: else
1712: str[0]=0;
1713: getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
1714: if(aborted)
1715: return(0);
1716: if(smm_misc&SMM_METRIC)
1717: user->max_weight=kgtolp(atoi(str));
1718: else
1719: user->max_weight=atoi(str);
1720: if(user->max_weight) {
1721: strcpy(str,"Do you require your mate's weight fall within this range");
1722: if(user->misc&USER_REQWEIGHT)
1723: i=yesno(str);
1724: else
1725: i=!noyes(str);
1726: if(i)
1727: user->misc|=USER_REQWEIGHT;
1728: else
1729: user->misc&=~USER_REQWEIGHT; }
1730: else
1731: user->misc&=~USER_REQWEIGHT;
1732: if(aborted)
1733: return(0);
1734:
1735:
1736: CRLF;
1737: nodesync();
1738: bputs("\1h\1cPlease enter the lowest zip/postal code of your preferred "
1739: "mate: \1w");
1740: getstr(user->min_zipcode,10,K_EDIT|K_AUTODEL|K_UPPER);
1741: if(aborted)
1742: return(0);
1743: bputs("\1h\1bPlease enter the highest zip/postal code of your preferred "
1744: "mate: \1w");
1745: getstr(user->max_zipcode,10,K_EDIT|K_AUTODEL|K_UPPER);
1746: if(aborted)
1747: return(0);
1748: strcpy(str,"Do you require your mate's zip/postal code fall within this range");
1749: if(user->misc&USER_REQZIP)
1750: i=yesno(str);
1751: else
1752: i=!noyes(str);
1753: if(i)
1754: user->misc|=USER_REQZIP;
1755: else
1756: user->misc&=~USER_REQZIP;
1757: if(aborted)
1758: return(0);
1759:
1760:
1761: CRLF;
1762: nodesync();
1763: bputs("\1h\1gPlease enter the minimum annual income of your "
1764: "mate in dollars: \1w");
1765: if(user->min_income)
1766: sprintf(str,"%lu",user->min_income);
1767: else
1768: str[0]=0;
1769: getstr(str,6,K_NUMBER|K_EDIT|K_AUTODEL);
1770: if(aborted) return(0);
1771: user->min_income=atol(str);
1772:
1773: nodesync();
1774: bputs("\1h\1yPlease enter the maximum annual income of your "
1775: "mate in dollars: \1w");
1776: if(user->max_income)
1777: sprintf(str,"%lu",user->max_income);
1778: else
1779: str[0]=0;
1780: getstr(str,6,K_NUMBER|K_EDIT|K_AUTODEL);
1781: if(aborted) return(0);
1782: user->max_income=atol(str);
1783: if(user->min_income) {
1784: strcpy(str,"Do you require that your mate's income fall within this range");
1785: if(user->misc&USER_REQINCOME)
1786: i=yesno(str);
1787: else
1788: i=!noyes(str);
1789: if(i)
1790: user->misc|=USER_REQINCOME;
1791: else
1792: user->misc&=~USER_REQINCOME; }
1793: else
1794: user->misc&=~USER_REQINCOME;
1795: if(aborted)
1796: return(0);
1797:
1798:
1799: nodesync();
1800: if(yesno("\r\nIs the above information correct"))
1801: break; }
1802: return(1);
1803: }
1804:
1805: int get_your_multi(user_t *user)
1806: {
1807: char str[128],*hdr,*p;
1808:
1809: while(1) {
1810: checkline();
1811: hdr="\1n\1l\1h\0014 Your Profile \1n \1h\1b(Ctrl-C to Abort)\r\n\r\n";
1812: bputs(hdr);
1813: bputs("\1n\1h\1cYour Marital Status:\r\n\r\n");
1814: mnemonics("~A) Single\r\n~B) Married\r\n~C) Divorced\r\n~D) Widowed\r\n"
1815: "~E) Other\r\n");
1816: nodesync();
1817: bputs("\r\n\1y\1hWhich: \1w");
1818: uchar2ans(user->marital,str);
1819: if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
1820: return(0);
1821: if(str[0]<='E')
1822: break; }
1823: user->marital=ans2uchar(str);
1824:
1825: while(1) {
1826: checkline();
1827: bputs(hdr);
1828: bputs("\1n\1h\1cYour Race:\r\n\r\n");
1829: mnemonics("~A) White\r\n~B) Black\r\n~C) Hispanic\r\n~D) Asian\r\n"
1830: "~E) American Indian\r\n~F) Middle Eastern\r\n~G) Other\r\n");
1831: nodesync();
1832: bputs("\r\n\1y\1hWhich: \1w");
1833: uchar2ans(user->race,str);
1834: if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
1835: return(0);
1836: if(str[0]<='G')
1837: break; }
1838: user->race=ans2uchar(str);
1839:
1840: while(1) {
1841: checkline();
1842: bputs(hdr);
1843: bputs("\1n\1h\1cYour Hair Color:\r\n\r\n");
1844: mnemonics("~A) Blonde\r\n~B) Brown\r\n~C) Red\r\n~D) Black\r\n"
1845: "~E) Grey\r\n~F) Other\r\n");
1846: nodesync();
1847: bputs("\r\n\1y\1hWhich: \1w");
1848: uchar2ans(user->hair,str);
1849: if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
1850: return(0);
1851: if(str[0]<='F')
1852: break; }
1853: user->hair=ans2uchar(str);
1854:
1855: while(1) {
1856: checkline();
1857: bputs(hdr);
1858: bputs("\1n\1h\1cYour Eye Color:\r\n\r\n");
1859: mnemonics("~A) Blue\r\n~B) Green\r\n~C) Hazel\r\n~D) Brown\r\n"
1860: "~E) Other\r\n");
1861: nodesync();
1862: bputs("\r\n\1y\1hWhich: \1w");
1863: uchar2ans(user->eyes,str);
1864: if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
1865: return(0);
1866: if(str[0]<='E')
1867: break; }
1868: user->eyes=ans2uchar(str);
1869: return(1);
1870: }
1871:
1872: int get_pref_multi(user_t *user)
1873: {
1874: char str[128],*hdr,*p;
1875: int i;
1876:
1877: while(1) {
1878: checkline();
1879: hdr="\1n\1l\1h\0014 Profile of Your Preferred Mate \1n \1h\1b"
1880: "(Ctrl-C to Abort)\r\n\r\n";
1881: bputs(hdr);
1882: bputs("\1n\1h\1cSex of Your Preferred (Intimate/Romantic) Mate:\r\n\r\n");
1883: mnemonics("~M) Male\r\n~F) Female\r\n~*) Either\r\n");
1884: nodesync();
1885: bputs("\r\n\1y\1hWhich: ");
1886: str[0]=user->pref_sex;
1887: str[1]=0;
1888: if(!getstr(str,1,K_UPPER|K_EDIT|K_AUTODEL|K_LINE))
1889: break;
1890: if(user->sex==str[0] && noyes("\r\nYou are homosexual"))
1891: continue;
1892: if(str[0]=='M' || str[0]=='F' || str[0]=='*')
1893: break; }
1894: user->pref_sex=str[0];
1895: if(aborted) return(0);
1896:
1897: strcpy(str,"\r\nAre you seeking an any-sex (non-romantic) friendship");
1898: if(user->misc&USER_FRIEND)
1899: i=yesno(str);
1900: else
1901: i=!noyes(str);
1902: if(i)
1903: user->misc|=USER_FRIEND;
1904: else
1905: user->misc&=~USER_FRIEND;
1906:
1907: bputs(hdr);
1908: bputs("\1n\1h\1cMarital Status of Your Preferred Mate:\r\n\r\n");
1909: mnemonics("~A) Single\r\n~B) Married\r\n~C) Divorced\r\n~D) Widowed\r\n"
1910: "~E) Other\r\n~*) Any of the above\r\n");
1911: nodesync();
1912: bputs("\r\n\1y\1hPlease enter up to 4 answers: ");
1913: uchar2ans(user->pref_marital,str);
1914: if(!getstr(str,4,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
1915: return(0);
1916: user->pref_marital=ans2uchar(str);
1917: if(user->pref_marital!=0xff) {
1918: strcpy(str,"\r\nDo you require your mate have the martial status you "
1919: "indicated");
1920: if(user->misc&USER_REQMARITAL)
1921: i=yesno(str);
1922: else
1923: i=!noyes(str);
1924: if(i)
1925: user->misc|=USER_REQMARITAL;
1926: else
1927: user->misc&=~USER_REQMARITAL; }
1928: else
1929: user->misc&=~USER_REQMARITAL;
1930: if(aborted) return(0);
1931:
1932: bputs(hdr);
1933: bputs("\1n\1h\1cRace of Your Preferred Mate:\r\n\r\n");
1934: mnemonics("~A) White\r\n~B) Black\r\n~C) Hispanic\r\n~D) Asian\r\n"
1935: "~E) American Indian\r\n~F) Middle Eastern\r\n~G) Other\r\n"
1936: "~*) Any of the above\r\n");
1937: nodesync();
1938: bputs("\r\n\1y\1hPlease enter up to 6 answers: ");
1939: uchar2ans(user->pref_race,str);
1940: if(!getstr(str,6,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
1941: return(0);
1942: user->pref_race=ans2uchar(str);
1943: if(user->pref_race!=0xff) {
1944: strcpy(str,"\r\nDo you require your mate be of the race"
1945: " you indicated");
1946: if(user->misc&USER_REQRACE)
1947: i=yesno(str);
1948: else
1949: i=!noyes(str);
1950: if(i)
1951: user->misc|=USER_REQRACE;
1952: else
1953: user->misc&=~USER_REQRACE; }
1954: else
1955: user->misc&=~USER_REQRACE;
1956: if(aborted) return(0);
1957:
1958: bputs(hdr);
1959: bputs("\1n\1h\1cHair Color of Your Preferred Mate:\r\n\r\n");
1960: mnemonics("~A) Blonde\r\n~B) Brown\r\n~C) Red\r\n~D) Black\r\n"
1961: "~E) Grey\r\n~F) Other\r\n~*) Any of the Above\r\n");
1962: nodesync();
1963: bputs("\r\n\1y\1hPlease enter up to 5 answers: ");
1964: uchar2ans(user->pref_hair,str);
1965: if(!getstr(str,5,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
1966: return(0);
1967: user->pref_hair=ans2uchar(str);
1968: if(user->pref_hair!=0xff) {
1969: strcpy(str,"\r\nDo you require your mate have the hair color"
1970: " you indicated");
1971: if(user->misc&USER_REQHAIR)
1972: i=yesno(str);
1973: else
1974: i=!noyes(str);
1975: if(i)
1976: user->misc|=USER_REQHAIR;
1977: else
1978: user->misc&=~USER_REQHAIR; }
1979: else
1980: user->misc&=~USER_REQHAIR;
1981: if(aborted) return(0);
1982:
1983:
1984: bputs(hdr);
1985: bputs("\1n\1h\1cEye Color of Your Preferred Mate:\r\n\r\n");
1986: mnemonics("~A) Blue\r\n~B) Green\r\n~C) Hazel\r\n~D) Brown\r\n"
1987: "~E) Other\r\n~*) Any of the above\r\n");
1988: nodesync();
1989: bputs("\r\n\1y\1hPlease enter up to 4 answers: ");
1990: uchar2ans(user->pref_eyes,str);
1991: if(!getstr(str,4,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
1992: return(0);
1993: user->pref_eyes=ans2uchar(str);
1994: if(user->pref_eyes!=0xff) {
1995: strcpy(str,"\r\nDo you require your mate have the eye color"
1996: " you indicated");
1997: if(user->misc&USER_REQEYES)
1998: i=yesno(str);
1999: else
2000: i=!noyes(str);
2001: if(i)
2002: user->misc|=USER_REQEYES;
2003: else
2004: user->misc&=~USER_REQEYES; }
2005: else
2006: user->misc&=~USER_REQEYES;
2007: if(aborted) return(0);
2008:
2009: bputs(hdr);
2010: bputs("\1n\1h\1cZodiac Sign of Your Preferred Mate:\r\n\r\n");
2011: mnemonics("~A) Aries\r\n~B) Taurus\r\n~C) Gemini\r\n~D) Cancer\r\n"
2012: "~E) Leo\r\n~F) Virgo\r\n~G) Libra\r\n~H) Scorpio\r\n");
2013: mnemonics("~I) Sagittarius\r\n~J) Capricorn\r\n~K) Aquarius\r\n"
2014: "~L) Pisces\r\n~*) Any of the above\r\n");
2015: nodesync();
2016: bputs("\r\n\1y\1hPlease enter up to 11 answers: ");
2017: bits2ans(user->pref_zodiac,str);
2018: if(!getstr(str,11,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
2019: return(0);
2020: user->pref_zodiac=ans2bits(str);
2021: if(user->pref_zodiac!=0xffff) {
2022: strcpy(str,"\r\nDo you require your mate have the zodiac sign"
2023: " you indicated");
2024: if(user->misc&USER_REQZODIAC)
2025: i=yesno(str);
2026: else
2027: i=!noyes(str);
2028: if(i)
2029: user->misc|=USER_REQZODIAC;
2030: else
2031: user->misc&=~USER_REQZODIAC; }
2032: else
2033: user->misc&=~USER_REQZODIAC;
2034: if(aborted) return(0);
2035:
2036: return(1);
2037: }
2038:
2039: void mbtype_desc(char *mbtype)
2040: {
2041: char str[128],type[128];
2042:
2043: while(1) {
2044: checkline();
2045: cls();
2046: printfile("MB-TYPE.ASC");
2047: nodesync();
2048: bprintf("\r\n\1y\1hYour Type: \1w%s\r\n",mbtype);
2049: bputs("\1y\1hLetter or Type to define: ");
2050: memset(type,0,5);
2051: if(!getstr(type,4,K_ALPHA|K_UPPER|K_LINE))
2052: break;
2053: sprintf(str,"MB-%s.ASC",type);
2054: if(!fexist(str)) {
2055: bputs("\r\nInvalid Letter or Type!\r\n\r\n");
2056: pause();
2057: continue; }
2058: cls();
2059: printfile(str);
2060: if(lncntr && !aborted)
2061: pause(); }
2062: }
2063:
2064:
2065: int get_mbtype(user_t *user)
2066: {
2067: char str[256];
2068: int file,i=0,e=0,n=0,s=0,f=0,t=0,p=0,j=0,q=0,ch;
2069: FILE *stream;
2070:
2071: aborted=0;
2072: cls();
2073: printfile("MB-INTRO.ASC");
2074: if(aborted)
2075: return(0);
2076: bputs("\1n\1hYour answers will be kept secret.\r\n\r\n"
2077: "Only your personality type will be visible to other users.\r\n\r\n");
2078: nodesync();
2079: if(!yesno("Continue with test"))
2080: return(0);
2081:
2082: if((file=nopen("MB-TYPE.QUE",O_RDONLY))==-1 ||
2083: (stream=fdopen(file,"r"))==NULL) {
2084: bputs("\7\r\i\hCan't open MBTYPE.QUE\r\n\1p");
2085: return(0); }
2086: while(!feof(stream)) {
2087: if(!fgets(str,200,stream))
2088: break;
2089: str[57]=0;
2090: truncsp(str);
2091: if(!str[0])
2092: break;
2093: cls();
2094: nodesync();
2095: bprintf("\1y\1hMyers-Briggs Personality Test \1bQuestion #\1w%u "
2096: "\1b(Ctrl-C to Abort)\r\n"
2097: "\r\n%s:\r\n\r\n"
2098: "[\1wA\1b] %.44s\r\n"
2099: "[\1wB\1b] %.44s\r\n"
2100: "[\1wC\1b] cannot decide\r\n\r\n"
2101: "Which: \1w"
2102: ,q+1,str,str+58,str+102);
2103: ch=getkeys("ABC",0);
2104: if(aborted) {
2105: fclose(stream);
2106: return(0); }
2107: if(ch=='C') {
2108: q++;
2109: continue; }
2110:
2111: if(ch=='A')
2112: ch=str[146];
2113: else
2114: ch=str[147];
2115:
2116: switch(ch) {
2117: case 'E':
2118: e++;
2119: break;
2120: case 'I':
2121: i++;
2122: break;
2123: case 'S':
2124: s++;
2125: break;
2126: case 'N':
2127: n++;
2128: break;
2129: case 'T':
2130: t++;
2131: break;
2132: case 'F':
2133: f++;
2134: break;
2135: case 'J':
2136: j++;
2137: break;
2138: case 'P':
2139: p++;
2140: break; }
2141: q++; }
2142:
2143: fclose(stream);
2144:
2145: if(i>e)
2146: user->mbtype[0]='I';
2147: else if(i==e)
2148: user->mbtype[0]='*';
2149: else
2150: user->mbtype[0]='E';
2151:
2152: if(s>n)
2153: user->mbtype[1]='S';
2154: else if(s==n)
2155: user->mbtype[1]='*';
2156: else
2157: user->mbtype[1]='N';
2158:
2159: if(t>f)
2160: user->mbtype[2]='T';
2161: else if(t==f)
2162: user->mbtype[2]='*';
2163: else
2164: user->mbtype[2]='F';
2165:
2166: if(p>j)
2167: user->mbtype[3]='P';
2168: else if(p==j)
2169: user->mbtype[3]='*';
2170: else
2171: user->mbtype[3]='J';
2172:
2173: bprintf("\1l\1y\1hYour Myers-Briggs Personality Type is \1w%s\r\n\r\n"
2174: ,user->mbtype);
2175:
2176: if(yesno("Would you like to see the personality type descriptions"))
2177: mbtype_desc(user->mbtype);
2178: return(1);
2179: }
2180:
2181:
2182: int get_purity(user_t *user)
2183: {
2184: char str[128];
2185: int file,no_ans=0,pos_ans=0;
2186: FILE *stream;
2187:
2188: aborted=0;
2189: if(!fexist("PURITY.QUE") || purity_age>getage(user->birth))
2190: return(0);
2191: cls();
2192: printfile("PURITY.ASC");
2193: if(aborted)
2194: return(0);
2195: bputs("\1n\1hYour answers will be kept secret.\r\n\r\n"
2196: "Only your purity score will be visible to other users.\r\n\r\n");
2197: nodesync();
2198: if(!yesno("Continue with test"))
2199: return(0);
2200: if((file=nopen("PURITY.QUE",O_RDONLY))==-1 ||
2201: (stream=fdopen(file,"r"))==NULL) {
2202: bputs("\7\r\i\hCan't open PURITY.QUE\r\n\1p");
2203: return(0); }
2204: while(!feof(stream)) {
2205: if(!fgets(str,81,stream))
2206: break;
2207: truncsp(str);
2208: cls();
2209: if(str[0]=='*') {
2210: printfile(str+1);
2211: if(lncntr && !aborted)
2212: pause();
2213: if(aborted)
2214: break;
2215: continue; }
2216: nodesync();
2217: bprintf("\1y\1hPurity Test \1bQuestion #\1w%u \1b(Ctrl-C to Abort)\r\n"
2218: "\r\nHave you ever:\r\n\r\n"
2219: ,++pos_ans);
2220: if(noyes(str))
2221: no_ans++;
2222: if(aborted)
2223: break; }
2224:
2225: fclose(stream);
2226: if(aborted)
2227: return(0);
2228:
2229: user->purity=((float)no_ans/pos_ans)*100.0;
2230: bprintf("\1l\1y\1hCongratulations, you are \1w%u%%\1y pure!\r\n\r\n"
2231: ,user->purity);
2232: pause();
2233: return(1);
2234: }
2235:
2236: int get_que(int i, user_t *inuser)
2237: {
2238: char str[128];
2239: int j,k,x,y,u;
2240: user_t user=*inuser;
2241:
2242: if(que[i]->req_age>getage(inuser->birth))
2243: return(0);
2244: for(j=0;j<que[i]->total_ques && !aborted;j++) {
2245:
2246: u=user_quenum(que[i]->name,user);
2247: if(u==-1) { /* not already answered */
2248: for(u=0;u<5;u++) /* search for unused questionnaire slot */
2249: if(sys_quenum(user.queans[u].name)==-1)
2250: break;
2251: if(u==5) { /* All questionnaire slots used!?? */
2252: bputs("\r\n\7Questionnaire error, inform sysop!\r\n");
2253: pause();
2254: return(0); } }
2255: strcpy(user.queans[u].name,que[i]->name);
2256: cls();
2257: bprintf("\1n\1m\1hQuestionnaire: \1y%-25s \1mQuestion: "
2258: "\1y%d \1mof \1y%d \1h\1b(Ctrl-C to Abort)\r\n\r\n"
2259: ,que[i]->desc,j+1,que[i]->total_ques);
2260: bprintf("\1w\1h%s\r\n\r\n",que[i]->que[j].txt);
2261: for(k=0;k<que[i]->que[j].answers;k++)
2262: bprintf("\1h\1b%c\1w) \1g%s\r\n",'A'+k,que[i]->que[j].ans[k]);
2263: nodesync();
2264: bprintf("\1n\1g\r\nChoose %s%d answer%s to describe "
2265: "\1hyourself\1n\1g%s: "
2266: ,que[i]->que[j].allowed > 1 ? "up to ":""
2267: ,que[i]->que[j].allowed,que[i]->que[j].allowed > 1 ? "s":""
2268: ,j ? " or \1h-\1n\1g to go back" : "");
2269: bits2ans(user.queans[u].self[j],str);
2270: getstr(str,que[i]->que[j].allowed,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
2271: if(aborted)
2272: return(0);
2273: truncsp(str);
2274: if(!str[0]) {
2275: j--;
2276: continue; }
2277: if(str[0]=='-') {
2278: if(j) j-=2;
2279: else j--;
2280: continue; }
2281: y=strlen(str);
2282: for(x=0;x<y;x++)
2283: if(!isalpha(str[x]) || str[x]-'A'>que[i]->que[j].answers-1)
2284: break;
2285: if(x<y) {
2286: j--;
2287: continue; }
2288: user.queans[u].self[j]=ans2bits(str);
2289: nodesync();
2290: bprintf("\1n\1g\r\n%s%d answer%s to describe your \1hpreferred mate"
2291: "\1n\1g or \1h*\1n\1g for any: "
2292: ,que[i]->que[j].answers > 1 ? "Up to ":""
2293: ,que[i]->que[j].answers,que[i]->que[j].answers > 1 ? "s":"");
2294: if(user.queans[u].pref[j])
2295: bits2ans(user.queans[u].pref[j],str);
2296: getstr(str,que[i]->que[j].answers,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
2297: if(aborted)
2298: return(0);
2299: truncsp(str);
2300: if(!str[0]) {
2301: j--;
2302: continue; }
2303: y=strlen(str);
2304: for(x=0;x<y;x++)
2305: if(isalpha(str[x]) && str[x]-'A'>que[i]->que[j].answers-1)
2306: break;
2307: if(x<y) {
2308: j--;
2309: continue; }
2310: user.queans[u].pref[j]=ans2bits(str); }
2311: *inuser=user;
2312: return(1);
2313: }
2314:
2315: /* Gets/updates profile from user. Returns 0 if aborted. */
2316:
2317: char get_user_info(user_t *user)
2318: {
2319: char str[128],*p,*hdr;
2320: int i,j,k,x,y;
2321:
2322: while(1) {
2323: checkline();
2324: timeleft=0xffff;
2325: aborted=0;
2326: main_user_info(*user);
2327: CRLF;
2328: bputs("\1n\1h");
2329: bputs("\1b[\1wA\1b] Your name, height, weight, income, location, and "
2330: "text\r\n"
2331: "\1b[\1wB\1b] Your marital status, race, hair color, and eye "
2332: "color\r\n"
2333: "\1b[\1wC\1b] Preferred age, height, weight, location, and income\r\n"
2334: "\1b[\1wD\1b] Preferred sex, marital status, race, hair color, eye "
2335: "color, and zodiac\r\n"
2336: );
2337: for(i=0;i<total_ques;i++) {
2338: if(que[i]->req_age>getage(user->birth))
2339: continue;
2340: bprintf("\1b[\1w%u\1b] \1w%s \1bquestionnaire\1b (%u questions) \1w%s\r\n"
2341: ,i+1,que[i]->desc,que[i]->total_ques
2342: ,user_quenum(que[i]->name,*user)==-1 ? "[Unanswered]":"[Answered]");
2343: }
2344: bprintf("\1b[\1wM\1b] Myers-Briggs personality test (70 questions) "
2345: "\1w[%s]\r\n",user->mbtype[0] ? user->mbtype : "Unanswered");
2346: if(fexist("PURITY.QUE") && purity_age<=getage(user->birth))
2347: bprintf("\1b[\1wP\1b] Purity test \1w(%u%% pure)\r\n"
2348: ,user->purity);
2349: bputs("\r\n\1bWhich or [\1wQ\1b]uit: \1w");
2350: i=getkeys("ABCDMPQ",total_ques);
2351: if(i&0x8000) {
2352: i&=~0x8000;
2353: i--;
2354: get_que(i,user);
2355: continue; }
2356:
2357: switch(i) {
2358: case 'A':
2359: get_your_det(user);
2360: break;
2361: case 'C':
2362: get_pref_det(user);
2363: break;
2364: case 'B':
2365: get_your_multi(user);
2366: break;
2367: case 'D':
2368: get_pref_multi(user);
2369: break;
2370: case 'M':
2371: get_mbtype(user);
2372: break;
2373: case 'P':
2374: get_purity(user);
2375: break;
2376: case 'Q':
2377: return(1); } }
2378: }
2379:
2380: void write_user()
2381: {
2382: char str[256];
2383:
2384: if(auto_update && time(NULL)-useron.updated>(long)auto_update*24L*60L*60L)
2385: useron.updated=time(NULL);
2386: fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
2387: fwrite(&useron,sizeof(user_t),1,stream);
2388: fflush(stream);
2389:
2390: ixb.updated=useron.updated;
2391: if(useron.misc&USER_DELETED)
2392: ixb.number=0;
2393: else
2394: ixb.number=useron.number;
2395: strcpy(str,useron.name);
2396: strupr(str);
2397: ixb.name=crc32(str);
2398: ixb.system=system_crc;
2399: fseek(index,useron_record*sizeof(ixb_t),SEEK_SET);
2400: fwrite(&ixb,sizeof(ixb_t),1,index);
2401: fflush(index);
2402: if(!ixb.number) {
2403: sprintf(str,"%04u.MSG",useron.number);
2404: remove(str); }
2405: }
2406:
2407:
2408: void add_userinfo()
2409: {
2410: static user_t user;
2411: char str[128];
2412: ushort tleft=timeleft;
2413: int i;
2414:
2415: if(!cdt_warning(profile_cdt))
2416: return;
2417: timeleft=0xffff;
2418: user.number=user_number;
2419: user.sex=user_sex;
2420: strcpy(user.name,user_name);
2421: strcpy(user.realname,user_name);
2422: strcpy(user.system,system_name);
2423: strcpy(user.birth,user_birth);
2424: strcpy(user.zipcode,user_zipcode);
2425: sprintf(user.min_zipcode,"%c0000",user_zipcode[0]);
2426: sprintf(user.max_zipcode,"%c9999",user_zipcode[0]);
2427: strcpy(user.location,user_location);
2428: if(user.sex!='M' && user.sex!='F') {
2429: if(yesno("Are you of male gender"))
2430: user.sex='M';
2431: else
2432: user.sex='F'; }
2433: if(!getage(user.birth))
2434: while(1) {
2435: checkline();
2436: cls();
2437: bputs("\1l\1y\1hYour birthdate (MM/DD/YY): ");
2438: if(!getstr(user.birth,8,K_UPPER|K_LINE))
2439: return;
2440: if(getage(user.birth))
2441: break; }
2442:
2443: user.pref_sex=user.sex=='M' ? 'F' : 'M';
2444: user.created=time(NULL);
2445: if(!get_your_det(&user) || !get_your_multi(&user) || !get_pref_multi(&user)
2446: || !get_pref_det(&user)) {
2447: timeleft=tleft;
2448: return; }
2449: for(i=0;i<total_ques;i++) {
2450: aborted=0;
2451: if(que[i]->req_age>getage(user.birth))
2452: continue;
2453: timeleft=0xffff;
2454: cls();
2455: bprintf("\1w\1h%s Questionnaire: \1y%u questions\r\n\r\n"
2456: "\1cAnswers will be viewable by other users.\r\n\r\n"
2457: ,que[i]->desc,que[i]->total_ques);
2458: if(yesno("Continue with questionnaire"))
2459: get_que(i,&user); }
2460: timeleft=0xffff;
2461: get_mbtype(&user);
2462: timeleft=0xffff;
2463: get_purity(&user);
2464: if(!get_user_info(&user)) {
2465: timeleft=tleft;
2466: return; }
2467: user.updated=time(NULL);
2468: useron=user;
2469: bputs("\1n\1h\r\nSaving...");
2470: rewind(index);
2471: while(!feof(index)) {
2472: if(!fread(&ixb,sizeof(ixb_t),1,index))
2473: break;
2474: if(!ixb.number) { /* Deleted User */
2475: fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
2476: break; } }
2477:
2478: useron_record=ftell(index)/sizeof(ixb_t);
2479:
2480: write_user();
2481: adjust_cdt(profile_cdt);
2482:
2483: if(notify_user && notify_user!=user_number) {
2484: sprintf(str,"\1n\1hSMM: \1y%s \1madded %s profile to the Match Maker.\r\n"
2485: ,user_name,user_sex=='M' ? "his":"her");
2486: if(node_dir[0])
2487: putsmsg(notify_user,str);
2488: else
2489: puttgram(notify_user,str); }
2490:
2491: timeleft=tleft;
2492: }
2493:
2494: void delphoto(user_t user)
2495: {
2496: char fname[64],path[128];
2497: int i;
2498: struct ffblk ff;
2499:
2500: if(!(user.misc&USER_PHOTO))
2501: return;
2502: for(i=0;user.system[i];i++)
2503: if(isalnum(user.system[i]))
2504: break;
2505: if(!user.system[i])
2506: fname[0]='~';
2507: else
2508: fname[0]=user.system[i];
2509: for(i=strlen(user.system)-1;i>0;i--)
2510: if(isalnum(user.system[i]))
2511: break;
2512: if(i<=0)
2513: fname[1]='~';
2514: else
2515: fname[1]=user.system[i];
2516: fname[2]=0;
2517: strupr(user.system);
2518: strcat(fname,base41(crc16(user.system),tmp));
2519: strcat(fname,base41(user.number,tmp));
2520: strcat(fname,".*");
2521: strupr(fname);
2522: sprintf(path,"PHOTO\\%s",fname);
2523: i=findfirst(path,&ff,0);
2524: if(i)
2525: return;
2526: sprintf(path,"PHOTO\\%s",ff.ff_name);
2527: if(remove(path))
2528: bprintf("\1r\1h\7%s couldn't be removed!\1n\r\n",path);
2529: else
2530: bprintf("\1r\1hPhoto removed.\r\n");
2531: }
2532:
2533:
2534: void smm_exit()
2535: {
2536: char str[128];
2537: int i;
2538: FILE *in,*out;
2539:
2540: if(io_int) {
2541: io_int=0;
2542: ivhctl(0); }
2543: if(com_port) {
2544: for(i=0;i<5;i++)
2545: if(!rioctl(TXBC)) /* wait for rest of output */
2546: break;
2547: else
2548: mswait(1000);
2549: rioini(0,0); }
2550: if(useron.number) {
2551: useron.lastin=time(NULL);
2552: write_user(); }
2553: if(stream)
2554: fclose(stream);
2555: if(cdt_adjustment) {
2556: if(node_dir[0]) {
2557: sprintf(str,"%sMODUSER.DAT",node_dir);
2558: if((out=fopen(str,"wt"))==NULL) {
2559: bprintf("Error opening %s for write\r\n",str);
2560: return; }
2561: fprintf(out,"%ld",cdt_adjustment);
2562: fclose(out); }
2563: else { /* Write back credits to DOOR.SYS */
2564: strcpy(str,door_sys);
2565: str[strlen(str)-1]='_';
2566: remove(str);
2567: rename(door_sys,str);
2568: if((in=fopen(str,"rb"))==NULL) {
2569: bprintf("Error opening %s for read\r\n",str);
2570: return; }
2571: if((out=fopen(door_sys,"wb"))==NULL) {
2572: bprintf("Error opening %s for write\r\n",door_sys);
2573: return; }
2574: for(i=0;!feof(in);i++) {
2575: if(!fgets(tmp,128,in))
2576: break;
2577: if(i+1==30)
2578: fprintf(out,"%ld\r\n",-(cdt_adjustment/1024L));
2579: else if(i+1==31)
2580: fprintf(out,"%ld\r\n",(user_cdt+cdt_adjustment)/1024L);
2581: else
2582: fprintf(out,"%s",tmp); }
2583: fclose(in);
2584: fclose(out);
2585: remove(str);
2586: } }
2587: }
2588:
2589: time_t checktime()
2590: {
2591: struct tm tm;
2592:
2593: memset(&tm,0,sizeof(tm));
2594: tm.tm_year=94;
2595: tm.tm_mday=1;
2596: return(mktime(&tm)^0x2D24BD00L);
2597: }
2598:
2599: void statusline(void)
2600: {
2601: int col,row;
2602:
2603: col=lclwx();
2604: row=lclwy();
2605: lclxy(1,node_scrnlen);
2606: lclatr(CYAN|HIGH|(BLUE<<4));
2607: lputs(" ");
2608: lprintf("%-25.25s %02d %-25.25s %02d %c %s"
2609: ,user_name,user_level,user_realname[0] ? user_realname : user_location
2610: ,getage(user_birth)
2611: ,user_sex ? user_sex : SP
2612: ,user_phone);
2613: lputc(CLREOL);
2614: lclatr(LIGHTGRAY);
2615: lclxy(col,row);
2616: }
2617:
2618:
2619: int minor_protection(user_t user)
2620: {
2621: if(!user_number || !age_split || SYSOP)
2622: return(0);
2623: if(getage(user_birth)<age_split && getage(user.birth)>=age_split)
2624: return(1);
2625: if(getage(user_birth)>=age_split && getage(user.birth)<age_split)
2626: return(1);
2627: return(0);
2628: }
2629:
2630: void main(int argc, char **argv)
2631: {
2632: char str[512],name[128],desc[128],gotoname[128],*p,ext,ch;
2633: int i,j,k,file,match,found;
2634: uint base=0xffff;
2635: ushort tleft;
2636: long l,offset;
2637: ulong name_crc,sys_crc,*crc_lst,ul;
2638: FILE *fp,*que_lst;
2639: user_t user;
2640: wall_t wall;
2641: struct ffblk ff;
2642:
2643: nodefile=-1;
2644: node_misc=NM_LOWPRIO;
2645: com_port=-1;
2646: com_base=0;
2647: com_irq=com_rate=0;
2648: node_dir[0]=exec_dir[0]=temp_dir[0]=ctrl_dir[0]=door_sys[0]=system_name[0]=0;
2649: sys_name[0]=0;
2650:
2651: p=getenv("SBBSNODE");
2652: if(p) {
2653: strcpy(node_dir,p);
2654: if(node_dir[strlen(node_dir)-1]!='\\')
2655: strcat(node_dir,"\\");
2656: initdata(); }
2657:
2658: gotoname[0]=0;
2659: for(i=1;i<argc;i++) {
2660: if(argv[i][0]=='/') {
2661: switch(toupper(argv[i][1])) {
2662: case 'P':
2663: com_port=atoi(argv[i]+2);
2664: break;
2665: case 'I':
2666: com_irq=atoi(argv[i]+2);
2667: break;
2668: case 'C':
2669: com_base=ahtoul(argv[i]+2);
2670: break;
2671: case 'R':
2672: com_rate=atol(argv[i]+2);
2673: break;
2674: case 'T':
2675: mswtyp=atoi(argv[i]+2);
2676: break;
2677: case 'N':
2678: node_dir[0]=0;
2679: break;
2680: default:
2681: printf("\nusage: SMM [DOOR.SYS] [/option] [/option] [...] [user name]\n");
2682: printf("\n");
2683: printf("where:\n");
2684: printf(" DOOR.SYS is the path and filename of DOOR.SYS\n");
2685: printf("\n");
2686: printf(" /p# sets com port\n");
2687: printf(" /i# sets com irq\n");
2688: printf(" /c# sets com I/O address (or DIGI or FOSSIL)\n");
2689: printf(" /r# sets com rate\n");
2690: printf(" /t# sets time-slice API support\n");
2691: printf("\n");
2692: printf(" user name (if specified) is user to look-up\n");
2693: exit(1); }
2694: continue; }
2695: if(!node_dir[0] && !door_sys[0]) {
2696: strcpy(door_sys,argv[i]);
2697: continue; }
2698: if(gotoname[0])
2699: strcat(gotoname," ");
2700: strcat(gotoname,argv[i]); }
2701:
2702: if(!node_dir[0] && !door_sys[0]) {
2703: printf("\n\7SBBSNODE environment variable not set and DOOR.SYS not "
2704: "specified.\n");
2705: exit(1); }
2706:
2707: if(door_sys[0]) {
2708: #ifdef __TURBOC__
2709: ctrlbrk(cbreakh);
2710: #endif
2711:
2712: #ifdef __WATCOMC__
2713: putenv("TZ=UCT0");
2714: setvbuf(stdout,NULL,_IONBF,0);
2715: setvbuf(stderr,NULL,_IONBF,0);
2716: #endif
2717:
2718: if(setmode(fileno(stderr),O_BINARY)==-1) { /* eliminate LF expansion */
2719: printf("\n\7Can't set stderr to BINARY\n");
2720: exit(1); }
2721:
2722: starttime=time(NULL); /* initialize start time stamp */
2723: wordwrap[0]=0; /* set wordwrap to null */
2724: attr(LIGHTGRAY); /* initialize color and curatr to plain */
2725: mnehigh=LIGHTGRAY|HIGH; /* mnemonics highlight color */
2726: mnelow=GREEN; /* mnemonics normal text color */
2727: sec_warn=180; /* seconds till inactivity warning */
2728: sec_timeout=300; /* seconds till inactivity timeout */
2729: tos=lncntr=0; /* init topofscreen and linecounter to 0 */
2730: lastnodemsg=0; /* Last node to send message to */
2731: aborted=0; /* Ctrl-C hit flag */
2732:
2733: fp=fopen(door_sys,"rb");
2734: if(!fp) {
2735: printf("\n\7ERROR opening %s\n",door_sys);
2736: exit(2); }
2737: user_misc=user_flags2[0]=user_flags3[0]=user_flags4[0]=0;
2738: user_rest[0]=user_exempt[0]=0;
2739: user_sex=user_address[0]=user_zipcode[0]=user_realname[0]=0;
2740: str[0]=0;
2741: fgets(str,81,fp); // 01: COM port - if local
2742: if(com_port==-1)
2743: com_port=atoi(str+3);
2744: str[0]=0;
2745: fgets(str,81,fp); // 02: DCE Rate
2746: user_dce=atoi(str);
2747: fgets(str,81,fp); // 03: Data bits
2748: str[0]=0;
2749: fgets(str,81,fp); // 04: Node num
2750: node_num=atoi(str);
2751: str[0]=0;
2752: fgets(str,81,fp); // 05: DTE rate
2753: if(!com_rate)
2754: com_rate=atol(str);
2755: fgets(str,81,fp); // 06: Screen display
2756: fgets(str,81,fp); // 07: Printer toggle
2757: fgets(str,81,fp); // 08: Page bell
2758: fgets(str,81,fp); // 09: Caller alarm
2759: str[0]=0;
2760: fgets(str,81,fp); // 10: User name
2761: sprintf(user_name,"%.25s",str);
2762: truncsp(user_name);
2763: str[0]=0;
2764: fgets(str,81,fp); // 11: User location
2765: sprintf(user_location,"%.30s",str);
2766: truncsp(user_location);
2767: str[0]=0;
2768: fgets(str,81,fp); // 12: Home phone
2769: sprintf(user_phone,"%.12s",str);
2770: truncsp(user_phone);
2771: fgets(str,81,fp); // 13: Work phone
2772: fgets(str,81,fp); // 14: Password
2773: str[0]=0;
2774: fgets(str,81,fp); // 15: Security Level
2775: user_level=atoi(str);
2776: fgets(str,81,fp); // 16: Total logons
2777: fgets(str,81,fp); // 17: Last on date
2778: str[0]=0;
2779: fgets(str,81,fp); // 18: Time left in seconds
2780: timeleft=atoi(str);
2781: fgets(str,81,fp); // 19: Time left in minutes
2782: str[0]=0;
2783: fgets(str,81,fp); // 20: Graphics
2784: if(!strnicmp(str,"GR",2))
2785: user_misc|=(COLOR|ANSI);
2786: str[0]=0;
2787: fgets(str,81,fp); // 21: Screen length
2788: user_rows=atoi(str);
2789: if(user_rows<10)
2790: user_rows=24;
2791: fgets(str,81,fp); // 22: Expert?
2792: str[0]=0;
2793: fgets(str,81,fp); // 23: Registered conferences
2794: sprintf(user_flags1,"%.26s",str);
2795: truncsp(user_flags1);
2796: fgets(str,81,fp); // 24: Conference came from
2797: str[0]=0;
2798: fgets(str,81,fp); // 25: User's expiration date
2799: user_expire=dstrtounix(str);
2800: str[0]=0;
2801: fgets(str,81,fp); // 26: User's number
2802: user_number=atoi(str);
2803: fgets(str,81,fp); // 27: Default protocol
2804: fgets(str,81,fp); // 28: Total uploads
2805: fgets(str,81,fp); // 29: Total downloads
2806: fgets(str,81,fp); // 30: Kbytes downloaded today
2807: str[0]=0;
2808: fgets(str,81,fp); // 31: Max Kbytes to download today
2809: user_cdt=atol(str)*1024UL;
2810: str[0]=0;
2811: fgets(str,81,fp); // 32: Birthday
2812: truncsp(str);
2813: sprintf(user_birth,"%.8s",str);
2814: fgets(str,81,fp); // 33: Path to MAIN
2815: fgets(str,81,fp); // 34: Path to GEN
2816: str[0]=0;
2817: fgets(str,81,fp); // 35: Sysop's name
2818: sprintf(sys_op,"%.40s",str);
2819: truncsp(sys_op);
2820: fclose(fp);
2821: con_fp=stderr;
2822: if(setmode(fileno(con_fp),O_BINARY)==-1) { /* eliminate LF expansion */
2823: printf("Can't set console output to BINARY\n");
2824: exit(1); }
2825: }
2826:
2827: if(!user_number) {
2828: printf("\7\nERROR: Invalid user number (%u)\n",user_number);
2829: exit(5); }
2830:
2831: if(*(&riobp-1)!=23) {
2832: printf("Wrong rciol.obj\n");
2833: exit(1); }
2834:
2835: node_scrnlen=lclini(0xd<<8); /* Tab expansion, no CRLF expansion */
2836: lclini(node_scrnlen-1);
2837:
2838: if(com_port) {
2839: lprintf("\r\nInitializing COM port %u: ",com_port);
2840: switch(com_base) {
2841: case 0xb:
2842: lputs("PC BIOS");
2843: rioctl(I14PC);
2844: if(!com_irq) com_irq=com_port-1;
2845: break;
2846: case 0xffff:
2847: case 0xd:
2848: lputs("DigiBoard");
2849: rioctl(I14DB);
2850: if(!com_irq) com_irq=com_port-1;
2851: break;
2852: case 0xe:
2853: lputs("PS/2 BIOS");
2854: rioctl(I14PS);
2855: if(!com_irq) com_irq=com_port-1;
2856: break;
2857: case 0xf:
2858: lputs("FOSSIL");
2859: rioctl(I14FO);
2860: if(!com_irq) com_irq=com_port-1;
2861: break;
2862: case 0:
2863: base=com_port;
2864: lputs("UART I/O (BIOS), ");
2865: if(com_irq)
2866: lprintf("IRQ %d",com_irq);
2867: else lputs("default IRQ");
2868: break;
2869: default:
2870: base=com_base;
2871: lprintf("UART I/O %Xh, ",com_base);
2872: if(com_irq)
2873: lprintf("IRQ %d",com_irq);
2874: else lputs("default IRQ");
2875: break; }
2876:
2877: if(base==0xffff)
2878: lprintf(" channel %u",com_irq);
2879: i=rioini(base,com_irq);
2880: if(i) {
2881: lprintf(" - Failed! (%d)\r\n",i);
2882: exit(1); }
2883: if(mdm_misc&MDM_FLOWCTRL)
2884: rioctl(IOSM|CTSCK|RTSCK); /* set rts/cts chk */
2885: if(com_rate)
2886: setbaud((uint)(com_rate&0xffffL));
2887: msr=&riobp-1; }
2888:
2889: /* STATUS LINE */
2890: statusline();
2891:
2892: rioctl(TSTYPE|mswtyp); /* set time-slice API type */
2893:
2894: rioctl(CPTON); /* ctrl-p translation */
2895:
2896: i=INT29L;
2897: if(com_port)
2898: i|=(INT29R|INT16);
2899: ivhctl(i);
2900: io_int=1;
2901:
2902: atexit(smm_exit);
2903:
2904: printf("\r\nSynchronet Match Maker v%s Developed 1995-1997 Rob Swindell\n\n"
2905: ,SMM_VER);
2906:
2907: if(checktime()) {
2908: printf("Time problem!\n");
2909: return; }
2910:
2911: if((file=nopen("SMM.CFG",O_RDONLY))==-1) {
2912: bprintf("\r\n\7Error opening/creating SMM.DAB\r\n");
2913: exit(1); }
2914: if((stream=fdopen(file,"w+b"))==NULL) {
2915: bprintf("\r\n\7Error converting SMM.DAB file handle to stream\r\n");
2916: exit(1); }
2917: str[0]=0;
2918: fgets(str,128,stream);
2919: purity_age=atoi(str);
2920: str[0]=0;
2921: fgets(str,128,stream);
2922: min_age=atoi(str);
2923: str[0]=0;
2924: fgets(str,128,stream);
2925: min_level=atoi(str);
2926:
2927: req_flags1[0]=0;
2928: fgets(req_flags1,128,stream);
2929: req_flags1[27]=0;
2930: truncsp(req_flags1);
2931:
2932: req_flags2[0]=0;
2933: fgets(req_flags2,128,stream);
2934: req_flags2[27]=0;
2935: truncsp(req_flags2);
2936:
2937: req_flags3[0]=0;
2938: fgets(req_flags3,128,stream);
2939: req_flags3[27]=0;
2940: truncsp(req_flags3);
2941:
2942: req_flags4[0]=0;
2943: fgets(req_flags4,128,stream);
2944: req_flags4[27]=0;
2945: truncsp(req_flags4);
2946:
2947: str[0]=0;
2948: fgets(str,128,stream);
2949: profile_cdt=atol(str);
2950: str[0]=0;
2951: fgets(str,128,stream);
2952: telegram_cdt=atol(str);
2953: str[0]=0;
2954: fgets(str,128,stream);
2955: auto_update=atoi(str);
2956: str[0]=0;
2957: fgets(str,128,stream);
2958: notify_user=atoi(str);
2959:
2960: fgets(str,128,stream); // regnum
2961:
2962: str[0]=0;
2963: fgets(str,128,stream);
2964: telegram_level=atoi(str);
2965:
2966: str[0]=0;
2967: fgets(str,128,stream);
2968: que_level=atoi(str);
2969:
2970: str[0]=0;
2971: fgets(str,128,stream);
2972: wall_level=atoi(str);
2973:
2974: str[0]=0;
2975: fgets(str,128,stream);
2976: wall_cdt=atol(str);
2977:
2978: str[0]=0;
2979: fgets(str,128,stream);
2980: que_cdt=atol(str);
2981:
2982: fgets(zmodem_send,128,stream);
2983: if(!zmodem_send[0])
2984: strcpy(zmodem_send,DEFAULT_ZMODEM_SEND);
2985: truncsp(zmodem_send);
2986:
2987: str[0]=0;
2988: fgets(str,128,stream);
2989: smm_misc=atol(str);
2990:
2991: fgets(str,128,stream);
2992: sprintf(system_name,"%.40s",str);
2993: truncsp(system_name);
2994:
2995: fgets(local_view,128,stream);
2996: truncsp(local_view);
2997:
2998: str[0]=0;
2999: fgets(str,128,stream);
3000: sysop_level=atoi(str);
3001: if(!sysop_level)
3002: sysop_level=90;
3003:
3004: str[0]=0;
3005: fgets(str,128,stream);
3006: wall_age=atoi(str);
3007:
3008: str[0]=0;
3009: fgets(str,128,stream);
3010: age_split=atoi(str);
3011:
3012: fclose(stream);
3013:
3014: if(!system_name[0] && sys_name[0])
3015: strcpy(system_name,sys_name);
3016: if(!system_name[0]) {
3017: printf("\7\nERROR: System name not specified\n");
3018: exit(3) ; }
3019:
3020: sprintf(str,"%.25s",system_name);
3021: strupr(str);
3022: system_crc=crc32(str);
3023:
3024: if((file=open("SMM.DAB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
3025: ,S_IWRITE|S_IREAD))==-1) {
3026: bprintf("\r\n\7Error opening/creating SMM.DAB\r\n");
3027: exit(1); }
3028: if((stream=fdopen(file,"w+b"))==NULL) {
3029: bprintf("\r\n\7Error converting SMM.DAB file handle to stream\r\n");
3030: exit(1); }
3031: setvbuf(stream,0L,_IOFBF,4096);
3032:
3033: if((file=open("SMM.IXB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
3034: ,S_IWRITE|S_IREAD))==-1) {
3035: bprintf("\r\n\7Error opening/creating SMM.IXB\r\n");
3036: exit(1); }
3037: if((index=fdopen(file,"w+b"))==NULL) {
3038: bprintf("\r\n\7Error converting SMM.IXB file handle to stream\r\n");
3039: exit(1); }
3040: setvbuf(stream,0L,_IOFBF,1024);
3041:
3042: trashfile=NULL;
3043: if((file=open("SMM.CAN",O_RDONLY|SH_DENYNO))!=-1) {
3044: trashfile=fdopen(file,"rb");
3045: setvbuf(trashfile,NULL,_IOFBF,4096); }
3046:
3047: total_ques=0;
3048: i=nopen("QUE.LST",O_RDONLY);
3049: if(i!=-1)
3050: que_lst=fdopen(i,"rb");
3051: else
3052: que_lst=NULL;
3053: i=0;
3054: while(que_lst && !feof(que_lst) && i<5) {
3055: if(!fgets(name,81,que_lst))
3056: break;
3057: truncsp(name);
3058: strupr(name);
3059: sprintf(str,"%s.QUE",name);
3060: if(!fgets(desc,81,que_lst))
3061: break;
3062: truncsp(desc);
3063: if(!fgets(tmp,81,que_lst))
3064: break;
3065: truncsp(tmp);
3066: if((file=nopen(str,O_RDONLY))!=-1) {
3067: fp=fdopen(file,"rb");
3068: total_ques++;
3069: if((que[i]=(questionnaire_t *)MALLOC(sizeof(questionnaire_t)))==NULL) {
3070: bprintf("Can't malloc questionnaires!\r\n");
3071: exit(1); }
3072: sprintf(que[i]->name,"%.8s",name);
3073: sprintf(que[i]->desc,"%.25s",desc);
3074: que[i]->req_age=atoi(tmp);
3075: fgets(str,128,fp);
3076: que[i]->total_ques=atoi(str);
3077: if(que[i]->total_ques<1 || que[i]->total_ques>20) {
3078: bprintf("Invalid number of questions (%d) in questionnaire #%d\r\n"
3079: ,que[i]->total_ques,i+1);
3080: exit(1); }
3081: for(j=0;j<que[i]->total_ques;j++) {
3082: if(!fgets(str,128,fp))
3083: break;
3084: truncsp(str);
3085: if(!str[0])
3086: break;
3087: str[80]=0;
3088: strcpy(que[i]->que[j].txt,str);
3089: fgets(str,128,fp);
3090: que[i]->que[j].answers=atoi(str);
3091: if(que[i]->que[j].answers<1 || que[i]->que[j].answers>16) {
3092: bprintf("Invalid number of answers (%d) in question #%d "
3093: "of questionnaire #%d\r\n"
3094: ,que[i]->que[j].answers,j+1,i+1);
3095: exit(1); }
3096: fgets(str,128,fp);
3097: que[i]->que[j].allowed=atoi(str);
3098: for(k=0;k<que[i]->que[j].answers;k++) {
3099: if(!fgets(str,128,fp))
3100: break;
3101: truncsp(str);
3102: if(!str[0])
3103: break;
3104: str[60]=0;
3105: strcpy(que[i]->que[j].ans[k],str); }
3106: que[i]->que[j].answers=k; }
3107:
3108: que[i]->total_ques=j; }
3109: fclose(fp);
3110: i++; }
3111: fclose(que_lst);
3112:
3113: lncntr=0;
3114: getsmsg(user_number);
3115: if(lncntr)
3116: pause();
3117:
3118: memset(&useron,0,sizeof(user_t));
3119:
3120: atexit(smm_exit);
3121:
3122: bputs("\1n\1hSearching for your profile...");
3123: rewind(index);
3124: while(!feof(index)) {
3125: if(!fread(&ixb,sizeof(ixb_t),1,index))
3126: break;
3127: if(ixb.system==system_crc && ixb.number==user_number) {
3128: useron_record=(ftell(index)-sizeof(ixb_t))/sizeof(ixb_t);
3129: fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
3130: fread(&user,sizeof(user_t),1,stream);
3131: if(stricmp(user.realname,user_name)) { /* new name, so delete it */
3132: user.misc|=USER_DELETED;
3133: fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
3134: fwrite(&user,sizeof(user_t),1,stream);
3135: fseek(stream,0,SEEK_CUR);
3136: fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
3137: ixb.number=0;
3138: fwrite(&ixb,sizeof(ixb_t),1,index);
3139: sprintf(str,"%04u.MSG",user_number);
3140: remove(str);
3141: continue; }
3142: useron=user; /* name matches, same user */
3143: break; } }
3144: fflush(stream);
3145: fflush(index);
3146: CRLF;
3147:
3148: if(useron.number && useron.sex!='M' && useron.sex!='F') {
3149: if(yesno("Are you of male gender"))
3150: useron.sex='M';
3151: else
3152: useron.sex='F';
3153: write_user();
3154: user_sex=useron.sex; }
3155:
3156: if(!useron.number && user_sex!='M' && user_sex!='F' && can_add()) {
3157: if(yesno("Are you of male gender"))
3158: user_sex='M';
3159: else
3160: user_sex='F'; }
3161:
3162: if(!useron.number && can_add()) {
3163: sprintf(str,"%04u.MSG",user_number);
3164: remove(str);
3165: printfile("SMM_LOGO.ASC");
3166: if(yesno("\r\nYour profile doesn't exist. Create it now"))
3167: add_userinfo(); }
3168:
3169: if(gotoname[0]) {
3170: strupr(gotoname);
3171: name_crc=crc32(gotoname);
3172: rewind(index);
3173: i=0;
3174: while(!feof(index)) {
3175: if(!fread(&ixb,sizeof(ixb_t),1,index))
3176: break;
3177: if(!ixb.number) /* DELETED */
3178: continue;
3179: if(ixb.name!=name_crc)
3180: continue;
3181: fseek(stream
3182: ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
3183: *sizeof(user_t),SEEK_SET);
3184: if(!fread(&user,sizeof(user_t),1,stream))
3185: continue;
3186: if(minor_protection(user))
3187: continue;
3188: i=1;
3189: if(!long_user_info(user))
3190: break; }
3191: if(!i) {
3192: bprintf("\r\n\1n\1h%s \1rnot found.\r\n",gotoname);
3193: pause(); }
3194: return; }
3195:
3196: /*********************************************/
3197: /* ALL User Messages (from Digital Dynamics) */
3198: /*********************************************/
3199: for(i=findfirst("ALL*.MSG",&ff,0);!i;i=findnext(&ff)) {
3200: if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
3201: bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
3202: pause();
3203: continue; }
3204: if((fp=fdopen(j,"rb"))==NULL) {
3205: bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
3206: pause();
3207: continue; }
3208: str[0]=0;
3209: fgets(str,128,fp);
3210: truncsp(str);
3211: ul=ahtoul(str); /* Expiration date */
3212: ul^=0x305F6C81UL;
3213: attr(LIGHTGRAY);
3214: cls();
3215: while(!feof(fp)) {
3216: if(!fgets(str,128,fp))
3217: break;
3218: bputs(str); }
3219: fclose(fp);
3220: CRLF;
3221: if(ul<=time(NULL))
3222: remove(ff.ff_name); }
3223:
3224: /**************************************************/
3225: /* One-time User Messages (from Digital Dynamics) */
3226: /**************************************************/
3227: for(i=findfirst("ONE*.MSG",&ff,0);!i;i=findnext(&ff)) {
3228: if(fdate_dir(ff.ff_name)<useron.lastin)
3229: continue;
3230: if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
3231: bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
3232: pause();
3233: continue; }
3234: if((fp=fdopen(j,"rb"))==NULL) {
3235: bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
3236: pause();
3237: continue; }
3238: str[0]=0;
3239: fgets(str,128,fp);
3240: truncsp(str);
3241: ul=ahtoul(str); /* Expiration date */
3242: ul^=0x305F6C81UL;
3243: attr(LIGHTGRAY);
3244: cls();
3245: while(!feof(fp)) {
3246: if(!fgets(str,128,fp))
3247: break;
3248: bputs(str); }
3249: fclose(fp);
3250: CRLF;
3251: if(ul<=time(NULL))
3252: remove(ff.ff_name); }
3253:
3254: /******************************************/
3255: /* Sysop Messages (from Digital Dynamics) */
3256: /******************************************/
3257: for(i=findfirst("SYS*.MSG",&ff,0);SYSOP && !i;i=findnext(&ff)) {
3258: if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
3259: bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
3260: pause();
3261: continue; }
3262: if((fp=fdopen(j,"rb"))==NULL) {
3263: bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
3264: pause();
3265: continue; }
3266: str[0]=0;
3267: fgets(str,128,fp);
3268: truncsp(str);
3269: ul=ahtoul(str); /* Expiration date */
3270: ul^=0x305F6C81UL;
3271: attr(LIGHTGRAY);
3272: cls();
3273: while(!feof(fp)) {
3274: if(!fgets(str,128,fp))
3275: break;
3276: bputs(str); }
3277: fclose(fp);
3278: CRLF;
3279: if(ul<=time(NULL) || !noyes("Delete message"))
3280: remove(ff.ff_name); }
3281:
3282: statusline();
3283: while(1) {
3284: checkline();
3285: aborted=0;
3286: attr(LIGHTGRAY);
3287: cls();
3288:
3289: bprintf("\1n \1b\1hSynchronet \1cMatch Maker \1bv%s (XSDK v%s) "
3290: "Developed 1995-1997 Rob Swindell\1n\r\n\r\n",SMM_VER,xsdk_ver);
3291: printfile("SMM_LOGO.ASC");
3292: CRLF;
3293:
3294: l=filelength(fileno(stream));
3295: if(l<0) l=0;
3296: sprintf(str,"\1n\1cThere are \1h%lu\1n\1c entries in the user profile "
3297: "database.\r\n",l/(long)sizeof(user_t));
3298: center(str);
3299:
3300: sprintf(str,"%04u.MSG",user_number);
3301: if(fexist(str))
3302: center("\1h\1mYou have awaiting telegrams!\r\n");
3303:
3304: if(flength("WALL.DAB")>0)
3305: center("\1h\1cThere is writing on the Wall.\r\n");
3306:
3307: if(!useron.number)
3308: center("\1h\1rYou have not yet created a profile!\r\n");
3309:
3310: printfile("SMM_MAIN.ASC");
3311:
3312: nodesync(); /* Display any waiting messages */
3313:
3314: bprintf("\r\n%32s\1b\1hWhich or [\1wQ\1b]uit: \1h\1w",nulstr);
3315: ch=getkey(K_UPPER);
3316: // bprintf("%c\r\n",ch);
3317: bputs("\r\1>");
3318: switch(ch) {
3319: case '?':
3320: break;
3321: case '*':
3322: if(!SYSOP)
3323: break;
3324: bputs("\1n\1hSearching...");
3325: rewind(stream);
3326: while(!feof(stream) && !aborted) {
3327: if(!fread(&user,sizeof(user_t),1,stream))
3328: break;
3329: if(user.misc&USER_DELETED) {
3330: sprintf(str,"\r\nUndelete \1c%s \1b(\1c%s@%s\1b)"
3331: ,user.name,user.realname,user.system);
3332: if(!yesno(str))
3333: continue;
3334: fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
3335: user.misc&=~USER_DELETED;
3336: fwrite(&user,sizeof(user_t),1,stream);
3337: fseek(stream,0,SEEK_CUR);
3338: fseek(index
3339: ,((ftell(stream)-sizeof(user_t))/sizeof(user_t))
3340: *sizeof(ixb_t),SEEK_SET);
3341: strcpy(str,user.name);
3342: strupr(str);
3343: ixb.name=crc32(str);
3344: sprintf(str,"%.25s",user.system);
3345: strupr(str);
3346: ixb.system=crc32(str);
3347: ixb.updated=user.updated;
3348: ixb.number=user.number;
3349: fwrite(&ixb,sizeof(ixb_t),1,index);
3350: } }
3351: fflush(stream);
3352: fflush(index);
3353: break;
3354: case '!':
3355: if(!SYSOP)
3356: break;
3357: cls();
3358: bputs("\1n\1hSystems Participating in Your Database:\r\n\r\n\1m");
3359: crc_lst=NULL;
3360: j=0;
3361: rewind(stream);
3362: while(!feof(stream) && !aborted) {
3363: if(!fread(&user,sizeof(user_t),1,stream))
3364: break;
3365: if(user.misc&USER_DELETED || !(user.misc&USER_FROMSMB))
3366: continue;
3367: if(!smm_pause)
3368: lncntr=0;
3369: sprintf(str,"%.25s",user.system);
3370: strupr(str);
3371: sys_crc=crc32(str);
3372: for(i=0;i<j;i++)
3373: if(sys_crc==crc_lst[i])
3374: break;
3375: if(i==j) {
3376: crc_lst=REALLOC(crc_lst,(j+1)*sizeof(ulong));
3377: if(crc_lst==NULL) {
3378: printf("REALLOC error!\n");
3379: pause();
3380: break; }
3381: crc_lst[j++]=sys_crc;
3382: bprintf("%s\r\n",user.system); } }
3383: if(crc_lst)
3384: FREE(crc_lst);
3385: if(j)
3386: bprintf("\1n\r\n\1h%u systems listed.\r\n",j);
3387: pause();
3388: break;
3389: case '\\':
3390: if(!SYSOP)
3391: break;
3392: bprintf("Rebuilding Index...");
3393: rewind(stream);
3394: rewind(index);
3395: while(!feof(stream)) {
3396: if(!fread(&user,sizeof(user_t),1,stream))
3397: break;
3398: if(user.misc&USER_DELETED)
3399: ixb.number=0;
3400: else
3401: ixb.number=user.number;
3402: strupr(user.name);
3403: ixb.name=crc32(user.name);
3404: strupr(user.system);
3405: user.system[25]=0;
3406: ixb.system=crc32(user.system);
3407: ixb.updated=user.updated;
3408: fwrite(&ixb,sizeof(ixb_t),1,index); }
3409: break;
3410: case 'R':
3411: if(useron.number) {
3412: bputs("\1y\1hMinimum match percentage: \1w");
3413: sprintf(str,"%u",useron.min_match);
3414: if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
3415: break;
3416: useron.min_match=atoi(str);
3417: if(useron.min_match>100)
3418: useron.min_match=100; }
3419: rewind(stream);
3420: bprintf("\1n\1l\1hSearching...");
3421: while(!feof(stream) && !aborted) {
3422: if(!fread(&user,sizeof(user_t),1,stream))
3423: break;
3424: if(user.misc&USER_DELETED)
3425: continue;
3426: if(minor_protection(user))
3427: continue;
3428: if(useron.min_match && useron.number) {
3429: match=total_match(useron,user);
3430: if(match<useron.min_match)
3431: continue; }
3432: if(!long_user_info(user))
3433: break;
3434: if(!smm_pause)
3435: lncntr=0;
3436: bprintf("\1n\1l\1hSearching..."); }
3437: break;
3438: case 'F':
3439: bputs("\1y\1hText to search for: ");
3440: if(!getstr(str,25,K_UPPER|K_LINE))
3441: break;
3442: ext=yesno("\r\nDisplay extended profiles");
3443: cls();
3444: if(!smm_pause && !ext)
3445: printfile("LIST_HDR.ASC");
3446: rewind(stream);
3447: i=0;
3448: while(!aborted) {
3449: bprintf("\1n\1l\1hSearching...");
3450: while(!feof(stream) && !aborted) {
3451: if(!fread(&user,sizeof(user_t),1,stream))
3452: break;
3453: if(user.misc&USER_DELETED)
3454: continue;
3455: if(minor_protection(user))
3456: continue;
3457: tmpuser=user;
3458: sprintf(tmp,"%lu",user.number);
3459: strupr(user.name);
3460: strupr(user.realname);
3461: strupr(user.system);
3462: strupr(user.location);
3463: strupr(user.note[0]);
3464: strupr(user.note[1]);
3465: strupr(user.note[2]);
3466: strupr(user.note[3]);
3467: strupr(user.note[4]);
3468: if(strstr(user.name,str)
3469: || strstr(user.location,str)
3470: || strstr(user.mbtype,str)
3471: || strstr(user.note[0],str)
3472: || strstr(user.note[1],str)
3473: || strstr(user.note[2],str)
3474: || strstr(user.note[3],str)
3475: || strstr(user.note[4],str)
3476: || (SYSOP && strstr(user.realname,str))
3477: || (SYSOP && strstr(user.system,str))
3478: || (SYSOP && !strcmp(tmp,str))
3479: ) {
3480: i=1;
3481: if(ext && !long_user_info(tmpuser))
3482: break;
3483: if(!ext && short_user_info(tmpuser)==0)
3484: break;
3485: if(!smm_pause)
3486: lncntr=0; } }
3487: if(aborted || ext || !lncntr)
3488: break;
3489: user.number=0;
3490: if(short_user_info(user)>=0)
3491: break; }
3492: if(!i)
3493: bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
3494: break;
3495: case 'G':
3496: bputs("\1y\1hUser name: ");
3497: if(!getstr(str,25,K_UPPER|K_LINE))
3498: break;
3499: truncsp(str);
3500: name_crc=crc32(str);
3501: rewind(index);
3502: i=0;
3503: while(!feof(index)) {
3504: if(!fread(&ixb,sizeof(ixb_t),1,index))
3505: break;
3506: if(!ixb.number) /* DELETED */
3507: continue;
3508: if(ixb.name!=name_crc)
3509: continue;
3510: fseek(stream
3511: ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
3512: *sizeof(user_t),SEEK_SET);
3513: if(!fread(&user,sizeof(user_t),1,stream))
3514: continue;
3515: if(minor_protection(user))
3516: continue;
3517: i=1;
3518: if(!long_user_info(user))
3519: break; }
3520: if(!i)
3521: bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
3522: break;
3523: case 'L':
3524: if(useron.number) {
3525: bputs("\1y\1hMinimum match percentage: \1w");
3526: sprintf(str,"%u",useron.min_match);
3527: if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
3528: break;
3529: useron.min_match=atoi(str);
3530: if(useron.min_match>100)
3531: useron.min_match=100; }
3532: cls();
3533: if(!smm_pause)
3534: printfile("LIST_HDR.ASC");
3535: rewind(stream);
3536: while(!aborted) {
3537: while(!feof(stream) && !aborted) {
3538: if(!fread(&user,sizeof(user_t),1,stream))
3539: break;
3540: if(user.misc&USER_DELETED)
3541: continue;
3542: if(minor_protection(user))
3543: continue;
3544: if(useron.min_match && useron.number) {
3545: match=total_match(useron,user);
3546: if(match<useron.min_match)
3547: continue; }
3548: if(!short_user_info(user))
3549: break;
3550: if(!smm_pause)
3551: lncntr=0; }
3552: if(aborted || !lncntr)
3553: break;
3554: user.number=0;
3555: if(short_user_info(user)>=0)
3556: break; }
3557: break;
3558:
3559: case 'N':
3560: while(1) {
3561: checkline();
3562: bputs("\1y\1hLast update (MM/DD/YY): ");
3563: if(useron.number)
3564: unixtodstr(useron.lastin,str);
3565: else
3566: str[0]=0;
3567: if(!getstr(str,8,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
3568: break;
3569: if(isdigit(str[0]) && isdigit(str[1]) && str[2]=='/'
3570: && isdigit(str[3]) && isdigit(str[4]) && str[5]=='/'
3571: && isdigit(str[6]) && isdigit(str[7]))
3572: break;
3573: bputs("\r\n\1h\1rInvalid date!\r\n\r\n"); }
3574: if(!str[0] || aborted)
3575: break;
3576: l=dstrtounix(str);
3577: if(useron.number) {
3578: bputs("\1y\1h\r\nMinimum match percentage: \1w");
3579: sprintf(str,"%u",useron.min_match);
3580: if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
3581: break;
3582: useron.min_match=atoi(str);
3583: if(useron.min_match>100)
3584: useron.min_match=100; }
3585: ext=!noyes("\r\nDisplay extended profiles");
3586: if(aborted)
3587: break;
3588: cls();
3589: if(!ext && !smm_pause)
3590: printfile("LIST_HDR.ASC");
3591: rewind(index);
3592: while(!aborted) {
3593: while(!feof(index) && !aborted) {
3594: if(!smm_pause)
3595: lncntr=0;
3596: if(!fread(&ixb,sizeof(ixb_t),1,index))
3597: break;
3598: if(!ixb.number) /* DELETED */
3599: continue;
3600: if(ixb.updated>=l) {
3601: fseek(stream
3602: ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
3603: *sizeof(user_t),SEEK_SET);
3604: if(!fread(&user,sizeof(user_t),1,stream))
3605: continue;
3606: if(minor_protection(user))
3607: continue;
3608: if(useron.min_match && useron.number) {
3609: match=total_match(useron,user);
3610: if(match<useron.min_match)
3611: continue; }
3612: if(ext && !long_user_info(user))
3613: break;
3614: if(!ext && short_user_info(user)==0)
3615: break;
3616: continue; } }
3617: if(aborted || ext || !lncntr)
3618: break;
3619: user.number=0;
3620: if(short_user_info(user)>=0)
3621: break; }
3622: break;
3623:
3624: case 'U':
3625: case 'W': /* Create/Edit Profile */
3626: if(!can_add()) {
3627: bprintf("\1h\1rYou have insufficient access to create a "
3628: "profile.\r\n\r\n");
3629: break; }
3630:
3631: if(!useron.number) {
3632: add_userinfo();
3633: break; }
3634:
3635: user=useron;
3636: tleft=timeleft;
3637: if(!get_user_info(&user)) {
3638: timeleft=tleft;
3639: break; }
3640:
3641: if(!memcmp(&user,&useron,sizeof(user_t))) {
3642: timeleft=tleft;
3643: break; }
3644:
3645: if(!yesno("Save changes")) {
3646: timeleft=tleft;
3647: break; }
3648: timeleft=tleft;
3649: user.updated=time(NULL);
3650: useron=user;
3651: write_user();
3652: break;
3653:
3654: case 'D':
3655: if(SYSOP) {
3656: bputs("Name to Delete: ");
3657: if(useron.number) {
3658: strcpy(str,useron.name);
3659: strupr(str); }
3660: else
3661: str[0]=0;
3662: getstr(str,25,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
3663: rewind(stream);
3664: while(!feof(stream)) {
3665: if(!fread(&user,sizeof(user_t),1,stream))
3666: break;
3667: strcpy(tmp,user.name);
3668: strupr(tmp);
3669: if(!(user.misc&USER_DELETED) && strstr(tmp,str)) {
3670: sprintf(tmp,"Delete %s (%s@%s)"
3671: ,user.name,user.realname,user.system);
3672: i=noyes(tmp);
3673: if(aborted)
3674: break;
3675: if(i)
3676: continue;
3677: fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
3678: fseek(index
3679: ,((ftell(stream)-sizeof(user_t))/sizeof(user_t))
3680: *sizeof(ixb_t),SEEK_SET);
3681: user.misc|=USER_DELETED;
3682: fwrite(&user,sizeof(user_t),1,stream);
3683: fseek(stream,0,SEEK_CUR);
3684: memset(&ixb,0,sizeof(ixb_t));
3685: fwrite(&ixb,sizeof(ixb_t),1,index);
3686: fflush(stream);
3687: fflush(index);
3688: delphoto(user);
3689: if(user.number==user_number
3690: && !stricmp(user.system,system_name))
3691: useron.number=0;
3692: break; } }
3693: if(aborted)
3694: break;
3695: break; }
3696: if(!useron.number) {
3697: bputs("\1h\1rYour profile doesn't exist.\r\n\r\n");
3698: break; }
3699: if(noyes("Are you sure you want to delete your profile"))
3700: break;
3701: if(!cdt_warning(-profile_cdt))
3702: break;
3703: sprintf(str,"%04u.MSG",user_number);
3704: remove(str);
3705: fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
3706: useron.misc|=USER_DELETED;
3707: fwrite(&useron,sizeof(user_t),1,stream);
3708: fflush(stream);
3709: memset(&ixb,0,sizeof(ixb_t));
3710: fseek(index,useron_record*sizeof(ixb_t),SEEK_SET);
3711: fwrite(&ixb,sizeof(ixb_t),1,index);
3712: fflush(index);
3713: delphoto(user);
3714: useron.number=0;
3715: aborted=0;
3716: bputs("\r\n\1h\1r\1iProfile deleted.\r\n");
3717: adjust_cdt(-profile_cdt);
3718: break;
3719: case 'P':
3720: smm_pause=!smm_pause;
3721: bprintf("\1r\1hScreen pause is now \1w%s\r\n\r\n"
3722: ,smm_pause ? "ON":"OFF");
3723: break;
3724: case 'M':
3725: mbtype_desc(useron.mbtype);
3726: break;
3727: case 'H':
3728: cls();
3729: printfile("SMM_HELP.ASC");
3730: break;
3731: case 'O':
3732: if(noyes("Hang-up now"))
3733: break;
3734: dtr(5);
3735: if(node_dir) {
3736: sprintf(str,"%sHANGUP.NOW",node_dir);
3737: fopen(str,"wb");
3738: nodesync(); }
3739: return;
3740: case 'S':
3741: bputs("\1y\1hUser name: ");
3742: if(!getstr(str,25,K_UPPER|K_LINE))
3743: break;
3744: truncsp(str);
3745: name_crc=crc32(str);
3746: rewind(index);
3747: i=0;
3748: while(!feof(index)) {
3749: if(!fread(&ixb,sizeof(ixb_t),1,index))
3750: break;
3751: if(!ixb.number) /* DELETED */
3752: continue;
3753: if(ixb.name!=name_crc)
3754: continue;
3755: fseek(stream
3756: ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
3757: *sizeof(user_t),SEEK_SET);
3758: if(!fread(&user,sizeof(user_t),1,stream))
3759: continue;
3760: if(minor_protection(user))
3761: continue;
3762: i=1;
3763: if(send_telegram(user))
3764: break; }
3765: if(!i)
3766: bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
3767: break;
3768: case 'T':
3769: sprintf(str,"%04u.MSG",user_number);
3770: if(!fexist(str)) {
3771: bputs("\1r\1hYou have no telegrams waiting.\r\n\r\n");
3772: break; }
3773: cls();
3774: printfile(str);
3775: if(noyes("\r\nDelete all telegrams waiting for you"))
3776: break;
3777: remove(str);
3778: break;
3779: case 'V': /* Visit the wall */
3780: if(getage(user_birth)<wall_age && !SYSOP) {
3781: bputs("\1r\1hSorry, you're too young to view the wall.\r\n");
3782: pause();
3783: break; }
3784: while(1) {
3785: checkline();
3786: bputs("\1y\1hView writing since (MM/DD/YY): ");
3787: if(useron.number)
3788: unixtodstr(useron.lastin,str);
3789: else
3790: str[0]=0;
3791: if(!getstr(str,8,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
3792: break;
3793: if(isdigit(str[0]) && isdigit(str[1]) && str[2]=='/'
3794: && isdigit(str[3]) && isdigit(str[4]) && str[5]=='/'
3795: && isdigit(str[6]) && isdigit(str[7]))
3796: break;
3797: bputs("\r\n\1h\1rInvalid date!\r\n\r\n"); }
3798: if(aborted)
3799: break;
3800: l=dstrtounix(str);
3801: ext=yesno("\r\nDisplay extended information when available");
3802: if(aborted)
3803: break;
3804: strcpy(str,"WALL.DAB");
3805: if((file=sopen(str,O_RDWR|O_BINARY|O_CREAT,SH_DENYNO
3806: ,S_IREAD|S_IWRITE))==-1) {
3807: bprintf("\r\nError opening %s\r\n",str);
3808: break; }
3809: cls();
3810: offset=0L;
3811: while(!eof(file) && !aborted) {
3812: if(read(file,&wall,sizeof(wall_t))!=sizeof(wall_t))
3813: break;
3814: if(wall.imported<l)
3815: continue;
3816: strcpy(str,wall.name);
3817: strupr(str);
3818: name_crc=crc32(str);
3819: sprintf(str,"%.25s",wall.system);
3820: strupr(str);
3821: sys_crc=crc32(str);
3822: rewind(index);
3823: i=0;
3824: user.sex=0;
3825: while(ext && !feof(index) && !aborted) {
3826: if(!fread(&ixb,sizeof(ixb_t),1,index))
3827: break;
3828: if(!ixb.number) /* DELETED */
3829: continue;
3830: if(ixb.name!=name_crc || ixb.system!=sys_crc)
3831: continue;
3832: fseek(stream
3833: ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
3834: *sizeof(user_t),SEEK_SET);
3835: if(!fread(&user,sizeof(user_t),1,stream))
3836: continue;
3837: if(minor_protection(user))
3838: break;
3839: main_user_info(user);
3840: if(useron.number) {
3841: CRLF;
3842: bprintf("\1h\1mThis user meets your profile "
3843: "preferences:\1w%3u%% "
3844: ,basic_match(useron,user));
3845: bprintf("\1n\1gCreated: \1h%s\r\n"
3846: ,unixtodstr(user.created,str));
3847: bprintf("\1h\1mYou meet this user's profile "
3848: "preferences:\1w%3u%% "
3849: ,basic_match(user,useron));
3850: bprintf("\1n\1gUpdated: \1h%s\r\n"
3851: ,unixtodstr(user.updated,str)); }
3852:
3853: i=1;
3854: CRLF;
3855: break; }
3856: if(!i) {
3857: if(ext)
3858: cls();
3859: bprintf("\1n\1h%s ",wall.name); }
3860: bprintf("\1n\1h\1cWrote on %s:\r\n"
3861: ,timestr(&wall.written));
3862: for(j=0;j<5;j++) {
3863: if(!wall.text[j][0])
3864: break;
3865: bprintf("\1n\1%c%5s%s\r\n"
3866: ,user.sex=='F'?'m':'g',"",wall.text[j]); }
3867: if(aborted)
3868: break;
3869: if(ext) {
3870: nodesync();
3871: if(i) {
3872: bputs(PrevReadSendQuitOrMore);
3873: ch=getkey(K_UPPER);
3874: if(ch=='R')
3875: long_user_info(user);
3876: if(ch=='S')
3877: send_telegram(user);
3878: if(ch=='R' || ch=='S') /* Don't move forward */
3879: lseek(file,tell(file)-sizeof(wall_t),SEEK_SET); }
3880: else {
3881: bputs("\r\n\1n\1hProfile not found.\r\n\r\n");
3882: bputs("\1b[\1cP\1b]revious, [\1cQ\1b]uit, "
3883: "or [\1cM\1b]ore: \1c");
3884: ch=getkey(K_UPPER); }
3885: if(ch=='P') {
3886: lseek(file,offset,SEEK_SET);
3887: if(tell(file))
3888: lseek(file,tell(file)-sizeof(wall_t),SEEK_SET);
3889: offset=tell(file);
3890: continue; }
3891: if(ch=='Q') {
3892: cls();
3893: break; }
3894: offset=tell(file); }
3895: else if(lncntr+7>=user_rows || eof(file)) {
3896: lncntr=0;
3897: bputs(PrevReadSendQuitOrMore);
3898: ch=getkey(K_UPPER);
3899: if(ch=='Q')
3900: break;
3901: else if(ch=='S' || ch=='R') {
3902: bprintf("\1n\r\1>\1y\1hUser name: ");
3903: if(getstr(name,25,K_UPPER|K_LINE|K_NOCRLF)) {
3904: truncsp(name);
3905: name_crc=crc32(name);
3906: rewind(index);
3907: i=0;
3908: while(!feof(index)) {
3909: if(!fread(&ixb,sizeof(ixb_t),1,index))
3910: break;
3911: if(!ixb.number) /* DELETED */
3912: continue;
3913: if(ixb.name!=name_crc)
3914: continue;
3915: fseek(stream
3916: ,((ftell(index)
3917: -sizeof(ixb_t))/sizeof(ixb_t))
3918: *sizeof(user_t),SEEK_SET);
3919: if(!fread(&user,sizeof(user_t),1,stream))
3920: continue;
3921: if(minor_protection(user))
3922: continue;
3923: i=1;
3924: if(ch=='S' && send_telegram(user))
3925: break;
3926: if(ch=='R' && !long_user_info(user))
3927: break; }
3928: if(!i)
3929: bprintf("\r\n\1n\1h%s \1rnot found.\r\n",name);
3930: }
3931: lseek(file,offset,SEEK_SET); }
3932: else if(ch=='P') {
3933: lseek(file,offset,SEEK_SET);
3934: for(i=0;i<4;i++)
3935: if(tell(file))
3936: lseek(file,tell(file)-sizeof(wall_t),SEEK_SET);
3937: }
3938: cls();
3939: offset=tell(file); } }
3940: cls();
3941: if(user_level<wall_level) {
3942: close(file);
3943: bputs("\r\n\1h\1rYou have insufficient access to write on the "
3944: "wall.\r\n");
3945: pause();
3946: break; }
3947: if(aborted || noyes("Write on the Wall")) {
3948: close(file);
3949: break; }
3950: if(!useron.number) {
3951: bputs("\r\n\1h\1rYou must create a profile first.\r\n");
3952: close(file);
3953: break; }
3954: if(!cdt_warning(wall_cdt)) {
3955: close(file);
3956: break; }
3957: memset(&wall,0,sizeof(wall_t));
3958: strcpy(wall.name,useron.name);
3959: strcpy(wall.system,system_name);
3960: wall.written=wall.imported=time(NULL);
3961: bputs("\1l\1n\1hWriting on the Wall:\r\n\r\n");
3962: for(i=0;i<5 && !aborted;i++) {
3963: bprintf("\1n\1h\1%c%u of 5: \1n\1%c"
3964: ,useron.sex=='F'?'m':'g',i+1,useron.sex=='F'?'m':'g');
3965: if(!getstr(wall.text[i],70,i==4 ? K_MSG:K_MSG|K_WRAP))
3966: break;
3967: if(trash(wall.text[i])) {
3968: bprintf("\r\n\1r\1hSorry, you can't use that text."
3969: "\r\n\r\n");
3970: i--;
3971: continue; } }
3972: if(!i || aborted || !yesno("\r\nSave")) {
3973: close(file);
3974: break; }
3975: lseek(file,0L,SEEK_END);
3976: write(file,&wall,sizeof(wall_t));
3977: close(file);
3978: adjust_cdt(wall_cdt);
3979: if(notify_user && notify_user!=user_number) {
3980: sprintf(str,"\1n\1hSMM: \1y%s\1m wrote on the Match Maker "
3981: "Wall\r\n",user_name);
3982: if(node_dir[0])
3983: putsmsg(notify_user,str);
3984: else
3985: puttgram(notify_user,str); }
3986: break;
3987: case 'Q':
3988: return; } }
3989: }
3990:
3991: /* End of SMM.C */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.