зеркало из https://github.com/mozilla/pjs.git
1115 строки
27 KiB
C
1115 строки
27 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.
|
||
*/
|
||
|
||
/* mimestub.c --- junk to let libmime.a be tested standalone.
|
||
Created: Jamie Zawinski <jwz@netscape.com>, 15-May-96.
|
||
*/
|
||
|
||
/*
|
||
mimestub.c --- junk to let libmime.a be tested standalone.
|
||
|
||
The junk in this file is various bits and pieces that have been
|
||
cut-and-pasted from other places in Mozilla, mainly netlib. We just
|
||
copied these functions to avoid pulling in the spaghetti that is netlib,
|
||
and libxp, and libmsg, and and and...
|
||
|
||
In addition to this file, we link directly against lib/xp/xp_file.o,
|
||
lib/xp/xp_str.o, and lib/libmsg/addr.o, because those files *actually
|
||
stand on their own*!
|
||
|
||
Life kinda sucks, but oh well.
|
||
*/
|
||
|
||
#include "xp.h"
|
||
#include "rosetta.h"
|
||
|
||
|
||
#ifndef XP_UNIX
|
||
ERROR! this is a unix-only file for the "mimefilt" standalone program.
|
||
This does not go into libmime.a.
|
||
#endif
|
||
|
||
|
||
#include <netdb.h>
|
||
|
||
#define CONST const
|
||
|
||
extern int MK_MSG_MIME_MAC_FILE;
|
||
extern int MK_MSG_NO_HEADERS;
|
||
extern int MK_OUT_OF_MEMORY;
|
||
extern int MK_UNABLE_TO_OPEN_TMP_FILE;
|
||
|
||
/* recommended by comment in lib/xp/xp_intl.c... */
|
||
char *
|
||
XP_GetString(int16 i)
|
||
{
|
||
extern char * XP_GetBuiltinString(int16 i);
|
||
|
||
return XP_GetBuiltinString(i);
|
||
}
|
||
|
||
int16 INTL_CharSetNameToID(char *charset) { return 0; }
|
||
char *XP_GetStringForHTML (int i, int16 wincsid, char* english)
|
||
{
|
||
return english;
|
||
}
|
||
|
||
char *INTL_DecodeMimePartIIStr(const char *header, int16 wincsid,
|
||
XP_Bool dontConvert)
|
||
{
|
||
return strdup(header);
|
||
}
|
||
|
||
int16 INTL_DefaultDocCharSetID(MWContext * context)
|
||
{
|
||
return 0;
|
||
}
|
||
|
||
int PREF_GetCharPref(const char *pref, char * return_buf, int * buf_length)
|
||
{
|
||
return 0;
|
||
}
|
||
/*
|
||
INTL_DefaultDocCharSetID -- (mimetext.o).
|
||
PREF_GetCharPref -- ../../dist/lib/libxp.a(xp_file.o).
|
||
|
||
MSG_ExtractRFC822AddressMailboxes -- (mimehdrs.o).
|
||
MSG_ExtractRFC822AddressNames -- (mimehdrs.o).
|
||
*/
|
||
|
||
|
||
|
||
/* from nspr somewhere...
|
||
*/
|
||
struct hostent *
|
||
PR_gethostbyname(const char *name)
|
||
{
|
||
return gethostbyname(name);
|
||
}
|
||
|
||
|
||
|
||
/* from libnet/mkutils.c */
|
||
PUBLIC char *
|
||
NET_EscapeHTML(const char * string)
|
||
{
|
||
char *rv = (char *) XP_ALLOC(XP_STRLEN(string)*4 + 1); /* The +1 is for
|
||
the trailing
|
||
null! */
|
||
char *ptr = rv;
|
||
|
||
if(rv)
|
||
{
|
||
for(; *string != '\0'; string++)
|
||
{
|
||
if(*string == '<')
|
||
{
|
||
*ptr++ = '&';
|
||
*ptr++ = 'l';
|
||
*ptr++ = 't';
|
||
*ptr++ = ';';
|
||
}
|
||
else if(*string == '>')
|
||
{
|
||
*ptr++ = '&';
|
||
*ptr++ = 'g';
|
||
*ptr++ = 't';
|
||
*ptr++ = ';';
|
||
}
|
||
else if(*string == '&')
|
||
{
|
||
*ptr++ = '&';
|
||
*ptr++ = 'a';
|
||
*ptr++ = 'm';
|
||
*ptr++ = 'p';
|
||
*ptr++ = ';';
|
||
}
|
||
else
|
||
{
|
||
*ptr++ = *string;
|
||
}
|
||
}
|
||
*ptr = '\0';
|
||
}
|
||
|
||
return(rv);
|
||
}
|
||
|
||
|
||
/* from libnet/mkutils.c */
|
||
# define MSG_FONT int
|
||
# define MSG_PlainFont 0
|
||
# define MSG_BoldFont 1
|
||
# define MSG_ItalicFont 2
|
||
# define MSG_BoldItalicFont 3
|
||
# define MSG_CITATION_SIZE int
|
||
# define MSG_NormalSize 4
|
||
# define MSG_Bigger 5
|
||
# define MSG_Smaller 6
|
||
static int MSG_CitationFont = MSG_ItalicFont;
|
||
static int MSG_CitationSize = MSG_NormalSize;
|
||
static const char *MSG_CitationColor = 0;
|
||
|
||
#ifndef MOZILLA_30
|
||
# define MSG_Prefs void
|
||
# define MSG_GetCitationStyle(w,x,y,z) do{}while(0)
|
||
# define MSG_GetPrefs(x) 0
|
||
#endif
|
||
|
||
/* from libnet/mkutils.c */
|
||
PUBLIC int
|
||
NET_ScanForURLs(
|
||
/*#ifndef MOZILLA_30*/
|
||
MSG_Pane* pane,
|
||
/*#endif / * !MOZILLA_30 */
|
||
const char *input, int32 input_size,
|
||
char *output, int output_size, XP_Bool urls_only)
|
||
{
|
||
int col = 0;
|
||
const char *cp;
|
||
const char *end = input + input_size;
|
||
char *output_ptr = output;
|
||
char *end_of_buffer = output + output_size - 40; /* add safty zone :( */
|
||
Bool line_is_citation = FALSE;
|
||
const char *cite_open1, *cite_close1;
|
||
const char *cite_open2, *cite_close2;
|
||
#ifndef MOZILLA_30
|
||
const char* color = NULL;
|
||
#else /* MOZILLA_30 */
|
||
const char* color = MSG_CitationColor;
|
||
#endif /* MOZILLA_30 */
|
||
|
||
if (urls_only)
|
||
{
|
||
cite_open1 = cite_close1 = "";
|
||
cite_open2 = cite_close2 = "";
|
||
}
|
||
else
|
||
{
|
||
#ifdef MOZILLA_CLIENT
|
||
# ifdef MOZILLA_30
|
||
MSG_FONT font = MSG_CitationFont;
|
||
MSG_CITATION_SIZE size = MSG_CitationSize;
|
||
# else /* !MOZILLA_30 */
|
||
MSG_Prefs* prefs;
|
||
MSG_FONT font = MSG_ItalicFont;
|
||
MSG_CITATION_SIZE size = MSG_NormalSize;
|
||
|
||
if (pane) {
|
||
prefs = MSG_GetPrefs(pane);
|
||
MSG_GetCitationStyle(prefs, &font, &size, &color);
|
||
}
|
||
#endif /* !MOZILLA_30 */
|
||
switch (font)
|
||
{
|
||
case MSG_PlainFont:
|
||
cite_open1 = "", cite_close1 = "";
|
||
break;
|
||
case MSG_BoldFont:
|
||
cite_open1 = "<B>", cite_close1 = "</B>";
|
||
break;
|
||
case MSG_ItalicFont:
|
||
cite_open1 = "<I>", cite_close1 = "</I>";
|
||
break;
|
||
case MSG_BoldItalicFont:
|
||
cite_open1 = "<B><I>", cite_close1 = "</I></B>";
|
||
break;
|
||
default:
|
||
XP_ASSERT(0);
|
||
cite_open1 = cite_close1 = "";
|
||
break;
|
||
}
|
||
switch (size)
|
||
{
|
||
case MSG_NormalSize:
|
||
cite_open2 = "", cite_close2 = "";
|
||
break;
|
||
case MSG_Bigger:
|
||
cite_open2 = "<FONT SIZE=\"+1\">", cite_close2 = "</FONT>";
|
||
break;
|
||
case MSG_Smaller:
|
||
cite_open2 = "<FONT SIZE=\"-1\">", cite_close2 = "</FONT>";
|
||
break;
|
||
default:
|
||
XP_ASSERT(0);
|
||
cite_open2 = cite_close2 = "";
|
||
break;
|
||
}
|
||
#else /* !MOZILLA_CLIENT */
|
||
XP_ASSERT(0);
|
||
#endif /* !MOZILLA_CLIENT */
|
||
}
|
||
|
||
if (!urls_only)
|
||
{
|
||
/* Decide whether this line is a quotation, and should be italicized.
|
||
This implements the following case-sensitive regular expression:
|
||
|
||
^[ \t]*[A-Z]*[]>]
|
||
|
||
Which matches these lines:
|
||
|
||
> blah blah blah
|
||
> blah blah blah
|
||
LOSER> blah blah blah
|
||
LOSER] blah blah blah
|
||
*/
|
||
const char *s = input;
|
||
while (s < end && XP_IS_SPACE (*s)) s++;
|
||
while (s < end && *s >= 'A' && *s <= 'Z') s++;
|
||
|
||
if (s >= end)
|
||
;
|
||
else if (input_size >= 6 && *s == '>' &&
|
||
!XP_STRNCMP (input, ">From ", 6)) /* #$%^ing sendmail... */
|
||
;
|
||
else if (*s == '>' || *s == ']')
|
||
{
|
||
line_is_citation = TRUE;
|
||
XP_STRCPY(output_ptr, cite_open1);
|
||
output_ptr += XP_STRLEN(cite_open1);
|
||
XP_STRCPY(output_ptr, cite_open2);
|
||
output_ptr += XP_STRLEN(cite_open2);
|
||
if (color &&
|
||
output_ptr + XP_STRLEN(color) + 20 < end_of_buffer) {
|
||
XP_STRCPY(output_ptr, "<FONT COLOR=");
|
||
output_ptr += XP_STRLEN(output_ptr);
|
||
XP_STRCPY(output_ptr, color);
|
||
output_ptr += XP_STRLEN(output_ptr);
|
||
XP_STRCPY(output_ptr, ">");
|
||
output_ptr += XP_STRLEN(output_ptr);
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Normal lines are scanned for buried references to URL's
|
||
Unfortunately, it may screw up once in a while (nobody's perfect)
|
||
*/
|
||
for(cp = input; cp < end && output_ptr < end_of_buffer; cp++)
|
||
{
|
||
/* if NET_URL_Type returns true then it is most likely a URL
|
||
But only match protocol names if at the very beginning of
|
||
the string, or if the preceeding character was not alphanumeric;
|
||
this lets us match inside "---HTTP://XXX" but not inside of
|
||
things like "NotHTTP://xxx"
|
||
*/
|
||
int type = 0;
|
||
if(!XP_IS_SPACE(*cp) &&
|
||
(cp == input || (!XP_IS_ALPHA(cp[-1]) && !XP_IS_DIGIT(cp[-1]))) &&
|
||
(type = NET_URL_Type(cp)) != 0)
|
||
{
|
||
const char *cp2;
|
||
#if 0
|
||
Bool commas_ok = (type == MAILTO_TYPE_URL);
|
||
#endif
|
||
|
||
for(cp2=cp; cp2 < end; cp2++)
|
||
{
|
||
/* These characters always mark the end of the URL. */
|
||
if (XP_IS_SPACE(*cp2) ||
|
||
*cp2 == '<' || *cp2 == '>' ||
|
||
*cp2 == '`' || *cp2 == ')' ||
|
||
*cp2 == '\'' || *cp2 == '"' ||
|
||
*cp2 == ']' || *cp2 == '}'
|
||
#if 0
|
||
|| *cp2 == '!'
|
||
#endif
|
||
)
|
||
break;
|
||
|
||
#if 0
|
||
/* But a "," marks the end of the URL only if there was no "?"
|
||
earlier in the URL (this is so we can do imagemaps, like
|
||
"foo.html?300,400".)
|
||
*/
|
||
else if (*cp2 == '?')
|
||
commas_ok = TRUE;
|
||
else if (*cp2 == ',' && !commas_ok)
|
||
break;
|
||
#endif
|
||
}
|
||
|
||
/* Check for certain punctuation characters on the end, and strip
|
||
them off. */
|
||
while (cp2 > cp &&
|
||
(cp2[-1] == '.' || cp2[-1] == ',' || cp2[-1] == '!' ||
|
||
cp2[-1] == ';' || cp2[-1] == '-' || cp2[-1] == '?' ||
|
||
cp2[-1] == '#'))
|
||
cp2--;
|
||
|
||
col += (cp2 - cp);
|
||
|
||
/* if the url is less than 7 characters then we screwed up
|
||
* and got a "news:" url or something which is worthless
|
||
* to us. Exclude the A tag in this case.
|
||
*
|
||
* Also exclude any URL that ends in a colon; those tend
|
||
* to be internal and magic and uninteresting.
|
||
*
|
||
* And also exclude the builtin icons, whose URLs look
|
||
* like "internal-gopher-binary".
|
||
*/
|
||
if (cp2-cp < 7 ||
|
||
(cp2 > cp && cp2[-1] == ':') ||
|
||
!XP_STRNCMP(cp, "internal-", 9))
|
||
{
|
||
XP_MEMCPY(output_ptr, cp, cp2-cp);
|
||
output_ptr += (cp2-cp);
|
||
*output_ptr = 0;
|
||
}
|
||
else
|
||
{
|
||
char *quoted_url;
|
||
int32 size_left = output_size - (output_ptr-output);
|
||
|
||
if(cp2-cp > size_left)
|
||
return MK_OUT_OF_MEMORY;
|
||
|
||
XP_MEMCPY(output_ptr, cp, cp2-cp);
|
||
output_ptr[cp2-cp] = 0;
|
||
quoted_url = NET_EscapeHTML(output_ptr);
|
||
if (!quoted_url) return MK_OUT_OF_MEMORY;
|
||
PR_snprintf(output_ptr, size_left,
|
||
"<A HREF=\"%s\">%s</A>",
|
||
quoted_url,
|
||
quoted_url);
|
||
output_ptr += XP_STRLEN(output_ptr);
|
||
XP_FREE(quoted_url);
|
||
output_ptr += XP_STRLEN(output_ptr);
|
||
}
|
||
|
||
cp = cp2-1; /* go to next word */
|
||
}
|
||
else
|
||
{
|
||
/* Make sure that special symbols don't screw up the HTML parser
|
||
*/
|
||
if(*cp == '<')
|
||
{
|
||
XP_STRCPY(output_ptr, "<");
|
||
output_ptr += 4;
|
||
col++;
|
||
}
|
||
else if(*cp == '>')
|
||
{
|
||
XP_STRCPY(output_ptr, ">");
|
||
output_ptr += 4;
|
||
col++;
|
||
}
|
||
else if(*cp == '&')
|
||
{
|
||
XP_STRCPY(output_ptr, "&");
|
||
output_ptr += 5;
|
||
col++;
|
||
}
|
||
else
|
||
{
|
||
*output_ptr++ = *cp;
|
||
col++;
|
||
}
|
||
}
|
||
}
|
||
|
||
*output_ptr = 0;
|
||
|
||
if (line_is_citation) /* Close off the highlighting */
|
||
{
|
||
if (color) {
|
||
XP_STRCPY(output_ptr, "</FONT>");
|
||
output_ptr += XP_STRLEN(output_ptr);
|
||
}
|
||
|
||
XP_STRCPY(output_ptr, cite_close2);
|
||
output_ptr += XP_STRLEN (cite_close2);
|
||
XP_STRCPY(output_ptr, cite_close1);
|
||
output_ptr += XP_STRLEN (cite_close1);
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* from libnet/mkutils.c */
|
||
PUBLIC int
|
||
NET_URL_Type (CONST char *URL)
|
||
{
|
||
/* Protect from SEGV */
|
||
if (!URL || (URL && *URL == '\0'))
|
||
return(0);
|
||
|
||
switch(*URL) {
|
||
case 'a':
|
||
case 'A':
|
||
HG82921
|
||
if(!strncasecomp(URL,"about:",6))
|
||
return(ABOUT_TYPE_URL);
|
||
break;
|
||
case 'f':
|
||
case 'F':
|
||
if(!strncasecomp(URL,"ftp:",4))
|
||
return(FTP_TYPE_URL);
|
||
else if(!strncasecomp(URL,"file:",5))
|
||
return(FILE_TYPE_URL);
|
||
break;
|
||
case 'g':
|
||
case 'G':
|
||
if(!strncasecomp(URL,"gopher:",7))
|
||
return(GOPHER_TYPE_URL);
|
||
break;
|
||
case 'h':
|
||
case 'H':
|
||
if(!strncasecomp(URL,"http:",5))
|
||
return(HTTP_TYPE_URL);
|
||
else if(!strncasecomp(URL,"https:",6))
|
||
return(SECURE_HTTP_TYPE_URL);
|
||
break;
|
||
case 'i':
|
||
case 'I':
|
||
if(!strncasecomp(URL,"internal-gopher-",16))
|
||
return(INTERNAL_IMAGE_TYPE_URL);
|
||
else if(!strncasecomp(URL,"internal-news-",14))
|
||
return(INTERNAL_IMAGE_TYPE_URL);
|
||
else if(!strncasecomp(URL,"internal-edit-",14))
|
||
return(INTERNAL_IMAGE_TYPE_URL);
|
||
else if(!strncasecomp(URL,"internal-attachment-",20))
|
||
return(INTERNAL_IMAGE_TYPE_URL);
|
||
else if(!strncasecomp(URL,"internal-dialog-handler",23))
|
||
return(HTML_DIALOG_HANDLER_TYPE_URL);
|
||
else if(!strncasecomp(URL,"internal-panel-handler",22))
|
||
return(HTML_PANEL_HANDLER_TYPE_URL);
|
||
HG87988
|
||
break;
|
||
case 'j':
|
||
case 'J':
|
||
if(!strncasecomp(URL, "javascript:",11))
|
||
return(MOCHA_TYPE_URL);
|
||
break;
|
||
case 'l':
|
||
case 'L':
|
||
if(!strncasecomp(URL, "livescript:",11))
|
||
return(MOCHA_TYPE_URL);
|
||
break;
|
||
case 'm':
|
||
case 'M':
|
||
if(!strncasecomp(URL,"mailto:",7))
|
||
return(MAILTO_TYPE_URL);
|
||
else if(!strncasecomp(URL,"mailbox:",8))
|
||
return(MAILBOX_TYPE_URL);
|
||
else if(!strncasecomp(URL, "mocha:",6))
|
||
return(MOCHA_TYPE_URL);
|
||
break;
|
||
case 'n':
|
||
case 'N':
|
||
if(!strncasecomp(URL,"news:",5))
|
||
return(NEWS_TYPE_URL);
|
||
#ifdef NFS_TYPE_URL
|
||
else if(!strncasecomp(URL,"nfs:",4))
|
||
return(NFS_TYPE_URL);
|
||
#endif /* NFS_TYPE_URL */
|
||
break;
|
||
case 'p':
|
||
case 'P':
|
||
if(!strncasecomp(URL,"pop3:",5))
|
||
return(POP3_TYPE_URL);
|
||
break;
|
||
case 'r':
|
||
case 'R':
|
||
if(!strncasecomp(URL,"rlogin:",7))
|
||
return(RLOGIN_TYPE_URL);
|
||
break;
|
||
case 's':
|
||
case 'S':
|
||
if(!strncasecomp(URL,"snews:",6))
|
||
return(NEWS_TYPE_URL);
|
||
case 't':
|
||
case 'T':
|
||
if(!strncasecomp(URL,"telnet:",7))
|
||
return(TELNET_TYPE_URL);
|
||
else if(!strncasecomp(URL,"tn3270:",7))
|
||
return(TN3270_TYPE_URL);
|
||
break;
|
||
case 'v':
|
||
case 'V':
|
||
if(!strncasecomp(URL, VIEW_SOURCE_URL_PREFIX,
|
||
sizeof(VIEW_SOURCE_URL_PREFIX)-1))
|
||
return(VIEW_SOURCE_TYPE_URL);
|
||
break;
|
||
case 'w':
|
||
case 'W':
|
||
if(!strncasecomp(URL,"wais:",5))
|
||
return(WAIS_TYPE_URL);
|
||
break;
|
||
case 'u':
|
||
case 'U':
|
||
if(!strncasecomp(URL,"URN:",4))
|
||
return(URN_TYPE_URL);
|
||
break;
|
||
|
||
}
|
||
|
||
/* no type match :( */
|
||
return(0);
|
||
}
|
||
|
||
|
||
|
||
/* from libnet/mkparse.c */
|
||
PRIVATE CONST
|
||
int netCharType[256] =
|
||
/* Bit 0 xalpha -- the alphas
|
||
** Bit 1 xpalpha -- as xalpha but
|
||
** converts spaces to plus and plus to %20
|
||
** Bit 3 ... path -- as xalphas but doesn't escape '/'
|
||
*/
|
||
/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
|
||
{ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x */
|
||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 1x */
|
||
0,0,0,0,0,0,0,0,0,0,7,4,0,7,7,4, /* 2x !"#$%&'()*+,-./ */
|
||
7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0, /* 3x 0123456789:;<=>? */
|
||
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, /* 4x @ABCDEFGHIJKLMNO */
|
||
7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,7, /* 5X PQRSTUVWXYZ[\]^_ */
|
||
0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, /* 6x `abcdefghijklmno */
|
||
7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0, /* 7X pqrstuvwxyz{\}~ DEL */
|
||
0, };
|
||
|
||
#define IS_OK(C) (netCharType[((unsigned int) (C))] & (mask))
|
||
|
||
|
||
#define HEX_ESCAPE '%'
|
||
|
||
|
||
PUBLIC char *
|
||
NET_Escape (const char * str, int mask)
|
||
{
|
||
register CONST unsigned char *src;
|
||
register unsigned char *dst;
|
||
char *result;
|
||
int32 extra = 0;
|
||
char *hexChars = "0123456789ABCDEF";
|
||
|
||
if(!str)
|
||
return(0);
|
||
|
||
for(src=((unsigned char *)str); *src; src++)
|
||
{
|
||
if (!IS_OK(*src))
|
||
extra+=2; /* the escape, plus an extra byte for each nibble */
|
||
}
|
||
|
||
if(!(result = (char *) XP_ALLOC((int32) (src - ((unsigned char *)str)) + extra + 1)))
|
||
return(0);
|
||
|
||
dst = (unsigned char *) result;
|
||
for(src=((unsigned char *)str); *src; src++)
|
||
if (IS_OK((unsigned char) (*src)))
|
||
{
|
||
*dst++ = *src;
|
||
}
|
||
else if(mask == URL_XPALPHAS && *src == ' ')
|
||
{
|
||
*dst++ = '+'; /* convert spaces to pluses */
|
||
}
|
||
else
|
||
{
|
||
*dst++ = HEX_ESCAPE;
|
||
*dst++ = hexChars[(*src >> 4) & 0x0f]; /* high nibble */
|
||
*dst++ = hexChars[*src & 0x0f]; /* low nibble */
|
||
}
|
||
|
||
*dst++ = '\0'; /* tack on eos */
|
||
return result;
|
||
}
|
||
|
||
|
||
|
||
XP_List * ExternalURLTypeList=0;
|
||
|
||
#define EXTERNAL_TYPE_URL 999 /* a special external URL type */
|
||
|
||
/* check the passed in url to see if it is an
|
||
* external type url
|
||
*/
|
||
PRIVATE int
|
||
net_CheckForExternalURLType(char * url)
|
||
{
|
||
XP_List * list_ptr = ExternalURLTypeList;
|
||
char * reg_type;
|
||
int len;
|
||
|
||
while((reg_type = (char *)XP_ListNextObject(list_ptr)))
|
||
{
|
||
len = XP_STRLEN(reg_type);
|
||
if(!strncasecomp(reg_type, url, len) && url[len] == ':')
|
||
{
|
||
/* found it */
|
||
return EXTERNAL_TYPE_URL; /* done */
|
||
}
|
||
}
|
||
|
||
return(0);
|
||
}
|
||
|
||
/* modifies a url of the form /foo/../foo1 -> /foo1
|
||
*
|
||
* it only operates on "file" "ftp" and "http" url's all others are returned
|
||
* unmodified
|
||
*
|
||
* returns the modified passed in URL string
|
||
*/
|
||
PRIVATE char *
|
||
net_ReduceURL (char *url)
|
||
{
|
||
int url_type = NET_URL_Type(url);
|
||
char * fwd_ptr;
|
||
char * url_ptr;
|
||
char * path_ptr;
|
||
|
||
if(!url)
|
||
return(url);
|
||
|
||
if(url_type == HTTP_TYPE_URL || url_type == FILE_TYPE_URL ||
|
||
url_type == FTP_TYPE_URL ||
|
||
url_type == SECURE_HTTP_TYPE_URL)
|
||
{
|
||
|
||
/* find the path so we only change that and not the host
|
||
*/
|
||
path_ptr = XP_STRCHR(url, '/');
|
||
|
||
if(!path_ptr)
|
||
return(url);
|
||
|
||
if(*(path_ptr+1) == '/')
|
||
path_ptr = XP_STRCHR(path_ptr+2, '/');
|
||
|
||
if(!path_ptr)
|
||
return(url);
|
||
|
||
fwd_ptr = path_ptr;
|
||
url_ptr = path_ptr;
|
||
|
||
for(; *fwd_ptr != '\0'; fwd_ptr++)
|
||
{
|
||
|
||
if(*fwd_ptr == '/' && *(fwd_ptr+1) == '.' && *(fwd_ptr+2) == '/')
|
||
{
|
||
/* remove ./
|
||
*/
|
||
fwd_ptr += 1;
|
||
}
|
||
else if(*fwd_ptr == '/' && *(fwd_ptr+1) == '.' && *(fwd_ptr+2) == '.' &&
|
||
(*(fwd_ptr+3) == '/' || *(fwd_ptr+3) == '\0'))
|
||
{
|
||
/* remove foo/..
|
||
*/
|
||
/* reverse the url_ptr to the previous slash
|
||
*/
|
||
if(url_ptr != path_ptr)
|
||
url_ptr--; /* we must be going back at least one */
|
||
for(;*url_ptr != '/' && url_ptr != path_ptr; url_ptr--)
|
||
; /* null body */
|
||
|
||
/* forward the fwd_prt past the ../
|
||
*/
|
||
fwd_ptr += 2;
|
||
}
|
||
else
|
||
{
|
||
/* copy the url incrementaly
|
||
*/
|
||
*url_ptr++ = *fwd_ptr;
|
||
}
|
||
}
|
||
*url_ptr = '\0'; /* terminate the url */
|
||
}
|
||
|
||
return(url);
|
||
}
|
||
|
||
|
||
/* Makes a relative URL into an absolute one.
|
||
*
|
||
* If an absolute url is passed in it will be copied and returned.
|
||
*
|
||
* Always returns a malloc'd string or NULL on out of memory error
|
||
*/
|
||
PUBLIC char *
|
||
NET_MakeAbsoluteURL(char * absolute_url, char * relative_url)
|
||
{
|
||
char * ret_url=0;
|
||
int new_length;
|
||
char * cat_point=0;
|
||
char cat_point_char;
|
||
int url_type=0;
|
||
int base_type;
|
||
|
||
/* if either is NULL
|
||
*/
|
||
if(!absolute_url || !relative_url)
|
||
{
|
||
StrAllocCopy(ret_url, relative_url);
|
||
return(ret_url);
|
||
}
|
||
|
||
/* use the URL_Type function to figure
|
||
* out if it's a recognized URL method
|
||
*/
|
||
url_type = NET_URL_Type(relative_url);
|
||
|
||
/* there are some extra cases we need to catch
|
||
*/
|
||
if(!url_type)
|
||
{
|
||
switch(*relative_url)
|
||
{
|
||
case 'i':
|
||
if(!XP_STRNCMP(relative_url,"internal-icon-", 14)
|
||
|| !XP_STRNCMP(relative_url,"internal-external-reconnect:", 28)
|
||
|| !XP_STRCMP(relative_url,"internal-external-plugin"))
|
||
url_type = INTERNAL_IMAGE_TYPE_URL;
|
||
break;
|
||
case '/':
|
||
if(!strncasecomp(relative_url, "/mc-icons/", 10) ||
|
||
!strncasecomp(relative_url, "/ns-icons/", 10))
|
||
{
|
||
if(!XP_STRCMP(relative_url+10, "menu.gif"))
|
||
url_type = INTERNAL_IMAGE_TYPE_URL;
|
||
else if(!XP_STRCMP(relative_url+10, "unknown.gif"))
|
||
url_type = INTERNAL_IMAGE_TYPE_URL;
|
||
else if(!XP_STRCMP(relative_url+10, "text.gif"))
|
||
url_type = INTERNAL_IMAGE_TYPE_URL;
|
||
else if(!XP_STRCMP(relative_url+10, "image.gif"))
|
||
url_type = INTERNAL_IMAGE_TYPE_URL;
|
||
else if(!XP_STRCMP(relative_url+10, "sound.gif"))
|
||
url_type = INTERNAL_IMAGE_TYPE_URL;
|
||
else if(!XP_STRCMP(relative_url+10, "binary.gif"))
|
||
url_type = INTERNAL_IMAGE_TYPE_URL;
|
||
else if(!XP_STRCMP(relative_url+10, "movie.gif"))
|
||
url_type = INTERNAL_IMAGE_TYPE_URL;
|
||
}
|
||
break;
|
||
}
|
||
}
|
||
else if(url_type == ABOUT_TYPE_URL)
|
||
{
|
||
/* don't allow about:cache in a document */
|
||
if(!strncasecomp(relative_url, "about:cache", 11)
|
||
|| !strncasecomp(relative_url, "about:global", 12)
|
||
|| !strncasecomp(relative_url, "about:image-cache", 17)
|
||
|| !strncasecomp(relative_url, "about:memory-cache", 18))
|
||
{
|
||
return XP_STRDUP("");
|
||
}
|
||
}
|
||
|
||
if(!url_type)
|
||
url_type = net_CheckForExternalURLType(relative_url);
|
||
|
||
if(url_type)
|
||
{
|
||
/* it's either an absolute url
|
||
* or a messed up one of the type proto:/path
|
||
* but notice the missing host.
|
||
*/
|
||
char * colon = XP_STRCHR(relative_url, ':'); /* must be there */
|
||
|
||
if( (colon && *(colon+1) == '/' && *(colon+2) == '/') ||
|
||
(url_type != GOPHER_TYPE_URL
|
||
&& url_type != FTP_TYPE_URL
|
||
&& url_type != HTTP_TYPE_URL
|
||
&& url_type != SECURE_HTTP_TYPE_URL
|
||
&& url_type != RLOGIN_TYPE_URL
|
||
&& url_type != TELNET_TYPE_URL
|
||
&& url_type != TN3270_TYPE_URL
|
||
&& url_type != WAIS_TYPE_URL) )
|
||
{
|
||
/* it appears to have all it's parts. Assume it's completely
|
||
* absolute
|
||
*/
|
||
StrAllocCopy(ret_url, relative_url);
|
||
return(ret_url);
|
||
}
|
||
else
|
||
{
|
||
/* it's a screwed up relative url of the form http:[relative url]
|
||
* remove the stuff before and at the colon and treat it as a normal
|
||
* relative url
|
||
*/
|
||
char * colon = XP_STRCHR(relative_url, ':');
|
||
|
||
relative_url = colon+1;
|
||
}
|
||
}
|
||
|
||
|
||
/* At this point, we know that `relative_url' is not absolute.
|
||
If the base URL, `absolute_url', is a "mailbox:" URL, then
|
||
we should not allow relative expansion: that is,
|
||
NET_MakeAbsoluteURL("mailbox:/A/B/C", "YYY") should not
|
||
return "mailbox:/A/B/YYY".
|
||
|
||
However, expansion of "#" and "?" parameters should work:
|
||
NET_MakeAbsoluteURL("mailbox:/A/B/C?id=XXX", "#part2")
|
||
should be allowed to expand to "mailbox:/A/B/C?id=XXX#part2".
|
||
|
||
If you allow random HREFs in attached HTML to mail messages to
|
||
expand to mailbox URLs, then bad things happen -- among other
|
||
things, an entry will be automatically created in the folders
|
||
list for each of these bogus non-files.
|
||
|
||
It's an open question as to whether relative expansion should
|
||
be allowed for news: and snews: URLs.
|
||
|
||
Reasons to allow it:
|
||
|
||
= ClariNet has been using it
|
||
|
||
= (Their reason:) it's the only way for an HTML news message
|
||
to refer to another HTML news message in a way which
|
||
doesn't make assumptions about the name of the news host,
|
||
and which also doesn't assume that the message is on the
|
||
default news host.
|
||
|
||
Reasons to disallow it:
|
||
|
||
= Consistency with "mailbox:"
|
||
|
||
= If there is a news message which has type text/html, and
|
||
which has a relative URL like <IMG SRC="foo.gif"> in it,
|
||
but which has no <BASE> tag, then we would expand that
|
||
image to "news:foo.gif". Which would fail, of course,
|
||
but which might annoy news admins by generating bogus
|
||
references.
|
||
|
||
So for now, let's allow
|
||
NET_MakeAbsoluteURL("news:123@4", "456@7") => "news:456@7"; and
|
||
NET_MakeAbsoluteURL("news://h/123@4", "456@7") => "news://h/456@7".
|
||
*/
|
||
base_type = NET_URL_Type(absolute_url);
|
||
if ((base_type == MAILBOX_TYPE_URL || base_type == IMAP_TYPE_URL) &&
|
||
*relative_url != '#' &&
|
||
*relative_url != '?')
|
||
{
|
||
return XP_STRDUP("");
|
||
}
|
||
|
||
if(relative_url[0] == '/' && relative_url[1] == '/')
|
||
{
|
||
/* a host absolute URL
|
||
*/
|
||
|
||
/* find the colon after the protocol
|
||
*/
|
||
cat_point = XP_STRCHR(absolute_url, ':');
|
||
if (cat_point && base_type == WYSIWYG_TYPE_URL)
|
||
cat_point = XP_STRCHR(cat_point + 1, ':');
|
||
|
||
/* append after the colon
|
||
*/
|
||
if(cat_point)
|
||
cat_point++;
|
||
|
||
}
|
||
else if(relative_url[0] == '/')
|
||
{
|
||
/* a path absolute URL
|
||
* append at the slash after the host part
|
||
*/
|
||
|
||
/* find the colon after the protocol
|
||
*/
|
||
char *colon = XP_STRCHR(absolute_url, ':');
|
||
if (colon && base_type == WYSIWYG_TYPE_URL)
|
||
colon = XP_STRCHR(colon + 1, ':');
|
||
|
||
if(colon)
|
||
{
|
||
if(colon[1] == '/' && colon[2] == '/')
|
||
{
|
||
/* find the next slash
|
||
*/
|
||
cat_point = XP_STRCHR(colon+3, '/');
|
||
|
||
if(!cat_point)
|
||
{
|
||
/* if there isn't another slash then the cat point is the very end
|
||
*/
|
||
cat_point = &absolute_url[XP_STRLEN(absolute_url)];
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/* no host was given so the cat_point is right after the colon
|
||
*/
|
||
cat_point = colon+1;
|
||
}
|
||
|
||
#if defined(XP_WIN) || defined(XP_OS2)
|
||
/* this will allow drive letters to work right on windows
|
||
*/
|
||
if(XP_IS_ALPHA(*cat_point) && *(cat_point+1) == ':')
|
||
cat_point += 2;
|
||
#endif /* XP_WIN */
|
||
|
||
}
|
||
}
|
||
else if(relative_url[0] == '#')
|
||
{
|
||
/* a positioning within the same document relative url
|
||
*
|
||
* add teh relative url to the full text of the absolute url minus
|
||
* any # punctuation the url might have
|
||
*
|
||
*/
|
||
char * hash = XP_STRCHR(absolute_url, '#');
|
||
|
||
if(hash)
|
||
{
|
||
char * ques_mark = XP_STRCHR(absolute_url, '?');
|
||
|
||
if(ques_mark)
|
||
{
|
||
/* this is a hack.
|
||
* copy things to try and make them more correct
|
||
*/
|
||
*hash = '\0';
|
||
|
||
StrAllocCopy(ret_url, absolute_url);
|
||
StrAllocCat(ret_url, relative_url);
|
||
StrAllocCat(ret_url, ques_mark);
|
||
|
||
*hash = '#';
|
||
|
||
return(net_ReduceURL(ret_url));
|
||
}
|
||
|
||
cat_point = hash;
|
||
}
|
||
else
|
||
{
|
||
cat_point = &absolute_url[XP_STRLEN(absolute_url)]; /* the end of the URL */
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/* a completely relative URL
|
||
*
|
||
* append after the last slash
|
||
*/
|
||
char * ques = XP_STRCHR(absolute_url, '?');
|
||
char * hash = XP_STRCHR(absolute_url, '#');
|
||
|
||
if(ques)
|
||
*ques = '\0';
|
||
|
||
if(hash)
|
||
*hash = '\0';
|
||
|
||
cat_point = XP_STRRCHR(absolute_url, '/');
|
||
|
||
/* if there are no slashes then append right after the colon after the protocol
|
||
*/
|
||
if(!cat_point)
|
||
cat_point = XP_STRCHR(absolute_url, ':');
|
||
|
||
/* set the value back
|
||
*/
|
||
if(ques)
|
||
*ques = '?';
|
||
|
||
if(hash)
|
||
*hash = '#';
|
||
|
||
if(cat_point)
|
||
cat_point++; /* append right after the slash or colon not on it */
|
||
}
|
||
|
||
if(cat_point)
|
||
{
|
||
cat_point_char = *cat_point; /* save the value */
|
||
*cat_point = '\0';
|
||
new_length = XP_STRLEN(absolute_url) + XP_STRLEN(relative_url) + 1;
|
||
ret_url = (char *) XP_ALLOC(new_length);
|
||
if(!ret_url)
|
||
return(NULL); /* out of memory */
|
||
|
||
XP_STRCPY(ret_url, absolute_url);
|
||
XP_STRCAT(ret_url, relative_url);
|
||
*cat_point = cat_point_char; /* set the absolute url back to its original state */
|
||
}
|
||
else
|
||
{
|
||
/* something went wrong. just return a copy of the relative url
|
||
*/
|
||
StrAllocCopy(ret_url, relative_url);
|
||
}
|
||
|
||
return(net_ReduceURL(ret_url));
|
||
}
|
||
|
||
|
||
/* from libmsg/msgutils.c */
|
||
static int
|
||
msg_convert_and_send_buffer(char* buf, int length, XP_Bool convert_newlines_p,
|
||
int32 (*per_line_fn) (char *line,
|
||
uint32 line_length,
|
||
void *closure),
|
||
void *closure)
|
||
{
|
||
/* Convert the line terminator to the native form.
|
||
*/
|
||
char* newline;
|
||
|
||
XP_ASSERT(buf && length > 0);
|
||
if (!buf || length <= 0) return -1;
|
||
newline = buf + length;
|
||
XP_ASSERT(newline[-1] == CR || newline[-1] == LF);
|
||
if (newline[-1] != CR && newline[-1] != LF) return -1;
|
||
|
||
if (!convert_newlines_p)
|
||
{
|
||
}
|
||
#if (LINEBREAK_LEN == 1)
|
||
else if ((newline - buf) >= 2 &&
|
||
newline[-2] == CR &&
|
||
newline[-1] == LF)
|
||
{
|
||
/* CRLF -> CR or LF */
|
||
buf [length - 2] = LINEBREAK[0];
|
||
length--;
|
||
}
|
||
else if (newline > buf + 1 &&
|
||
newline[-1] != LINEBREAK[0])
|
||
{
|
||
/* CR -> LF or LF -> CR */
|
||
buf [length - 1] = LINEBREAK[0];
|
||
}
|
||
#else
|
||
else if (((newline - buf) >= 2 && newline[-2] != CR) ||
|
||
((newline - buf) >= 1 && newline[-1] != LF))
|
||
{
|
||
/* LF -> CRLF or CR -> CRLF */
|
||
length++;
|
||
buf[length - 2] = LINEBREAK[0];
|
||
buf[length - 1] = LINEBREAK[1];
|
||
}
|
||
#endif
|
||
|
||
return (*per_line_fn)(buf, length, closure);
|
||
}
|