#include <h/mh.h>
#include <fcntl.h>
#include <h/signals.h>
-#include <h/md5.h>
#include <errno.h>
#include <signal.h>
#include <h/tws.h>
#include <h/mime.h>
#include <h/mhparse.h>
-#include <h/mhcachesbr.h>
#include <h/utils.h>
#ifdef HAVE_SYS_TIME_H
#include <time.h>
static struct swit switches[] = {
-#define CHECKSW 0
- { "check", 0 },
-#define NCHECKSW 1
- { "nocheck", 0 },
-#define EBCDICSW 2
- { "ebcdicsafe", 0 },
-#define NEBCDICSW 3
- { "noebcdicsafe", 0 },
-#define HEADSW 4
+#define HEADSW 0
{ "headers", 0 },
-#define NHEADSW 5
+#define NHEADSW 1
{ "noheaders", 0 },
-#define LISTSW 6
+#define LISTSW 2
{ "list", 0 },
-#define NLISTSW 7
+#define NLISTSW 3
{ "nolist", 0 },
-#define SIZESW 8
- { "realsize", 0 },
-#define NSIZESW 9
- { "norealsize", 0 },
-#define RFC934SW 10
- { "rfc934mode", 0 },
-#define NRFC934SW 11
- { "norfc934mode", 0 },
-#define VERBSW 12
+#define VERBSW 4
{ "verbose", 0 },
-#define NVERBSW 13
+#define NVERBSW 5
{ "noverbose", 0 },
-#define RCACHESW 14
- { "rcache policy", 0 },
-#define WCACHESW 15
- { "wcache policy", 0 },
-#define CONTENTIDSW 16
+#define CONTENTIDSW 6
{ "contentid", 0 },
-#define NCONTENTIDSW 17
+#define NCONTENTIDSW 7
{ "nocontentid", 0 },
-#define VERSIONSW 18
+#define VERSIONSW 8
{ "version", 0 },
-#define HELPSW 19
+#define HELPSW 9
{ "help", 0 },
-#define DEBUGSW 20
+#define DEBUGSW 10
{ "debug", -5 },
{ NULL, 0 }
};
int make_intermediates(char *);
void content_error(char *, CT, char *, ...);
-/* mhcachesbr.c */
-int find_cache(CT, int, int *, char *, char *, int);
-
-/* ftpsbr.c */
-int ftp_get(char *, char *, char *, char *, char *, char *, int, int);
-
/* mhfree.c */
void free_content(CT);
void free_ctinfo(CT);
static int compose_content(CT);
static int scan_content(CT);
static int build_headers(CT);
-static char *calculate_digest(CT, int);
static CT build_mime(char *);
-
-/* mhcachesbr.c */
-extern int rcachesw;
-extern int wcachesw;
-extern char *cache_public;
-extern char *cache_private;
-
int debugsw = 0;
int verbosw = 0;
-int ebcdicsw = 0;
int listsw = 0;
-int rfc934sw = 0;
int contentidsw = 1;
/*
int output_message_fp(CT, FILE *, char*);
/* mhlistsbr.c */
-int list_all_messages(CT *, int, int, int, int);
+int list_all_messages(CT *, int, int, int);
/* mhmisc.c */
void set_endian(void);
int
main(int argc, char **argv)
{
- int sizesw = 1, headsw = 1;
- int *icachesw;
+ int headsw = 1;
char *cp, buf[BUFSIZ];
char buffer[BUFSIZ], *compfile = NULL;
char **argp, **arguments;
print_version(invo_name);
done(1);
- case RCACHESW:
- icachesw = &rcachesw;
- goto do_cache;
- case WCACHESW:
- icachesw = &wcachesw;
- do_cache: ;
- if (!(cp = *argp++) || *cp == '-')
- adios(NULL, "missing argument to %s",
- argp[-2]);
- switch (*icachesw = smatch(cp, caches)) {
- case AMBIGSW:
- ambigsw(cp, caches);
- done(1);
- case UNKWNSW:
- adios(NULL, "%s unknown", cp);
- default:
- break;
- }
- continue;
-
- case CHECKSW:
- checksw++;
- continue;
- case NCHECKSW:
- checksw = 0;
- continue;
-
- case EBCDICSW:
- ebcdicsw++;
- continue;
- case NEBCDICSW:
- ebcdicsw = 0;
- continue;
-
case HEADSW:
headsw++;
continue;
listsw = 0;
continue;
- case RFC934SW:
- rfc934sw++;
- continue;
- case NRFC934SW:
- rfc934sw = 0;
- continue;
-
- case SIZESW:
- sizesw++;
- continue;
- case NSIZESW:
- sizesw = 0;
- continue;
-
case CONTENTIDSW:
contentidsw = 1;
continue;
fclose(fp);
}
- /* Check for public cache location */
- if ((cache_public = context_find(nmhcache)) && *cache_public != '/')
- cache_public = NULL;
-
- /* Check for private cache location */
- if (!(cache_private = context_find(nmhprivcache)))
- cache_private = ".cache";
- cache_private = getcpy(toabsdir(cache_private));
-
/*
** Check for storage directory. If defined, we
** will store temporary files there. Else we
** List the message info
*/
if (listsw)
- list_all_messages(cts, headsw, sizesw, verbosw, debugsw);
+ list_all_messages(cts, headsw, verbosw, debugsw);
/* Rename composition draft */
snprintf(buffer, sizeof(buffer), "%s.orig", m_backup(compfile));
static int
user_content(FILE *in, char *file, char *buf, CT *ctp)
{
- int extrnal, vrsn;
+ int vrsn;
unsigned char *cp;
char **ap;
char buffer[BUFSIZ];
** must be some type of explicit directive.
*/
- /* check if directive is external-type */
- extrnal = (buf[1] == '@');
+ if (buf[1] == '@') {
+ adios(NULL, "The #@ directive i.e. message/external-body "
+ "is not supported anymore.");
+ }
/* parse directive */
- if (get_ctinfo(buf + (extrnal ? 2 : 1), ct, 1) == NOTOK)
+ if (get_ctinfo(buf+1, ct, 1) == NOTOK)
done(1);
/* check directive against the list of MIME types */
** Check if the directive specified a valid type.
** This will happen if it was one of the following forms:
**
- ** #type/subtype (or)
- ** #@type/subtype
+ ** #type/subtype
*/
if (s2i->si_key) {
if (!ci->ci_subtype)
/* NOTREACHED */
case CT_MESSAGE:
- if (!mh_strcasecmp(ci->ci_subtype, "partial"))
+ if (!mh_strcasecmp(ci->ci_subtype, "partial") ||
+ !mh_strcasecmp(ci->ci_subtype,
+ "external-body")) {
adios(NULL, "sorry, \"#%s/%s\" isn't supported", ci->ci_type, ci->ci_subtype);
- if (!mh_strcasecmp(ci->ci_subtype, "external-body"))
- adios(NULL, "use \"#@type/subtype ... [] ...\" instead of \"#%s/%s\"", ci->ci_type, ci->ci_subtype);
+ }
use_forw:
adios(NULL, "use \"#forw [+folder] [msgs]\" instead of \"#%s/%s\"", ci->ci_type, ci->ci_subtype);
/* NOTREACHED */
break;
}
- /*
- ** #@type/subtype (external types directive)
- */
- if (extrnal) {
- struct exbody *e;
- CT p;
-
- if (!ci->ci_magic)
- adios(NULL, "need external information for \"#@%s/%s\"", ci->ci_type, ci->ci_subtype);
- p = ct;
-
- snprintf(buffer, sizeof(buffer), "message/external-body; %s", ci->ci_magic);
- free(ci->ci_magic);
- ci->ci_magic = NULL;
-
- /*
- ** Since we are using the current Content structure to
- ** hold information about the type of the external
- ** reference, we need to create another Content
- ** structure for the message/external-body to wrap
- ** it in.
- */
- if ((ct = (CT) calloc(1, sizeof(*ct))) == NULL)
- adios(NULL, "out of memory");
- *ctp = ct;
- ci = &ct->c_ctinfo;
- if (get_ctinfo(buffer, ct, 0) == NOTOK)
- done(1);
- ct->c_type = CT_MESSAGE;
- ct->c_subtype = MESSAGE_EXTERNAL;
-
- if ((e = (struct exbody *)
- calloc(1, sizeof(*e))) == NULL)
- adios(NULL, "out of memory");
- ct->c_ctparams = (void *) e;
-
- e->eb_parent = ct;
- e->eb_content = p;
- p->c_ctexbody = e;
-
- if (params_external(ct, 1) == NOTOK)
- done(1);
-
- return OK;
- }
-
/* Handle [file] argument */
if (ci->ci_magic) {
/* check if specifies command to execute */
return OK;
}
- if (extrnal)
- adios(NULL, "external definition not allowed for \"#%s\"",
- ci->ci_type);
-
/*
** Message directive
** #forw [+folder] [msgs]
}
-static char ebcdicsafe[0x100] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x01, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x01,
- 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
- 0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
-};
-
-
/*
** Fill out, or expand the various contents in the composition
** draft. Read-in any necessary files. Parse and execute any
return NOTOK;
}
- /*
- ** If the -rfc934mode switch is given, then check all
- ** the subparts of a multipart/digest. If they are all
- ** message/rfc822, then mark this content and all
- ** subparts with the rfc934 compatibility mode flag.
- */
- if (rfc934sw && ct->c_subtype == MULTI_DIGEST) {
- int is934 = 1;
-
- for (part = m->mp_parts; part; part = part->mp_next) {
- CT p = part->mp_part;
-
- if (p->c_subtype != MESSAGE_RFC822) {
- is934 = 0;
- break;
- }
- }
- ct->c_rfc934 = is934;
- for (part = m->mp_parts; part; part = part->mp_next) {
- CT p = part->mp_part;
-
- if ((p->c_rfc934 = is934))
- p->c_end++;
- }
- }
-
if (listsw) {
ct->c_end = (partnum = strlen(prefix) + 2) + 2;
- if (ct->c_rfc934)
- ct->c_end += 1;
-
for (part = m->mp_parts; part; part = part->mp_next)
ct->c_end += part->mp_part->c_end + partnum;
}
int checklinelen = 0, linelen = 0; /* check for long lines */
int checkboundary = 0, boundaryclash = 0; /* check if clashes with multipart boundary */
int checklinespace = 0, linespace = 0; /* check if any line ends with space */
- int checkebcdic = 0, ebcdicunsafe = 0; /* check if contains ebcdic unsafe characters */
unsigned char *cp = NULL, buffer[BUFSIZ];
struct text *t = NULL;
FILE *in = NULL;
check8bit = 1;
checkboundary = 1;
if (ct->c_subtype == TEXT_PLAIN) {
- checkebcdic = 0;
checklinelen = 0;
checklinespace = 0;
} else {
- checkebcdic = ebcdicsw;
checklinelen = 1;
checklinespace = 1;
}
case CT_APPLICATION:
check8bit = 1;
- checkebcdic = ebcdicsw;
checklinelen = 1;
checklinespace = 1;
checkboundary = 1;
case CT_MESSAGE:
check8bit = 0;
- checkebcdic = 0;
checklinelen = 0;
checklinespace = 0;
-
- /* don't check anything for message/external */
- if (ct->c_subtype == MESSAGE_EXTERNAL)
- checkboundary = 0;
- else
- checkboundary = 1;
+ checkboundary = 1;
break;
case CT_AUDIO:
** since we are forcing use of base64.
*/
check8bit = 0;
- checkebcdic = 0;
checklinelen = 0;
checklinespace = 0;
checkboundary = 0;
/* no need to keep checking */
check8bit = 0;
}
- /*
- ** Check if character is ebcdic-safe.
- ** We only check this if also checking
- ** for 8bit data.
- */
- if (checkebcdic && !ebcdicsafe[*cp & 0xff]) {
- ebcdicunsafe = 1;
- /* no need to keep checking */
- checkebcdic = 0;
- }
}
}
*ep = cp;
}
- if (contains8bit || ebcdicunsafe || linelen || linespace ||
- checksw)
+ if (contains8bit || linelen || linespace)
ct->c_encoding = CE_QUOTED;
else
ct->c_encoding = CE_7BIT;
case CT_APPLICATION:
/* For application type, use base64, except when postscript */
- if (contains8bit || ebcdicunsafe || linelen || linespace ||
- checksw)
+ if (contains8bit || linelen || linespace)
ct->c_encoding = (ct->c_subtype ==
APPLICATION_POSTSCRIPT) ?
CE_QUOTED : CE_BASE64;
static int
build_headers(CT ct)
{
- int cc, mailbody, len;
+ int cc, len;
char **ap, **ep;
char *np, *vp, buffer[BUFSIZ];
CI ci = &ct->c_ctinfo;
}
/*
- ** Skip the output of Content-Type, parameters, content
- ** description and disposition, and Content-ID if the
- ** content is of type "message" and the rfc934 compatibility
- ** flag is set (which means we are inside multipart/digest
- ** and the switch -rfc934mode was given).
- */
- if (ct->c_type == CT_MESSAGE && ct->c_rfc934)
- goto skip_headers;
-
- /*
** output the content type and subtype
*/
np = getcpy(TYPE_FIELD);
len = strlen(TYPE_FIELD) + strlen(ci->ci_type) +
strlen(ci->ci_subtype) + 3;
- mailbody = ct->c_type == CT_MESSAGE &&
- ct->c_subtype == MESSAGE_EXTERNAL &&
- ((struct exbody *) ct->c_ctparams)->eb_body;
-
/*
** Append the attribute/value pairs to
** the end of the Content-Type line.
*/
for (ap = ci->ci_attrs, ep = ci->ci_values; *ap; ap++, ep++) {
- if (mailbody && !mh_strcasecmp(*ap, "body"))
- continue;
-
vp = add(";", vp);
len++;
add_header(ct, np, vp);
}
-skip_headers:
- /*
- ** If this is the internal content structure for a
- ** "message/external", then we are done with the
- ** headers (since it has no body).
- */
- if (ct->c_ctexbody)
- return OK;
-
- /*
- ** output the Content-MD5
- */
- if (checksw) {
- np = getcpy(MD5_FIELD);
- vp = calculate_digest(ct, (ct->c_encoding == CE_QUOTED) ?
- 1 : 0);
- add_header(ct, np, vp);
- }
-
/*
** output the Content-Transfer-Encoding
*/
}
break;
- case CT_MESSAGE:
- if (ct->c_subtype == MESSAGE_EXTERNAL) {
- struct exbody *e;
-
- e = (struct exbody *) ct->c_ctparams;
- build_headers(e->eb_content);
- }
- break;
-
default:
/* Nothing to do */
break;
return OK;
}
-
-
-static char nib2b64[0x40+1] =
- "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
-
-static char *
-calculate_digest(CT ct, int asciiP)
-{
- int cc;
- char buffer[BUFSIZ], *vp, *op;
- unsigned char *dp;
- unsigned char digest[16];
- unsigned char outbuf[25];
- FILE *in;
- MD5_CTX mdContext;
- CE ce = ct->c_cefile;
- char *infilename = ce->ce_file ? ce->ce_file : ct->c_file;
-
- /* open content */
- if ((in = fopen(infilename, "r")) == NULL)
- adios (infilename, "unable to open for reading");
-
- /* Initialize md5 context */
- MD5Init(&mdContext);
-
- /* calculate md5 message digest */
- if (asciiP) {
- while (fgets(buffer, sizeof(buffer) - 1, in)) {
- char c, *cp;
-
- cp = buffer + strlen(buffer) - 1;
- if ((c = *cp) == '\n')
- *cp = '\0';
-
- MD5Update(&mdContext, (unsigned char *) buffer,
- (unsigned int) strlen(buffer));
-
- if (c == '\n')
- MD5Update(&mdContext, (unsigned char *) "\r\n",
- 2);
- }
- } else {
- while ((cc = fread(buffer, sizeof(*buffer), sizeof(buffer),
- in)) > 0)
- MD5Update(&mdContext, (unsigned char *) buffer,
- (unsigned int) cc);
- }
-
- /* md5 finalization. Write digest and zero md5 context */
- MD5Final(digest, &mdContext);
-
- /* close content */
- fclose(in);
-
- /* print debugging info */
- if (debugsw) {
- unsigned char *ep;
-
- fprintf(stderr, "MD5 digest=");
- for (ep = (dp = digest) + sizeof(digest) / sizeof(digest[0]);
- dp < ep; dp++)
- fprintf(stderr, "%02x", *dp & 0xff);
- fprintf(stderr, "\n");
- }
-
- /* encode the digest using base64 */
- for (dp = digest, op = outbuf, cc = sizeof(digest) / sizeof(digest[0]);
- cc > 0; cc -= 3, op += 4) {
- unsigned long bits;
- char *bp;
-
- bits = (*dp++ & 0xff) << 16;
- if (cc > 1) {
- bits |= (*dp++ & 0xff) << 8;
- if (cc > 2)
- bits |= *dp++ & 0xff;
- }
-
- for (bp = op + 4; bp > op; bits >>= 6)
- *--bp = nib2b64[bits & 0x3f];
- if (cc < 3) {
- *(op + 3) = '=';
- if (cc < 2)
- *(op + 2) = '=';
- }
- }
-
- /* null terminate string */
- outbuf[24] = '\0';
-
- /* now make copy and return string */
- vp = concat(" ", outbuf, "\n", NULL);
- return vp;
-}