/* AnyURL.c   CGI form action to combine inputs into a Location: URL
   origin     massively modified from NCSA Mosaic post-query.c and query.c
   requires   util.c (unmodified from NCSA Mosaic util.c)
   requires   slurp.c
   requires   nextok.c
   author     Mark Renton (MACROSTAFF) renton@pmel.noaa.gov TOGA-TAO

*/
#define version "(1.5)"
/*
   version    1.5  Sep 96   slurp.c checks for no REQUEST_METHOD
   version    1.4  Nov 95   version reporting, -DNOCONTENT, minor formatting
   version    1.3  Oct 95   use slurp.c
				allow FORM METHOD=GET in addition to METHOD=POST
				    (workaround for AOL and Spry browsers bug)
				don't modify QUERY_STRING environment variable
				renamed variable 'm' to 'NE' (Number of Entries)
				renamed variable 'x' to 'E' (Entry)
			    include documentation URL in error output
 
   version    1.2  Aug 95   hidden "debug" OK, add link on debug page
   version    1.1  May 95   multi-character input names
   version    1.0  Nov 94   first implementation

"any URL" = let .html form feed us parts which we compose into a Location: URL

Accepts CGI form input with variable names; "debug", "control" are special.
Examples:

    1.	control = @a://@b/~c/
	a = http
	b = www.pmel.noaa.gov
	c = renton
      yields
	Location:  http://www.pmel.noaa.gov/~renton/

    2.  control = @{mode}://@{node}/@{file}
	mode = ftp
	node,file = ftp.pmel.noaa.gov,OCRD/webutil/AnyURL.tar.Z
      yields
	Location:  ftp://ftp.pmel.noaa.gov/OCRD/webutil/AnyURL.tar.Z

If debug=on, will build a text/html showing you what you fed it plus a link.

Default control is just to concatenate all a..z (@a@b@c...@z)

There are so many special characters in use that we have difficulty choosing
one for AnyURL.
*/

#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "nextok.c"

#define MAX_ENTRIES 10000
#define MAX_LENGTH  1000  /* MWR */

typedef struct {
    char *name;
    char *val;
} entry;

char *makeword(char *line, char stop);
char *fmakeword(FILE *f, char stop, int *len);
char x2c(char *what);
void unescape_url(char *url);
void plustospace(char *str);

    entry entries[MAX_ENTRIES];
    int E,NE=0;
    int cl;

/* MWR - added lookup, value, hackvalues, decomma, use_control */

/* lookup:  scan 'entries' for given name, result matching index or -1 */

int lookup(char *word) {
	register int i;
/*
printf("lookup nc=%d |%s|\n",strlen(word),word);
{int j; for(j=0;j<strlen(word);j++){printf("%d,",(int)word[j]);}printf("\n");}
*/
        for(i=0;i<=NE;i++) if (!strcmp(entries[i].name,word)) return i;
	return -1;
}

/* value:  return value for given name, or null string if not present */

char *value(char *word) {
	register int j;
	j = lookup(word);
	if ( j == -1 ) return "" ; else return entries[j].val;
}

/* hackvalues:  hack in substitute values (to solve PC/Mac client menu problem)
strategy:  where exists @name1=value change name2=name1 to name2=value
*/

void hackvalues () {
    int i,j;

    for(i=0; i <= NE; i++)
    if ((*entries[i].name) == '@')
      for(j=0; j<=NE; j++)
        if(!strcmp(entries[i].name+1,entries[j].val))
          entries[j].val=entries[i].val;
}

/* decomma:  to allow one item to select matching parts, let a name be like
"a,f" with value of "avalue,fvalue"; split these up, adding entries */

void decomma () {
	register int i, stopat, startat;
	char *n, *v;

	stopat = NE;
	for(i=0;i<=stopat;i++)
	if (strchr(entries[i].name,',')!=NULL) {
		n=strtok(entries[i].name,",");
		startat=NE;
		while ((n=strtok(NULL,",")) !=NULL)
		{
			entries[++NE].name=n;
			entries[NE].val="";
		}
		v=nextok(entries[i].val,",");
		while ((v=nextok(NULL,",")) !=NULL)
		{
			entries[++startat].val=v;
		}

	}
}

