/*

 * $LynxId: HTGopher.c,v 1.68 2018/05/15 21:58:15 tom Exp $

 *

 *			GOPHER ACCESS				HTGopher.c

 *			=============

 *

 *  History:

 *	26 Sep 90	Adapted from other accesses (News, HTTP) TBL

 *	29 Nov 91	Downgraded to C, for portable implementation.

 *	10 Mar 96	Foteos Macrides (macrides@sci.wfbr.edu).  Added a

 *			  form-based CSO/PH gateway.  Can be invoked via a

 *			  "cso://host[:port]/" or "gopher://host:105/2"

 *			  URL.	If a gopher URL is used with a query token

 *			  ('?'), the old ISINDEX procedure will be used

 *			  instead of the form-based gateway.

 *	15 Mar 96	Foteos Macrides (macrides@sci.wfbr.edu).  Pass

 *			  port 79, gtype 0 gopher URLs to the finger

 *			  gateway.

 */

#define HTSTREAM_INTERNAL 1

#include <HTUtils.h>		/* Coding convention macros */

#include <HTFile.h>		/* For HTFileFormat() */

#ifndef DISABLE_GOPHER

#include <HTAlert.h>

#include <HTParse.h>

#include <HTTCP.h>

#include <HTFinger.h>

/*

 *  Implements.

 */

#include <HTGopher.h>

#define GOPHER_PORT 70		/* See protocol spec */

#define CSO_PORT 105		/* See protocol spec */

#define BIG 1024		/* Bug */

#define LINE_LENGTH 256		/* Bug */

/*

 *  Gopher entity types.

 */

#define GOPHER_TEXT		'0'

#define GOPHER_MENU		'1'

#define GOPHER_CSO		'2'

#define GOPHER_ERROR		'3'

#define GOPHER_MACBINHEX	'4'

#define GOPHER_PCBINARY		'5'

#define GOPHER_UUENCODED	'6'

#define GOPHER_INDEX		'7'

#define GOPHER_TELNET		'8'

#define GOPHER_BINARY		'9'

#define GOPHER_GIF		'g'

#define GOPHER_HTML		'h'	/* HTML */

#define GOPHER_CHTML		'H'	/* HTML */

#define GOPHER_SOUND		's'

#define GOPHER_WWW		'w'	/* W3 address */

#define GOPHER_IMAGE		'I'

#define GOPHER_TN3270		'T'

#define GOPHER_INFO		'i'

#define GOPHER_DUPLICATE	'+'

#define GOPHER_PLUS_IMAGE	':'	/* Addition from Gopher Plus */

#define GOPHER_PLUS_MOVIE	';'

#define GOPHER_PLUS_SOUND	'<'

#define GOPHER_PLUS_PDF		'P'

#include <HTFormat.h>

/*

 *  Hypertext object building machinery.

 */

#include <HTML.h>

#include <LYStrings.h>

#include <LYUtils.h>

#include <LYLeaks.h>

#define PUTC(c) (*targetClass.put_character)(target, c)

#define PUTS(s) (*targetClass.put_string)(target, s)

#define START(e) (*targetClass.start_element)(target, e, 0, 0, -1, 0)

#define END(e) (*targetClass.end_element)(target, e, 0)

#define FREE_TARGET (*targetClass._free)(target)

#define NEXT_CHAR HTGetCharacter()

/*

 *  Module-wide variables.

 */

static int s;			/* Socket for gopher or CSO host */

struct _HTStructured {

    const HTStructuredClass *isa;	/* For gopher streams */

    /* ... */

};

static HTStructured *target;	/* the new gopher hypertext */

static HTStructuredClass targetClass;	/* Its action routines */

struct _HTStream {

    HTStreamClass *isa;		/* For form-based CSO  gateway - FM */

};

typedef struct _CSOfield_info {	/* For form-based CSO gateway - FM */

    struct _CSOfield_info *next;

    char *name;

    char *attributes;

    char *description;

    int id;

    int lookup;

    int indexed;

    int url;

    int max_size;

    int defreturn;

    int explicit_return;

    int reserved;

    int gpublic;

    char name_buf[16];		/* Avoid malloc if we can */

    char desc_buf[32];		/* Avoid malloc if we can */

    char attr_buf[80];		/* Avoid malloc if we can */

} CSOfield_info;

static CSOfield_info *CSOfields = NULL;		/* For form-based CSO gateway - FM */

