← Back to branch summary

~ubuntu-branches/ubuntu/lucid/w3m/lucid-proposed

« back to all changes in this revision

Viewing changes to map.c

  • Committer: Bazaar Package Importer
  • Author(s): Fumitoshi UKAI
  • Date: 2004-04-29 03:28:41 UTC
  • Revision ID: james.westby@ubuntu.com-20040429032841-uo4mu7a813aqrua8
Tags: upstream-0.5.1
Import upstream version 0.5.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
map.c
 
1
/* $Id: map.c,v 1.30 2003/09/24 18:49:00 ukai Exp $ */
 
2
/*
 
3
 * client-side image maps
 
4
 */
 
5
#include "fm.h"
 
6
#include <math.h>
 
7
 
 
8
MapList *
 
9
searchMapList(Buffer *buf, char *name)
 
10
{
 
11
    MapList *ml;
 
12
 
 
13
    if (name == NULL)
 
14
        return NULL;
 
15
    for (ml = buf->maplist; ml != NULL; ml = ml->next) {
 
16
        if (!Strcmp_charp(ml->name, name))
 
17
            break;
 
18
    }
 
19
    return ml;
 
20
}
 
21
 
 
22
#ifdef USE_IMAGE
 
23
static int
 
24
inMapArea(MapArea * a, int x, int y)
 
25
{
 
26
    int i;
 
27
    double r1, r2, s, c, t;
 
28
 
 
29
    if (!a)
 
30
        return FALSE;
 
31
    switch (a->shape) {
 
32
    case SHAPE_RECT:
 
33
        if (x >= a->coords[0] && y >= a->coords[1] &&
 
34
            x <= a->coords[2] && y <= a->coords[3])
 
35
            return TRUE;
 
36
        break;
 
37
    case SHAPE_CIRCLE:
 
38
        if ((x - a->coords[0]) * (x - a->coords[0])
 
39
            + (y - a->coords[1]) * (y - a->coords[1])
 
40
            <= a->coords[2] * a->coords[2])
 
41
            return TRUE;
 
42
        break;
 
43
    case SHAPE_POLY:
 
44
        for (t = 0, i = 0; i < a->ncoords; i += 2) {
 
45
            r1 = sqrt((double)(x - a->coords[i]) * (x - a->coords[i])
 
46
                      + (double)(y - a->coords[i + 1]) * (y -
 
47
                                                          a->coords[i + 1]));
 
48
            r2 = sqrt((double)(x - a->coords[i + 2]) * (x - a->coords[i + 2])
 
49
                      + (double)(y - a->coords[i + 3]) * (y -
 
50
                                                          a->coords[i + 3]));
 
51
            if (r1 == 0 || r2 == 0)
 
52
                return TRUE;
 
53
            s = ((double)(x - a->coords[i]) * (y - a->coords[i + 3])
 
54
                 - (double)(x - a->coords[i + 2]) * (y -
 
55
                                                     a->coords[i +
 
56
                                                               1])) / r1 / r2;
 
57
            c = ((double)(x - a->coords[i]) * (x - a->coords[i + 2])
 
58
                 + (double)(y - a->coords[i + 1]) * (y -
 
59
                                                     a->coords[i +
 
60
                                                               3])) / r1 / r2;
 
61
            t += atan2(s, c);
 
62
        }
 
63
        if (fabs(t) > 2 * 3.14)
 
64
            return TRUE;
 
65
        break;
 
66
    case SHAPE_DEFAULT:
 
67
        return TRUE;
 
68
    default:
 
69
        break;
 
70
    }
 
71
    return FALSE;
 
72
}
 
73
 
 
74
static int
 
75
nearestMapArea(MapList *ml, int x, int y)
 
76
{
 
77
    ListItem *al;
 
78
    MapArea *a;
 
79
    int i, l, n = -1, min = -1, limit = pixel_per_char * pixel_per_char
 
80
        + pixel_per_line * pixel_per_line;
 
81
 
 
82
    if (!ml || !ml->area)
 
83
        return n;
 
84
    for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 
85
        a = (MapArea *) al->ptr;
 
86
        if (a) {
 
87
            l = (a->center_x - x) * (a->center_x - x)
 
88
                + (a->center_y - y) * (a->center_y - y);
 
89
            if ((min < 0 || l < min) && l < limit) {
 
90
                n = i;
 
91
                min = l;
 
92
            }
 
93
        }
 
94
    }
 
