1 files changed, 0 insertions, 389 deletions
diff --git a/cpukit/httpd/default.c b/cpukit/httpd/default.c
deleted file mode 100644
index c485c22285..0000000000
--- a/cpukit/httpd/default.c
+++ /dev/null
@@ -1,389 +0,0 @@
-/*
- * default.c -- Default URL handler. Includes support for ASP.
- *
- * Copyright (c) Go Ahead Software Inc., 1995-1999. All Rights Reserved.
- *
- * See the file "license.txt" for usage and redistribution license requirements
- */
-
-/******************************** Description *********************************/
-
-/*
- *	This module provides default URL handling and Active Server Page support.
- *
- *	In many cases we don't check the return code of calls to websWrite as
- *	it is easier, smaller and non-fatal to continue even when the requesting
- *	browser has gone away.
- */
-
-/********************************* Includes ***********************************/
-
-#include	"wsIntrn.h"
-
-/*********************************** Locals ***********************************/
-
-static char_t	*websDefaultPage;			/* Default page name */
-static char_t	*websDefaultDir;			/* Default Web page directory */
-
-/**************************** Forward Declarations ****************************/
-
-static void websDefaultWriteEvent(webs_t wp);
-
-/*********************************** Code *************************************/
-/*
- *	Process a default URL request. This will validate the URL and handle "../"
- *	and will provide support for Active Server Pages. As the handler is the
- *	last handler to run, it always indicates that it has handled the URL 
- *	by returning 1. 
- */
-
-int websDefaultHandler(webs_t wp, char_t *urlPrefix, char_t *webDir, int arg,
-						char_t *url, char_t *path, char_t* query)
-{
-	websStatType	sbuf;
-	char_t			*lpath, *tmp;
-	char_t			*date;
-	int				bytes, flags, nchars;
-
-	a_assert(websValid(wp));
-	a_assert(url && *url);
-	a_assert(path && *path);
-	a_assert(query);
-
-/*
- *	Validate the URL and ensure that ".."s don't give access to unwanted files
- */
-	flags = websGetRequestFlags(wp);
-
-	if (websValidateUrl(wp, path) < 0) {
-		websError(wp, 500, T("Invalid URL %s"), url);
-		return 1;
-	}
-	lpath = websGetRequestLpath(wp);
-	nchars = gstrlen(lpath) - 1;
-	if (lpath[nchars] == '/' || lpath[nchars] == '\\') {
-		lpath[nchars] = '\0';
-	}
-
-/*
- *	If the file is a directory, redirect using the nominated default page
- */
-	if (websPageIsDirectory(lpath)) {
-		nchars = gstrlen(path);
-		if (path[nchars-1] == '/' || path[nchars-1] == '\\') {
-			path[--nchars] = '\0';
-		}
-		nchars += gstrlen(websDefaultPage) + 2;
-		tmp = NULL;
-		gsnprintf(&tmp, nchars, T("%s/%s"), path, websDefaultPage);
-		websRedirect(wp, tmp);
-		bfreeSafe(B_L, tmp);
-		return 1;
-	}
-
-/*
- *	Open the document. Stat for later use.
- */
-	if (websPageOpen(wp, lpath, path, SOCKET_RDONLY | SOCKET_BINARY,
-				0666) < 0) {
-			websError(wp, 400, 
-				T("Can't open document <b>%s</b><br>for URL <b>%s</b>"), 
-					lpath, url);
-			return 1;
-		} 
-		if (websPageStat(wp, lpath, path, &sbuf) < 0) {
-			websError(wp, 400, T("Can't stat page <b>%s</b><br>for URL <b>%s</b>"), 
-				lpath, url);
-		}
-
-/*
- *	If the page has not been modified since the user last received it and it
- *	is not dynamically generated each time (ASP), then optimize request by
- *	sending a 304 Use local copy response
- */
-	websStats.localHits++;
-#if WEBS_IF_MODIFIED_SUPPORT
-	if (flags & WEBS_IF_MODIFIED && !(flags & WEBS_ASP)) {
-		if (sbuf.mtime <= wp->since) {
-			websWrite(wp, T("HTTP/1.0 304 Use local copy\r\n"));
-
-			/* by license terms the following line of code must
-			 * not be modified.
-			 */
-			websWrite(wp, T("Server: GoAhead-Webs\r\n"));
-
-			if (flags && WEBS_KEEP_ALIVE) {
-				websWrite(wp, T("Connection: keep-alive\r\n"));
-			}
-			websWrite(wp, T("\r\n"));
-			websSetRequestFlags(wp, flags |= WEBS_HEADER_DONE);
-			websDone(wp, 304);
-			return 1;
-		}
-	}
-#endif
-
-/*
- *	Output the normal HTTP response header
- */
-	if ((date = websGetDateString(NULL)) != NULL) {
-		websWrite(wp, T("HTTP/1.0 200 OK\r\nDate: %s\r\n"), date);
-
-/*
- *		By license terms the following line of code must not be modified.
-*/
-		websWrite(wp, T("Server: GoAhead-Webs\r\n"));
-		bfree(B_L, date);
-	}
-	flags |= WEBS_HEADER_DONE;
-
-/*
- *	If this is an ASP request, ensure the remote browser doesn't cache it.
- *	Send back both HTTP/1.0 and HTTP/1.1 cache control directives
- */
-	if (flags & WEBS_ASP) {
-		bytes = 0;
-		websWrite(wp, T("Pragma: no-cache\r\nCache-Control: no-cache\r\n"));
-
-	} else {
-		if ((date = websGetDateString(&sbuf)) != NULL) {
-			websWrite(wp, T("Last-modified: %s\r\n"), date);
-			bfree(B_L, date);
-		}
-		bytes = sbuf.size;
-	}
-
-	if (bytes) {
-		websWrite(wp, T("Content-length: %d\r\n"), bytes);
-		websSetRequestBytes(wp, bytes);
-	}
-	websWrite(wp, T("Content-type: %s\r\n"), websGetRequestType(wp));
-
-	if ((flags & WEBS_KEEP_ALIVE) && !(flags & WEBS_ASP)) {
-		websWrite(wp, T("Connection: keep-alive\r\n"));
-	}
-	websWrite(wp, T("\r\n"));
-
-/*
- *	Evaluate ASP requests
- */
-	if (flags & WEBS_ASP) {
-		if (websAspRequest(wp, lpath) < 0) {
-			return 1;
-		}
-		websDone(wp, 200);
-		return 1;
-	}
-
-/*
- *	All done if the browser did a HEAD request
- */
-	if (flags & WEBS_HEAD_REQUEST) {
-		websDone(wp, 200);
-		return 1;
-	}
-/*
- *	For normal web documents, return the data via background write
- */
-	websSetRequestSocketHandler(wp, SOCKET_WRITABLE, websDefaultWriteEvent);
-	return 1;
-}
-
-/******************************************************************************/
-/*
- *	Validate the URL path and process ".." path segments. Return -1 if the URL
- *	is bad.
- */
-
-int websValidateUrl(webs_t wp, char_t *path)
-{
-	char_t	*parts[64];					/* Array of ptr's to URL parts */
-	char_t	*token, *dir, *lpath;
-	int		i, len, npart;
-
-	a_assert(websValid(wp));
-	a_assert(path);
-
-	dir = websGetRequestDir(wp);
-	if (dir == NULL || *dir == '\0') {
-		return -1;
-	}
-
-/*
- *	Copy the string so we don't destroy the original
- */
-	path = bstrdup(B_L, path);
-	websDecodeUrl(path, path, gstrlen(path));
-
-	len = npart = 0;
-	parts[0] = NULL;
-	token = gstrtok(path, T("/"));
-
-/*
- *	Look at each directory segment and process "." and ".." segments
- *	Don't allow the browser to pop outside the root web. 
- */
-	while (token != NULL) {
-		if (gstrcmp(token, T("..")) == 0) {
-			if (npart > 0) {
-				npart--;
-			}
-
-		} else if (gstrcmp(token, T(".")) != 0) {
-			parts[npart] = token;
-			len += gstrlen(token) + 1;
-			npart++;
-		}
-		token = gstrtok(NULL, T("/"));
-	}
-
-/*
- *	Create local path for document. Need extra space all "/" and null.
- */
-	if (npart) {
-		lpath = balloc(B_L, (gstrlen(dir) + 1 + len + 1) * sizeof(char_t));
-		gstrcpy(lpath, dir);
-
-		for (i = 0; i < npart; i++) {
-			gstrcat(lpath, T("/"));
-			gstrcat(lpath, parts[i]);
-		}
-		websSetRequestLpath(wp, lpath);
-		bfree(B_L, path);
-		bfree(B_L, lpath);
-
-	} else {
-		bfree(B_L, path);
-		return -1;
-	}
-	return 0;
-}
-
-/******************************************************************************/
-/*
- *	Do output back to the browser in the background. This is a socket
- *	write handler.
- */
-
-static void websDefaultWriteEvent(webs_t wp)
-{
-	int			len, wrote, flags, bytes, written;
-	char *		buf;
-
-	a_assert(websValid(wp));
-
-	flags = websGetRequestFlags(wp);
-
-	wrote = 0;
-	bytes = 0;
-	written = websGetRequestWritten(wp);
-
-/*
- *	We only do this for non-ASP documents
- */
-	if ( !(flags & WEBS_ASP)) {
-		bytes = websGetRequestBytes(wp);
-/*
- *		Note: websWriteBlock may return less than we wanted. It will return
- *		-1 on a socket error
- */
-		if ((buf = balloc(B_L, PAGE_READ_BUFSIZE)) == NULL) {
-			websError(wp, 200, T("Can't get memory"));
-		}
-		else {
-			while ((len = websPageReadData(wp, buf, PAGE_READ_BUFSIZE)) > 0) {
-				if ((wrote = websWriteBlockData(wp, buf, len)) < 0) {
-					break;
-				}
-				written += wrote;
-				if (wrote != len) {
-					websPageSeek(wp, - (wrote - len));
-					break;
-				}
-			}
-/*
- *			Safety. If we are at EOF, we must be done
- */
-			if (len == 0) {
-				a_assert(written >= bytes);
-				written = bytes;
-			}
-			bfree(B_L, buf);
-		}
-	}
-
-/*
- *	We're done if an error, or all bytes output
- */
-	websSetRequestWritten(wp, written);
-	if (wrote < 0 || written >= bytes) {
-		websDone(wp, 200);
-	}
-}
-
-/******************************************************************************/
-/* 
- *	Closing down. Free resources.
- */
-
-void websDefaultClose()
-{
-	if (websDefaultPage) {
-		bfree(B_L, websDefaultPage);
-	}
-	if (websDefaultDir) {
-		bfree(B_L, websDefaultDir);
-	}
-}
-
-/******************************************************************************/
-/*
- *	Get the default page for URL requests ending in "/"
- */
-
-char_t *websGetDefaultPage()
-{
-	return websDefaultPage;
-}
-
-/******************************************************************************/
-/*
- *	Get the default web directory
- */
-
-char_t *websGetDefaultDir()
-{
-	return websDefaultDir;
-}
-
-/******************************************************************************/
-/*
- *	Set the default page for URL requests ending in "/"
- */
-
-void websSetDefaultPage(char_t *page)
-{
-	a_assert(page && *page);
-
-	if (websDefaultPage) {
-		bfree(B_L, websDefaultPage);
-	}
-	websDefaultPage = bstrdup(B_L, page);
-}
-
-/******************************************************************************/
-/*
- *	Set the default web directory
- */
-
-void websSetDefaultDir(char_t *dir)
-{
-	a_assert(dir && *dir);
-	if (websDefaultDir) {
-		bfree(B_L, websDefaultDir);
-	}
-	websDefaultDir = bstrdup(B_L, dir);
-}
-
-/******************************************************************************/
-