typedef struct _CSOformgen_context {	/* For form-based CSO gateway - FM */

    const char *host;

    const char *seek;

    CSOfield_info *fld;

    int port;

    int cur_line;

    int cur_off;

    int rep_line;

    int rep_off;

    int public_override;

    int field_select;

} CSOformgen_context;

/*	Matrix of allowed characters in filenames

 *	=========================================

 */

static BOOL acceptable[256];

static BOOL acceptable_inited = NO;

static void init_acceptable(void)

{

    unsigned int i;

    const char *good =

    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789./-_$";

    for (i = 0; i < 256; i++)

	acceptable[i] = NO;

    for (; *good; good++)

	acceptable[(unsigned int) *good] = YES;

    acceptable_inited = YES;

}

/*	Decode one hex character

 *	========================

 */

static const char hex[17] = "0123456789abcdef";

static char from_hex(int c)

{

    return (char) ((c >= '0') && (c <= '9') ? c - '0'

		   : (c >= 'A') && (c <= 'F') ? c - 'A' + 10

		   : (c >= 'a') && (c <= 'f') ? c - 'a' + 10

		   : 0);

}

/*	Paste in an Anchor

 *	==================

 *

 *	The title of the destination is set, as there is no way

 *	of knowing what the title is when we arrive.

 *

 * On entry,

 *	HT	is in append mode.

 *	text	points to the text to be put into the file, 0 terminated.

 *	addr	points to the hypertext refernce address 0 terminated.

 */

BOOLEAN HT_Is_Gopher_URL = FALSE;

static void write_anchor(const char *text, const char *addr)

{

    BOOL present[HTML_A_ATTRIBUTES];

    const char *value[HTML_A_ATTRIBUTES];

    int i;

    for (i = 0; i < HTML_A_ATTRIBUTES; i++)

	present[i] = 0;

    present[HTML_A_HREF] = YES;

    ((const char **) value)[HTML_A_HREF] = addr;

    present[HTML_A_TITLE] = YES;

    ((const char **) value)[HTML_A_TITLE] = text;

    CTRACE((tfp, "HTGopher: adding URL: %s\n", addr));

    HT_Is_Gopher_URL = TRUE;	/* tell HTML.c that this is a Gopher URL */

    (*targetClass.start_element) (target, HTML_A, present,

				  (const char **) value, -1, 0);

    PUTS(text);

    END(HTML_A);

}

/*	Parse a Gopher Menu document

 *	============================

 */

static void parse_menu(const char *arg GCC_UNUSED,

		       HTParentAnchor *anAnchor)