95
    return n;
 
96
}
 
97
 
 
98
static int
 
99
searchMapArea(Buffer *buf, MapList *ml, Anchor *a_img)
 
100
{
 
101
    ListItem *al;
 
102
    MapArea *a;
 
103
    int i, n;
 
104
    int px, py;
 
105
 
 
106
    if (!(ml && ml->area && ml->area->nitem))
 
107
        return -1;
 
108
    if (!getMapXY(buf, a_img, &px, &py))
 
109
        return -1;
 
110
    n = -ml->area->nitem;
 
111
    for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 
112
        a = (MapArea *) al->ptr;
 
113
        if (!a)
 
114
            continue;
 
115
        if (n < 0 && inMapArea(a, px, py)) {
 
116
            if (a->shape == SHAPE_DEFAULT) {
 
117
                if (n == -ml->area->nitem)
 
118
                    n = -i;
 
119
            }
 
120
            else
 
121
                n = i;
 
122
        }
 
123
    }
 
124
    if (n == -ml->area->nitem)
 
125
        return nearestMapArea(ml, px, py);
 
126
    else if (n < 0)
 
127
        return -n;
 
128
    return n;
 
129
}
 
130
 
 
131
MapArea *
 
132
retrieveCurrentMapArea(Buffer *buf)
 
133
{
 
134
    Anchor *a_img, *a_form;
 
135
    FormItemList *fi;
 
136
    MapList *ml;
 
137
    ListItem *al;
 
138
    MapArea *a;
 
139
    int i, n;
 
140
 
 
141
    a_img = retrieveCurrentImg(buf);
 
142
    if (!(a_img && a_img->image && a_img->image->map))
 
143
        return NULL;
 
144
    a_form = retrieveCurrentForm(buf);
 
145
    if (!(a_form && a_form->url))
 
146
        return NULL;
 
147
    fi = (FormItemList *)a_form->url;
 
148
    if (!(fi && fi->parent && fi->parent->item))
 
149
        return NULL;
 
150
    fi = fi->parent->item;
 
151
    ml = searchMapList(buf, fi->value ? fi->value->ptr : NULL);
 
152
    if (!ml)
 
153
        return NULL;
 
154
    n = searchMapArea(buf, ml, a_img);
 
155
    if (n < 0)
 
156
        return NULL;
 
157
    for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 
158
        a = (MapArea *) al->ptr;
 
159
        if (a && i == n)
 
160
            return a;
 
161
    }
 
162
    return NULL;
 
163
}
 
164
 
 
165
int
 
166
getMapXY(Buffer *buf, Anchor *a, int *x, int *y)
 
167
{
 
168
    if (!buf || !a || !a->image || !x || !y)
 
169
        return 0;
 
170
    *x = (int)((buf->currentColumn + buf->cursorX
 
171
                - COLPOS(buf->currentLine, a->start.pos) + 0.5)
 
172
               * pixel_per_char) - a->image->xoffset;
 
173
    *y = (int)((buf->currentLine->linenumber - a->image->y + 0.5)
 
174
               * pixel_per_line) - a->image->yoffset;
 
175
    if (*x <= 0)
 
176
        *x = 1;
 
177
    if (*y <= 0)
 
178
        *y = 1;
 
179
    return 1;
 
180
}
 
181
#endif
 
182
 
 
183
Anchor *
 
184
retrieveCurrentMap(Buffer *buf)
 
185
{
 
186
    Anchor *a;
 
187
    FormItemList *fi;
 
188
 
 
189
    a = retrieveCurrentForm(buf);
 
190
    if (!a || !a->url)
 
191
        return NULL;
 
192
    fi = (FormItemList *)a->url;
 
193
    if (fi->parent->method == FORM_METHOD_INTERNAL &&
 
194
        !Strcmp_charp(fi->parent->action, "map"))
 
195
        return a;
 
196
    return NULL;
 
197
}
 
