OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [libnetworking/] [rtems_webserver/] [form.c] - Blame information for rev 535

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback 
/*
2 
 * form.c -- Form processing (in-memory CGI) for the GoAhead Web server
3 
 *
4 
 * Copyright (c) Go Ahead Software Inc., 1995-1999. All Rights Reserved.
5 
 *
6 
 * See the file "license.txt" for usage and redistribution license requirements
7 
 */
8 
 
9 
/********************************** Description *******************************/
10 
 
11 
/*
12 
 *      This module implements the /goform handler. It emulates CGI processing
13 
 *      but performs this in-process and not as an external process. This enables
14 
 *      a very high performance implementation with easy parsing and decoding
15 
 *      of query strings and posted data.
16 
 */
17 
 
18 
/*********************************** Includes *********************************/
19 
 
20 
#include        "wsIntrn.h"
21 
 
22 
/************************************ Locals **********************************/
23 
 
24 
static sym_fd_t formSymtab = -1;                        /* Symbol table for form handlers */
25 
 
26 
/************************************* Code ***********************************/
27 
/*
28 
 *      Process a form request. Returns 1 always to indicate it handled the URL
29 
 */
30 
 
31 
int websFormHandler(webs_t wp, char_t *urlPrefix, char_t *webDir, int arg,
32 
        char_t *url, char_t *path, char_t* query)
33 
{
34 
        sym_t           *sp;
35 
        char_t          formBuf[FNAMESIZE];
36 
        char_t          *cp, *formName;
37 
        int                     (*fn)(void *sock, char_t* path, char_t *args);
38 
 
39 
        a_assert(websValid(wp));
40 
        a_assert(url && *url);
41 
        a_assert(path && *path == '/');
42 
 
43 
        websStats.formHits++;
44 
 
45 
/*
46 
 *      Extract the form name
47 
 */
48 
        gstrncpy(formBuf, path, TSZ(formBuf));
49 
        if ((formName = gstrchr(&formBuf[1], '/')) == NULL) {
50 
                websError(wp, 200, T("Missing form name"));
51 
                return 1;
52 
        }
53 
        formName++;
54 
        if ((cp = gstrchr(formName, '/')) != NULL) {
55 
                *cp = '\0';
56 
        }
57 
 
58 
/*
59 
 *      Lookup the C form function first and then try tcl (no javascript support
60 
 *      yet).
61 
 */
62 
        sp = symLookup(formSymtab, formName);
63 
        if (sp == NULL) {
64 
                websError(wp, 200, T("Form %s is not defined"), formName);
65 
        } else {
66 
                fn = (int (*)(void*, char_t*, char_t*)) sp->content.value.integer;
67 
                a_assert(fn);
68 
                if (fn) {
69 
/*
70 
 *                      For good practice, forms must call websDone()
71 
 */
72 
                        (*fn)((void*) wp, formName, query);
73 
                        if (websValid(wp)) {
74 
                                websError(wp, 200, T("Form didn't call websDone"));
75 
                        }
76 
                }
77 
        }
78 
        return 1;
79 
}
80 
 
81 
/******************************************************************************/
82 
/*
83 
 *      Define a form function in the "form" map space.
84 
 */
85 
 
86 
int websFormDefine(char_t *name, void (*fn)(webs_t wp, char_t *path,
87 
        char_t *query))
88 
{
89 
        static int once = 0;
90 
 
91 
        a_assert(name && *name);
92 
        a_assert(fn);
93 
 
94 
        if (fn == NULL) {
95 
                return -1;
96 
        }
97 
 
98 
        if (once++ == 0) {
99 
                websFormOpen();
100 
        }
101 
        symEnter(formSymtab, name, valueInteger((int) fn), (int) NULL);
102 
        return 0;
103 
}
104 
 
105 
/******************************************************************************/
106 
/*
107 
 *      Open the symbol table for forms.
108 
 */
109 
 
110 
void websFormOpen()
111 
{
112 
        formSymtab = symOpen(64);
113 
}
114 
 
115 
/******************************************************************************/
116 
/*
117 
 *      Close the symbol table for forms.
118 
 */
119 
 
120 
void websFormClose()
121 
{
122 
        if (formSymtab != -1) {
123 
                symClose(formSymtab, NULL);
124 
        }
125 
}
126 
 
127 
/******************************************************************************/
128 
/*
129 
 *      Write a webs header. This is a convenience routine to write a common
130 
 *      header for a form back to the browser.
131 
 */
132 
 
133 
void websHeader(webs_t wp)
134 
{
135 
        a_assert(websValid(wp));
136 
 
137 
        websWrite(wp, T("HTTP/1.0 200 OK\n"));
138 
 
139 
/*
140 
 *      By license terms the following line of code must not be modified
141 
 */
142 
        websWrite(wp, T("Server: GoAhead-Webs\r\n"));
143 
 
144 
        websWrite(wp, T("Pragma: no-cache\n"));
145 
        websWrite(wp, T("Cache-control: no-cache\n"));
146 
        websWrite(wp, T("Content-Type: text/html\n"));
147 
        websWrite(wp, T("\n"));
148 
        websWrite(wp, T("<html>\n"));
149 
}
150 
 
151 
/******************************************************************************/
152 
/*
153 
 *      Write a webs footer
154 
 */
155 
 
156 
void websFooter(webs_t wp)
157 
{
158 
        a_assert(websValid(wp));
159 
 
160 
        websWrite(wp, T("</html>\n"));
161 
}
162 
 
163 
/******************************************************************************/

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.