{

    char gtype;

    char this_type;

    int ich;

    char line[BIG];

    char *name = NULL, *selector = NULL;	/* Gopher menu fields */

    char *host = NULL;

    char *port;

    char *p = line;

    const char *title;

    int bytes = 0;

    int BytesReported = 0;

    char buffer[128];

#define TAB		'\t'

#define HEX_ESCAPE	'%'

    START(HTML_HTML);

    PUTC('\n');

    START(HTML_HEAD);

    PUTC('\n');

    START(HTML_TITLE);

    if ((title = HTAnchor_title(anAnchor)))

	PUTS(title);

    else

	PUTS(GOPHER_MENU_TITLE);

    END(HTML_TITLE);

    PUTC('\n');

    END(HTML_HEAD);

    PUTC('\n');

    START(HTML_BODY);

    PUTC('\n');

    START(HTML_H1);

    if ((title = HTAnchor_title(anAnchor)))

	PUTS(title);

    else

	PUTS(GOPHER_MENU_TITLE);

    END(HTML_H1);

    PUTC('\n');

    START(HTML_PRE);

    PUTC('\n');			/* newline after HTML_PRE forces split-line */

    this_type = GOPHER_ERROR;

    while ((ich = NEXT_CHAR) != EOF) {

	if (interrupted_in_htgetcharacter) {

	    CTRACE((tfp,

		    "HTGopher: Interrupted in HTGetCharacter, apparently.\n"));

	    goto end_html;

	}

	if ((char) ich != LF) {

	    *p = (char) ich;	/* Put character in line */

	    if (p < &line[BIG - 1])

		p++;

	} else {

	    *p++ = '\0';	/* Terminate line */

	    bytes += (int) (p - line);	/* add size */

	    p = line;		/* Scan it to parse it */

	    port = 0;		/* Flag "not parsed" */

	    CTRACE((tfp, "HTGopher: Menu item: %s\n", line));

	    gtype = *p++;

	    if (bytes > BytesReported + 1024) {

		sprintf(buffer, TRANSFERRED_X_BYTES, bytes);

		HTProgress(buffer);

		BytesReported = bytes;

	    }

	    /* Break on line with a dot by itself */

	    if ((gtype == '.') && ((*p == '\r') || (*p == 0)))

		break;

	    if (gtype && *p) {

		name = p;

		selector = StrChr(name, TAB);

		if (selector) {

		    *selector++ = '\0';		/* Terminate name */

		    /*

		     * Gopher+ Type=0+ objects can be binary, and will

		     * have 9 or 5 beginning their selector.  Make sure

		     * we don't trash the terminal by treating them as

		     * text. - FM

		     */

		    if (gtype == GOPHER_TEXT && (*selector == GOPHER_BINARY ||

						 *selector == GOPHER_PCBINARY))

			gtype = *selector;

		    host = StrChr(selector, TAB);

		    if (host) {

			*host++ = '\0';		/* Terminate selector */

			port = StrChr(host, TAB);

			if (port) {

			    char *junk;

			    port[0] = ':';	/* delimit host a la W3 */

			    junk = StrChr(port, TAB);

			    if (junk)

				*junk = '\0';	/* Chop port */

			    if ((port[1] == '0') && (!port[2]))

				port[0] = '\0';		/* 0 means none */

			}	/* no port */

		    }		/* host ok */

		}		/* selector ok */

	    }

	    /* gtype and name ok */

	    /* Nameless files are a separator line */

	    if (name != NULL && gtype == GOPHER_TEXT) {

		int i = (int) strlen(name) - 1;

		while (name[i] == ' ' && i >= 0)

		    name[i--] = '\0';

		if (i < 0)

		    gtype = GOPHER_INFO;

	    }

	    if (gtype == GOPHER_WWW) {	/* Gopher pointer to W3 */

		PUTS("(HTML) ");

		write_anchor(name, selector);

	    } else if (gtype == GOPHER_INFO) {

		/* Information or separator line */

		PUTS("       ");

		PUTS(name);

	    } else if (port &&	/* Other types need port */

		       (gtype != GOPHER_DUPLICATE ||

			this_type != GOPHER_ERROR)) {

		char *address = 0;

		const char *format = *selector ? "%s//%s@%s/" : "%s//%s/";

		if (gtype == GOPHER_TELNET) {

		    PUTS(" (TEL) ");

		    HTSprintf0(&address, format, STR_TELNET_URL, selector, host);

		} else if (gtype == GOPHER_TN3270) {

		    PUTS("(3270) ");

		    HTSprintf0(&address, format, STR_TN3270_URL, selector, host);

		} else {	/* If parsed ok */

		    char *r;

		    switch (gtype) {

		    case GOPHER_TEXT:

			PUTS("(FILE) ");

			break;

		    case GOPHER_MENU:

			PUTS(" (DIR) ");

			break;

		    case GOPHER_DUPLICATE:

			PUTS(" (+++) ");

			break;

		    case GOPHER_CSO:

			PUTS(" (CSO) ");

			break;

		    case GOPHER_PCBINARY:

			PUTS(" (BIN) ");

			break;

		    case GOPHER_UUENCODED:

			PUTS(" (UUE) ");

			break;

		    case GOPHER_INDEX:

			PUTS("  (?)  ");

			break;

		    case GOPHER_BINARY:

			PUTS(" (BIN) ");

			break;

		    case GOPHER_GIF:

		    case GOPHER_IMAGE:

		    case GOPHER_PLUS_IMAGE:

			PUTS(" (IMG) ");

			break;

		    case GOPHER_SOUND:

		    case GOPHER_PLUS_SOUND:

			PUTS(" (SND) ");

			break;

		    case GOPHER_MACBINHEX:

			PUTS(" (HQX) ");

			break;

		    case GOPHER_HTML:

		    case GOPHER_CHTML:

			PUTS("(HTML) ");

			break;

		    case 'm':

			PUTS("(MIME) ");

			break;

		    case GOPHER_PLUS_MOVIE:

			PUTS(" (MOV) ");

			break;

		    case GOPHER_PLUS_PDF:

			PUTS(" (PDF) ");

			break;

		    default:

			PUTS("(UNKN) ");

			break;

		    }

		    if (gtype != GOPHER_DUPLICATE)

			this_type = gtype;

		    HTSprintf0(&address, "//%s/%c", host, this_type);

		    for (r = selector; *r; r++) {	/* Encode selector string */

			if (acceptable[UCH(*r)]) {

			    HTSprintf(&address, "%c", *r);

			} else {

			    HTSprintf(&address, "%c%c%c",

				      HEX_ESCAPE,	/* Means hex coming */

				      hex[(TOASCII(*r)) >> 4],

				      hex[(TOASCII(*r)) & 15]);

			}

		    }

		}

		/* Error response from Gopher doesn't deserve to

		   be a hyperlink. */

		if (strcmp(address, "gopher://error.host:1/0"))

		    write_anchor(name, address);

		else

		    PUTS(name);

		FREE(address);

	    } else {		/* parse error */

		CTRACE((tfp, "HTGopher: Bad menu item (type %d, port %s).\n",

			gtype, NonNull(port)));

		PUTS(line);

	    }			/* parse error */

	    PUTC('\n');

	    p = line;		/* Start again at beginning of line */

	}			/* if end of line */

    }				/* Loop over characters */

  end_html:

    END(HTML_PRE);

    PUTC('\n');

    END(HTML_BODY);

    PUTC('\n');

    END(HTML_HTML);

    PUTC('\n');

    FREE_TARGET;

    return;

}