198
 
 
199
#if defined(USE_IMAGE) || defined(MENU_MAP)
 
200
MapArea *
 
201
follow_map_menu(Buffer *buf, char *name, Anchor *a_img, int x, int y)
 
202
{
 
203
    MapList *ml;
 
204
    ListItem *al;
 
205
    int i, selected = -1;
 
206
    int initial = 0;
 
207
#ifdef MENU_MAP
 
208
    MapArea *a;
 
209
    char **label;
 
210
#endif
 
211
 
 
212
    ml = searchMapList(buf, name);
 
213
    if (ml == NULL || ml->area == NULL || ml->area->nitem == 0)
 
214
        return NULL;
 
215
 
 
216
#ifdef USE_IMAGE
 
217
    initial = searchMapArea(buf, ml, a_img);
 
218
    if (initial < 0)
 
219
        initial = 0;
 
220
    else if (!image_map_list) {
 
221
        selected = initial;
 
222
        goto map_end;
 
223
    }
 
224
#endif
 
225
 
 
226
#ifdef MENU_MAP
 
227
    label = New_N(char *, ml->area->nitem + 1);
 
228
    for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 
229
        a = (MapArea *) al->ptr;
 
230
        if (a)
 
231
            label[i] = *a->alt ? a->alt : a->url;
 
232
        else
 
233
            label[i] = "";
 
234
    }
 
235
    label[ml->area->nitem] = NULL;
 
236
 
 
237
    optionMenu(x, y, label, &selected, initial, NULL);
 
238
#endif
 
239
 
 
240
#ifdef USE_IMAGE
 
241
  map_end:
 
242
#endif
 
243
    if (selected >= 0) {
 
244
        for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 
245
            if (al->ptr && i == selected)
 
246
                return (MapArea *) al->ptr;
 
247
        }
 
248
    }
 
249
    return NULL;
 
250
}
 
251
#endif
 
252
 
 
253
#ifndef MENU_MAP
 
254
char *map1 = "<HTML><HEAD><TITLE>Image map links</TITLE></HEAD>\
 
255
<BODY><H1>Image map links</H1>\
 
256
<table>";
 
257
 
 
258
Buffer *
 
259
follow_map_panel(Buffer *buf, char *name)
 
260
{
 
261
    Str mappage;
 
262
    MapList *ml;
 
263
    ListItem *al;
 
264
    MapArea *a;
 
265
    ParsedURL pu;
 
266
    char *p, *q;
 
267
    Buffer *newbuf;
 
268
 
 
269
    ml = searchMapList(buf, name);
 
270
    if (ml == NULL)
 
271
        return NULL;
 
272
 
 
273
    mappage = Strnew_charp(map1);
 
274
    for (al = ml->area->first; al != NULL; al = al->next) {
 
275
        a = (MapArea *) al->ptr;
 
276
        if (!a)
 
277
            continue;
 
278
        parseURL2(a->url, &pu, baseURL(buf));
 
279
        p = parsedURL2Str(&pu)->ptr;
 
280
        q = html_quote(p);
 
281
        if (DecodeURL)
 
282
            p = html_quote(url_unquote_conv(p, buf->document_charset));
 
283
        else
 
284
            p = q;
 
285
        Strcat_m_charp(mappage, "<tr valign=top><td><a href=\"", q, "\">",
 
286
                       html_quote(*a->alt ? a->alt : mybasename(a->url)),
 
287
                       "</a><td>", p, NULL);
 
288
    }
 
289
    Strcat_charp(mappage, "</table></body></html>");
 
290
 
 
291
    newbuf = loadHTMLString(mappage);
 
292
#ifdef USE_M17N
 
293
    if (newbuf)
 
294
        newbuf->document_charset = buf->document_charset;
 
295
#endif
 
296
    return newbuf;
 
297
}
 
298
#endif
 
299
 
 
300
MapArea *
 
301
newMapArea(char *url, char *target, char *alt, char *shape, char *coords)
 
