/* * form.c -- Form processing (in-memory CGI) for the GoAhead Web server * * 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 implements the /goform handler. It emulates CGI processing * but performs this in-process and not as an external process. This enables * a very high performance implementation with easy parsing and decoding * of query strings and posted data. */ /*********************************** Includes *********************************/ #include "wsIntrn.h" /************************************ Locals **********************************/ static sym_fd_t formSymtab = -1; /* Symbol table for form handlers */ /************************************* Code ***********************************/ /* * Process a form request. Returns 1 always to indicate it handled the URL */ int websFormHandler(webs_t wp, char_t *urlPrefix, char_t *webDir, int arg, char_t *url, char_t *path, char_t* query) { sym_t *sp; char_t formBuf[FNAMESIZE]; char_t *cp, *formName; int (*fn)(void *sock, char_t* path, char_t *args); a_assert(websValid(wp)); a_assert(url && *url); a_assert(path && *path == '/'); websStats.formHits++; /* * Extract the form name */ gstrncpy(formBuf, path, TSZ(formBuf)); if ((formName = gstrchr(&formBuf[1], '/')) == NULL) { websError(wp, 200, T("Missing form name")); return 1; } formName++; if ((cp = gstrchr(formName, '/')) != NULL) { *cp = '\0'; } /* * Lookup the C form function first and then try tcl (no javascript support * yet). */ sp = symLookup(formSymtab, formName); if (sp == NULL) { websError(wp, 200, T("Form %s is not defined"), formName); } else { fn = (int (*)(void*, char_t*, char_t*)) sp->content.value.integer; a_assert(fn); if (fn) { /* * For good practice, forms must call websDone() */ (*fn)((void*) wp, formName, query); if (websValid(wp)) { websError(wp, 200, T("Form didn't call websDone")); } } } return 1; } /******************************************************************************/ /* * Define a form function in the "form" map space. */ int websFormDefine(char_t *name, void (*fn)(webs_t wp, char_t *path, char_t *query)) { static int once = 0; a_assert(name && *name); a_assert(fn); if (fn == NULL) { return -1; } if (once++ == 0) { websFormOpen(); } symEnter(formSymtab, name, valueInteger((int) fn), (int) NULL); return 0; } /******************************************************************************/ /* * Open the symbol table for forms. */ void websFormOpen() { formSymtab = symOpen(64); } /******************************************************************************/ /* * Close the symbol table for forms. */ void websFormClose() { if (formSymtab != -1) { symClose(formSymtab, NULL); } } /******************************************************************************/ /* * Write a webs header. This is a convenience routine to write a common * header for a form back to the browser. */ void websHeader(webs_t wp) { a_assert(websValid(wp)); websWrite(wp, T("HTTP/1.0 200 OK\n")); /* * By license terms the following line of code must not be modified */ websWrite(wp, T("Server: GoAhead-Webs\r\n")); websWrite(wp, T("Pragma: no-cache\n")); websWrite(wp, T("Cache-control: no-cache\n")); websWrite(wp, T("Content-Type: text/html\n")); websWrite(wp, T("\n")); websWrite(wp, T("\n")); } /******************************************************************************/ /* * Write a webs footer */ void websFooter(webs_t wp) { a_assert(websValid(wp)); websWrite(wp, T("\n")); } /******************************************************************************/