/*	Parse a Gopher CSO document from an ISINDEX query.

 *	==================================================

 *

 *   Accepts an open socket to a CSO server waiting to send us

 *   data and puts it on the screen in a reasonable manner.

 *

 *   Perhaps this data can be automatically linked to some

 *   other source as well???

 *

 *  Taken from hacking by Lou Montulli@ukanaix.cc.ukans.edu

 *  on XMosaic-1.1, and put on libwww 2.11 by Arthur Secret,

 *  secret@dxcern.cern.ch .

 */

static void parse_cso(const char *arg,

		      HTParentAnchor *anAnchor)

{

    int ich;

    char line[BIG];

    char *p = line;

    char *first_colon, *second_colon, last_char = '\0';

    const char *title;

    START(HTML_HEAD);

    PUTC('\n');

    START(HTML_TITLE);

    if ((title = HTAnchor_title(anAnchor)))

	PUTS(title);

    else

	PUTS(GOPHER_CSO_SEARCH_RESULTS);

    END(HTML_TITLE);

    PUTC('\n');

    END(HTML_HEAD);

    PUTC('\n');

    START(HTML_H1);

    if ((title = HTAnchor_title(anAnchor)))

	PUTS(title);

    else {

	PUTS(arg);

	PUTS(GOPHER_SEARCH_RESULTS);

    }

    END(HTML_H1);

    PUTC('\n');

    START(HTML_PRE);

    /*

     * Start grabbing chars from the network.

     */

    while ((ich = NEXT_CHAR) != EOF) {

	if ((char) ich != LF) {

	    *p = (char) ich;	/* Put character in line */

	    if (p < &line[BIG - 1])

		p++;

	} else {

	    *p = '\0';		/* Terminate line */

	    p = line;		/* Scan it to parse it */

	    /*

	     * OK we now have a line in 'p'.  Lets parse it and print it.

	     */

	    /*

	     * Break on line that begins with a 2.  It's the end of data.

	     */

	    if (*p == '2')

		break;

	    /*

	     * Lines beginning with 5 are errors.  Print them and quit.

	     */

	    if (*p == '5') {

		START(HTML_H2);

		PUTS(p + 4);

		END(HTML_H2);

		break;

	    }

	    if (*p == '-') {

		/*

		 * Data lines look like -200:#:

		 * where # is the search result number and can be multiple

		 * digits (infinite?).

		 * Find the second colon and check the digit to the left of it

		 * to see if they are diferent.  If they are then a different

		 * person is starting.  Make this line an 
.

		 */

		/*

		 * Find the second_colon.

		 */

		second_colon = NULL;

		first_colon = StrChr(p, ':');

		if (first_colon != NULL) {

		    second_colon = StrChr(first_colon + 1, ':');

		}

		if (second_colon != NULL) {	/* error check */

		    if (*(second_colon - 1) != last_char)

			/* print seperator */

		    {

			END(HTML_PRE);

			START(HTML_H2);

		    }

		    /*

		     * Right now the record appears with the alias (first line)

		     * as the header and the rest as 
 text.

		     *

		     * It might look better with the name as the header and the

		     * rest as a 
 with 
 tags.  I'm not sure whether the

		     * name field comes in any special order or if its even

		     * required in a record, so for now the first line is the

		     * header no matter what it is (it's almost always the

		     * alias).

		     *

		     * A 
 with the first line as the 
 and the rest as

		     * some form of 
 might good also?

		     */

		    /*

		     * Print data.

		     */

		    PUTS(second_colon + 1);

		    PUTC('\n');

		    if (*(second_colon - 1) != last_char)

			/* end seperator */

		    {

			END(HTML_H2);

			START(HTML_PRE);

		    }

		    /*

		     * Save the char before the second colon for comparison on

		     * the next pass.

		     */

		    last_char = *(second_colon - 1);

		}		/* end if second_colon */

	    }			/* end if *p == '-' */

	}			/* if end of line */

    }				/* Loop over characters */

    /* end the text block */

    PUTC('\n');

    END(HTML_PRE);

    PUTC('\n');

    FREE_TARGET;

    return;			/* all done */

}				/* end of procedure */