302
{
 
303
    MapArea *a = New(MapArea);
 
304
#ifdef USE_IMAGE
 
305
    char *p;
 
306
    int i, max;
 
307
#endif
 
308
 
 
309
    a->url = url;
 
310
    a->target = target;
 
311
    a->alt = alt ? alt : "";
 
312
#ifdef USE_IMAGE
 
313
    a->shape = SHAPE_RECT;
 
314
    if (shape) {
 
315
        if (!strcasecmp(shape, "default"))
 
316
            a->shape = SHAPE_DEFAULT;
 
317
        else if (!strncasecmp(shape, "rect", 4))
 
318
            a->shape = SHAPE_RECT;
 
319
        else if (!strncasecmp(shape, "circ", 4))
 
320
            a->shape = SHAPE_CIRCLE;
 
321
        else if (!strncasecmp(shape, "poly", 4))
 
322
            a->shape = SHAPE_POLY;
 
323
        else
 
324
            a->shape = SHAPE_UNKNOWN;
 
325
    }
 
326
    a->coords = NULL;
 
327
    a->ncoords = 0;
 
328
    a->center_x = 0;
 
329
    a->center_y = 0;
 
330
    if (a->shape == SHAPE_UNKNOWN || a->shape == SHAPE_DEFAULT)
 
331
        return a;
 
332
    if (!coords) {
 
333
        a->shape = SHAPE_UNKNOWN;
 
334
        return a;
 
335
    }
 
336
    if (a->shape == SHAPE_RECT) {
 
337
        a->coords = New_N(short, 4);
 
338
        a->ncoords = 4;
 
339
    }
 
340
    else if (a->shape == SHAPE_CIRCLE) {
 
341
        a->coords = New_N(short, 3);
 
342
        a->ncoords = 3;
 
343
    }
 
344
    max = a->ncoords;
 
345
    for (i = 0, p = coords; (a->shape == SHAPE_POLY || i < a->ncoords) && *p;) {
 
346
        while (IS_SPACE(*p))
 
347
            p++;
 
348
        if (!IS_DIGIT(*p) && *p != '-' && *p != '+')
 
349
            break;
 
350
        if (a->shape == SHAPE_POLY) {
 
351
            if (max <= i) {
 
352
                max = i ? i * 2 : 6;
 
353
                a->coords = New_Reuse(short, a->coords, max + 2);
 
354
            }
 
355
            a->ncoords++;
 
356
        }
 
357
        a->coords[i] = (short)atoi(p);
 
358
        i++;
 
359
        if (*p == '-' || *p == '+')
 
360
            p++;
 
361
        while (IS_DIGIT(*p))
 
362
            p++;
 
363
        if (*p != ',' && !IS_SPACE(*p))
 
364
            break;
 
365
        while (IS_SPACE(*p))
 
366
            p++;
 
367
        if (*p == ',')
 
368
            p++;
 
369
    }
 
370
    if (i != a->ncoords || (a->shape == SHAPE_POLY && a->ncoords < 6)) {
 
371
        a->shape = SHAPE_UNKNOWN;
 
372
        a->coords = NULL;
 
373
        a->ncoords = 0;
 
374
        return a;
 
375
    }
 
376
    if (a->shape == SHAPE_POLY) {
 
377
        a->ncoords = a->ncoords / 2 * 2;
 
378
        a->coords[a->ncoords] = a->coords[0];
 
379
        a->coords[a->ncoords + 1] = a->coords[1];
 
380
    }
 
381
    if (a->shape == SHAPE_CIRCLE) {
 
382
        a->center_x = a->coords[0];
 
383
        a->center_y = a->coords[1];
 
384
    }
 
385
    else {
 
386
        for (i = 0; i < a->ncoords / 2; i++) {
 
387
            a->center_x += a->coords[2 * i];
 
388
            a->center_y += a->coords[2 * i + 1];
 
389
        }
 
390
        a->center_x /= a->ncoords / 2;
 
391
        a->center_y /= a->ncoords / 2;
 
392
    }
 
393
#endif
 
394
    return a;
 
395
}
 
396
 
 
397
/* append image map links */
 
398
static void
 
399
append_map_info(Buffer *buf, Str tmp, FormItemList *fi)
 