void use_control (char *control, char *complete) {
    char *key, *temp, keyname[64];

    key = keyname;

    while (*control) {
	if (*control=='@') {
	    control++;
	    if (*control) {
		if (*control=='@') {
/* @@ */
		    *complete++ = '@';
		    control++;
		} else if (*control=='{') {
/* @{name} */
		    int nc;
		    control++;
		    nc = strcspn(control,"}");
		    if (nc>(sizeof(keyname)-1)) nc = sizeof(keyname)-1;
		    strncpy(keyname,control,nc);
		    keyname[nc]='\0';
		/*  printf("keyname=|%s|\n",keyname); */
		    control += nc;
		    if(*control=='}') control++;
		    temp=value(keyname);
		    while(*temp) { *complete++ = *temp++; };
		} else {
/* @x */
		    keyname[0] = *control++;
		    keyname[1] = '\0';
		    temp=value(keyname);
		    while(*temp) { *complete++ = *temp++; };
		}
	    }
	}
	else *complete++ = *control++;
    };
    *complete = '\0';
}

int header_output=0;

#define text_header  if(header_output++==0) printf("Content-type: text/plain\n\n")
#define html_header  if(header_output++==0) printf(html_header_text)
#define html_header_text "Content-type: text/html\n\n"  
#define lf printf("<BR>\n")
#define error_header html_header; lf; printf("<B>AnyURL " version " encountered an error</B>"); lf; lf

#define forms_URL "http://www.ncsa.uiuc.edu/SDG/Software/Mosaic/Docs/fill-out-forms/overview.html"
#define AnyURL_URL "http://www.pmel.noaa.gov/toga-tao/AnyURL.html"

#define more_info \
	printf(\
	"<P>For more information, see NCSA's \n"\
	"<A HREF=\"" forms_URL "\">forms overview</A> or the \n"\
	"<A HREF=\"" AnyURL_URL "\">AnyURL documentation</A>.\n"\
	)

#include "slurp.c"

main(int argc, char *argv[]) {

  char *control;
  char *complete = (char *) malloc(sizeof(char) * (MAX_LENGTH+ 1));

#define MAX_DEBUG_LINES (MAX_ENTRIES+10)
#define MAX_DEBUG_LENGTH (MAX_LENGTH+100)
  char *debug_lines[MAX_DEBUG_LINES];
  int  last_debug_line=-1;
#define DEBUG_PRINTF debug_lines[++last_debug_line] = \
	(char *) malloc(sizeof(char) * MAX_DEBUG_LENGTH); \
	sprintf (debug_lines[last_debug_line],

/* slurp in that input, whether GET or POST */

slurp();

/* in case the value for "debug" is derived via hackvalues and decomma,
   we store the pre-{hackvalues-and-decomma} debug information in memory
*/
    {
    DEBUG_PRINTF html_header_text);
    DEBUG_PRINTF "<H1>AnyURL " version " was given these values:</H1>");
    DEBUG_PRINTF "<UL>");

    for(E=0; E <= NE; E++) {
     DEBUG_PRINTF "<li> <code>%s = %s</code>", entries[E].name, entries[E].val);
    }
/*    if(!strcmp(value("control"),""))
     DEBUG_PRINTF "<li> <code>%s = %s</code>", "control", value("control"));
*/
    DEBUG_PRINTF "</UL><BR>");
    };

    hackvalues();
    decomma();

    if ( lookup("control") == -1 ) control="@a@b@c@d@e@f@g@h@i@j@k@l@m@n@o@p@q@r@s@t@u@v@w@x@y@z";
    else control = value("control");

    use_control(control,complete);

    if (!strcasecmp(value("debug"),"on")) {

	int j;
	for (j=0;j<=last_debug_line;j++) puts(debug_lines[j]);

	printf("<H1>AnyURL resulted in these values:</H1>");
	printf("<ul>\n");

	for(E=0; E <= NE; E++)
            if(*entries[E].name!='@')
            printf("<li> <code>%s = %s</code>\n", entries[E].name, entries[E].val);
            if(!strcmp(value("control"),"")) printf("<li> <code>%s = %s</code>\n","control",control);
	printf("</ul>\n");

        printf("<B>Location: <code>%s</code><B>\n\n",complete);

	printf("<P><B>Attempted link -- <A HREF=\"%s\">%s</A></B>\n\n",complete,complete);

    } else if (!strcasecmp(value("debug"),"show")) {

	html_header;
	printf("<P><B>Attempted link -- <A HREF=\"%s\">%s</A></B>\n\n",complete,complete);

    } else {

#ifndef NOCONTENT
	printf("Content-type: text/html\n");	/* should this be here??? */
#endif
        printf("Location: %s\n\n",complete);
    }
}