/*	Display a Gopher CSO ISINDEX cover page.

 *	========================================

 */

static void display_cso(const char *arg,

			HTParentAnchor *anAnchor)

{

    const char *title;

    START(HTML_HEAD);

    PUTC('\n');

    START(HTML_TITLE);

    if ((title = HTAnchor_title(anAnchor)))

	PUTS(title);

    else

	PUTS(GOPHER_CSO_INDEX);

    END(HTML_TITLE);

    PUTC('\n');

    START(HTML_ISINDEX);

    PUTC('\n');

    END(HTML_HEAD);

    PUTC('\n');

    START(HTML_H1);

    if ((title = HTAnchor_title(anAnchor)))

	PUTS(title);

    else {

	PUTS(arg);

	PUTS(INDEX_SEGMENT);

    }

    END(HTML_H1);

    PUTS(GOPHER_CSO_INDEX_SUBTITLE);

    START(HTML_P);

    PUTS(GOPHER_CSO_SOLICIT_KEYWORDS);

    START(HTML_P);

    PUTS(SEGMENT_KEYWORDS_WILL);

    PUTS(SEGMENT_PERSONS_DB_NAME);

    if (!HTAnchor_title(anAnchor))

	HTAnchor_setTitle(anAnchor, arg);

    FREE_TARGET;

    return;

}

/*	Display a Gopher Index document.

 *	================================

 */

static void display_index(const char *arg,

			  HTParentAnchor *anAnchor)

{

    const char *title;

    START(HTML_HEAD);

    PUTC('\n');

    PUTC('\n');

    START(HTML_TITLE);

    if ((title = HTAnchor_title(anAnchor)))

	PUTS(title);

    else

	PUTS(GOPHER_INDEX_TITLE);

    END(HTML_TITLE);

    PUTC('\n');

    START(HTML_ISINDEX);

    PUTC('\n');

    END(HTML_HEAD);

    PUTC('\n');

    START(HTML_H1);

    if ((title = HTAnchor_title(anAnchor)))

	PUTS(title);

    else {

	PUTS(arg);

	PUTS(INDEX_SEGMENT);

    }

    END(HTML_H1);

    PUTS(GOPHER_INDEX_SUBTITLE);

    START(HTML_P);

    PUTS(GOPHER_SOLICIT_KEYWORDS);

    if (!HTAnchor_title(anAnchor))

	HTAnchor_setTitle(anAnchor, arg);

    FREE_TARGET;

    return;

}

/*	De-escape a selector into a command.

 *	====================================

 *

 *	The % hex escapes are converted. Otheriwse, the string is copied.

 */

static void de_escape(char *command, const char *selector)

{

    const char *p = selector;

    char *q;

    if (command == NULL)

	outofmem(__FILE__, "HTLoadGopher");

    q = command;

    while (*p) {		/* Decode hex */

	if (*p == HEX_ESCAPE) {

	    char c;

	    unsigned int b;

	    p++;

	    c = *p++;

	    b = UCH(from_hex(c));

	    c = *p++;

	    if (!c)

		break;		/* Odd number of chars! */

	    *q++ = (char) FROMASCII((b << 4) + UCH(from_hex(c)));

	} else {

	    *q++ = *p++;	/* Record */

	}

    }

    *q = '\0';			/* Terminate command */

}

/*	Free the CSOfields structures. - FM

 *	===================================

 */

static void free_CSOfields(void)

{

    CSOfield_info *cur = CSOfields;

    CSOfield_info *prev;

    while (cur) {

	if (cur->name != cur->name_buf)

	    FREE(cur->name);

	if (cur->attributes != cur->attr_buf)

	    FREE(cur->attributes);

	if (cur->description != cur->desc_buf)

	    FREE(cur->description);

	prev = cur;

	cur = cur->next;

	FREE(prev);

    }

    return;

}

