![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fido.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs3|
Return to fido.cpp CVS log | Up to [Synchronet] / sbbs / sbbs3 |
1.1 ! root 1: /* fido.cpp */ ! 2: ! 3: /* Synchronet FidoNet-related routines */ ! 4: ! 5: /* $Id: fido.cpp,v 1.6 2000/12/31 03:41:55 rswindell Exp $ */ ! 6: ! 7: /**************************************************************************** ! 8: * @format.tab-size 4 (Plain Text/Source Code File Header) * ! 9: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) * ! 10: * * ! 11: * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html * ! 12: * * ! 13: * This program is free software; you can redistribute it and/or * ! 14: * modify it under the terms of the GNU General Public License * ! 15: * as published by the Free Software Foundation; either version 2 * ! 16: * of the License, or (at your option) any later version. * ! 17: * See the GNU General Public License for more details: gpl.txt or * ! 18: * http://www.fsf.org/copyleft/gpl.html * ! 19: * * ! 20: * Anonymous FTP access to the most recent released source is available at * ! 21: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net * ! 22: * * ! 23: * Anonymous CVS access to the development source and modification history * ! 24: * is available at cvs.synchro.net:/cvsroot/sbbs, example: * ! 25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login * ! 26: * (just hit return, no password is necessary) * ! 27: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src * ! 28: * * ! 29: * For Synchronet coding style and modification guidelines, see * ! 30: * http://www.synchro.net/source.html * ! 31: * * ! 32: * You are encouraged to submit any modifications (preferably in Unix diff * ! 33: * format) via e-mail to [email protected] * ! 34: * * ! 35: * Note: If this box doesn't appear square, then you need to fix your tabs. * ! 36: ****************************************************************************/ ! 37: ! 38: #include "sbbs.h" ! 39: ! 40: faddr_t atofaddr(scfg_t* cfg, char *str); ! 41: ! 42: void pt_zone_kludge(fmsghdr_t hdr,int fido) ! 43: { ! 44: char str[256]; ! 45: ! 46: sprintf(str,"\1INTL %u:%u/%u %u:%u/%u\r" ! 47: ,hdr.destzone,hdr.destnet,hdr.destnode ! 48: ,hdr.origzone,hdr.orignet,hdr.orignode); ! 49: write(fido,str,strlen(str)); ! 50: ! 51: if(hdr.destpoint) { ! 52: sprintf(str,"\1TOPT %u\r" ! 53: ,hdr.destpoint); ! 54: write(fido,str,strlen(str)); } ! 55: ! 56: if(hdr.origpoint) { ! 57: sprintf(str,"\1FMPT %u\r" ! 58: ,hdr.origpoint); ! 59: write(fido,str,strlen(str)); } ! 60: } ! 61: ! 62: bool sbbs_t::lookup_netuser(char *into) ! 63: { ! 64: char to[128],name[26],str[256],q[128]; ! 65: int i; ! 66: FILE *stream; ! 67: ! 68: if(strchr(into,'@')) ! 69: return(false); ! 70: strcpy(to,into); ! 71: strupr(to); ! 72: sprintf(str,"%sqnet/users.dat", cfg.data_dir); ! 73: if((stream=fnopen(&i,str,O_RDONLY))==NULL) ! 74: return(false); ! 75: while(!feof(stream)) { ! 76: if(!fgets(str,250,stream)) ! 77: break; ! 78: str[25]=0; ! 79: truncsp(str); ! 80: strcpy(name,str); ! 81: strupr(name); ! 82: str[35]=0; ! 83: truncsp(str+27); ! 84: sprintf(q,"Do you mean %s @%s",str,str+27); ! 85: if(strstr(name,to) && yesno(q)) { ! 86: fclose(stream); ! 87: sprintf(into,"%s@%s",str,str+27); ! 88: return(true); } ! 89: if(sys_status&SS_ABORT) ! 90: break; } ! 91: fclose(stream); ! 92: return(false); ! 93: } ! 94: ! 95: /****************************************************************************/ ! 96: /* Send FidoNet NetMail from BBS */ ! 97: /****************************************************************************/ ! 98: bool sbbs_t::netmail(char *into, char *title, long mode) ! 99: { ! 100: char str[256],subj[128],to[256],fname[128],*buf,*p,ch; ! 101: char tmp[512]; ! 102: int file,fido,x,cc_found,cc_sent; ! 103: uint i; ! 104: long length,l; ! 105: faddr_t addr; ! 106: fmsghdr_t hdr; ! 107: struct tm * tm; ! 108: ! 109: if(useron.etoday>=cfg.level_emailperday[useron.level] && !SYSOP) { ! 110: bputs(text[TooManyEmailsToday]); ! 111: return(false); ! 112: } ! 113: ! 114: sprintf(subj,"%.127s",title); ! 115: ! 116: strcpy(to,into); ! 117: ! 118: lookup_netuser(to); ! 119: ! 120: p=strrchr(to,'@'); /* Find '@' in name@addr */ ! 121: if(p && !isdigit(*(p+1)) && !strchr(p,'.') && !strchr(p,':')) { ! 122: mode&=~WM_FILE; ! 123: qnetmail(to,title,mode|WM_NETMAIL); ! 124: return(false); } ! 125: if(!cfg.total_faddrs || p==NULL || !strchr(p+1,'/')) { ! 126: if(!p && cfg.dflt_faddr.zone) ! 127: addr=cfg.dflt_faddr; ! 128: else if(cfg.inetmail_misc&NMAIL_ALLOW) { ! 129: if(mode&WM_FILE && !SYSOP && !(cfg.inetmail_misc&NMAIL_FILE)) ! 130: mode&=~WM_FILE; ! 131: return(inetmail(into,title,mode|WM_NETMAIL)); ! 132: } ! 133: else if(cfg.dflt_faddr.zone) ! 134: addr=cfg.dflt_faddr; ! 135: else { ! 136: bprintf("\1n\r\nInvalid NetMail address.\r\n"); ! 137: return(false); } } ! 138: else { ! 139: addr=atofaddr(&cfg,p+1); /* Get fido address */ ! 140: *p=0; /* Chop off address */ ! 141: } ! 142: ! 143: if(mode&WM_FILE && !SYSOP && !(cfg.netmail_misc&NMAIL_FILE)) ! 144: mode&=~WM_FILE; ! 145: ! 146: if((!SYSOP && !(cfg.netmail_misc&NMAIL_ALLOW)) || useron.rest&FLAG('M') ! 147: || !cfg.total_faddrs) { ! 148: bputs(text[NoNetMailAllowed]); ! 149: return(false); } ! 150: ! 151: truncsp(to); /* Truncate off space */ ! 152: ! 153: memset(&hdr,0,sizeof(hdr)); /* Initialize header to null */ ! 154: strcpy(hdr.from,cfg.netmail_misc&NMAIL_ALIAS ? useron.alias : useron.name); ! 155: sprintf(hdr.to,"%.35s",to); ! 156: ! 157: /* Look-up in nodelist? */ ! 158: ! 159: if(cfg.netmail_cost && !(useron.exempt&FLAG('S'))) { ! 160: if(useron.cdt+useron.freecdt<cfg.netmail_cost) { ! 161: bputs(text[NotEnoughCredits]); ! 162: return(false); } ! 163: sprintf(str,text[NetMailCostContinueQ],cfg.netmail_cost); ! 164: if(noyes(str)) ! 165: return(false); } ! 166: ! 167: now=time(NULL); ! 168: tm=gmtime(&now); ! 169: if(tm!=NULL) ! 170: sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u" ! 171: ,tm->tm_mday,mon[tm->tm_mon],TM_YEAR(tm->tm_year) ! 172: ,tm->tm_hour,tm->tm_min,tm->tm_sec); ! 173: ! 174: hdr.destzone =addr.zone; ! 175: hdr.destnet =addr.net; ! 176: hdr.destnode =addr.node; ! 177: hdr.destpoint =addr.point; ! 178: ! 179: for(i=0;i<cfg.total_faddrs;i++) ! 180: if(addr.zone==cfg.faddr[i].zone && addr.net==cfg.faddr[i].net) ! 181: break; ! 182: if(i==cfg.total_faddrs) { ! 183: for(i=0;i<cfg.total_faddrs;i++) ! 184: if(addr.zone==cfg.faddr[i].zone) ! 185: break; } ! 186: if(i==cfg.total_faddrs) ! 187: i=0; ! 188: hdr.origzone =cfg.faddr[i].zone; ! 189: hdr.orignet =cfg.faddr[i].net; ! 190: hdr.orignode =cfg.faddr[i].node; ! 191: hdr.origpoint =cfg.faddr[i].point; ! 192: ! 193: strcpy(str,faddrtoa(cfg.faddr[i])); ! 194: bprintf(text[NetMailing],hdr.to,faddrtoa(addr),hdr.from,str); ! 195: ! 196: hdr.attr=(FIDO_LOCAL|FIDO_PRIVATE); ! 197: ! 198: if(cfg.netmail_misc&NMAIL_CRASH) hdr.attr|=FIDO_CRASH; ! 199: if(cfg.netmail_misc&NMAIL_HOLD) hdr.attr|=FIDO_HOLD; ! 200: if(cfg.netmail_misc&NMAIL_KILL) hdr.attr|=FIDO_KILLSENT; ! 201: if(mode&WM_FILE) hdr.attr|=FIDO_FILE; ! 202: ! 203: sprintf(str,"%sNETMAIL.MSG", cfg.node_dir); ! 204: remove(str); /* Just incase it's already there */ ! 205: // mode&=~WM_FILE; ! 206: if(!writemsg(str,nulstr,subj,WM_NETMAIL|mode,INVALID_SUB,into)) { ! 207: bputs(text[Aborted]); ! 208: return(false); } ! 209: ! 210: if(mode&WM_FILE) { ! 211: strcpy(fname,subj); ! 212: sprintf(str,"%sfile/%04u.out", cfg.data_dir, useron.number); ! 213: _mkdir(str); ! 214: strcpy(tmp, cfg.data_dir); ! 215: if(tmp[0]=='.') /* Relative path */ ! 216: sprintf(tmp,"%s%s", cfg.node_dir, cfg.data_dir); ! 217: sprintf(str,"%sfile/%04u.out/%s",tmp,useron.number,fname); ! 218: strcpy(subj,str); ! 219: if(fexist(str)) { ! 220: bputs(text[FileAlreadyThere]); ! 221: return(false); } ! 222: if(online==ON_LOCAL) { /* Local upload */ ! 223: bputs(text[EnterPath]); ! 224: if(!getstr(str,60,K_LINE|K_UPPER)) { ! 225: bputs(text[Aborted]); ! 226: return(false); } ! 227: backslash(str); ! 228: strcat(str,fname); ! 229: if(mv(str,subj,1)) ! 230: return(false); } ! 231: else { /* Remote */ ! 232: menu("ulprot"); ! 233: mnemonics(text[ProtocolOrQuit]); ! 234: strcpy(str,"Q"); ! 235: for(x=0;x<cfg.total_prots;x++) ! 236: if(cfg.prot[x]->ulcmd[0] && chk_ar(cfg.prot[x]->ar,&useron)) { ! 237: sprintf(tmp,"%c",cfg.prot[x]->mnemonic); ! 238: strcat(str,tmp); } ! 239: ch=(char)getkeys(str,0); ! 240: if(ch=='Q' || sys_status&SS_ABORT) { ! 241: bputs(text[Aborted]); ! 242: return(false); } ! 243: for(x=0;x<cfg.total_prots;x++) ! 244: if(cfg.prot[x]->ulcmd[0] && cfg.prot[x]->mnemonic==ch ! 245: && chk_ar(cfg.prot[x]->ar,&useron)) ! 246: break; ! 247: if(x<cfg.total_prots) /* This should be always */ ! 248: protocol(cmdstr(cfg.prot[x]->ulcmd,subj,nulstr,NULL),0); } ! 249: l=flength(subj); ! 250: if(l>0) ! 251: bprintf(text[FileNBytesReceived],fname,ultoac(l,tmp)); ! 252: else { ! 253: bprintf(text[FileNotReceived],fname); ! 254: return(false); } } ! 255: ! 256: p=subj; ! 257: if((SYSOP || useron.exempt&FLAG('F')) ! 258: && !strnicmp(p,"CR:",3)) { /* Crash over-ride by sysop */ ! 259: p+=3; /* skip CR: */ ! 260: if(*p==SP) p++; /* skip extra space if it exists */ ! 261: hdr.attr|=FIDO_CRASH; } ! 262: ! 263: if((SYSOP || useron.exempt&FLAG('F')) ! 264: && !strnicmp(p,"FR:",3)) { /* File request */ ! 265: p+=3; /* skip FR: */ ! 266: if(*p==SP) p++; ! 267: hdr.attr|=FIDO_FREQ; } ! 268: ! 269: if((SYSOP || useron.exempt&FLAG('F')) ! 270: && !strnicmp(p,"RR:",3)) { /* Return receipt request */ ! 271: p+=3; /* skip RR: */ ! 272: if(*p==SP) p++; ! 273: hdr.attr|=FIDO_RRREQ; } ! 274: ! 275: if((SYSOP || useron.exempt&FLAG('F')) ! 276: && !strnicmp(p,"FA:",3)) { /* File Attachment */ ! 277: p+=3; /* skip FA: */ ! 278: if(*p==SP) p++; ! 279: hdr.attr|=FIDO_FILE; } ! 280: ! 281: sprintf(hdr.subj,"%.71s",p); ! 282: ! 283: sprintf(str,"%sNETMAIL.MSG", cfg.node_dir); ! 284: if((file=nopen(str,O_RDONLY))==-1) { ! 285: errormsg(WHERE,ERR_OPEN,str,O_RDONLY); ! 286: return(false); } ! 287: length=filelength(file); ! 288: if((buf=(char *)MALLOC(length))==NULL) { ! 289: close(file); ! 290: errormsg(WHERE,ERR_ALLOC,str,length); ! 291: return(false); } ! 292: read(file,buf,length); ! 293: close(file); ! 294: ! 295: cc_sent=0; ! 296: while(1) { ! 297: for(i=1;i;i++) { ! 298: sprintf(str,"%s%u.msg", cfg.netmail_dir,i); ! 299: if(!fexist(str)) ! 300: break; } ! 301: if(!i) { ! 302: bputs(text[TooManyEmailsToday]); ! 303: return(false); } ! 304: if((fido=nopen(str,O_WRONLY|O_CREAT|O_EXCL))==-1) { ! 305: errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_EXCL); ! 306: return(false); } ! 307: write(fido,&hdr,sizeof(hdr)); ! 308: ! 309: pt_zone_kludge(hdr,fido); ! 310: ! 311: if(cfg.netmail_misc&NMAIL_DIRECT) { ! 312: sprintf(str,"\1FLAGS DIR\r\n"); ! 313: write(fido,str,strlen(str)); } ! 314: if(mode&WM_FILE) { ! 315: sprintf(str,"\1FLAGS KFS\r\n"); ! 316: write(fido,str,strlen(str)); } ! 317: ! 318: if(cc_sent) { ! 319: sprintf(str,"* Originally to: %s\r\n\r\n",into); ! 320: write(fido,str,strlen(str)); } ! 321: ! 322: l=0L; ! 323: while(l<length) { ! 324: if(buf[l]==1) /* Ctrl-A, so skip it and the next char */ ! 325: l++; ! 326: else if(buf[l]!=LF) { ! 327: if((uchar)buf[l]==0x8d) /* r0dent i converted to normal i */ ! 328: buf[l]='i'; ! 329: write(fido,buf+l,1); } ! 330: l++; } ! 331: l=0; ! 332: write(fido,&l,1); /* Null terminator */ ! 333: close(fido); ! 334: ! 335: useron.emails++; ! 336: logon_emails++; ! 337: putuserrec(&cfg,useron.number,U_EMAILS,5,ultoa(useron.emails,tmp,10)); ! 338: useron.etoday++; ! 339: putuserrec(&cfg,useron.number,U_ETODAY,5,ultoa(useron.etoday,tmp,10)); ! 340: ! 341: if(!(useron.exempt&FLAG('S'))) ! 342: subtract_cdt(&cfg,&useron,cfg.netmail_cost); ! 343: if(mode&WM_FILE) ! 344: sprintf(str,"Sent NetMail file attachment to %s (%s)" ! 345: ,hdr.to,faddrtoa(addr)); ! 346: else ! 347: sprintf(str,"Sent NetMail to %s (%s)" ! 348: ,hdr.to,faddrtoa(addr)); ! 349: logline("EN",str); ! 350: ! 351: cc_found=0; ! 352: for(l=0;l<length && cc_found<=cc_sent;l++) ! 353: if(l+3<length && !strnicmp(buf+l,"CC:",3)) { ! 354: cc_found++; ! 355: l+=2; } ! 356: else { ! 357: while(l<length && *(buf+l)!=LF) ! 358: l++; } ! 359: if(!cc_found) ! 360: break; ! 361: while(l<length && *(buf+l)==SP) l++; ! 362: for(i=0;l<length && *(buf+l)!=LF && i<128;i++,l++) ! 363: str[i]=buf[l]; ! 364: if(!i) ! 365: break; ! 366: str[i]=0; ! 367: p=strrchr(str,'@'); ! 368: if(p) { ! 369: addr=atofaddr(&cfg,p+1); ! 370: *p=0; ! 371: sprintf(hdr.to,"%.35s",str); } ! 372: else { ! 373: atofaddr(&cfg,str); ! 374: strcpy(hdr.to,"Sysop"); } ! 375: hdr.destzone =addr.zone; ! 376: hdr.destnet =addr.net; ! 377: hdr.destnode =addr.node; ! 378: hdr.destpoint =addr.point; ! 379: cc_sent++; } ! 380: ! 381: if(cfg.netmail_sem[0]) /* update semaphore file */ ! 382: if((file=nopen(cmdstr(cfg.netmail_sem,nulstr,nulstr,NULL) ! 383: ,O_WRONLY|O_CREAT|O_TRUNC))!=-1) ! 384: close(file); ! 385: ! 386: FREE(buf); ! 387: return(true); ! 388: } ! 389: ! 390: /****************************************************************************/ ! 391: /* Send NetMail from QWK REP Packet */ ! 392: /****************************************************************************/ ! 393: void sbbs_t::qwktonetmail(FILE *rep, char *block, char *into, uchar fromhub) ! 394: { ! 395: char HUGE16 *qwkbuf,to[129],name[129],sender[129],senderaddr[129] ! 396: ,str[256],*p,*cp,*addr,fulladdr[129],ch; ! 397: char tmp[512]; ! 398: int i,fido,inet=0,qnet=0; ! 399: ushort net,xlat; ! 400: long l,offset,length,m,n; ! 401: faddr_t fidoaddr; ! 402: fmsghdr_t hdr; ! 403: smbmsg_t msg; ! 404: struct tm tm; ! 405: ! 406: if(useron.rest&FLAG('M')) { ! 407: bputs(text[NoNetMailAllowed]); ! 408: return; } ! 409: ! 410: sprintf(str,"%.6s",block+116); ! 411: n=atol(str); /* i = number of 128 byte records */ ! 412: ! 413: if(n<2L || n>999999L) { ! 414: errormsg(WHERE,ERR_CHK,"QWK blocks",n); ! 415: return; } ! 416: if((qwkbuf=(char *)MALLOC(n*128L))==NULL) { ! 417: errormsg(WHERE,ERR_ALLOC,nulstr,n*128L); ! 418: return; } ! 419: memcpy((char *)qwkbuf,block,128); ! 420: fread(qwkbuf+128,n-1,128,rep); ! 421: ! 422: if(into==NULL) ! 423: sprintf(to,"%-128.128s",(char *)qwkbuf+128); /* To user on first line */ ! 424: else ! 425: strcpy(to,into); ! 426: ! 427: p=strchr(to,0xe3); /* chop off at first CR */ ! 428: if(p) *p=0; ! 429: ! 430: strcpy(name,to); ! 431: p=strchr(name,'@'); ! 432: if(p) *p=0; ! 433: truncsp(name); ! 434: ! 435: ! 436: p=strrchr(to,'@'); /* Find '@' in name@addr */ ! 437: if(p && !isdigit(*(p+1)) && !strchr(p,'.') && !strchr(p,':')) { /* QWKnet */ ! 438: qnet=1; ! 439: *p=0; } ! 440: else if(p==NULL || !isdigit(*(p+1)) || !cfg.total_faddrs) { ! 441: if(p==NULL && cfg.dflt_faddr.zone) ! 442: fidoaddr=cfg.dflt_faddr; ! 443: else if(cfg.inetmail_misc&NMAIL_ALLOW) { /* Internet */ ! 444: inet=1; ! 445: } ! 446: else if(cfg.dflt_faddr.zone) ! 447: fidoaddr=cfg.dflt_faddr; ! 448: else { ! 449: bprintf("\1n\r\nInvalid NetMail address.\r\n"); ! 450: FREE(qwkbuf); ! 451: return; } } ! 452: else { ! 453: fidoaddr=atofaddr(&cfg,p+1); /* Get fido address */ ! 454: *p=0; /* Chop off address */ ! 455: } ! 456: ! 457: ! 458: if(!inet && !qnet && /* FidoNet */ ! 459: ((!SYSOP && !(cfg.netmail_misc&NMAIL_ALLOW)) || !cfg.total_faddrs)) { ! 460: bputs(text[NoNetMailAllowed]); ! 461: FREE(qwkbuf); ! 462: return; } ! 463: ! 464: truncsp(to); /* Truncate off space */ ! 465: ! 466: if(!stricmp(to,"SBBS") && !SYSOP && qnet) { ! 467: FREE(qwkbuf); ! 468: return; } ! 469: ! 470: l=128; /* Start of message text */ ! 471: ! 472: if(qnet || inet) { ! 473: ! 474: if(into==NULL) { /* If name@addr on first line, skip first line */ ! 475: while(l<(n*128L) && (uchar)qwkbuf[l]!=0xe3) l++; ! 476: l++; } ! 477: ! 478: memset(&msg,0,sizeof(smbmsg_t)); ! 479: memcpy(msg.hdr.id,"SHD\x1a",4); ! 480: msg.hdr.version=smb_ver(); ! 481: msg.hdr.when_imported.time=time(NULL); ! 482: msg.hdr.when_imported.zone=cfg.sys_timezone; ! 483: ! 484: if(fromhub || useron.rest&FLAG('Q')) { ! 485: net=NET_QWK; ! 486: smb_hfield(&msg,SENDERNETTYPE,sizeof(net),&net); ! 487: if(!strncmp(qwkbuf+l,"@VIA:",5)) { ! 488: sprintf(str,"%.128s",qwkbuf+l+5); ! 489: cp=strchr(str,0xe3); ! 490: if(cp) *cp=0; ! 491: l+=strlen(str)+1; ! 492: cp=str; ! 493: while(*cp && *cp<=SP) cp++; ! 494: sprintf(senderaddr,"%s/%s" ! 495: ,fromhub ? cfg.qhub[fromhub-1]->id : useron.alias,cp); ! 496: strupr(senderaddr); ! 497: smb_hfield(&msg,SENDERNETADDR,strlen(senderaddr),senderaddr); } ! 498: else { ! 499: if(fromhub) ! 500: strcpy(senderaddr, cfg.qhub[fromhub-1]->id); ! 501: else ! 502: strcpy(senderaddr, useron.alias); ! 503: strupr(senderaddr); ! 504: smb_hfield(&msg,SENDERNETADDR,strlen(senderaddr),senderaddr); } ! 505: sprintf(sender,"%.25s",block+46); } /* From name */ ! 506: else { /* Not Networked */ ! 507: msg.hdr.when_written.zone=cfg.sys_timezone; ! 508: sprintf(str,"%u",useron.number); ! 509: smb_hfield(&msg,SENDEREXT,strlen(str),str); ! 510: strcpy(sender,(qnet || cfg.inetmail_misc&NMAIL_ALIAS) ! 511: ? useron.alias : useron.name); ! 512: } ! 513: truncsp(sender); ! 514: smb_hfield(&msg,SENDER,strlen(sender),sender); ! 515: if(fromhub) ! 516: msg.idx.from=0; ! 517: else ! 518: msg.idx.from=useron.number; ! 519: if(!strncmp(qwkbuf+l,"@TZ:",4)) { ! 520: sprintf(str,"%.128s",qwkbuf+l); ! 521: cp=strchr(str,0xe3); ! 522: if(cp) *cp=0; ! 523: l+=strlen(str)+1; ! 524: cp=str+4; ! 525: while(*cp && *cp<=SP) cp++; ! 526: msg.hdr.when_written.zone=(short)ahtoul(cp); } ! 527: else ! 528: msg.hdr.when_written.zone=cfg.sys_timezone; ! 529: memset(&tm,0,sizeof(tm)); ! 530: tm.tm_mon=((qwkbuf[8]&0xf)*10)+(qwkbuf[9]&0xf); ! 531: if(tm.tm_mon) tm.tm_mon--; /* 0 based */ ! 532: tm.tm_mday=((qwkbuf[11]&0xf)*10)+(qwkbuf[12]&0xf); ! 533: tm.tm_year=((qwkbuf[14]&0xf)*10)+(qwkbuf[15]&0xf); ! 534: if(tm.tm_year<Y2K_2DIGIT_WINDOW) ! 535: tm.tm_year+=100; ! 536: tm.tm_hour=((qwkbuf[16]&0xf)*10)+(qwkbuf[17]&0xf); ! 537: tm.tm_min=((qwkbuf[19]&0xf)*10)+(qwkbuf[20]&0xf); /* From QWK time */ ! 538: tm.tm_sec=0; ! 539: ! 540: msg.hdr.when_written.time=mktime(&tm); ! 541: ! 542: sprintf(str,"%.25s",block+71); /* Title */ ! 543: smb_hfield(&msg,SUBJECT,strlen(str),str); ! 544: strlwr(str); ! 545: msg.idx.subj=crc16(str); } ! 546: ! 547: if(qnet) { ! 548: ! 549: p++; ! 550: addr=p; ! 551: msg.idx.to=qwk_route(addr,fulladdr); ! 552: if(!fulladdr[0]) { /* Invalid address, so BOUNCE it */ ! 553: /** ! 554: errormsg(WHERE,ERR_CHK,addr,0); ! 555: FREE(qwkbuf); ! 556: smb_freemsgmem(msg); ! 557: return; ! 558: **/ ! 559: smb_hfield(&msg,SENDER,strlen(cfg.sys_id),cfg.sys_id); ! 560: msg.idx.from=0; ! 561: msg.idx.to=useron.number; ! 562: strcpy(to,sender); ! 563: strcpy(fulladdr,senderaddr); ! 564: sprintf(str,"BADADDR: %s",addr); ! 565: smb_hfield(&msg,SUBJECT,strlen(str),str); ! 566: strlwr(str); ! 567: msg.idx.subj=crc16(str); ! 568: net=NET_NONE; ! 569: smb_hfield(&msg,SENDERNETTYPE,sizeof(net),&net); ! 570: } ! 571: ! 572: smb_hfield(&msg,RECIPIENT,strlen(name),name); ! 573: net=NET_QWK; ! 574: smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net); ! 575: ! 576: truncsp(fulladdr); ! 577: smb_hfield(&msg,RECIPIENTNETADDR,strlen(fulladdr),fulladdr); ! 578: ! 579: bprintf(text[NetMailing],to,fulladdr,sender,cfg.sys_id); } ! 580: ! 581: if(inet) { /* Internet E-mail */ ! 582: ! 583: if(cfg.inetmail_cost && !(useron.exempt&FLAG('S'))) { ! 584: if(useron.cdt+useron.freecdt<cfg.inetmail_cost) { ! 585: bputs(text[NotEnoughCredits]); ! 586: FREE(qwkbuf); ! 587: smb_freemsgmem(&msg); ! 588: return; } ! 589: sprintf(str,text[NetMailCostContinueQ],cfg.inetmail_cost); ! 590: if(noyes(str)) { ! 591: FREE(qwkbuf); ! 592: smb_freemsgmem(&msg); ! 593: return; } } ! 594: ! 595: net=NET_INTERNET; ! 596: smb_hfield(&msg,RECIPIENT,strlen(name),name); ! 597: msg.idx.to=0; /* Out-bound NetMail set to 0 */ ! 598: smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net); ! 599: smb_hfield(&msg,RECIPIENTNETADDR,strlen(to),to); ! 600: ! 601: bprintf(text[NetMailing],name,to ! 602: ,cfg.inetmail_misc&NMAIL_ALIAS ? useron.alias : useron.name ! 603: ,cfg.sys_inetaddr); } ! 604: ! 605: if(qnet || inet) { ! 606: ! 607: bputs(text[WritingIndx]); ! 608: ! 609: if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) { ! 610: errormsg(WHERE,ERR_OPEN,"MAIL",i); ! 611: FREE(qwkbuf); ! 612: smb_freemsgmem(&msg); ! 613: return; } ! 614: sprintf(smb.file,"%smail", cfg.data_dir); ! 615: smb.retry_time=cfg.smb_retry_time; ! 616: if((i=smb_open(&smb))!=0) { ! 617: smb_stack(&smb,SMB_STACK_POP); ! 618: errormsg(WHERE,ERR_OPEN,smb.file,i,smb.last_error); ! 619: FREE(qwkbuf); ! 620: smb_freemsgmem(&msg); ! 621: return; } ! 622: ! 623: if(smb_fgetlength(smb.shd_fp)<1L) { /* Create it if it doesn't exist */ ! 624: smb.status.max_crcs=cfg.mail_maxcrcs; ! 625: smb.status.max_msgs=MAX_SYSMAIL; ! 626: smb.status.max_age=cfg.mail_maxage; ! 627: smb.status.attr=SMB_EMAIL; ! 628: if((i=smb_create(&smb))!=0) { ! 629: smb_close(&smb); ! 630: smb_stack(&smb,SMB_STACK_POP); ! 631: errormsg(WHERE,ERR_CREATE,smb.file,i,smb.last_error); ! 632: FREE(qwkbuf); ! 633: smb_freemsgmem(&msg); ! 634: return; } } ! 635: ! 636: length=n*256L; // Extra big for CRLF xlat, was (n-1L)*256L (03/16/96) ! 637: ! 638: ! 639: if(length&0xfff00000UL || !length) { ! 640: smb_close(&smb); ! 641: smb_stack(&smb,SMB_STACK_POP); ! 642: sprintf(str,"REP msg (%ld)",n); ! 643: errormsg(WHERE,ERR_LEN,str,length); ! 644: FREE(qwkbuf); ! 645: smb_freemsgmem(&msg); ! 646: return; } ! 647: ! 648: if((i=smb_open_da(&smb))!=0) { ! 649: smb_close(&smb); ! 650: smb_stack(&smb,SMB_STACK_POP); ! 651: errormsg(WHERE,ERR_OPEN,smb.file,i,smb.last_error); ! 652: FREE(qwkbuf); ! 653: smb_freemsgmem(&msg); ! 654: return; } ! 655: if(cfg.sys_misc&SM_FASTMAIL) ! 656: offset=smb_fallocdat(&smb,length,1); ! 657: else ! 658: offset=smb_allocdat(&smb,length,1); ! 659: smb_close_da(&smb); ! 660: ! 661: smb_fseek(smb.sdt_fp,offset,SEEK_SET); ! 662: xlat=XLAT_NONE; ! 663: smb_fwrite(&xlat,2,smb.sdt_fp); ! 664: m=2; ! 665: for(;l<n*128L && m<length;l++) { ! 666: if(qwkbuf[l]==0 || qwkbuf[l]==LF) ! 667: continue; ! 668: if((uchar)qwkbuf[l]==0xe3) { ! 669: smb_fwrite(crlf,2,smb.sdt_fp); ! 670: m+=2; ! 671: continue; } ! 672: smb_fputc(qwkbuf[l],smb.sdt_fp); ! 673: m++; } ! 674: ! 675: for(ch=0;m<length;m++) /* Pad out with NULLs */ ! 676: smb_fputc(ch,smb.sdt_fp); ! 677: smb_fflush(smb.sdt_fp); ! 678: ! 679: msg.hdr.offset=offset; ! 680: ! 681: smb_dfield(&msg,TEXT_BODY,length); ! 682: ! 683: i=smb_addmsghdr(&smb,&msg,SMB_SELFPACK); ! 684: smb_close(&smb); ! 685: smb_stack(&smb,SMB_STACK_POP); ! 686: ! 687: smb_freemsgmem(&msg); ! 688: if(i) { ! 689: smb_freemsgdat(&smb,offset,length,1); ! 690: errormsg(WHERE,ERR_WRITE,smb.file,i,smb.last_error); } ! 691: else { /* Successful */ ! 692: if(inet) { ! 693: if(cfg.inetmail_sem[0]) /* update semaphore file */ ! 694: if((fido=nopen(cmdstr(cfg.inetmail_sem,nulstr,nulstr,NULL) ! 695: ,O_WRONLY|O_CREAT|O_TRUNC))!=-1) ! 696: close(fido); ! 697: if(!(useron.exempt&FLAG('S'))) ! 698: subtract_cdt(&cfg,&useron,cfg.inetmail_cost); } ! 699: ! 700: useron.emails++; ! 701: logon_emails++; ! 702: putuserrec(&cfg,useron.number,U_EMAILS,5,ultoa(useron.emails,tmp,10)); ! 703: useron.etoday++; ! 704: putuserrec(&cfg,useron.number,U_ETODAY,5,ultoa(useron.etoday,tmp,10)); ! 705: ! 706: sprintf(str,"Sent %s NetMail to %s (%s) via QWK" ! 707: ,qnet ? "QWK":"Internet",name,qnet ? fulladdr : to); ! 708: logline("EN",str); } ! 709: ! 710: FREE((char *)qwkbuf); ! 711: return; } ! 712: ! 713: ! 714: /****************************** FidoNet **********************************/ ! 715: ! 716: if(!fidoaddr.zone || !cfg.netmail_dir[0]) { // No fido netmail allowed ! 717: bprintf("\1n\r\nInvalid NetMail address.\r\n"); ! 718: FREE(qwkbuf); ! 719: return; } ! 720: ! 721: memset(&hdr,0,sizeof(hdr)); /* Initialize header to null */ ! 722: ! 723: if(fromhub || useron.rest&FLAG('Q')) { ! 724: sprintf(str,"%.25s",block+46); /* From */ ! 725: truncsp(str); ! 726: sprintf(tmp,"@%s",fromhub ? cfg.qhub[fromhub-1]->id : useron.alias); ! 727: strupr(tmp); ! 728: strcat(str,tmp); } ! 729: else ! 730: strcpy(str,cfg.netmail_misc&NMAIL_ALIAS ? useron.alias : useron.name); ! 731: sprintf(hdr.from,"%.35s",str); ! 732: ! 733: sprintf(hdr.to,"%.35s",to); ! 734: ! 735: /* Look-up in nodelist? */ ! 736: ! 737: if(cfg.netmail_cost && !(useron.exempt&FLAG('S'))) { ! 738: if(useron.cdt+useron.freecdt<cfg.netmail_cost) { ! 739: bputs(text[NotEnoughCredits]); ! 740: FREE(qwkbuf); ! 741: return; } ! 742: sprintf(str,text[NetMailCostContinueQ],cfg.netmail_cost); ! 743: if(noyes(str)) { ! 744: FREE(qwkbuf); ! 745: return; } } ! 746: ! 747: hdr.destzone =fidoaddr.zone; ! 748: hdr.destnet =fidoaddr.net; ! 749: hdr.destnode =fidoaddr.node; ! 750: hdr.destpoint =fidoaddr.point; ! 751: ! 752: for(i=0;i<cfg.total_faddrs;i++) ! 753: if(fidoaddr.zone==cfg.faddr[i].zone && fidoaddr.net==cfg.faddr[i].net) ! 754: break; ! 755: if(i==cfg.total_faddrs) { ! 756: for(i=0;i<cfg.total_faddrs;i++) ! 757: if(fidoaddr.zone==cfg.faddr[i].zone) ! 758: break; } ! 759: if(i==cfg.total_faddrs) ! 760: i=0; ! 761: hdr.origzone =cfg.faddr[i].zone; ! 762: hdr.orignet =cfg.faddr[i].net; ! 763: hdr.orignode =cfg.faddr[i].node; ! 764: hdr.origpoint =cfg.faddr[i].point; ! 765: ! 766: strcpy(str,faddrtoa(cfg.faddr[i])); ! 767: bprintf(text[NetMailing],hdr.to,faddrtoa(fidoaddr),hdr.from,str); ! 768: tm.tm_mon=((qwkbuf[8]&0xf)*10)+(qwkbuf[9]&0xf); ! 769: if (tm.tm_mon) tm.tm_mon--; ! 770: tm.tm_mday=((qwkbuf[11]&0xf)*10)+(qwkbuf[12]&0xf); ! 771: tm.tm_year=((qwkbuf[14]&0xf)*10)+(qwkbuf[15]&0xf)+1900; ! 772: tm.tm_hour=((qwkbuf[16]&0xf)*10)+(qwkbuf[17]&0xf); ! 773: tm.tm_min=((qwkbuf[19]&0xf)*10)+(qwkbuf[20]&0xf); /* From QWK time */ ! 774: tm.tm_sec=0; ! 775: sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u" /* To FidoNet */ ! 776: ,tm.tm_mday,mon[tm.tm_mon],TM_YEAR(tm.tm_year) ! 777: ,tm.tm_hour,tm.tm_min,tm.tm_sec); ! 778: hdr.attr=(FIDO_LOCAL|FIDO_PRIVATE); ! 779: ! 780: if(cfg.netmail_misc&NMAIL_CRASH) hdr.attr|=FIDO_CRASH; ! 781: if(cfg.netmail_misc&NMAIL_HOLD) hdr.attr|=FIDO_HOLD; ! 782: if(cfg.netmail_misc&NMAIL_KILL) hdr.attr|=FIDO_KILLSENT; ! 783: ! 784: sprintf(str,"%.25s",block+71); /* Title */ ! 785: truncsp(str); ! 786: p=str; ! 787: if((SYSOP || useron.exempt&FLAG('F')) ! 788: && !strnicmp(p,"CR:",3)) { /* Crash over-ride by sysop */ ! 789: p+=3; /* skip CR: */ ! 790: if(*p==SP) p++; /* skip extra space if it exists */ ! 791: hdr.attr|=FIDO_CRASH; } ! 792: ! 793: if((SYSOP || useron.exempt&FLAG('F')) ! 794: && !strnicmp(p,"FR:",3)) { /* File request */ ! 795: p+=3; /* skip FR: */ ! 796: if(*p==SP) p++; ! 797: hdr.attr|=FIDO_FREQ; } ! 798: ! 799: if((SYSOP || useron.exempt&FLAG('F')) ! 800: && !strnicmp(p,"RR:",3)) { /* Return receipt request */ ! 801: p+=3; /* skip RR: */ ! 802: if(*p==SP) p++; ! 803: hdr.attr|=FIDO_RRREQ; } ! 804: ! 805: if((SYSOP || useron.exempt&FLAG('F')) ! 806: && !strnicmp(p,"FA:",3)) { /* File attachment */ ! 807: p+=3; /* skip FA: */ ! 808: if(*p==SP) p++; ! 809: hdr.attr|=FIDO_FILE; } ! 810: ! 811: sprintf(hdr.subj,"%.71s",p); ! 812: ! 813: for(i=1;i;i++) { ! 814: sprintf(str,"%s%u.msg", cfg.netmail_dir,i); ! 815: if(!fexist(str)) ! 816: break; } ! 817: if(!i) { ! 818: bputs(text[TooManyEmailsToday]); ! 819: return; } ! 820: if((fido=nopen(str,O_WRONLY|O_CREAT|O_EXCL))==-1) { ! 821: FREE(qwkbuf); ! 822: errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_EXCL); ! 823: return; } ! 824: write(fido,&hdr,sizeof(hdr)); ! 825: ! 826: pt_zone_kludge(hdr,fido); ! 827: ! 828: if(cfg.netmail_misc&NMAIL_DIRECT) { ! 829: sprintf(str,"\1FLAGS DIR\r\n"); ! 830: write(fido,str,strlen(str)); } ! 831: ! 832: l=128L; ! 833: ! 834: if(into==NULL) { /* If name@addr on first line, skip first line */ ! 835: while(l<n*128L && (uchar)qwkbuf[l]!=0xe3) l++; ! 836: l++; } ! 837: ! 838: while(l<n*128L) { ! 839: if(qwkbuf[l]==1) /* Ctrl-A, so skip it and the next char */ ! 840: l++; ! 841: else if(qwkbuf[l]!=LF) { ! 842: if((uchar)qwkbuf[l]==0xe3) /* QWK cr/lf char converted to hard CR */ ! 843: qwkbuf[l]=CR; ! 844: write(fido,(char *)qwkbuf+l,1); } ! 845: l++; } ! 846: l=0; ! 847: write(fido,&l,1); /* Null terminator */ ! 848: close(fido); ! 849: FREE((char *)qwkbuf); ! 850: if(cfg.netmail_sem[0]) /* update semaphore file */ ! 851: if((fido=nopen(cmdstr(cfg.netmail_sem,nulstr,nulstr,NULL) ! 852: ,O_WRONLY|O_CREAT|O_TRUNC))!=-1) ! 853: close(fido); ! 854: if(!(useron.exempt&FLAG('S'))) ! 855: subtract_cdt(&cfg,&useron,cfg.netmail_cost); ! 856: ! 857: useron.emails++; ! 858: logon_emails++; ! 859: putuserrec(&cfg,useron.number,U_EMAILS,5,ultoa(useron.emails,tmp,10)); ! 860: useron.etoday++; ! 861: putuserrec(&cfg,useron.number,U_ETODAY,5,ultoa(useron.etoday,tmp,10)); ! 862: ! 863: sprintf(str,"Sent NetMail to %s @%s via QWK",hdr.to,faddrtoa(fidoaddr)); ! 864: logline("EN",str); ! 865: } ! 866: ! 867: /****************************************************************************/ ! 868: /* Returns the FidoNet address kept in str as ASCII. */ ! 869: /****************************************************************************/ ! 870: faddr_t atofaddr(scfg_t* cfg, char *str) ! 871: { ! 872: char *p; ! 873: faddr_t addr; ! 874: ! 875: addr.zone=addr.net=addr.node=addr.point=0; ! 876: if((p=strchr(str,':'))!=NULL) { ! 877: addr.zone=atoi(str); ! 878: addr.net=atoi(p+1); } ! 879: else { ! 880: if(cfg->total_faddrs) ! 881: addr.zone=cfg->faddr[0].zone; ! 882: else ! 883: addr.zone=1; ! 884: addr.net=atoi(str); } ! 885: if(!addr.zone) /* no such thing as zone 0 */ ! 886: addr.zone=1; ! 887: if((p=strchr(str,'/'))!=NULL) ! 888: addr.node=atoi(p+1); ! 889: else { ! 890: if(cfg->total_faddrs) ! 891: addr.net=cfg->faddr[0].net; ! 892: else ! 893: addr.net=1; ! 894: addr.node=atoi(str); } ! 895: if((p=strchr(str,'.'))!=NULL) ! 896: addr.point=atoi(p+1); ! 897: return(addr); ! 898: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.