Adding upstream version 0.5.1
This commit is contained in:
Tatsuya Kinoshita
665
map.c
Normal file
665
map.c
Normal file
@@ -0,0 +1,665 @@
|
||||
/* $Id: map.c,v 1.30 2003/09/24 18:49:00 ukai Exp $ */
|
||||
/*
|
||||
* client-side image maps
|
||||
*/
|
||||
#include "fm.h"
|
||||
#include <math.h>
|
||||
|
||||
MapList *
|
||||
searchMapList(Buffer *buf, char *name)
|
||||
{
|
||||
MapList *ml;
|
||||
|
||||
if (name == NULL)
|
||||
return NULL;
|
||||
for (ml = buf->maplist; ml != NULL; ml = ml->next) {
|
||||
if (!Strcmp_charp(ml->name, name))
|
||||
break;
|
||||
}
|
||||
return ml;
|
||||
}
|
||||
|
||||
#ifdef USE_IMAGE
|
||||
static int
|
||||
inMapArea(MapArea * a, int x, int y)
|
||||
{
|
||||
int i;
|
||||
double r1, r2, s, c, t;
|
||||
|
||||
if (!a)
|
||||
return FALSE;
|
||||
switch (a->shape) {
|
||||
case SHAPE_RECT:
|
||||
if (x >= a->coords[0] && y >= a->coords[1] &&
|
||||
x <= a->coords[2] && y <= a->coords[3])
|
||||
return TRUE;
|
||||
break;
|
||||
case SHAPE_CIRCLE:
|
||||
if ((x - a->coords[0]) * (x - a->coords[0])
|
||||
+ (y - a->coords[1]) * (y - a->coords[1])
|
||||
<= a->coords[2] * a->coords[2])
|
||||
return TRUE;
|
||||
break;
|
||||
case SHAPE_POLY:
|
||||
for (t = 0, i = 0; i < a->ncoords; i += 2) {
|
||||
r1 = sqrt((double)(x - a->coords[i]) * (x - a->coords[i])
|
||||
+ (double)(y - a->coords[i + 1]) * (y -
|
||||
a->coords[i + 1]));
|
||||
r2 = sqrt((double)(x - a->coords[i + 2]) * (x - a->coords[i + 2])
|
||||
+ (double)(y - a->coords[i + 3]) * (y -
|
||||
a->coords[i + 3]));
|
||||
if (r1 == 0 || r2 == 0)
|
||||
return TRUE;
|
||||
s = ((double)(x - a->coords[i]) * (y - a->coords[i + 3])
|
||||
- (double)(x - a->coords[i + 2]) * (y -
|
||||
a->coords[i +
|
||||
1])) / r1 / r2;
|
||||
c = ((double)(x - a->coords[i]) * (x - a->coords[i + 2])
|
||||
+ (double)(y - a->coords[i + 1]) * (y -
|
||||
a->coords[i +
|
||||
3])) / r1 / r2;
|
||||
t += atan2(s, c);
|
||||
}
|
||||
if (fabs(t) > 2 * 3.14)
|
||||
return TRUE;
|
||||
break;
|
||||
case SHAPE_DEFAULT:
|
||||
return TRUE;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
static int
|
||||
nearestMapArea(MapList *ml, int x, int y)
|
||||
{
|
||||
ListItem *al;
|
||||
MapArea *a;
|
||||
int i, l, n = -1, min = -1, limit = pixel_per_char * pixel_per_char
|
||||
+ pixel_per_line * pixel_per_line;
|
||||
|
||||
if (!ml || !ml->area)
|
||||
return n;
|
||||
for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
|
||||
a = (MapArea *) al->ptr;
|
||||
if (a) {
|
||||
l = (a->center_x - x) * (a->center_x - x)
|
||||
+ (a->center_y - y) * (a->center_y - y);
|
||||
if ((min < 0 || l < min) && l < limit) {
|
||||
n = i;
|
||||
min = l;
|
||||
}
|
||||
}
|
||||
}
|
||||
return n;
|
||||
}
|
||||
|
||||
static int
|
||||
searchMapArea(Buffer *buf, MapList *ml, Anchor *a_img)
|
||||
{
|
||||
ListItem *al;
|
||||
MapArea *a;
|
||||
int i, n;
|
||||
int px, py;
|
||||
|
||||
if (!(ml && ml->area && ml->area->nitem))
|
||||
return -1;
|
||||
if (!getMapXY(buf, a_img, &px, &py))
|
||||
return -1;
|
||||
n = -ml->area->nitem;
|
||||
for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
|
||||
a = (MapArea *) al->ptr;
|
||||
if (!a)
|
||||
continue;
|
||||
if (n < 0 && inMapArea(a, px, py)) {
|
||||
if (a->shape == SHAPE_DEFAULT) {
|
||||
if (n == -ml->area->nitem)
|
||||
n = -i;
|
||||
}
|
||||
else
|
||||
n = i;
|
||||
}
|
||||
}
|
||||
if (n == -ml->area->nitem)
|
||||
return nearestMapArea(ml, px, py);
|
||||
else if (n < 0)
|
||||
return -n;
|
||||
return n;
|
||||
}
|
||||
|
||||
MapArea *
|
||||
retrieveCurrentMapArea(Buffer *buf)
|
||||
{
|
||||
Anchor *a_img, *a_form;
|
||||
FormItemList *fi;
|
||||
MapList *ml;
|
||||
ListItem *al;
|
||||
MapArea *a;
|
||||
int i, n;
|
||||
|
||||
a_img = retrieveCurrentImg(buf);
|
||||
if (!(a_img && a_img->image && a_img->image->map))
|
||||
return NULL;
|
||||
a_form = retrieveCurrentForm(buf);
|
||||
if (!(a_form && a_form->url))
|
||||
return NULL;
|
||||
fi = (FormItemList *)a_form->url;
|
||||
if (!(fi && fi->parent && fi->parent->item))
|
||||
return NULL;
|
||||
fi = fi->parent->item;
|
||||
ml = searchMapList(buf, fi->value ? fi->value->ptr : NULL);
|
||||
if (!ml)
|
||||
return NULL;
|
||||
n = searchMapArea(buf, ml, a_img);
|
||||
if (n < 0)
|
||||
return NULL;
|
||||
for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
|
||||
a = (MapArea *) al->ptr;
|
||||
if (a && i == n)
|
||||
return a;
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
int
|
||||
getMapXY(Buffer *buf, Anchor *a, int *x, int *y)
|
||||
{
|
||||
if (!buf || !a || !a->image || !x || !y)
|
||||
return 0;
|
||||
*x = (int)((buf->currentColumn + buf->cursorX
|
||||
- COLPOS(buf->currentLine, a->start.pos) + 0.5)
|
||||
* pixel_per_char) - a->image->xoffset;
|
||||
*y = (int)((buf->currentLine->linenumber - a->image->y + 0.5)
|
||||
* pixel_per_line) - a->image->yoffset;
|
||||
if (*x <= 0)
|
||||
*x = 1;
|
||||
if (*y <= 0)
|
||||
*y = 1;
|
||||
return 1;
|
||||
}
|
||||
#endif
|
||||
|
||||
Anchor *
|
||||
retrieveCurrentMap(Buffer *buf)
|
||||
{
|
||||
Anchor *a;
|
||||
FormItemList *fi;
|
||||
|
||||
a = retrieveCurrentForm(buf);
|
||||
if (!a || !a->url)
|
||||
return NULL;
|
||||
fi = (FormItemList *)a->url;
|
||||
if (fi->parent->method == FORM_METHOD_INTERNAL &&
|
||||
!Strcmp_charp(fi->parent->action, "map"))
|
||||
return a;
|
||||
return NULL;
|
||||
}
|
||||
|
||||
#if defined(USE_IMAGE) || defined(MENU_MAP)
|
||||
MapArea *
|
||||
follow_map_menu(Buffer *buf, char *name, Anchor *a_img, int x, int y)
|
||||
{
|
||||
MapList *ml;
|
||||
ListItem *al;
|
||||
int i, selected = -1;
|
||||
int initial = 0;
|
||||
#ifdef MENU_MAP
|
||||
MapArea *a;
|
||||
char **label;
|
||||
#endif
|
||||
|
||||
ml = searchMapList(buf, name);
|
||||
if (ml == NULL || ml->area == NULL || ml->area->nitem == 0)
|
||||
return NULL;
|
||||
|
||||
#ifdef USE_IMAGE
|
||||
initial = searchMapArea(buf, ml, a_img);
|
||||
if (initial < 0)
|
||||
initial = 0;
|
||||
else if (!image_map_list) {
|
||||
selected = initial;
|
||||
goto map_end;
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifdef MENU_MAP
|
||||
label = New_N(char *, ml->area->nitem + 1);
|
||||
for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
|
||||
a = (MapArea *) al->ptr;
|
||||
if (a)
|
||||
label[i] = *a->alt ? a->alt : a->url;
|
||||
else
|
||||
label[i] = "";
|
||||
}
|
||||
label[ml->area->nitem] = NULL;
|
||||
|
||||
optionMenu(x, y, label, &selected, initial, NULL);
|
||||
#endif
|
||||
|
||||
#ifdef USE_IMAGE
|
||||
map_end:
|
||||
#endif
|
||||
if (selected >= 0) {
|
||||
for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
|
||||
if (al->ptr && i == selected)
|
||||
return (MapArea *) al->ptr;
|
||||
}
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifndef MENU_MAP
|
||||
char *map1 = "<HTML><HEAD><TITLE>Image map links</TITLE></HEAD>\
|
||||
<BODY><H1>Image map links</H1>\
|
||||
<table>";
|
||||
|
||||
Buffer *
|
||||
follow_map_panel(Buffer *buf, char *name)
|
||||
{
|
||||
Str mappage;
|
||||
MapList *ml;
|
||||
ListItem *al;
|
||||
MapArea *a;
|
||||
ParsedURL pu;
|
||||
char *p, *q;
|
||||
Buffer *newbuf;
|
||||
|
||||
ml = searchMapList(buf, name);
|
||||
if (ml == NULL)
|
||||
return NULL;
|
||||
|
||||
mappage = Strnew_charp(map1);
|
||||
for (al = ml->area->first; al != NULL; al = al->next) {
|
||||
a = (MapArea *) al->ptr;
|
||||
if (!a)
|
||||
continue;
|
||||
parseURL2(a->url, &pu, baseURL(buf));
|
||||
p = parsedURL2Str(&pu)->ptr;
|
||||
q = html_quote(p);
|
||||
if (DecodeURL)
|
||||
p = html_quote(url_unquote_conv(p, buf->document_charset));
|
||||
else
|
||||
p = q;
|
||||
Strcat_m_charp(mappage, "<tr valign=top><td><a href=\"", q, "\">",
|
||||
html_quote(*a->alt ? a->alt : mybasename(a->url)),
|
||||
"</a><td>", p, NULL);
|
||||
}
|
||||
Strcat_charp(mappage, "</table></body></html>");
|
||||
|
||||
newbuf = loadHTMLString(mappage);
|
||||
#ifdef USE_M17N
|
||||
if (newbuf)
|
||||
newbuf->document_charset = buf->document_charset;
|
||||
#endif
|
||||
return newbuf;
|
||||
}
|
||||
#endif
|
||||
|
||||
MapArea *
|
||||
newMapArea(char *url, char *target, char *alt, char *shape, char *coords)
|
||||
{
|
||||
MapArea *a = New(MapArea);
|
||||
#ifdef USE_IMAGE
|
||||
char *p;
|
||||
int i, max;
|
||||
#endif
|
||||
|
||||
a->url = url;
|
||||
a->target = target;
|
||||
a->alt = alt ? alt : "";
|
||||
#ifdef USE_IMAGE
|
||||
a->shape = SHAPE_RECT;
|
||||
if (shape) {
|
||||
if (!strcasecmp(shape, "default"))
|
||||
a->shape = SHAPE_DEFAULT;
|
||||
else if (!strncasecmp(shape, "rect", 4))
|
||||
a->shape = SHAPE_RECT;
|
||||
else if (!strncasecmp(shape, "circ", 4))
|
||||
a->shape = SHAPE_CIRCLE;
|
||||
else if (!strncasecmp(shape, "poly", 4))
|
||||
a->shape = SHAPE_POLY;
|
||||
else
|
||||
a->shape = SHAPE_UNKNOWN;
|
||||
}
|
||||
a->coords = NULL;
|
||||
a->ncoords = 0;
|
||||
a->center_x = 0;
|
||||
a->center_y = 0;
|
||||
if (a->shape == SHAPE_UNKNOWN || a->shape == SHAPE_DEFAULT)
|
||||
return a;
|
||||
if (!coords) {
|
||||
a->shape = SHAPE_UNKNOWN;
|
||||
return a;
|
||||
}
|
||||
if (a->shape == SHAPE_RECT) {
|
||||
a->coords = New_N(short, 4);
|
||||
a->ncoords = 4;
|
||||
}
|
||||
else if (a->shape == SHAPE_CIRCLE) {
|
||||
a->coords = New_N(short, 3);
|
||||
a->ncoords = 3;
|
||||
}
|
||||
max = a->ncoords;
|
||||
for (i = 0, p = coords; (a->shape == SHAPE_POLY || i < a->ncoords) && *p;) {
|
||||
while (IS_SPACE(*p))
|
||||
p++;
|
||||
if (!IS_DIGIT(*p) && *p != '-' && *p != '+')
|
||||
break;
|
||||
if (a->shape == SHAPE_POLY) {
|
||||
if (max <= i) {
|
||||
max = i ? i * 2 : 6;
|
||||
a->coords = New_Reuse(short, a->coords, max + 2);
|
||||
}
|
||||
a->ncoords++;
|
||||
}
|
||||
a->coords[i] = (short)atoi(p);
|
||||
i++;
|
||||
if (*p == '-' || *p == '+')
|
||||
p++;
|
||||
while (IS_DIGIT(*p))
|
||||
p++;
|
||||
if (*p != ',' && !IS_SPACE(*p))
|
||||
break;
|
||||
while (IS_SPACE(*p))
|
||||
p++;
|
||||
if (*p == ',')
|
||||
p++;
|
||||
}
|
||||
if (i != a->ncoords || (a->shape == SHAPE_POLY && a->ncoords < 6)) {
|
||||
a->shape = SHAPE_UNKNOWN;
|
||||
a->coords = NULL;
|
||||
a->ncoords = 0;
|
||||
return a;
|
||||
}
|
||||
if (a->shape == SHAPE_POLY) {
|
||||
a->ncoords = a->ncoords / 2 * 2;
|
||||
a->coords[a->ncoords] = a->coords[0];
|
||||
a->coords[a->ncoords + 1] = a->coords[1];
|
||||
}
|
||||
if (a->shape == SHAPE_CIRCLE) {
|
||||
a->center_x = a->coords[0];
|
||||
a->center_y = a->coords[1];
|
||||
}
|
||||
else {
|
||||
for (i = 0; i < a->ncoords / 2; i++) {
|
||||
a->center_x += a->coords[2 * i];
|
||||
a->center_y += a->coords[2 * i + 1];
|
||||
}
|
||||
a->center_x /= a->ncoords / 2;
|
||||
a->center_y /= a->ncoords / 2;
|
||||
}
|
||||
#endif
|
||||
return a;
|
||||
}
|
||||
|
||||
/* append image map links */
|
||||
static void
|
||||
append_map_info(Buffer *buf, Str tmp, FormItemList *fi)
|
||||
{
|
||||
MapList *ml;
|
||||
ListItem *al;
|
||||
MapArea *a;
|
||||
ParsedURL pu;
|
||||
char *p, *q;
|
||||
|
||||
ml = searchMapList(buf, fi->value ? fi->value->ptr : NULL);
|
||||
if (ml == NULL)
|
||||
return;
|
||||
|
||||
Strcat_m_charp(tmp,
|
||||
"<tr valign=top><td colspan=2>Links of current image map",
|
||||
"<tr valign=top><td colspan=2><table>", NULL);
|
||||
for (al = ml->area->first; al != NULL; al = al->next) {
|
||||
a = (MapArea *) al->ptr;
|
||||
if (!a)
|
||||
continue;
|
||||
parseURL2(a->url, &pu, baseURL(buf));
|
||||
q = html_quote(parsedURL2Str(&pu)->ptr);
|
||||
if (DecodeURL)
|
||||
p = html_quote(url_unquote_conv(a->url, buf->document_charset));
|
||||
else
|
||||
p = html_quote(a->url);
|
||||
Strcat_m_charp(tmp, "<tr valign=top><td> <td><a href=\"",
|
||||
q, "\">",
|
||||
html_quote(*a->alt ? a->alt : mybasename(a->url)),
|
||||
"</a><td>", p, "\n", NULL);
|
||||
}
|
||||
Strcat_charp(tmp, "</table>");
|
||||
}
|
||||
|
||||
/* append links */
|
||||
static void
|
||||
append_link_info(Buffer *buf, Str html, LinkList * link)
|
||||
{
|
||||
LinkList *l;
|
||||
ParsedURL pu;
|
||||
char *url;
|
||||
|
||||
if (!link)
|
||||
return;
|
||||
|
||||
Strcat_charp(html, "<hr width=50%><h1>Link information</h1><table>\n");
|
||||
for (l = link; l; l = l->next) {
|
||||
if (l->url) {
|
||||
parseURL2(l->url, &pu, baseURL(buf));
|
||||
url = html_quote(parsedURL2Str(&pu)->ptr);
|
||||
}
|
||||
else
|
||||
url = "(empty)";
|
||||
Strcat_m_charp(html, "<tr valign=top><td><a href=\"", url, "\">",
|
||||
l->title ? html_quote(l->title) : "(empty)", "</a><td>",
|
||||
NULL);
|
||||
if (l->type == LINK_TYPE_REL)
|
||||
Strcat_charp(html, "[Rel]");
|
||||
else if (l->type == LINK_TYPE_REV)
|
||||
Strcat_charp(html, "[Rev]");
|
||||
if (!l->url)
|
||||
url = "(empty)";
|
||||
else if (DecodeURL)
|
||||
url = html_quote(url_unquote_conv(l->url, buf->document_charset));
|
||||
else
|
||||
url = html_quote(l->url);
|
||||
Strcat_m_charp(html, "<td>", url, NULL);
|
||||
if (l->ctype)
|
||||
Strcat_m_charp(html, " (", html_quote(l->ctype), ")", NULL);
|
||||
Strcat_charp(html, "\n");
|
||||
}
|
||||
Strcat_charp(html, "</table>\n");
|
||||
}
|
||||
|
||||
/* append frame URL */
|
||||
static void
|
||||
append_frame_info(Buffer *buf, Str html, struct frameset *set, int level)
|
||||
{
|
||||
char *p, *q;
|
||||
int i, j;
|
||||
|
||||
if (!set)
|
||||
return;
|
||||
|
||||
for (i = 0; i < set->col * set->row; i++) {
|
||||
union frameset_element frame = set->frame[i];
|
||||
if (frame.element != NULL) {
|
||||
switch (frame.element->attr) {
|
||||
case F_UNLOADED:
|
||||
case F_BODY:
|
||||
if (frame.body->url == NULL)
|
||||
break;
|
||||
Strcat_charp(html, "<pre_int>");
|
||||
for (j = 0; j < level; j++)
|
||||
Strcat_charp(html, " ");
|
||||
q = html_quote(frame.body->url);
|
||||
Strcat_m_charp(html, "<a href=\"", q, "\">", NULL);
|
||||
if (frame.body->name) {
|
||||
p = html_quote(url_unquote_conv(frame.body->name,
|
||||
buf->document_charset));
|
||||
Strcat_charp(html, p);
|
||||
}
|
||||
if (DecodeURL)
|
||||
p = html_quote(url_unquote_conv(frame.body->url,
|
||||
buf->document_charset));
|
||||
else
|
||||
p = q;
|
||||
Strcat_m_charp(html, " ", p, "</a></pre_int><br>\n", NULL);
|
||||
#ifdef USE_SSL
|
||||
if (frame.body->ssl_certificate)
|
||||
Strcat_m_charp(html,
|
||||
"<blockquote><h2>SSL certificate</h2><pre>\n",
|
||||
html_quote(frame.body->ssl_certificate),
|
||||
"</pre></blockquote>\n", NULL);
|
||||
#endif
|
||||
break;
|
||||
case F_FRAMESET:
|
||||
append_frame_info(buf, html, frame.set, level + 1);
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* information of current page and link
|
||||
*/
|
||||
Buffer *
|
||||
page_info_panel(Buffer *buf)
|
||||
{
|
||||
Str tmp = Strnew_size(1024);
|
||||
Anchor *a;
|
||||
ParsedURL pu;
|
||||
TextListItem *ti;
|
||||
struct frameset *f_set = NULL;
|
||||
int all;
|
||||
char *p, *q;
|
||||
#ifdef USE_M17N
|
||||
wc_ces_list *list;
|
||||
char charset[16];
|
||||
#endif
|
||||
Buffer *newbuf;
|
||||
|
||||
Strcat_charp(tmp, "<html><head>\
|
||||
<title>Information about current page</title>\
|
||||
</head><body>\
|
||||
<h1>Information about current page</h1>\n");
|
||||
if (buf == NULL)
|
||||
goto end;
|
||||
all = buf->allLine;
|
||||
if (all == 0 && buf->lastLine)
|
||||
all = buf->lastLine->linenumber;
|
||||
#ifdef USE_M17N
|
||||
Strcat_charp(tmp, "<form method=internal action=charset>");
|
||||
#endif
|
||||
p = parsedURL2Str(&buf->currentURL)->ptr;
|
||||
if (DecodeURL)
|
||||
p = url_unquote_conv(p, 0);
|
||||
Strcat_m_charp(tmp, "<table cellpadding=0>",
|
||||
"<tr valign=top><td nowrap>Title<td>",
|
||||
html_quote(buf->buffername),
|
||||
"<tr valign=top><td nowrap>Current URL<td>",
|
||||
html_quote(p),
|
||||
"<tr valign=top><td nowrap>Document Type<td>",
|
||||
buf->real_type ? html_quote(buf->real_type) : "unknown",
|
||||
"<tr valign=top><td nowrap>Last Modified<td>",
|
||||
html_quote(last_modified(buf)), NULL);
|
||||
#ifdef USE_M17N
|
||||
if (buf->document_charset != InnerCharset) {
|
||||
list = wc_get_ces_list();
|
||||
Strcat_charp(tmp,
|
||||
"<tr><td nowrap>Document Charset<td><select name=charset>");
|
||||
for (; list->name != NULL; list++) {
|
||||
sprintf(charset, "%d", (unsigned int)list->id);
|
||||
Strcat_m_charp(tmp, "<option value=", charset,
|
||||
(buf->document_charset == list->id) ? " selected>"
|
||||
: ">", list->desc, NULL);
|
||||
}
|
||||
Strcat_charp(tmp, "</select>");
|
||||
Strcat_charp(tmp, "<tr><td><td><input type=submit value=Change>");
|
||||
}
|
||||
#endif
|
||||
Strcat_m_charp(tmp,
|
||||
"<tr valign=top><td nowrap>Number of lines<td>",
|
||||
Sprintf("%d", all)->ptr,
|
||||
"<tr valign=top><td nowrap>Transferred bytes<td>",
|
||||
Sprintf("%d", buf->trbyte)->ptr, NULL);
|
||||
|
||||
a = retrieveCurrentAnchor(buf);
|
||||
if (a != NULL) {
|
||||
parseURL2(a->url, &pu, baseURL(buf));
|
||||
p = parsedURL2Str(&pu)->ptr;
|
||||
q = html_quote(p);
|
||||
if (DecodeURL)
|
||||
p = html_quote(url_unquote_conv(p, buf->document_charset));
|
||||
else
|
||||
p = q;
|
||||
Strcat_m_charp(tmp,
|
||||
"<tr valign=top><td nowrap>URL of current anchor<td><a href=\"",
|
||||
q, "\">", p, "</a>", NULL);
|
||||
}
|
||||
a = retrieveCurrentImg(buf);
|
||||
if (a != NULL) {
|
||||
parseURL2(a->url, &pu, baseURL(buf));
|
||||
p = parsedURL2Str(&pu)->ptr;
|
||||
q = html_quote(p);
|
||||
if (DecodeURL)
|
||||
p = html_quote(url_unquote_conv(p, buf->document_charset));
|
||||
else
|
||||
p = q;
|
||||
Strcat_m_charp(tmp,
|
||||
"<tr valign=top><td nowrap>URL of current image<td><a href=\"",
|
||||
q, "\">", p, "</a>", NULL);
|
||||
}
|
||||
a = retrieveCurrentForm(buf);
|
||||
if (a != NULL) {
|
||||
FormItemList *fi = (FormItemList *)a->url;
|
||||
p = form2str(fi);
|
||||
if (DecodeURL)
|
||||
p = html_quote(url_unquote_conv(p, buf->document_charset));
|
||||
else
|
||||
p = html_quote(p);
|
||||
Strcat_m_charp(tmp,
|
||||
"<tr valign=top><td nowrap>Method/type of current form <td>",
|
||||
p, NULL);
|
||||
if (fi->parent->method == FORM_METHOD_INTERNAL
|
||||
&& !Strcmp_charp(fi->parent->action, "map"))
|
||||
append_map_info(buf, tmp, fi->parent->item);
|
||||
}
|
||||
Strcat_charp(tmp, "</table>\n");
|
||||
#ifdef USE_M17N
|
||||
Strcat_charp(tmp, "</form>");
|
||||
#endif
|
||||
|
||||
append_link_info(buf, tmp, buf->linklist);
|
||||
|
||||
if (buf->document_header != NULL) {
|
||||
Strcat_charp(tmp, "<hr width=50%><h1>Header information</h1><pre>\n");
|
||||
for (ti = buf->document_header->first; ti != NULL; ti = ti->next)
|
||||
Strcat_m_charp(tmp, "<pre_int>", html_quote(ti->ptr),
|
||||
"</pre_int>\n", NULL);
|
||||
Strcat_charp(tmp, "</pre>\n");
|
||||
}
|
||||
|
||||
if (buf->frameset != NULL)
|
||||
f_set = buf->frameset;
|
||||
else if (buf->bufferprop & BP_FRAME &&
|
||||
buf->nextBuffer != NULL && buf->nextBuffer->frameset != NULL)
|
||||
f_set = buf->nextBuffer->frameset;
|
||||
|
||||
if (f_set) {
|
||||
Strcat_charp(tmp, "<hr width=50%><h1>Frame information</h1>\n");
|
||||
append_frame_info(buf, tmp, f_set, 0);
|
||||
}
|
||||
#ifdef USE_SSL
|
||||
if (buf->ssl_certificate)
|
||||
Strcat_m_charp(tmp, "<h1>SSL certificate</h1><pre>\n",
|
||||
html_quote(buf->ssl_certificate), "</pre>\n", NULL);
|
||||
#endif
|
||||
end:
|
||||
Strcat_charp(tmp, "</body></html>");
|
||||
newbuf = loadHTMLString(tmp);
|
||||
#ifdef USE_M17N
|
||||
if (newbuf)
|
||||
newbuf->document_charset = buf->document_charset;
|
||||
#endif
|
||||
return newbuf;
|
||||
}
|
||||
Reference in New Issue
Block a user