![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to msgtoqwk.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to msgtoqwk.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 ! root 1: #line 1 "MSGTOQWK.C" ! 2: ! 3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */ ! 4: ! 5: #include "sbbs.h" ! 6: #include "qwk.h" ! 7: #include "etext.h" ! 8: ! 9: /****************************************************************************/ ! 10: /* Converts message 'msg' to QWK format, writing to file 'qwk_fp'. */ ! 11: /* mode determines how to handle Ctrl-A codes */ ! 12: /****************************************************************************/ ! 13: ulong msgtoqwk(smbmsg_t msg, FILE *qwk_fp, int mode, int subnum ! 14: , int conf) ! 15: { ! 16: uchar str[512],from[512],to[512],ch,tear=0,tearwatch=0,HUGE16 *buf,*p; ! 17: ushort xlat; ! 18: long l,size=0,offset; ! 19: int i; ! 20: ! 21: offset=ftell(qwk_fp); ! 22: memset(str,SP,128); ! 23: fwrite(str,128,1,qwk_fp); /* Init header to space */ ! 24: ! 25: if(msg.from_net.addr && (uint)subnum==INVALID_SUB) { ! 26: if(mode&TO_QNET) ! 27: sprintf(from,"%.128s",msg.from); ! 28: else if(msg.from_net.type==NET_FIDO) ! 29: sprintf(from,"%.128s@%.128s" ! 30: ,msg.from,faddrtoa(*(faddr_t *)msg.from_net.addr)); ! 31: else if(msg.from_net.type==NET_INTERNET) ! 32: sprintf(from,"%.128s",msg.from_net.addr); ! 33: else ! 34: sprintf(from,"%.128s@%.128s",msg.from,msg.from_net.addr); ! 35: if(strlen(from)>25) { ! 36: sprintf(str,"From: %.128s\xe3\xe3",from); ! 37: fwrite(str,strlen(str),1,qwk_fp); ! 38: size+=strlen(str); ! 39: sprintf(from,"%.128s",msg.from); } } ! 40: else { ! 41: sprintf(from,"%.128s",msg.from); ! 42: if(msg.hdr.attr&MSG_ANONYMOUS && !SYSOP) /* from user */ ! 43: strcpy(from,text[Anonymous]); } ! 44: ! 45: if(msg.to_net.addr && (uint)subnum==INVALID_SUB) { ! 46: if(msg.to_net.type==NET_FIDO) ! 47: sprintf(to,"%.128s@%s",msg.to,faddrtoa(*(faddr_t *)msg.to_net.addr)); ! 48: else if(msg.to_net.type==NET_INTERNET) ! 49: sprintf(to,"%.128s",msg.to_net.addr); ! 50: else if(msg.to_net.type==NET_QWK) { ! 51: if(mode&TO_QNET) { ! 52: p=strchr(msg.to_net.addr,'/'); ! 53: if(p) { /* Another hop */ ! 54: p++; ! 55: strcpy(to,"NETMAIL"); ! 56: sprintf(str,"%.128s@%.128s\xe3",msg.to,p); ! 57: fwrite(str,strlen(str),1,qwk_fp); ! 58: size+=strlen(str); } ! 59: else ! 60: sprintf(to,"%.128s",msg.to); } ! 61: else ! 62: sprintf(to,"%.128s@%.128s",msg.to,msg.to_net.addr); } ! 63: else ! 64: sprintf(to,"%.128s@%.128s",msg.to,msg.to_net.addr); ! 65: if(strlen(to)>25) { ! 66: sprintf(str,"To: %.128s\xe3\xe3",to); ! 67: fwrite(str,strlen(str),1,qwk_fp); ! 68: size+=strlen(str); ! 69: if(msg.to_net.type==NET_QWK) ! 70: strcpy(to,"NETMAIL"); ! 71: else ! 72: sprintf(to,"%.128s",msg.to); } } ! 73: else ! 74: sprintf(to,"%.128s",msg.to); ! 75: ! 76: if(msg.from_net.type==NET_QWK && mode&VIA && !msg.forwarded) { ! 77: sprintf(str,"@VIA:%.128s\xe3",msg.from_net.addr); ! 78: fwrite(str,strlen(str),1,qwk_fp); ! 79: size+=strlen(str); } ! 80: ! 81: if(msg.hdr.when_written.zone && mode&TZ) { ! 82: sprintf(str,"@TZ:%04x\xe3",msg.hdr.when_written.zone); ! 83: fwrite(str,strlen(str),1,qwk_fp); ! 84: size+=strlen(str); } ! 85: ! 86: p=0; ! 87: for(i=0;i<msg.total_hfields;i++) { ! 88: if(msg.hfield[i].type==SENDER) ! 89: p=msg.hfield_dat[i]; ! 90: if(msg.hfield[i].type==FORWARDED && p) { ! 91: sprintf(str,"Forwarded from %s on %s\xe3",p ! 92: ,timestr((time_t *)msg.hfield_dat[i])); ! 93: fwrite(str,strlen(str),1,qwk_fp); ! 94: size+=strlen(str); } } ! 95: ! 96: buf=smb_getmsgtxt(&smb,&msg,1); ! 97: if(!buf) ! 98: return(0); ! 99: ! 100: for(l=0;buf[l];l++) { ! 101: ch=buf[l]; ! 102: ! 103: if(ch==LF) { ! 104: if(tear) ! 105: tear++; /* Count LFs after tearline */ ! 106: if(tear>3) /* more than two LFs after the tear */ ! 107: tear=0; ! 108: if(tearwatch==4) { /* watch for LF---LF */ ! 109: tear=1; ! 110: tearwatch=0; } ! 111: else if(!tearwatch) ! 112: tearwatch=1; ! 113: else ! 114: tearwatch=0; ! 115: ch=0xe3; ! 116: fputc(ch,qwk_fp); /* Replace LF with funky char */ ! 117: size++; ! 118: continue; } ! 119: ! 120: if(ch==CR) { /* Ignore CRs */ ! 121: if(tearwatch<4) /* LF---CRLF is okay */ ! 122: tearwatch=0; /* LF-CR- is not okay */ ! 123: continue; } ! 124: ! 125: if(ch==SP && tearwatch==4) { /* watch for "LF--- " */ ! 126: tear=1; ! 127: tearwatch=0; } ! 128: ! 129: if(ch=='-') { /* watch for "LF---" */ ! 130: if(l==0 || (tearwatch && tearwatch<4)) ! 131: tearwatch++; ! 132: else ! 133: tearwatch=0; } ! 134: else ! 135: tearwatch=0; ! 136: ! 137: if((uint)subnum!=INVALID_SUB && sub[subnum]->misc&SUB_ASCII) { ! 138: if(ch<SP && ch!=1) ! 139: ch='.'; ! 140: else if(ch>0x7f) ! 141: ch='*'; } ! 142: ! 143: if(ch==0xE3) /* funky char */ ! 144: ch='*'; ! 145: ! 146: if(ch==1) { /* ctrl-a */ ! 147: ch=buf[++l]; ! 148: if(!ch) ! 149: break; ! 150: if(mode&A_EXPAND) { ! 151: str[0]=0; ! 152: switch(toupper(ch)) { /* non-color codes */ ! 153: case 'L': ! 154: strcpy(str,"\x1b[2J"); ! 155: break; ! 156: case 'W': ! 157: strcpy(str,ansi(LIGHTGRAY)); ! 158: break; ! 159: case 'K': ! 160: strcpy(str,ansi(BLACK)); ! 161: break; ! 162: case 'H': ! 163: strcpy(str,ansi(HIGH)); ! 164: break; ! 165: case 'I': ! 166: strcpy(str,ansi(BLINK)); ! 167: break; ! 168: case 'N': /* Normal */ ! 169: strcpy(str,"\x1b[0m"); ! 170: break; ! 171: case '0': ! 172: strcpy(str,"\x1b[40m"); ! 173: break; ! 174: case '7': ! 175: strcpy(str,ansi(LIGHTGRAY<<4)); ! 176: break; ! 177: case 'R': /* Color codes */ ! 178: strcpy(str,ansi(RED)); ! 179: break; ! 180: case 'G': ! 181: strcpy(str,ansi(GREEN)); ! 182: break; ! 183: case 'B': ! 184: strcpy(str,ansi(BLUE)); ! 185: break; ! 186: case 'C': ! 187: strcpy(str,ansi(CYAN)); ! 188: break; ! 189: case 'M': ! 190: strcpy(str,ansi(MAGENTA)); ! 191: break; ! 192: case 'Y': /* Yellow */ ! 193: strcpy(str,ansi(BROWN)); ! 194: break; ! 195: case '1': ! 196: strcpy(str,ansi(RED<<4)); ! 197: break; ! 198: case '2': ! 199: strcpy(str,ansi(GREEN<<4)); ! 200: break; ! 201: case '3': ! 202: strcpy(str,ansi(BROWN<<4)); ! 203: break; ! 204: case '4': ! 205: strcpy(str,ansi(BLUE<<4)); ! 206: break; ! 207: case '5': ! 208: strcpy(str,ansi(MAGENTA<<4)); ! 209: break; ! 210: case '6': ! 211: strcpy(str,ansi(CYAN<<4)); ! 212: break; } ! 213: if(str[0]) { ! 214: fwrite(str,strlen(str),1,qwk_fp); ! 215: size+=strlen(str); } ! 216: continue; } /* End Expand */ ! 217: ! 218: if(mode&A_LEAVE) { ! 219: fputc(1,qwk_fp); ! 220: fputc(ch,qwk_fp); ! 221: size+=2L; } ! 222: else /* Strip */ ! 223: if(toupper(ch)=='L') { ! 224: fputc(FF,qwk_fp); ! 225: size++; } ! 226: continue; } /* End of Ctrl-A shit */ ! 227: fputc(ch,qwk_fp); ! 228: size++; } ! 229: ! 230: LFREE(buf); ! 231: if(ch!=0xE3) { ! 232: fputc(0xE3,qwk_fp); /* make sure it ends in CRLF */ ! 233: size++; } ! 234: ! 235: if(mode&TAGLINE && !(sub[subnum]->misc&SUB_NOTAG)) { ! 236: if(!tear) /* no tear line */ ! 237: strcpy(str,"\1n---\xe3"); /* so add one */ ! 238: else ! 239: strcpy(str,"\1n"); ! 240: if(sub[subnum]->misc&SUB_ASCII) ch='*'; ! 241: else ch='�'; ! 242: sprintf(tmp," %c \1g%s\1n %c %.127s\xe3" ! 243: ,ch,decrypt(Synchronet,0),ch,sub[subnum]->tagline); ! 244: strcat(str,tmp); ! 245: if(!(mode&A_LEAVE)) ! 246: remove_ctrl_a(str); ! 247: fwrite(str,strlen(str),1,qwk_fp); ! 248: size+=strlen(str); } ! 249: ! 250: while(size%128L) { /* Pad with spaces */ ! 251: size++; ! 252: fputc(SP,qwk_fp); } ! 253: ! 254: unixtodos(msg.hdr.when_written.time,&date,&curtime); ! 255: ! 256: sprintf(tmp,"%02u-%02u-%02u%02u:%02u" ! 257: ,date.da_mon,date.da_day,date.da_year-1900 ! 258: ,curtime.ti_hour,curtime.ti_min); ! 259: ! 260: if(msg.hdr.attr&MSG_PRIVATE) { ! 261: if(msg.hdr.attr&MSG_READ) ! 262: ch='*'; /* private, read */ ! 263: else ! 264: ch='+'; /* private, unread */ } ! 265: else { ! 266: if(msg.hdr.attr&MSG_READ) ! 267: ch='-'; /* public, read */ ! 268: else ! 269: ch=' '; /* public, unread */ } ! 270: ! 271: ! 272: sprintf(str,"%c%-7lu%-13.13s%-25.25s" ! 273: "%-25.25s%-25.25s%12s%-8lu%-6lu\xe1%c%c%c%c%c" ! 274: ,ch /* message status flag */ ! 275: ,mode&REP ? (ulong)conf /* conference or */ ! 276: : msg.hdr.number /* message number */ ! 277: ,tmp /* date and time */ ! 278: ,to /* To: */ ! 279: ,from /* From: */ ! 280: ,msg.subj /* Subject */ ! 281: ,nulstr /* Password */ ! 282: ,msg.hdr.thread_orig /* Message Re: Number */ ! 283: ,(size/128L)+1 /* Number of 128byte blocks */ ! 284: ,(char)conf&0xff /* Conference number lo byte */ ! 285: ,(ushort)conf>>8 /* hi byte */ ! 286: ,SP /* not used */ ! 287: ,SP /* not used */ ! 288: ,useron.rest&FLAG('Q') ? '*' : SP /* Net tag line */ ! 289: ); ! 290: ! 291: fseek(qwk_fp,offset,SEEK_SET); ! 292: fwrite(str,128,1,qwk_fp); ! 293: fseek(qwk_fp,size,SEEK_CUR); ! 294: ! 295: return(size); ! 296: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.