/*								     HTDialog.c**	MESSAGES AND DIALOGS****	(c) COPYRIGHT MIT 1995.**	Please first read the full copyright statement in the file COPYRIGH.**	@(#) $Id: HTDialog.c,v 2.35 1999/03/01 13:39:31 frystyk Exp $****	This module provides a default implementation of the application part**	of the Message and Dialog part or the Library. You do not have to do**	it like this - you can use exactly the model for mapping codes into**	messages as you like**** Authors**	HFN	Henrik Frystyk*//* Library include files */#include "WWWLib.h"#include "WWWApp.h"#include "WWWHTTP.h"#include "HTDialog.h"					 /* Implemented here *//*** Dialog Messages*/PRIVATE const char * HTDialogs[HT_MSG_ELEMENTS] = {HT_MSG_ENGLISH_INITIALIZER};/*** All errors that are not strictly HTTP errors but originates from, e.g., ** the FTP protocol all have element numbers > HTERR_HTTP_CODES_END, i.e.,** they should be placed after the blank line*/PRIVATE HTErrorMessage HTErrors[HTERR_ELEMENTS] = {HTERR_ENGLISH_INITIALIZER};/* ------------------------------------------------------------------------- *//*			Functions for generating messages		     *//* ------------------------------------------------------------------------- */PUBLIC char * HTDialog_progressMessage (HTRequest * request, HTAlertOpcode op,			                int msgnum, const char * dfault,					void * input){    char * result = NULL;    switch (op) {      case HT_PROG_DNS:	StrAllocMCopy(&result, "Looking up ",		      input ? (char *) input : "",		      NULL);	break;      case HT_PROG_CONNECT:	StrAllocMCopy(&result, "Contacting ",		      input ? (char *) input : "",		      NULL);	break;      case HT_PROG_ACCEPT:	StrAllocCopy(result, "Waiting for connection...");	break;      case HT_PROG_LOGIN:	StrAllocCopy(result, "Logging in...");	break;      case HT_PROG_READ:	if (request) {	    long cl = HTAnchor_length(HTRequest_anchor(request));	    if (cl > 0) {		long b_read = HTRequest_bodyRead(request);		double pro = (double) b_read/cl*100;		char buf[10];		char pct[10];		HTNumToStr((unsigned long) cl, buf, 10);		sprintf(pct, "%d%%", (int) pro);		StrAllocMCopy(&result, "Read (", pct, " of ", buf, ")", NULL);	    } else {		long b_read = HTRequest_bytesRead(request);		int * raw_read = input ? (int *) input : NULL;		if (b_read > 0) {		    char buf[10];		    HTNumToStr(b_read, buf, 10);		    StrAllocMCopy(&result, "Read ", buf, "bytes", NULL);		} else if (raw_read && *raw_read>0) {		    char buf[10];		    HTNumToStr(*raw_read, buf, 10);		    StrAllocMCopy(&result, "Read ", buf, "bytes", NULL);		} else {		    StrAllocCopy(result, "Reading...");		}	    }	}	break;      case HT_PROG_WRITE:	if (request && HTMethod_hasEntity(HTRequest_method(request))) {	    HTParentAnchor *anchor=HTRequest_anchor(HTRequest_source(request));	    long cl = HTAnchor_length(anchor);	    if (cl > 0) {		long b_write = HTRequest_bodyWritten(request);		double pro = (double) b_write/cl*100;		char buf[10];		char pct[10];		HTNumToStr((unsigned long) cl, buf, 10);		sprintf(pct, "%d%%", (int) pro);		StrAllocMCopy(&result, "Writing (", pct, " of ", buf, ")", NULL);	    } else {		long b_written = HTRequest_bytesWritten(request);		int * raw_written = input ? (int *) input : NULL;		if (b_written > 0) {		    char buf[10];		    HTNumToStr(b_written>0 ? b_written : 0, buf, 10);		    StrAllocMCopy(&result, "Writing ", buf, "bytes", NULL);		} if (raw_written && *raw_written>0) {		    char buf[10];		    HTNumToStr(*raw_written, buf, 10);		    StrAllocMCopy(&result, "Writing ", buf, "bytes", NULL);		} else {		    StrAllocCopy(result, "Writing...");		}	    }        }	break;      case HT_PROG_DONE:	StrAllocCopy(result, "Done!");	break;      case HT_PROG_INTERRUPT:	StrAllocCopy(result, "Interrupted!");	break;      case HT_PROG_OTHER:	StrAllocCopy(result, "Working - please wait...");	break;      case HT_PROG_TIMEOUT:	StrAllocCopy(result, "Request timeout - server did not respond.");	break;      default:	StrAllocCopy(result, "UNKNOWN PROGRESS STATE");	break;    }    return result;}PUBLIC char * HTDialog_errorMessage (HTRequest * request, HTAlertOpcode op,			             int msgnum, const char * dfault,				     void * input){    HTList * cur = (HTList *) input;    HTError * pres;    HTErrorShow showmask = HTError_show();    HTChunk * msg = NULL;    int code;    if (!request || !cur) return NULL;    while ((pres = (HTError *) HTList_nextObject(cur))) {	int index = HTError_index(pres);	if (HTError_doShow(pres)) {	    if (!msg) {		HTSeverity severity = HTError_severity(pres);		msg = HTChunk_new(128);		if (severity == ERR_WARN)		    HTChunk_puts(msg, "Warning: ");		else if (severity == ERR_NON_FATAL)		    HTChunk_puts(msg, "Non Fatal Error: ");		else if (severity == ERR_FATAL)		    HTChunk_puts(msg, "Fatal Error: ");		else if (severity == ERR_INFO)		    HTChunk_puts(msg, "Information: ");		else {		    HTChunk_puts(msg, "UNKNOWN ERROR TYPE");		    return HTChunk_toCString(msg);		}		/* Error number */		if ((code = HTErrors[index].code) > 0) {		    char buf[10];		    sprintf(buf, "%d ", code);		    HTChunk_puts(msg, buf);		}	    } else		HTChunk_puts(msg, "\nReason: ");	    if (index == HTERR_SYSTEM) {		int length = 0;		char * pars = (char *) HTError_parameter(pres, &length);		HTChunk_puts(msg, HTError_location(pres));		HTChunk_puts(msg, " ");		HTChunk_puts(msg, HTErrors[index].msg);		if (length && pars) {		    HTChunk_puts(msg, " (");		    HTChunk_puts(msg, pars);		    HTChunk_puts(msg, ")");		}			    } else {		/* Error message */		HTChunk_puts(msg, HTErrors[index].msg);		/* Error parameters */		if (showmask & HT_ERR_SHOW_PARS) {		    int length;		    int cnt;				    char *pars = (char *) HTError_parameter(pres, &length);		    if (length && pars) {			HTChunk_puts(msg, " (");			for (cnt=0; cnt<length; cnt++) {			    char ch = *(pars+cnt);			    if (ch < 0x20 || ch >= 0x7F)				HTChunk_putc(msg, '#');			    else				HTChunk_putc(msg, ch);			}			HTChunk_puts(msg, ") ");		    }		}				/* Error Location */		if (showmask & HT_ERR_SHOW_LOCATION) {		    HTChunk_puts(msg, "This occured in ");		    HTChunk_puts(msg, HTError_location(pres));		    HTChunk_putc(msg, '\n');		}	    }	    /*	    ** Make sure that we don't get this error more than once even	    ** if we are keeping the error stack from one request to another	    */	    HTError_setIgnore(pres);	    	    /* If we only are show the most recent entry then break here */	    if (showmask & HT_ERR_SHOW_FIRST)		break;	}    }    return HTChunk_toCString(msg);}/* ------------------------------------------------------------------------- *//***  Functions for providing user interactions registered in the**  HTAlert module. These functions are the default set of user**  inteactions that are provided by libwww. You are likely to want to generate your own versions**  that can be registered instead.*/PUBLIC BOOL HTProgress (HTRequest * request, HTAlertOpcode op,			int msgnum, const char * dfault, void * input,			HTAlertPar * reply){    char * msg = HTDialog_progressMessage(request, op, msgnum, dfault, input);    if (msg) {	HTPrint("%s\n", msg);	HT_FREE(msg);    }    return YES;}PUBLIC BOOL HTConfirm (HTRequest * request, HTAlertOpcode op,		       int msgnum, const char * dfault, void * input,		       HTAlertPar * reply){    char response[4];	/* One more for terminating NULL -- AL */    HTPrint("%s", HTDialogs[msgnum]);    if (input) HTPrint(" (%s)", (char *) input);    HTPrint(" (y/n) ");    if (fgets(response, 4, stdin)) { 		   /* get reply, max 3 chars */	char *ptr = response;	while (*ptr) {	    if (*ptr == '\n') {		*ptr = '\0';		break;	    }	    *ptr = TOUPPER(*ptr);	    ptr++;	}	return (!strcmp(response, "YES") || !strcmp(response, "Y")) ? YES : NO;    }    return NO;}/*	Prompt for answer and get text back. Reply text is either NULL on**	error or a dynamic string which the caller must HT_FREE.*/PUBLIC BOOL HTPrompt (HTRequest * request, HTAlertOpcode op,		      int msgnum, const char * dfault, void * input,		      HTAlertPar * reply){    HTPrint("%s ", HTDialogs[msgnum]);    if (input) HTPrint(" (%s) ", (char *) input);    if (dfault) HTPrint("(RETURN for [%s]) ", (char *) dfault);    if (reply && msgnum>=0) {        char buffer[200];	if (!fgets(buffer, 200, stdin)) return NO;	buffer[strlen(buffer)-1] = '\0';	        /* Overwrite newline */	if (*buffer)	    HTAlert_setReplyMessage(reply, buffer);	else if (dfault)	    HTAlert_setReplyMessage(reply, (char *) dfault);	else	    return NO;	return YES;    }    return NO;}/*	Prompt for password without echoing the reply. Reply text is**	either NULL on error or a dynamic string which the caller must HT_FREE.*/PUBLIC BOOL HTPromptPassword (HTRequest * request, HTAlertOpcode op,			      int msgnum, const char * dfault, void * input,			      HTAlertPar * reply){    if (reply && msgnum>=0) {#ifdef HAVE_GETPASS	char * pw = (char *) getpass(HTDialogs[msgnum]);	if (pw) HTAlert_setReplySecret(reply, pw);	return YES;#else	/*	**  This is just to be able to get it wo work when getpass() 	**  isn't available.	*/        char buffer[100];	memset(buffer, '\0', 100);        HTPrint("%s ", HTDialogs[msgnum]);	if (!fgets(buffer, 99, stdin)) return NO;	buffer[strlen(buffer)-1] = '\0';	        /* Overwrite newline */        if (*buffer) {            HTAlert_setReplySecret(reply, buffer);            return YES;        }        return NO;#endif /* HAVE_GETPASS */    }    return NO;}/*	Username and password**	---------------------**	Prompt Username and password as an atomic operation*/PUBLIC BOOL HTPromptUsernameAndPassword (HTRequest * request, HTAlertOpcode op,					 int msgnum, const char * dfault,					 void * input, HTAlertPar * reply){    BOOL status = HTPrompt(request, op, msgnum, dfault, input, reply);    return status ?	HTPromptPassword(request, op, HT_MSG_PW, dfault, input, reply) : NO;}/*	HTError_print**	-------------**	Default function that creates an error message using HTAlert() to**	put out the contents of the error_stack messages. Furthermore, the**	error_info structure contains a name of a help file that might be put**	up as a link. This file can then be multi-linguistic.*/PUBLIC BOOL HTError_print (HTRequest * request, HTAlertOpcode op,			   int msgnum, const char * dfault, void * input,			   HTAlertPar * reply){    char * msg = HTDialog_errorMessage(request, op, msgnum, dfault, input);    if (msg) {	HTPrint("%s\n", msg);	HT_FREE(msg);    }    return YES;}/*	NOT USED - HTError_response - NOT USED!!!**	-----------------------------------------**	Default function that creates an error message using HTAlert() to**	put out the contents of the error_stack messages. Furthermore, the**	error_info structure contains a name of a help file that might be put**	up as a link. This file can then be multi-linguistic.*/PUBLIC BOOL HTError_response (HTRequest * request, HTAlertOpcode op,			      int msgnum, const char * dfault, void * input,			      HTAlertPar * reply){    return NO;}