boolean_t handleError (DtMailEnv &dterror, char *msg) { if (dterror.isSet () == DTM_TRUE) { fprintf (stderr, "dtmailpr: (%s) %s\n", msg, (const char *)dterror); dterror.logError (DTM_FALSE, "dtmailpr: (%s) %s\n", msg, (const char *)dterror); dterror.clear (); return B_TRUE; } dterror.clear (); return B_FALSE; }
void DmxMsg::display ( DmxPrintHeadersEnum header_format, DmxPrintOutputProc print_proc, XtPointer stream) { DtMailEnv env; DtMailBoolean FirstIsText = DTM_FALSE; DtMail::BodyPart *firstPart = NULL, *nextpart = NULL; char *buf = NULL, *description = NULL, *name = NULL, *newline = NULL, *sunDataDescription = NULL, *type = NULL; void *contents = NULL; unsigned long length = 0; int mode = 0; // For CHARSET char v3_cs[64], *mime_cs = NULL, *from_cs = NULL, *to_cs = NULL; // read in body part info if (cachedValues != DTM_TRUE) parse (); firstPart = bodyParts [0]; firstPart->getContents(env, (const void **) &contents, &length, NULL, //type NULL, //name NULL, //mode NULL); //description if (handleError(env, "getContents") == DTM_TRUE) exit (1); // For CHARSET DtMailValueSeq value; DtMailBoolean err = DTM_FALSE; // Get the bodypart's charset - Try MIME first then V3 firstPart->getHeader(env, DtMailMessageContentType, DTM_TRUE, value); if (env.isNotSet()) { mime_cs = firstPart->csFromContentType(value); } else { env.clear(); value.clear(); firstPart->getHeader(env, DtMailMessageV3charset, DTM_TRUE, value); if (env.isNotSet()) { strcpy(v3_cs, *(value[0])); } else { err = DTM_TRUE; env.clear(); value.clear(); } } // If cannot obtain bodypart's charset header, then maybe this message // has only one bodypart, then in this case the charset header maybe // among the message's envelope (main message headers). // Get the envelope of the message (in order to access the headers) DtMail::Envelope *envelope = NULL; if (err == DTM_TRUE) { envelope = message->getEnvelope(env); err = DTM_FALSE; #ifdef DEBUG env.logError( DTM_FALSE, "DEBUG dtmailpr: Looking at main message header\n"); #endif } // Check for MIME charset header and then for V3 charset header if (envelope != NULL) { envelope->getHeader(env, DtMailMessageContentType, DTM_TRUE, value); if (env.isNotSet()) { mime_cs = firstPart->csFromContentType(value); } else { err = DTM_TRUE; env.clear(); } if (mime_cs == NULL || err == DTM_TRUE) { value.clear(); envelope->getHeader(env, DtMailMessageV3charset, DTM_TRUE, value); if (env.isNotSet()) { strcpy(v3_cs, *(value[0])); } else { err = DTM_TRUE; env.clear(); } } } else { #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: envelope is null\n"); #endif env.clear(); } // Default codeset in case mime_cs and v3_cs are both null. if ((mime_cs == NULL) && (strlen(v3_cs) == 0)) { char *ret = NULL; firstPart->DtXlateOpToStdLocale(DtLCX_OPER_SETLOCALE, setlocale(LC_CTYPE, NULL), NULL, NULL, &ret); strcpy(v3_cs, "DEFAULT"); strcat(v3_cs, "."); strcat(v3_cs, ret); if (ret) free(ret); } // Get iconv from and to codeset and do conversion. int converted = 0; if (mime_cs) { from_cs = firstPart->csToConvName(mime_cs); #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: mime_cs = %s\n", mime_cs); #endif } else { from_cs = firstPart->csToConvName(v3_cs); #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: v3_cs = %s\n", v3_cs); #endif } to_cs = firstPart->locToConvName(); #ifdef DEBUG if ( from_cs == NULL ) env.logError(DTM_FALSE, "DEBUG dtmailpr: from_cs is NULL\n"); else env.logError(DTM_FALSE, "DEBUG dtmailpr: from_cs = %s\n", from_cs); if ( to_cs == NULL ) env.logError(DTM_FALSE, "DEBUG dtmailpr: to_cs is NULL\n"); else env.logError(DTM_FALSE, "DEBUG dtmailpr: to_cs = %s\n", to_cs); #endif if ( from_cs && to_cs ) { if ( strcasecmp(from_cs, to_cs) != 0 ) { converted = firstPart->csConvert( (char **)&contents, length, 0, from_cs, to_cs); #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: converted = %d\n", converted); #endif } } if ( mime_cs ) free ( mime_cs ); if ( from_cs ) free( from_cs ); if ( to_cs ) free ( to_cs ); // End of For CHARSET newline = new char [2]; newline[0] = '\n'; newline[1] = '\0'; // // Print out the message headers. // buf = getPrintedHeaders(header_format); print_proc(stream, buf); print_proc(stream, newline); delete buf; // // Print out the message body. // buf = new char [length + 1]; memset (buf, 0, (unsigned int) length + 1); memmove (buf, contents, (unsigned int) length); buf [length] = '\0'; // null-terminate that puppy print_proc(stream, buf); print_proc(stream, newline); delete [] buf; // For CHARSET if (converted && contents) free(contents); // No attachments? We're done. if (numBPs < 2) return; int i = 0, attbuflen = 0; char *attbuf = NULL; char *sunbuf = NULL; print_proc(stream, newline); for (i = 1; i < numBPs ; i++) { nextpart = bodyParts [i]; if (nextpart == NULL) fprintf (stderr, "Error getting part!\n"); length = 0; type = ""; sunDataDescription = ""; description = ""; name = ""; mode = -1; nextpart->getContents(env, NULL, &length, &type, &name, &mode, &sunDataDescription); if (handleError (env, "getContents") == DTM_TRUE) exit (1); if (type == NULL) type = "(type unknown)"; if (name == NULL) name = "(name unknown)"; if (sunDataDescription == NULL) { description = ""; } else { // should add bracket or something sunbuf = new char [strlen (sunDataDescription) + 10]; sprintf(sunbuf, " (%s)", sunDataDescription); description = sunbuf; } attbuflen = strlen(name) + strlen(type) + strlen(description); attbuf = new char [attbuflen + 64]; sprintf(attbuf, "[%d] \"%s\"%s, %s, %ld bytes", i, name, description, type, length); print_proc(stream, attbuf); print_proc(stream, newline); delete [] attbuf; if (sunbuf != NULL) delete [] sunbuf; } return; }
int DtMail::Session::csConvert(char **bp, unsigned long &bp_len, int free_bp, char *from_cs, char *to_cs) { DtMailEnv error; iconv_t cd; size_t ileft = (size_t) bp_len, oleft = (size_t) bp_len, ret = 0; #if defined(_AIX) || defined(sun) || defined(__FreeBSD__) || defined(__NetBSD__) const char *ip = (const char *) *bp; #else char *ip = *bp; #endif char *op = NULL; char *op_start = NULL; int mb_ret = 0; size_t delta; if ( *bp == NULL || **bp == '\0' || bp_len <= 0 ) return 0; if ( to_cs == NULL || from_cs == NULL ) return 0; if ( (cd = iconv_open(to_cs, from_cs)) == (iconv_t) -1 ) { switch (errno) { case EINVAL: error.logError(DTM_FALSE, "DtMail: Conversion from %s to %s is not supported.\n", from_cs, to_cs); break; } // end of switch statement return 0; } // Caller will set _must_free_body to DTM_TRUE if this routine // succeeds. Then this space will be freed appropriately. // Add 1 to buffer size for null terminator. op_start = op = (char *)calloc((unsigned int) bp_len + 1, sizeof(char)); // When ileft finally reaches 0, the conversion still might not be // complete. Here's why we also need to check for E2BIG: Let's // say we're converting from eucJP to ISO-2022-JP, and there's just // enough room in the output buffer for the last input character, // but not enough room for the trailing "ESC ( B" (for switching // back to ASCII). In that case, iconv() will convert the last // input character, decrement ileft to zero, and then set errno to // E2BIG to tell us that it still needs more room for the "ESC ( B". errno = 0; while ( ileft > 0 || errno == E2BIG ) { errno = 0; if ((ret = iconv(cd, &ip, &ileft, &op, &oleft)) == (size_t) -1) { switch (errno) { case E2BIG: // increase output buffer size delta = ileft ? ileft : 3; bp_len += delta; op_start = (char *)realloc( (char *)op_start, (unsigned int) bp_len + 1); op = op_start + bp_len - delta - oleft; oleft += delta; // realloc does not clear out unused space. // Therefore, garbage shows up in output buffer. memset(op, 0, oleft + 1); break; case EILSEQ: // input byte does not belong to input codeset case EINVAL: // invalid input mb_ret = mblen(ip, MB_LEN_MAX); if ( (mb_ret > 0) && (oleft >= mb_ret) ) { strncat(op_start, ip, mb_ret); ip += mb_ret; op += mb_ret; oleft -= mb_ret; ileft -= mb_ret; mb_ret = 0; } else { // mb_ret is either 0 or -1 at this point, // then skip one byte // and try conversion again. ip++; ileft--; } break; case EBADF: // bad conversion descriptor break; } // end of switch statement } } // end of while loop iconv_close(cd); // Is this necessary?? Is _body_decode_len == strlen(_body)?? // Or can _body_decode_len contain spaces?? // Check to see if a body had been allocated by prior decoding. if (free_bp) { free(*bp); } *bp = op_start; bp_len = strlen(*bp); return 1; }
void DmxMsg::display (void) { DtMailEnv env; boolean_t FirstIsText = B_FALSE; DtMail::BodyPart *firstPart = NULL, *nextpart = NULL; char *type; char *description = NULL; char *sunDataDescription = NULL; char *name = NULL; void * contents = NULL; unsigned long length = 0; int mode = 0; char *buf = NULL; // For CHARSET char *mime_cs = NULL, *from_cs = NULL, *to_cs = NULL; char *v3_cs = new char [64]; if (cachedValues != B_TRUE) parse (); // read in body part info firstPart = bodyParts [0]; firstPart->getContents(env, (const void **) &contents, &length, NULL, //type NULL, //name NULL, //mode NULL); //description if (handleError (env, "getContents") == B_TRUE) exit (1); // For CHARSET DtMailValueSeq value; boolean_t err = B_FALSE; // Get the bodypart's charset - Try MIME first then V3 firstPart->getHeader(env, DtMailMessageContentType, DTM_TRUE, value); if (env.isNotSet()) { mime_cs = firstPart->csFromContentType(value); } else { env.clear(); value.clear(); firstPart->getHeader(env, DtMailMessageV3charset, DTM_TRUE, value); if (env.isNotSet()) { strcpy(v3_cs, *(value[0])); } else { err = B_TRUE; env.clear(); value.clear(); } } // If cannot obtain bodypart's charset header, then maybe this message // has only one bodypart, then in this case the charset header maybe // among the message's envelope (main message headers). // Get the envelope of the message (in order to access the headers) DtMail::Envelope *envelope = NULL; if (err == B_TRUE) { envelope = message->getEnvelope(env); err = B_FALSE; #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: Looking at main message header\n"); #endif } if (envelope != NULL) { // Check for MIME charset header and then for V3 charset header envelope->getHeader(env, DtMailMessageContentType, DTM_TRUE, value); if (env.isNotSet()) { mime_cs = firstPart->csFromContentType(value); } else { err = B_TRUE; env.clear(); } if (mime_cs == NULL || err == B_TRUE) { value.clear(); envelope->getHeader(env, DtMailMessageV3charset, DTM_TRUE, value); if (env.isNotSet()) { strcpy(v3_cs, *(value[0])); } else { err = B_TRUE; env.clear(); } } } else { #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: envelope is null\n"); #endif env.clear(); } // Default codeset in case mime_cs and v3_cs are both null. if ((mime_cs == NULL) && (strlen(v3_cs) == 0)) { char *ret = NULL; firstPart->DtXlateOpToStdLocale(DtLCX_OPER_SETLOCALE, setlocale(LC_CTYPE, NULL), NULL, NULL, &ret); strcpy(v3_cs, "DEFAULT"); strcat(v3_cs, "."); strcat(v3_cs, ret); if (ret) free(ret); } // Get iconv from and to codeset and do conversion. int converted = 0; if (mime_cs) { from_cs = firstPart->csToConvName(mime_cs); #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: mime_cs = %s\n", mime_cs); #endif } else { from_cs = firstPart->csToConvName(v3_cs); #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: v3_cs = %s\n", v3_cs); #endif } to_cs = firstPart->locToConvName(); #ifdef DEBUG if ( from_cs == NULL ) env.logError(DTM_FALSE, "DEBUG dtmailpr: from_cs is NULL\n"); else env.logError(DTM_FALSE, "DEBUG dtmailpr: from_cs = %s\n", from_cs); if ( to_cs == NULL ) env.logError(DTM_FALSE, "DEBUG dtmailpr: to_cs is NULL\n"); else env.logError(DTM_FALSE, "DEBUG dtmailpr: to_cs = %s\n", to_cs); #endif if ( from_cs && to_cs ) { if ( strcasecmp(from_cs, to_cs) != 0 ) { converted = firstPart->csConvert((char **)&contents, length, 0, from_cs, to_cs); #ifdef DEBUG env.logError(DTM_FALSE, "DEBUG dtmailpr: converted = %d\n", converted); #endif } } if ( mime_cs ) free ( mime_cs ); if ( from_cs ) free( from_cs ); if ( to_cs ) free ( to_cs ); // End of For CHARSET buf = new char [length + 1]; memset (buf, 0, (size_t) length + 1); // have to "seek" length bytes into the // contents buffer memmove (buf, contents, (size_t) length); buf [length] = '\0'; // null-terminate // that puppy // For CHARSET if (converted && contents) free(contents); char *numbuf = new char [10241]; memset (numbuf, 0, 1024); #ifdef NEVER // Don't want "Message 1:" appearing in print output sprintf (numbuf, "Messsage %s:\n%s\n", addlInfo, printHeader (MSGHEADER)); #endif puts(printHeader(MSGHEADER)); puts(buf); fflush(stdout); // No attachments? We're done. if (numBPs < 2) return; int i = 0; char *attbuf = NULL; printf ("\n"); for (i = 1; i < numBPs ; i++) { nextpart = bodyParts [i]; if (nextpart == NULL) fprintf (stderr, "Error getting part!\n"); length = 0; type = ""; sunDataDescription = ""; description = ""; name = ""; mode = -1; nextpart->getContents(env, NULL, &length, &type, &name, &mode, &sunDataDescription); if (handleError (env, "getContents") == B_TRUE) exit (1); if (type == NULL) type = "(unknown)"; if (sunDataDescription == NULL) { description = ""; } else { // should add bracket or something attbuf = new char [strlen (sunDataDescription) +10]; sprintf (attbuf, " (%s)", sunDataDescription); description = attbuf; } if (name == NULL) name = "(name)"; printf ("[%d] \"%s\"%s, ", i, name, description); printf ("%s, %d bytes\n", type, length); if (attbuf != NULL) delete [] attbuf; } delete [] v3_cs; return; }