400
{
 
401
    MapList *ml;
 
402
    ListItem *al;
 
403
    MapArea *a;
 
404
    ParsedURL pu;
 
405
    char *p, *q;
 
406
 
 
407
    ml = searchMapList(buf, fi->value ? fi->value->ptr : NULL);
 
408
    if (ml == NULL)
 
409
        return;
 
410
 
 
411
    Strcat_m_charp(tmp,
 
412
                   "<tr valign=top><td colspan=2>Links of current image map",
 
413
                   "<tr valign=top><td colspan=2><table>", NULL);
 
414
    for (al = ml->area->first; al != NULL; al = al->next) {
 
415
        a = (MapArea *) al->ptr;
 
416
        if (!a)
 
417
            continue;
 
418
        parseURL2(a->url, &pu, baseURL(buf));
 
419
        q = html_quote(parsedURL2Str(&pu)->ptr);
 
420
        if (DecodeURL)
 
421
            p = html_quote(url_unquote_conv(a->url, buf->document_charset));
 
422
        else
 
423
            p = html_quote(a->url);
 
424
        Strcat_m_charp(tmp, "<tr valign=top><td>&nbsp;&nbsp;<td><a href=\"",
 
425
                       q, "\">",
 
426
                       html_quote(*a->alt ? a->alt : mybasename(a->url)),
 
427
                       "</a><td>", p, "\n", NULL);
 
428
    }
 
429
    Strcat_charp(tmp, "</table>");
 
430
}
 
431
 
 
432
/* append links */
 
433
static void
 
434
append_link_info(Buffer *buf, Str html, LinkList * link)
 
435
{
 
436
    LinkList *l;
 
437
    ParsedURL pu;
 
438
    char *url;
 
439
 
 
440
    if (!link)
 
441
        return;
 
442
 
 
443
    Strcat_charp(html, "<hr width=50%><h1>Link information</h1><table>\n");
 
444
    for (l = link; l; l = l->next) {
 
445
        if (l->url) {
 
446
            parseURL2(l->url, &pu, baseURL(buf));
 
447
            url = html_quote(parsedURL2Str(&pu)->ptr);
 
448
        }
 
449
        else
 
450
            url = "(empty)";
 
451
        Strcat_m_charp(html, "<tr valign=top><td><a href=\"", url, "\">",
 
452
                       l->title ? html_quote(l->title) : "(empty)", "</a><td>",
 
453
                       NULL);
 
454
        if (l->type == LINK_TYPE_REL)
 
455
            Strcat_charp(html, "[Rel]");
 
456
        else if (l->type == LINK_TYPE_REV)
 
457
            Strcat_charp(html, "[Rev]");
 
458
        if (!l->url)
 
459
            url = "(empty)";
 
460
        else if (DecodeURL)
 
461
            url = html_quote(url_unquote_conv(l->url, buf->document_charset));
 
462
        else
 
463
            url = html_quote(l->url);
 
464
        Strcat_m_charp(html, "<td>", url, NULL);
 
465
        if (l->ctype)
 
466
            Strcat_m_charp(html, " (", html_quote(l->ctype), ")", NULL);
 
467
        Strcat_charp(html, "\n");
 
468
    }
 
469
    Strcat_charp(html, "</table>\n");
 
470
}
 
471
 
 
472
/* append frame URL */
 
473
static void
 
474
append_frame_info(Buffer *buf, Str html, struct frameset *set, int level)
 
