source: rtems/cpukit/httpd/asp.c @ df49c60

/*
 * asp.c -- Active Server Page Support
 *
 * Copyright (c) Go Ahead Software Inc., 1995-1999. All Rights Reserved.
 *
 * See the file "license.txt" for usage and redistribution license requirements
 */

/******************************** Description *********************************/

/*
 *      The ASP module processes ASP pages and executes embedded scripts. It 
 *      support an open scripting architecture with in-built support for 
 *      Ejscript(TM).
 */

/********************************* Includes ***********************************/

#include        "wsIntrn.h"

/********************************** Locals ************************************/

static sym_fd_t  websAspFunctions = -1; /* Symbol table of functions */

/***************************** Forward Declarations ***************************/

static char_t   *strtokcmp(char_t* s1, char_t* s2);
static char_t   *skipWhite(char_t *s);

/************************************* Code ***********************************/
/*
 *      Create script spaces and commands
 */

int websAspOpen()
{
/*
 *      Create the table for ASP functions
 */
        websAspFunctions = symOpen(128);

/*
 *      Create standard ASP commands
 */
        websAspDefine(T("write"), websAspWrite);
        return 0;
}

/************************************* Code ***********************************/
/*
 *      Close Asp symbol table.
 */

void websAspClose()
{
        if (websAspFunctions != -1) {
                symClose(websAspFunctions, NULL);
        }
}

/******************************************************************************/
/*
 *      Process ASP requests and expand all scripting commands. We read the
 *      entire ASP page into memory and then process. If you have really big 
 *      documents, it is better to make them plain HTML files rather than ASPs.
 */

int websAspRequest(webs_t wp, char_t* lpath)
{
        websStatType    sbuf;
        char                    *rbuf;
        char_t                  *token, *lang, *result, *path, *ep, *cp, *buf, *nextp;
        char_t                  *last;
        int                             rc, engine, len, ejid;

        a_assert(websValid(wp));
        a_assert(lpath && *lpath);

        rc = -1;
        buf = NULL;
        rbuf = NULL;
        engine = EMF_SCRIPT_EJSCRIPT;
        wp->flags |= WEBS_HEADER_DONE;
        path = websGetRequestPath(wp);

/*
 *      Create Ejscript instance incase it is needed
 */
        ejid = ejOpenEngine(wp->cgiVars, websAspFunctions);
        if (ejid < 0) {
                websError(wp, 200, T("Can't create Ejscript engine"));
                goto done;
        }
        ejSetUserHandle(ejid, (int) wp);

        if (websPageStat(wp, lpath, path, &sbuf) < 0) {
                websError(wp, 200, T("Can't stat %s"), lpath);
                goto done;
        }

/*
 *      Create a buffer to hold the ASP file in-memory
 */
        len = sbuf.size * sizeof(char);
        if ((rbuf = balloc(B_L, len + 1)) == NULL) {
                websError(wp, 200, T("Can't get memory"));
                goto done;
        }
        rbuf[len] = '\0';

        if (websPageReadData(wp, rbuf, len) != len) {
                websError(wp, 200, T("Cant read %s"), lpath);
                goto done;
        }
        websCloseFileHandle(wp);

/*
 *      Convert to UNICODE if necessary.
 */
        if ((buf = ballocAscToUni(rbuf)) == NULL) {
                websError(wp, 200, T("Can't get memory"));
                goto done;
        }

/*
 *      Scan for the next "<%"
 */
        last = buf;
        rc = 0;
        while (rc == 0 && *last && ((nextp = gstrstr(last, T("<%"))) != NULL)) {
                websWriteBlock(wp, last, (nextp - last));
                nextp = skipWhite(nextp + 2);

/*
 *              Decode the language
 */
                token = T("language");

                if ((lang = strtokcmp(nextp, token)) != NULL) {
                        if ((cp = strtokcmp(lang, T("=javascript"))) != NULL) {
                                engine = EMF_SCRIPT_EJSCRIPT;
                        } else {
                                cp = nextp;
                        }
                        nextp = cp;
                }

/*
 *              Find tailing bracket and then evaluate the script
 */
                if ((ep = gstrstr(nextp, T("%>"))) != NULL) {

                        *ep = '\0';
                        last = ep + 2;
                        nextp = skipWhite(nextp);
/*
 *                      Handle backquoted newlines
 */
                        for (cp = nextp; *cp; ) {
                                if (*cp == '\\' && (cp[1] == '\r' || cp[1] == '\n')) {
                                        *cp++ = ' ';
                                        while (*cp == '\r' || *cp == '\n') {
                                                *cp++ = ' ';
                                        }
                                } else {
                                        cp++;
                                }
                        }

/*
 *                      Now call the relevant script engine. Output is done directly
 *                      by the ASP script procedure by calling websWrite()
 */
                        if (*nextp) {
                                result = NULL;
                                if (engine == EMF_SCRIPT_EJSCRIPT) {
                                        rc = scriptEval(engine, nextp, &result, ejid);
                                } else {
                                        rc = scriptEval(engine, nextp, &result, (int) wp);
                                }
                                if (rc < 0) {
/*
 *                                      On an error, discard all output accumulated so far
 *                                      and store the error in the result buffer. Be careful if the
 *                                      user has called websError() already.
 */
                                        if (websValid(wp)) {
                                                if (result) {
                                                        websWrite(wp, T("<h2><b>ASP Error: %s</b></h2>\n"), 
                                                                result);
                                                        websWrite(wp, T("<pre>%s</pre>"), nextp);
                                                        bfree(B_L, result);
                                                } else {
                                                        websWrite(wp, T("<h2><b>ASP Error</b></h2>\n%s\n"),
                                                                nextp);
                                                }
                                                websWrite(wp, T("</body></html>\n"));
                                                rc = 0;
                                        }
                                        goto done;
                                }
                        }

                } else {
                        websError(wp, 200, T("Unterminated script in %s: \n"), lpath);
                        rc = -1;
                        goto done;
                }
        }
/*
 *      Output any trailing HTML page text
 */
        if (last && *last && rc == 0) {
                websWriteBlock(wp, last, gstrlen(last));
        }
        rc = 0;

/*
 *      Common exit and cleanup
 */
done:
        if (websValid(wp)) {
                websCloseFileHandle(wp);
                if (ejid >= 0) {
                        ejCloseEngine(ejid);
                }
        }
        bfreeSafe(B_L, buf);
        bfreeSafe(B_L, rbuf);
        return rc;
}

