gecko-dev/lib/libmime/mimeebod.c
1998-03-28 02:44:41 +00:00

525 lines
13 KiB
C

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
*
* The contents of this file are subject to the Netscape Public License
* Version 1.0 (the "NPL"); you may not use this file except in
* compliance with the NPL. You may obtain a copy of the NPL at
* http://www.mozilla.org/NPL/
*
* Software distributed under the NPL is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
* for the specific language governing rights and limitations under the
* NPL.
*
* The Initial Developer of this code under the NPL is Netscape
* Communications Corporation. Portions created by Netscape are
* Copyright (C) 1998 Netscape Communications Corporation. All Rights
* Reserved.
*/
/* mimeext.c --- definition of the MimeExternalBody class (see mimei.h)
Created: Jamie Zawinski <jwz@netscape.com>, 15-May-96.
*/
#include "mimeebod.h"
#include "xpgetstr.h"
#define MIME_SUPERCLASS mimeObjectClass
MimeDefClass(MimeExternalBody, MimeExternalBodyClass,
mimeExternalBodyClass, &MIME_SUPERCLASS);
extern int MK_MSG_LINK_TO_DOCUMENT;
extern int MK_MSG_DOCUMENT_INFO;
#if defined(XP_MAC) && !defined(MOZILLA_30)
extern MimeObjectClass mimeMultipartAppleDoubleClass;
#endif
static int MimeExternalBody_initialize (MimeObject *);
static void MimeExternalBody_finalize (MimeObject *);
static int MimeExternalBody_parse_line (char *, int32, MimeObject *);
static int MimeExternalBody_parse_eof (MimeObject *, XP_Bool);
static XP_Bool MimeExternalBody_displayable_inline_p (MimeObjectClass *class,
MimeHeaders *hdrs);
#if 0
#if defined(DEBUG) && defined(XP_UNIX)
static int MimeExternalBody_debug_print (MimeObject *, FILE *, int32);
#endif
#endif /* 0 */
static int
MimeExternalBodyClassInitialize(MimeExternalBodyClass *class)
{
MimeObjectClass *oclass = (MimeObjectClass *) class;
XP_ASSERT(!oclass->class_initialized);
oclass->initialize = MimeExternalBody_initialize;
oclass->finalize = MimeExternalBody_finalize;
oclass->parse_line = MimeExternalBody_parse_line;
oclass->parse_eof = MimeExternalBody_parse_eof;
oclass->displayable_inline_p = MimeExternalBody_displayable_inline_p;
#if 0
#if defined(DEBUG) && defined(XP_UNIX)
oclass->debug_print = MimeExternalBody_debug_print;
#endif
#endif /* 0 */
return 0;
}
static int
MimeExternalBody_initialize (MimeObject *object)
{
return ((MimeObjectClass*)&MIME_SUPERCLASS)->initialize(object);
}
static void
MimeExternalBody_finalize (MimeObject *object)
{
MimeExternalBody *bod = (MimeExternalBody *) object;
if (bod->hdrs)
{
MimeHeaders_free(bod->hdrs);
bod->hdrs = 0;
}
FREEIF(bod->body);
((MimeObjectClass*)&MIME_SUPERCLASS)->finalize(object);
}
static int
MimeExternalBody_parse_line (char *line, int32 length, MimeObject *obj)
{
MimeExternalBody *bod = (MimeExternalBody *) obj;
int status = 0;
XP_ASSERT(line && *line);
if (!line || !*line) return -1;
if (!obj->output_p) return 0;
/* If we're supposed to write this object, but aren't supposed to convert
it to HTML, simply pass it through unaltered. */
if (obj->options &&
!obj->options->write_html_p &&
obj->options->output_fn)
return MimeObject_write(obj, line, length, TRUE);
/* If we already have a `body' then we're done parsing headers, and all
subsequent lines get tacked onto the body. */
if (bod->body)
{
int L = XP_STRLEN(bod->body);
char *new_str = XP_REALLOC(bod->body, L + length + 1);
if (!new_str) return MK_OUT_OF_MEMORY;
bod->body = new_str;
XP_MEMCPY(bod->body + L, line, length);
bod->body[L + length] = 0;
return 0;
}
/* Otherwise we don't yet have a body, which means we're not done parsing
our headers.
*/
if (!bod->hdrs)
{
bod->hdrs = MimeHeaders_new();
if (!bod->hdrs) return MK_OUT_OF_MEMORY;
}
status = MimeHeaders_parse_line(line, length, bod->hdrs);
if (status < 0) return status;
/* If this line is blank, we're now done parsing headers, and should
create a dummy body to show that. Gag.
*/
if (*line == CR || *line == LF)
{
bod->body = XP_STRDUP("");
if (!bod->body) return MK_OUT_OF_MEMORY;
}
return 0;
}
char *
MimeExternalBody_make_url(const char *ct,
const char *at, const char *exp, const char *size,
const char *perm, const char *dir, const char *mode,
const char *name, const char *url, const char *site,
const char *svr, const char *subj, const char *body)
{
char *s;
if (!strcasecomp(at, "ftp") || !strcasecomp(at, "anon-ftp"))
{
if (!site || !name)
return 0;
s = (char *) XP_ALLOC(XP_STRLEN(name) + XP_STRLEN(site) +
(dir ? XP_STRLEN(dir) : 0) + 20);
if (!s) return 0;
XP_STRCPY(s, "ftp://");
XP_STRCAT(s, site);
XP_STRCAT(s, "/");
if (dir) XP_STRCAT(s, (dir[0] == '/' ? dir+1 : dir));
if (s[XP_STRLEN(s)-1] != '/')
XP_STRCAT(s, "/");
XP_STRCAT(s, name);
return s;
}
else if (!strcasecomp(at, "local-file") || !strcasecomp(at, "afs"))
{
char *s2;
if (!name)
return 0;
#ifdef XP_UNIX
if (!strcasecomp(at, "afs")) /* only if there is a /afs/ directory */
{
XP_StatStruct st;
if (stat("/afs/.", &st))
return 0;
}
#else /* !XP_UNIX */
return 0; /* never, if not Unix. */
#endif /* !XP_UNIX */
s = (char *) XP_ALLOC(XP_STRLEN(name)*3 + 20);
if (!s) return 0;
XP_STRCPY(s, "file:");
s2 = NET_Escape(name, URL_PATH);
if (s2) XP_STRCAT(s, s2);
FREEIF(s2);
return s;
}
else if (!strcasecomp(at, "mail-server"))
{
char *s2;
if (!svr)
return 0;
s = (char *) XP_ALLOC(XP_STRLEN(svr)*4 +
(subj ? XP_STRLEN(subj)*4 : 0) +
(body ? XP_STRLEN(body)*4 : 0) + 20);
if (!s) return 0;
XP_STRCPY(s, "mailto:");
s2 = NET_Escape(svr, URL_XALPHAS);
if (s2) XP_STRCAT(s, s2);
FREEIF(s2);
if (subj)
{
s2 = NET_Escape(subj, URL_XALPHAS);
XP_STRCAT(s, "?subject=");
if (s2) XP_STRCAT(s, s2);
FREEIF(s2);
}
if (body)
{
s2 = NET_Escape(body, URL_XALPHAS);
XP_STRCAT(s, (subj ? "&body=" : "?body="));
if (s2) XP_STRCAT(s, s2);
FREEIF(s2);
}
return s;
}
else if (!strcasecomp(at, "url")) /* RFC 2017 */
{
if (url)
return XP_STRDUP(url); /* it's already quoted and everything */
else
return 0;
}
else
return 0;
}
#ifdef XP_MAC
#ifdef DEBUG
#pragma global_optimizer on
#pragma optimization_level 1
#endif /* DEBUG */
#endif /* XP_MAC */
static int
MimeExternalBody_parse_eof (MimeObject *obj, XP_Bool abort_p)
{
int status = 0;
MimeExternalBody *bod = (MimeExternalBody *) obj;
if (obj->closed_p) return 0;
/* Run parent method first, to flush out any buffered data. */
status = ((MimeObjectClass*)&MIME_SUPERCLASS)->parse_eof(obj, abort_p);
if (status < 0) return status;
#if defined(XP_MAC) && !defined(MOZILLA_30)
if (obj->parent && mime_typep(obj->parent,
(MimeObjectClass*) &mimeMultipartAppleDoubleClass))
goto done;
#endif /* defined (XP_MAC) && !defined(MOZILLA_30) */
if (!abort_p &&
obj->output_p &&
obj->options &&
obj->options->write_html_p)
{
XP_Bool all_headers_p = obj->options->headers == MimeHeadersAll;
MimeDisplayOptions newopt = *obj->options; /* copy it */
char *ct = MimeHeaders_get(obj->headers, HEADER_CONTENT_TYPE,
FALSE, FALSE);
char *at, *exp, *size, *perm;
char *url, *dir, *mode, *name, *site, *svr, *subj;
char *h = 0, *lname = 0, *lurl = 0, *body = 0;
MimeHeaders *hdrs = 0;
if (!ct) return MK_OUT_OF_MEMORY;
at = MimeHeaders_get_parameter(ct, "access-type");
exp = MimeHeaders_get_parameter(ct, "expiration");
size = MimeHeaders_get_parameter(ct, "size");
perm = MimeHeaders_get_parameter(ct, "permission");
dir = MimeHeaders_get_parameter(ct, "directory");
mode = MimeHeaders_get_parameter(ct, "mode");
name = MimeHeaders_get_parameter(ct, "name");
site = MimeHeaders_get_parameter(ct, "site");
svr = MimeHeaders_get_parameter(ct, "server");
subj = MimeHeaders_get_parameter(ct, "subject");
url = MimeHeaders_get_parameter(ct, "url");
FREEIF(ct);
/* the *internal* content-type */
ct = MimeHeaders_get(bod->hdrs, HEADER_CONTENT_TYPE,
TRUE, FALSE);
h = (char *) XP_ALLOC((at ? XP_STRLEN(at) : 0) +
(exp ? XP_STRLEN(exp) : 0) +
(size ? XP_STRLEN(size) : 0) +
(perm ? XP_STRLEN(perm) : 0) +
(dir ? XP_STRLEN(dir) : 0) +
(mode ? XP_STRLEN(mode) : 0) +
(name ? XP_STRLEN(name) : 0) +
(site ? XP_STRLEN(site) : 0) +
(svr ? XP_STRLEN(svr) : 0) +
(subj ? XP_STRLEN(subj) : 0) +
(url ? XP_STRLEN(url) : 0) + 100);
if (!h)
{
status = MK_OUT_OF_MEMORY;
goto FAIL;
}
/* If there's a URL parameter, remove all whitespace from it.
(The URL parameter to one of these headers is stored with
lines broken every 40 characters or less; it's assumed that
all significant whitespace was URL-hex-encoded, and all the
rest of it was inserted just to keep the lines short.)
*/
if (url)
{
char *in, *out;
for (in = url, out = url; *in; in++)
if (!XP_IS_SPACE(*in))
*out++ = *in;
*out = 0;
}
hdrs = MimeHeaders_new();
if (!hdrs)
{
status = MK_OUT_OF_MEMORY;
goto FAIL;
}
# define FROB(STR,VAR) \
if (VAR) \
{ \
XP_STRCPY(h, STR ": "); \
XP_STRCAT(h, VAR); \
XP_STRCAT(h, LINEBREAK); \
status = MimeHeaders_parse_line(h, XP_STRLEN(h), hdrs); \
if (status < 0) goto FAIL; \
}
FROB("Access-Type", at);
FROB("URL", url);
FROB("Site", site);
FROB("Server", svr);
FROB("Directory", dir);
FROB("Name", name);
FROB("Type", ct);
FROB("Size", size);
FROB("Mode", mode);
FROB("Permission", perm);
FROB("Expiration", exp);
FROB("Subject", subj);
# undef FROB
XP_STRCPY(h, LINEBREAK);
status = MimeHeaders_parse_line(h, XP_STRLEN(h), hdrs);
if (status < 0) goto FAIL;
lurl = MimeExternalBody_make_url(ct, at, exp, size, perm, dir, mode,
name, url, site, svr, subj, bod->body);
if (lurl)
{
lname = XP_STRDUP(XP_GetString(MK_MSG_LINK_TO_DOCUMENT));
}
else
{
lname = XP_STRDUP(XP_GetString(MK_MSG_DOCUMENT_INFO));
all_headers_p = TRUE;
}
all_headers_p = TRUE; /* #### just do this all the time? */
if (bod->body && all_headers_p)
{
char *s = bod->body;
while (XP_IS_SPACE(*s)) s++;
if (*s)
{
char *s2;
const char *pre = "<P><PRE>";
const char *suf = "</PRE>";
int32 i;
for(i = XP_STRLEN(s)-1; i >= 0 && XP_IS_SPACE(s[i]); i--)
s[i] = 0;
s2 = NET_EscapeHTML(s);
if (!s2) goto FAIL;
body = (char *) XP_ALLOC(XP_STRLEN(pre) + XP_STRLEN(s2) +
XP_STRLEN(suf) + 1);
if (!body)
{
XP_FREE(s2);
goto FAIL;
}
XP_STRCPY(body, pre);
XP_STRCAT(body, s2);
XP_STRCAT(body, suf);
}
}
newopt.fancy_headers_p = TRUE;
newopt.headers = (all_headers_p ? MimeHeadersAll : MimeHeadersSome);
{
char p[] = "<P>";
status = MimeObject_write(obj, p, 3, FALSE);
if (status < 0) goto FAIL;
}
status = MimeHeaders_write_attachment_box (hdrs, &newopt, ct, 0,
lname, lurl, body);
if (status < 0) goto FAIL;
{
char p[] = "<P>";
status = MimeObject_write(obj, p, 3, FALSE);
if (status < 0) goto FAIL;
}
FAIL:
if (hdrs)
MimeHeaders_free(hdrs);
FREEIF(h);
FREEIF(lname);
FREEIF(lurl);
FREEIF(body);
FREEIF(ct);
FREEIF(at);
FREEIF(exp);
FREEIF(size);
FREEIF(perm);
FREEIF(dir);
FREEIF(mode);
FREEIF(name);
FREEIF(url);
FREEIF(site);
FREEIF(svr);
FREEIF(subj);
}
#if defined(XP_MAC) && !defined(MOZILLA_30)
done:
#endif /* defined (XP_MAC) && !defined(MOZILLA_30) */
return status;
}
#ifdef XP_MAC
#ifdef DEBUG
#pragma global_optimizer reset
#endif /* DEBUG */
#endif /* XP_MAC */
#if 0
#if defined(DEBUG) && defined(XP_UNIX)
static int
MimeExternalBody_debug_print (MimeObject *obj, FILE *stream, int32 depth)
{
MimeExternalBody *bod = (MimeExternalBody *) obj;
int i;
char *ct, *ct2;
char *addr = mime_part_address(obj);
if (obj->headers)
ct = MimeHeaders_get (obj->headers, HEADER_CONTENT_TYPE, FALSE, FALSE);
if (bod->hdrs)
ct2 = MimeHeaders_get (bod->hdrs, HEADER_CONTENT_TYPE, FALSE, FALSE);
for (i=0; i < depth; i++)
fprintf(stream, " ");
fprintf(stream,
"<%s %s\n"
"\tcontent-type: %s\n"
"\tcontent-type: %s\n"
"\tBody:%s\n\t0x%08X>\n\n",
obj->class->class_name,
addr ? addr : "???",
ct ? ct : "<none>",
ct2 ? ct2 : "<none>",
bod->body ? bod->body : "<none>",
(uint32) obj);
FREEIF(addr);
FREEIF(ct);
FREEIF(ct2);
return 0;
}
#endif
#endif /* 0 */
static XP_Bool
MimeExternalBody_displayable_inline_p (MimeObjectClass *class,
MimeHeaders *hdrs)
{
char *ct = MimeHeaders_get (hdrs, HEADER_CONTENT_TYPE, FALSE, FALSE);
char *at = MimeHeaders_get_parameter(ct, "access-type");
XP_Bool inline_p = FALSE;
if (!at)
;
else if (!strcasecomp(at, "ftp") ||
!strcasecomp(at, "anon-ftp") ||
!strcasecomp(at, "local-file") ||
!strcasecomp(at, "mail-server") ||
!strcasecomp(at, "url"))
inline_p = TRUE;
#ifdef XP_UNIX
else if (!strcasecomp(at, "afs")) /* only if there is a /afs/ directory */
{
XP_StatStruct st;
if (!stat("/afs/.", &st))
inline_p = TRUE;
}
#endif /* XP_UNIX */
FREEIF(ct);
FREEIF(at);
return inline_p;
}