475
{
 
476
    char *p, *q;
 
477
    int i, j;
 
478
 
 
479
    if (!set)
 
480
        return;
 
481
 
 
482
    for (i = 0; i < set->col * set->row; i++) {
 
483
        union frameset_element frame = set->frame[i];
 
484
        if (frame.element != NULL) {
 
485
            switch (frame.element->attr) {
 
486
            case F_UNLOADED:
 
487
            case F_BODY:
 
488
                if (frame.body->url == NULL)
 
489
                    break;
 
490
                Strcat_charp(html, "<pre_int>");
 
491
                for (j = 0; j < level; j++)
 
492
                    Strcat_charp(html, "   ");
 
493
                q = html_quote(frame.body->url);
 
494
                Strcat_m_charp(html, "<a href=\"", q, "\">", NULL);
 
495
                if (frame.body->name) {
 
496
                    p = html_quote(url_unquote_conv(frame.body->name,
 
497
                                                    buf->document_charset));
 
498
                    Strcat_charp(html, p);
 
499
                }
 
500
                if (DecodeURL)
 
501
                    p = html_quote(url_unquote_conv(frame.body->url,
 
502
                                                    buf->document_charset));
 
503
                else
 
504
                    p = q;
 
505
                Strcat_m_charp(html, " ", p, "</a></pre_int><br>\n", NULL);
 
506
#ifdef USE_SSL
 
507
                if (frame.body->ssl_certificate)
 
508
                    Strcat_m_charp(html,
 
509
                                   "<blockquote><h2>SSL certificate</h2><pre>\n",
 
510
                                   html_quote(frame.body->ssl_certificate),
 
511
                                   "</pre></blockquote>\n", NULL);
 
512
#endif
 
513
                break;
 
514
            case F_FRAMESET:
 
515
                append_frame_info(buf, html, frame.set, level + 1);
 
516
                break;
 
517
            }
 
518
        }
 
519
    }
 
520
}
 
521
 
 
522
/* 
 
523
 * information of current page and link 
 
524
 */
 
525
Buffer *
 
526
page_info_panel(Buffer *buf)
 