/******************************************************************************/
/*
 *      Define an ASP Ejscript function. Bind an ASP name to a C procedure.
 */

int websAspDefine(char_t *name, 
        int (*fn)(int ejid, webs_t wp, int argc, char_t **argv))
{
        return ejSetGlobalFunctionDirect(websAspFunctions, name, 
                (int (*)(int, void*, int, char_t**)) fn);
}

/******************************************************************************/
/*
 *      Asp write command. This implemements <% write("text"); %> command
 */

int websAspWrite(int ejid, webs_t wp, int argc, char_t **argv)
{
        int             i;

        a_assert(websValid(wp));
        a_assert(argv);

        for (i = 0; i < argc; ) {
                if (websWriteBlock(wp, argv[i], gstrlen(argv[i])) < 0) {
                        return -1;
                }
                if (++i < argc) {
                        if (websWriteBlock(wp, T(" "), 2) < 0) {
                                return -1;
                        }
                }
        }
        return 0;
}

/******************************************************************************/
/*
 *      strtokcmp -- Find s2 in s1. We skip leading white space in s1.
 *      Return a pointer to the location in s1 after s2 ends.
 */

static char_t* strtokcmp(char_t* s1, char_t* s2)
{
        int             len;

        s1 = skipWhite(s1);
        len = gstrlen(s2);
        for (len = gstrlen(s2); len > 0 && (tolower(*s1) == tolower(*s2)); len--) {
                if (*s2 == '\0') {
                        return s1;
                }
                s1++;
                s2++;
        }
        if (len == 0) {
                return s1;
        }
        return NULL;
}

/******************************************************************************/
/*
 *      Skip white space
 */

static char_t *skipWhite(char_t *s) 
{
        a_assert(s);

        if (s == NULL) {
                return s;
        }
        while (*s && gisspace(*s)) {
                s++;
        }
        return s;
}

/******************************************************************************/