/*	Interpret CSO/PH form template keys. - FM

 *	=========================================

 */

static void interpret_cso_key(const char *key,

			      char *buf,

			      size_t bufsize,

			      int *length,

			      CSOformgen_context * ctx,

			      HTStream *Target)

{

    CSOfield_info *fld;

    if ((fld = ctx->fld) != 0) {

	/*

	 * Most substitutions only recognized inside of loops.

	 */

	int error = 0;

	if (0 == StrNCmp(key, "$(FID)", 6)) {

	    sprintf(buf, "%d", fld->id);

	} else if (0 == StrNCmp(key, "$(FDESC)", 8)) {

	    sprintf(buf, "%.2046s", fld->description);

	} else if (0 == StrNCmp(key, "$(FDEF)", 7)) {

	    strcpy(buf, fld->defreturn ? " checked" : "");

	} else if (0 == StrNCmp(key, "$(FNDX)", 7)) {

	    strcpy(buf, fld->indexed ? "*" : "");

	} else if (0 == StrNCmp(key, "$(FSIZE)", 8)) {

	    sprintf(buf, " size=%d maxlength=%d",

		    fld->max_size > 55 ? 55 : fld->max_size,

		    fld->max_size);

	} else if (0 == StrNCmp(key, "$(FSIZE2)", 9)) {

	    sprintf(buf, " maxlength=%d", fld->max_size);

	} else {

	    error = 1;

	}

	if (!error) {

	    *length = (int) strlen(buf);

	    return;

	}

    }

    buf[0] = '\0';

    if (0 == StrNCmp(key, "$(NEXTFLD)", 10)) {

	if (!ctx->fld)

	    fld = CSOfields;

	else

	    fld = ctx->fld->next;

	switch (ctx->field_select) {

	case 0:

	    /*

	     * 'Query' fields, public and lookup attributes.

	     */

	    for (; fld; fld = fld->next)

		if (fld->gpublic && (fld->lookup == 1))

		    break;

	    break;

	case 1:

	    /*

	     * 'Query' fields, accept lookup attribute.

	     */

	    for (; fld; fld = fld->next)

		if (fld->lookup == 1)

		    break;

	    break;

	case 2:

	    /*

	     * 'Return' fields, public only.

	     */

	    for (; fld; fld = fld->next)

		if (fld->gpublic)

		    break;

	    break;

	case 3:

	    /*

	     * All fields.

	     */

	    break;

	}

	if (fld) {

	    ctx->cur_line = ctx->rep_line;

	    ctx->cur_off = ctx->rep_off;

	}

	ctx->fld = fld;

    } else if ((0 == StrNCmp(key, "$(QFIELDS)", 10)) ||

	       (0 == StrNCmp(key, "$(RFIELDS)", 10))) {

	/*

	 * Begin iteration sequence.

	 */

	ctx->rep_line = ctx->cur_line;

	ctx->rep_off = ctx->cur_off;

	ctx->fld = (CSOfield_info *) 0;

	ctx->seek = "$(NEXTFLD)";

	ctx->field_select = (key[2] == 'Q') ? 0 : 2;

	if (ctx->public_override)

	    ctx->field_select++;

    } else if (0 == StrNCmp(key, "$(NAMEFLD)", 10)) {

	/*

	 * Special, locate name field.  Flag lookup so QFIELDS will skip it.

	 */

	for (fld = CSOfields; fld; fld = fld->next)

	    if (strcmp(fld->name, "name") == 0 ||

		strcmp(fld->name, "Name") == 0) {

		if (fld->lookup)

		    fld->lookup = 2;

		break;

	    }

	ctx->fld = fld;

    } else if (0 == StrNCmp(key, "$(HOST)", 7)) {

	strcpy(buf, ctx->host);

    } else if (0 == StrNCmp(key, "$(PORT)", 7)) {

	sprintf(buf, "%d", ctx->port);

    } else {

	/*

	 * No match, dump key to buffer so client sees it for debugging.

	 */

	size_t out = 0;

	while (*key && (*key != ')')) {

	    buf[out++] = (*key++);

	    if (out > bufsize - 2) {

		buf[out] = '\0';

		(*Target->isa->put_block) (Target, buf, (int) strlen(buf));

		out = 0;

	    }

	}

	buf[out++] = ')';

	buf[out] = '\0';

    }

    *length = (int) strlen(buf);

    return;

}