527
{
 
528
    Str tmp = Strnew_size(1024);
 
529
    Anchor *a;
 
530
    ParsedURL pu;
 
531
    TextListItem *ti;
 
532
    struct frameset *f_set = NULL;
 
533
    int all;
 
534
    char *p, *q;
 
535
#ifdef USE_M17N
 
536
    wc_ces_list *list;
 
537
    char charset[16];
 
538
#endif
 
539
    Buffer *newbuf;
 
540
 
 
541
    Strcat_charp(tmp, "<html><head>\
 
542
<title>Information about current page</title>\
 
543
</head><body>\
 
544
<h1>Information about current page</h1>\n");
 
545
    if (buf == NULL)
 
546
        goto end;
 
547
    all = buf->allLine;
 
548
    if (all == 0 && buf->lastLine)
 
549
        all = buf->lastLine->linenumber;
 
550
#ifdef USE_M17N
 
551
    Strcat_charp(tmp, "<form method=internal action=charset>");
 
552
#endif
 
553
    p = parsedURL2Str(&buf->currentURL)->ptr;
 
554
    if (DecodeURL)
 
555
        p = url_unquote_conv(p, 0);
 
556
    Strcat_m_charp(tmp, "<table cellpadding=0>",
 
557
                   "<tr valign=top><td nowrap>Title<td>",
 
558
                   html_quote(buf->buffername),
 
559
                   "<tr valign=top><td nowrap>Current URL<td>",
 
560
                   html_quote(p),
 
561
                   "<tr valign=top><td nowrap>Document Type<td>",
 
562
                   buf->real_type ? html_quote(buf->real_type) : "unknown",
 
563
                   "<tr valign=top><td nowrap>Last Modified<td>",
 
564
                   html_quote(last_modified(buf)), NULL);
 
565
#ifdef USE_M17N
 
566
    if (buf->document_charset != InnerCharset) {
 
567
        list = wc_get_ces_list();
 
568
        Strcat_charp(tmp,
 
569
                     "<tr><td nowrap>Document Charset<td><select name=charset>");
 
570
        for (; list->name != NULL; list++) {
 
571
            sprintf(charset, "%d", (unsigned int)list->id);
 
572
            Strcat_m_charp(tmp, "<option value=", charset,
 
573
                           (buf->document_charset == list->id) ? " selected>"
 
574
                           : ">", list->desc, NULL);
 
575
        }
 
576
        Strcat_charp(tmp, "</select>");
 
577
        Strcat_charp(tmp, "<tr><td><td><input type=submit value=Change>");
 
578
    }
 
579
#endif
 
580
    Strcat_m_charp(tmp,
 
581
                   "<tr valign=top><td nowrap>Number of lines<td>",
 
582
                   Sprintf("%d", all)->ptr,
 
583
                   "<tr valign=top><td nowrap>Transferred bytes<td>",
 
584
                   Sprintf("%d", buf->trbyte)->ptr, NULL);
 
585
 
 
586
    a = retrieveCurrentAnchor(buf);
 
587
    if (a != NULL) {
 
588
        parseURL2(a->url, &pu, baseURL(buf));
 
589
        p = parsedURL2Str(&pu)->ptr;
 
590
        q = html_quote(p);
 
591
        if (DecodeURL)
 
592
            p = html_quote(url_unquote_conv(p, buf->document_charset));
 
593
        else
 
594
            p = q;
 
595
        Strcat_m_charp(tmp,
 
596
                       "<tr valign=top><td nowrap>URL of current anchor<td><a href=\"",
 
597
                       q, "\">", p, "</a>", NULL);
 
598
    }
 
599
    a = retrieveCurrentImg(buf);
 
600
    if (a != NULL) {
 
601
        parseURL2(a->url, &pu, baseURL(buf));
 
602
        p = parsedURL2Str(&pu)->ptr;
 
603
        q = html_quote(p);
 
604
        if (DecodeURL)
 
605
            p = html_quote(url_unquote_conv(p, buf->document_charset));
 
606
        else
 
607
            p = q;
 
608
        Strcat_m_charp(tmp,
 
609
                       "<tr valign=top><td nowrap>URL of current image<td><a href=\"",
 
610
                       q, "\">", p, "</a>", NULL);
 
611
    }
 
612
    a = retrieveCurrentForm(buf);
 
613
    if (a != NULL) {
 
614
        FormItemList *fi = (FormItemList *)a->url;
 
615
        p = form2str(fi);
 
616
        if (DecodeURL)
 
617
            p = html_quote(url_unquote_conv(p, buf->document_charset));
 
618
        else
 
619
            p = html_quote(p);
 
620
        Strcat_m_charp(tmp,
 
621
                       "<tr valign=top><td nowrap>Method/type of current form&nbsp;<td>",
 
622
                       p, NULL);
 
623
        if (fi->parent->method == FORM_METHOD_INTERNAL
 
624
            && !Strcmp_charp(fi->parent->action, "map"))
 
625
            append_map_info(buf, tmp, fi->parent->item);
 
626
    }
 
627
    Strcat_charp(tmp, "</table>\n");
 
628
#ifdef USE_M17N
 
629
    Strcat_charp(tmp, "</form>");
 
630
#endif
 
631
 
 
632
    append_link_info(buf, tmp, buf->linklist);
 
633
 
 
634
    if (buf->document_header != NULL) {
 
635
        Strcat_charp(tmp, "<hr width=50%><h1>Header information</h1><pre>\n");
 
636
        for (ti = buf->document_header->first; ti != NULL; ti = ti->next)
 
637
            Strcat_m_charp(tmp, "<pre_int>", html_quote(ti->ptr),
 
638
                           "</pre_int>\n", NULL);
 
639
        Strcat_charp(tmp, "</pre>\n");
 
640
    }
 
641
 
 
642
    if (buf->frameset != NULL)
 
643
        f_set = buf->frameset;
 
644
    else if (buf->bufferprop & BP_FRAME &&
 
645
             buf->nextBuffer != NULL && buf->nextBuffer->frameset != NULL)
 
646
        f_set = buf->nextBuffer->frameset;
 
647
 
 
648
    if (f_set) {
 
649
        Strcat_charp(tmp, "<hr width=50%><h1>Frame information</h1>\n");
 
650
        append_frame_info(buf, tmp, f_set, 0);
 
651
    }
 
652
#ifdef USE_SSL
 
653
    if (buf->ssl_certificate)
 
654
        Strcat_m_charp(tmp, "<h1>SSL certificate</h1><pre>\n",
 
655
                       html_quote(buf->ssl_certificate), "</pre>\n", NULL);
 
656
#endif
 
657
  end:
 
658
    Strcat_charp(tmp, "</body></html>");
 
659
    newbuf = loadHTMLString(tmp);
 
660
#ifdef USE_M17N
 
661
    if (newbuf)
 
662
        newbuf->document_charset = buf->document_charset;
 
663
#endif
 
664
    return newbuf;
 
665
}