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