aolserver/nsd/tclrequest.c

/*
 * The contents of this file are subject to the AOLserver Public License
 * Version 1.1 (the "License"); you may not use this file except in
 * compliance with the License. You may obtain a copy of the License at
 * http://aolserver.com/.
 *
 * Software distributed under the License is distributed on an "AS IS"
 * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 * the License for the specific language governing rights and limitations
 * under the License.
 *
 * The Original Code is AOLserver Code and related documentation
 * distributed by AOL.
 * 
 * The Initial Developer of the Original Code is America Online,
 * Inc. Portions created by AOL are Copyright (C) 1999 America Online,
 * Inc. All Rights Reserved.
 *
 * Alternatively, the contents of this file may be used under the terms
 * of the GNU General Public License (the "GPL"), in which case the
 * provisions of GPL are applicable instead of those above.  If you wish
 * to allow use of your version of this file only under the terms of the
 * GPL and not to allow others to use your version of this file under the
 * License, indicate your decision by deleting the provisions above and
 * replace them with the notice and other provisions required by the GPL.
 * If you do not delete the provisions above, a recipient may use your
 * version of this file under either the License or the GPL.
 */

/* 
 * tclrequest.c --
 *
 *      Routines for Tcl proc and ADP registered requests.
 */

static const char *RCSID = "@(#) $Header: /cvsroot-fuse/aolserver/aolserver/nsd/tclrequest.c,v 1.15 2011/10/11 08:03:27 dvrsn Exp $, compiled: " __DATE__ " " __TIME__;

#include "nsd.h"

#define ARGS_UNKNOWN (-1)
#define ARGS_FAILED  (-2)

/*
 * The following structure defines the proc callback context.
 */

typedef struct {
    char *name;
    char *args;
    int   nargs;
} Proc;

/*
 * Local functions defined in this file
 */

static Ns_OpProc <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_ProcRequest">ProcRequest</a>;
static Ns_OpProc <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AdpRequest">AdpRequest</a>;
static Ns_FilterProc <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_ProcFilter">ProcFilter</a>;
static Proc *<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NewProc">NewProc</a>(char *name, char *args);
static Ns_Callback <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_FreeProc">FreeProc</a>;
static void <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AppendConnId">AppendConnId</a>(Tcl_DString *dsPtr, Ns_Conn *conn);
static int <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_RegisterFilterObj">RegisterFilterObj</a>(NsInterp *itPtr, int when, int objc,
                              Tcl_Obj *CONST objv[]);
static int <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_GetNumArgs">GetNumArgs</a>(Tcl_Interp *interp, Proc *procPtr);


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_Ns_TclRequest">Ns_TclRequest</a> --
 *
 *      Dummy up a direct call to TclProcRequest for a connection.
 *
 * Results:
 *      See TclDoOp.
 *
 * Side effects:
 *      None. 
 *
 *----------------------------------------------------------------------
 */

int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_Ns_TclRequest">Ns_TclRequest</a>(Ns_Conn *conn, char *name)
{
    Proc proc;

    proc.name = name;
    proc.args = NULL;
    proc.nargs = 0;
    return <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_ProcRequest">ProcRequest</a>(&proc, conn);
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterProcObjCmd">NsTclRegisterProcObjCmd</a> --
 *
 *      Implements ns_register_proc as obj command. 
 *
 * Results:
 *      Tcl result. 
 *
 * Side effects:
 *      See docs. 
 *
 *----------------------------------------------------------------------
 */

int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterProcObjCmd">NsTclRegisterProcObjCmd</a>(ClientData arg, Tcl_Interp *interp, int objc, 
                                Tcl_Obj *CONST objv[], int adp)
{
    int         flags, idx;
    Proc       *procPtr;
    NsInterp   *itPtr = arg;
    char       *server, *method, *url, *name, *args;

    if (objc < 4 || objc > 7) {
badargs:
        Tcl_WrongNumArgs(interp, 1, objv, "?-noinherit? method url proc ?args?");
        return TCL_ERROR;
    }
    if (STREQ(Tcl_GetString(objv[1]), "-noinherit")) {
        if (objc < 5) {
            goto badargs;
        }
        flags = NS_OP_NOINHERIT;
        idx = 2;
    } else {
        if (objc == 7) {
            goto badargs;
        }
        flags = 0;
        idx = 1;
    }
    if (<a href="/cvs/aolserver/aolserver/nsd/tclinit.c#A_NsTclGetServer">NsTclGetServer</a>(itPtr, &server) != TCL_OK) {
        return TCL_ERROR;
    }
    method = Tcl_GetString(objv[idx++]);
    url = Tcl_GetString(objv[idx++]);
    name = Tcl_GetString(objv[idx++]);
    args = (idx < objc ? Tcl_GetString(objv[idx]) : NULL);
    procPtr = <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NewProc">NewProc</a>(name, args);
    <a href="/cvs/aolserver/aolserver/nsd/op.c#A_Ns_RegisterRequest">Ns_RegisterRequest</a>(server, method, url, <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_ProcRequest">ProcRequest</a>, <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_FreeProc">FreeProc</a>,
                        procPtr, flags);
    return TCL_OK;
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterAdpObjCmd">NsTclRegisterAdpObjCmd</a> --
 *
 *      Implements ns_register_adp as obj command.
 *
 * Results:
 *      Tcl result. 
 *
 * Side effects:
 *      See docs. 
 *
 *----------------------------------------------------------------------
 */

int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterAdpObjCmd">NsTclRegisterAdpObjCmd</a>(ClientData arg, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
{
    NsInterp   *itPtr = arg;
    char       *server, *method, *url, *file;

    if (objc != 4 && objc != 5) {
badargs:
        Tcl_WrongNumArgs(interp, 1, objv, "?-noinherit? method url file");
        return TCL_ERROR;
    }
    if (objc == 5 && !STREQ(Tcl_GetString(objv[1]), "-noinherit")) {
        goto badargs;
    }
    if (<a href="/cvs/aolserver/aolserver/nsd/tclinit.c#A_NsTclGetServer">NsTclGetServer</a>(itPtr, &server) != TCL_OK) {
        return TCL_ERROR;
    }
    method = Tcl_GetString(objv[objc-3]);
    url = Tcl_GetString(objv[objc-2]);
    file = ns_strdup(Tcl_GetString(objv[objc-1]));
    <a href="/cvs/aolserver/aolserver/nsd/op.c#A_Ns_RegisterRequest">Ns_RegisterRequest</a>(server, method, url, <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AdpRequest">AdpRequest</a>, ns_free,
                        file, objc == 5 ? NS_OP_NOINHERIT : 0);
    return TCL_OK;
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclUnRegisterObjCmd">NsTclUnRegisterObjCmd</a> --
 *
 *      Implements ns_unregister_proc and ns_unregister_adp commands.
 *
 * Results:
 *      Tcl result. 
 *
 * Side effects:
 *      See docs. 
 *
 *----------------------------------------------------------------------
 */

int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclUnRegisterObjCmd">NsTclUnRegisterObjCmd</a>(ClientData arg, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
{
    NsInterp *itPtr = arg;
    char *server;
    
    if (objc != 3 && objc != 4) {
        Tcl_WrongNumArgs(interp, 1, objv, "?-noinherit? method url");
        return TCL_ERROR;
    }
    if (objc == 4 && !STREQ(Tcl_GetString(objv[1]), "-noinherit")) {
        Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "unknown flag \"", 
                Tcl_GetString(objv[1]),
                "\": should be -noinherit", NULL);
        return TCL_ERROR;
    }
    if (<a href="/cvs/aolserver/aolserver/nsd/tclinit.c#A_NsTclGetServer">NsTclGetServer</a>(itPtr, &server) != TCL_OK) {
        return TCL_ERROR;
    }
    <a href="/cvs/aolserver/aolserver/nsd/op.c#A_Ns_UnRegisterRequest">Ns_UnRegisterRequest</a>(server, Tcl_GetString(objv[objc-2]), Tcl_GetString(objv[objc-1]), 
                        objc == 3 ? 1 : 0);
    return TCL_OK;
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterFilterObjCmd">NsTclRegisterFilterObjCmd</a> --
 *
 *      Implements ns_register_filter. 
 *
 * Results:
 *      Tcl result. 
 *
 * Side effects:
 *      See docs. 
 *
 *----------------------------------------------------------------------
 */

int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterFilterObjCmd">NsTclRegisterFilterObjCmd</a>(ClientData arg, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
{
    NsInterp *itPtr = arg;
    int       lobjc;
    Tcl_Obj **lobjv;
    int       when, i;
    static CONST char *wopt[] = {
        "read", "prewrite", "write", "prequeue", "preauth", "postauth", "trace", NULL
    };
    enum {
        ReadIdx, PreWriteIdx, WriteIdx, PreQueueIdx, PreAuthIdx, PostAuthIdx, TraceIdx,
    } widx;

    if (objc < 2) {
error:
        Tcl_SetResult(interp, "wrong arguments: should be ns_register_filter "
                "?-insert? ?-priority num? when method url script ?arg?",
                TCL_STATIC);
        return TCL_ERROR;
    }
    when = 0;
    for (i = 1; i < objc; i++) {
        char *arg = Tcl_GetString(objv[i]);
        if (*arg != '-') break;
        if (STRIEQ(arg, "-insert")) {
            when |= NS_FILTER_INSERT;
        } else if (STRIEQ(arg, "-priority")) {
            if (++i >= objc) goto error;
            int prio;
            if (Tcl_GetIntFromObj(interp,objv[i],&prio) != TCL_OK) {
                return TCL_ERROR;
            }
            if (prio < -128 || prio > 127) {
                Tcl_SetResult(interp, "priority must be in range -128 .. 127",
                    TCL_STATIC);
                return TCL_ERROR;
            }
            when |= NS_FILTER_PRIORITY(prio);
        } else {
            goto error;
        }
    }
    objc-=(i-1);
    objv+=(i-1);

    if (objc < 5 || objc > 6) {
        goto error;
    }
    if (Tcl_ListObjGetElements(interp, objv[1], &lobjc, &lobjv) != TCL_OK) {
        return TCL_ERROR;
    }
    for (i = 0; i < lobjc; ++i) {
        if (Tcl_GetIndexFromObj(interp, lobjv[i], wopt, "when", 0,
                (int *) &widx) != TCL_OK) {
            return TCL_ERROR;
        }
        switch (widx) {
        case ReadIdx:
            when |= NS_FILTER_READ;
            break;
        case PreWriteIdx:
            when |= NS_FILTER_PRE_WRITE;
            break;
        case WriteIdx:
            when |= NS_FILTER_WRITE;
            break;
        case PreQueueIdx:
            when |= NS_FILTER_PRE_QUEUE;
            break;
        case PreAuthIdx:
            when |= NS_FILTER_PRE_AUTH;
            break;
        case PostAuthIdx:
            when |= NS_FILTER_POST_AUTH;
            break;
        case TraceIdx:
            when |= NS_FILTER_TRACE;
            break;
        }
    }
    if (when == 0) {
        Tcl_SetResult(interp, "blank filter when specification", TCL_STATIC);
        return TCL_ERROR;
    }
    return <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_RegisterFilterObj">RegisterFilterObj</a>(itPtr, when, objc - 2, objv + 2);
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterTraceObjCmd">NsTclRegisterTraceObjCmd</a> --
 *
 *      Implements ns_register_trace as obj command.
 *
 * Results:
 *      Tcl result. 
 *
 * Side effects:
 *      See docs. 
 *
 *----------------------------------------------------------------------
 */

int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterTraceObjCmd">NsTclRegisterTraceObjCmd</a>(ClientData arg, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
{
    NsInterp *itPtr = arg;

    if (objc != 4 && objc != 5) {
        Tcl_WrongNumArgs(interp, 1, objv, "method urlPattern script ?arg?");
        return TCL_ERROR;
    }
    return <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_RegisterFilterObj">RegisterFilterObj</a>(itPtr, NS_FILTER_VOID_TRACE, objc - 1, objv + 1);
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterFastPathObjCmd">NsTclRegisterFastPathObjCmd</a> --
 *
 *      Implements ns_register_fastpath as obj command.
 *
 * Results:
 *      Tcl result. 
 *
 * Side effects:
 *      See docs. 
 *
 *----------------------------------------------------------------------
 */

int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NsTclRegisterFastPathObjCmd">NsTclRegisterFastPathObjCmd</a>(ClientData arg, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
{
    NsInterp *itPtr = arg;
    NsServer *servPtr = itPtr->servPtr;
    char     *server, *method, *url;
    int       flags, idx;

    if (objc < 3 || objc > 4) {
    badargs:
        Tcl_WrongNumArgs(interp, 1, objv, "?-noinherit? method url");
        return TCL_ERROR;
    }
    flags = 0;
    idx = 1;
    if (objc == 4) {
        if (!STREQ(Tcl_GetString(objv[1]), "-noinherit")) {
            goto badargs;
        }
        flags = NS_OP_NOINHERIT;
        idx++;
    }
    server = servPtr->server;
    method = Tcl_GetString(objv[idx++]);
    url = Tcl_GetString(objv[idx++]);
    <a href="/cvs/aolserver/aolserver/nsd/op.c#A_Ns_RegisterRequest">Ns_RegisterRequest</a>(server, method, url, <a href="/cvs/aolserver/aolserver/nsd/fastpath.c#A_Ns_FastPathOp">Ns_FastPathOp</a>, NULL, servPtr, flags);
    return TCL_OK;
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AdpRequest">AdpRequest</a> --
 *
 *      Ns_OpProc for registered ADP's.
 *
 * Results:
 *      See <a href="/cvs/aolserver/aolserver/nsd/adprequest.c#A_Ns_AdpRequest">Ns_AdpRequest</a>.
 *
 * Side effects:
 *      None. 
 *
 *----------------------------------------------------------------------
 */

static int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AdpRequest">AdpRequest</a>(void *arg, Ns_Conn *conn)
{
    return <a href="/cvs/aolserver/aolserver/nsd/adprequest.c#A_Ns_AdpRequest">Ns_AdpRequest</a>(conn, (char *) arg);
}


/*
 *----------------------------------------------------------------------
 *
 * RequstProc --
 *
 *      Ns_OpProc for ns_register_proc callbacks.  Constructs and
 *      evaluates the given script.
 *
 * Results:
 *      Standard request result.
 *
 * Side effects:
 *      None. 
 *
 *----------------------------------------------------------------------
 */

static int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_ProcRequest">ProcRequest</a>(void *arg, Ns_Conn *conn)
{
    Proc        *procPtr = arg;
    Tcl_Interp  *interp = <a href="/cvs/aolserver/aolserver/nsd/tclinit.c#A_Ns_GetConnInterp">Ns_GetConnInterp</a>(conn);
    int          result, cnt;
    Tcl_DString  script;


    /*
     * Construct and evaluate the script. The legacy connId parameter is
     * no longer required so the code below supports three cases:
     *
     * 1. No args: Append nothing.
     * 2. One arg: Append the callback arg only.
     * 3. Two or more args: Append the connId and callback arg.
     */

    Tcl_DStringInit(&script);
    Tcl_DStringAppendElement(&script, procPtr->name);
    cnt = <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_GetNumArgs">GetNumArgs</a>(interp, procPtr);
    if (cnt != 0) {
        if (cnt > 1) {
            <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AppendConnId">AppendConnId</a>(&script, conn);
        }
        Tcl_DStringAppendElement(&script, procPtr->args ? procPtr->args : "");
    }
    result = Tcl_EvalEx(interp, script.string, script.length, 0);
    Tcl_DStringFree(&script);

    /*
     * On script error, generate an internal error response if
     * no content has been sent on the connection.
     */

    if (result != TCL_OK) {
        <a href="/cvs/aolserver/aolserver/nsd/tclinit.c#A_Ns_TclLogError">Ns_TclLogError</a>(interp);
        if (<a href="/cvs/aolserver/aolserver/nsd/return.c#A_Ns_ConnResetReturn">Ns_ConnResetReturn</a>(conn) == NS_OK) {
            return <a href="/cvs/aolserver/aolserver/nsd/return.c#A_Ns_ConnReturnInternalError">Ns_ConnReturnInternalError</a>(conn);
        }
    }

    return NS_OK;
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_ProcFilter">ProcFilter</a> --
 *
 *      Callback for Tcl-based connection filters.
 *
 * Results:
 *      Standard filter result.
 *
 * Side effects:
 *      None. 
 *
 *----------------------------------------------------------------------
 */

static int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_ProcFilter">ProcFilter</a>(void *arg, Ns_Conn *conn, int why)
{
    Proc                *procPtr = arg;
    Tcl_Interp          *interp = <a href="/cvs/aolserver/aolserver/nsd/tclinit.c#A_Ns_GetConnInterp">Ns_GetConnInterp</a>(conn);
    Tcl_DString          script;
    int                  status, cnt;
    CONST char          *result;

    /*
     * Construct and evaluate the script. The filter arg and legacy connId
     * args will be appended before the "why" argument if present.
     */
    
    Tcl_DStringInit(&script);
    Tcl_DStringAppendElement(&script, procPtr->name);
    cnt = <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_GetNumArgs">GetNumArgs</a>(interp, procPtr);
    if (cnt > 1) {
        if (cnt > 2) {
            <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AppendConnId">AppendConnId</a>(&script, conn);
        }
        Tcl_DStringAppendElement(&script, procPtr->args ? procPtr->args : "");
    }
    switch (why) {
        case NS_FILTER_READ:
            Tcl_DStringAppendElement(&script, "read");
            break;
        case NS_FILTER_PRE_WRITE:
            Tcl_DStringAppendElement(&script, "prewrite");
            break;
        case NS_FILTER_WRITE:
            Tcl_DStringAppendElement(&script, "write");
            break;
        case NS_FILTER_PRE_QUEUE:
            Tcl_DStringAppendElement(&script, "prequeue");
            break;
        case NS_FILTER_PRE_AUTH:
            Tcl_DStringAppendElement(&script, "preauth");
            break;
        case NS_FILTER_POST_AUTH:
            Tcl_DStringAppendElement(&script, "postauth");
            break;
        case NS_FILTER_TRACE:
            Tcl_DStringAppendElement(&script, "trace");
            break;
        default:
            /* NB: Do not append a why argument. */
            break;
    }
    Tcl_AllowExceptions(interp);
    status = Tcl_EvalEx(interp, script.string, script.length, 0);
    Tcl_DStringFree(&script);
    if (status != TCL_OK) {
        <a href="/cvs/aolserver/aolserver/nsd/tclinit.c#A_Ns_TclLogError">Ns_TclLogError</a>(interp);
    }

    /*
     * Determine the filter return code from the Tcl result string.
     */

    if (why == NS_FILTER_VOID_TRACE) {
        /* NB: <a href="/cvs/aolserver/aolserver/nsd/tclresp.c#A_Result">Result</a> string ignored for traces. */
        status = NS_OK;
    } else if (status != TCL_OK) {
        /* NB: Filter error on script error. */
        status = NS_ERROR;
    } else {
        result = Tcl_GetStringResult(interp);
        if (STREQ(result, "filter_ok")) {
            status = NS_OK;
        } else if (STREQ(result, "filter_break")) {
            status = NS_FILTER_BREAK;
        } else if (STREQ(result, "filter_return")) {
            status = NS_FILTER_RETURN;
        } else {
            <a href="/cvs/aolserver/aolserver/nsd/log.c#A_Ns_Log">Ns_Log</a>(Warning, "tclfilter: %s return invalid result: %s",
                procPtr->name, result);
            status = NS_ERROR;
        }
    }
    return status;
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_GetNumArgs">GetNumArgs</a> --
 *
 *      Get the number of arguments for a given callback, invoked
 *      the first time the callback is used.
 *
 * Results:
 *      Number of args or -1 on error.
 *
 * Side effects:
 *      Will invoke script to determine arg count.
 *
 *----------------------------------------------------------------------
 */

static int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_GetNumArgs">GetNumArgs</a>(Tcl_Interp *interp, Proc *procPtr)
{
    Tcl_Obj *objPtr;
    Tcl_DString ds;

    if (procPtr->nargs == ARGS_UNKNOWN) {
        Tcl_DStringInit(&ds);
        Tcl_DStringAppend(&ds, "llength [info args ", -1);
        Tcl_DStringAppendElement(&ds, procPtr->name);
        Tcl_DStringAppend(&ds, "]", 1);
        if (Tcl_Eval(interp, ds.string) != TCL_OK) {
            procPtr->nargs = ARGS_FAILED;
        } else {
            objPtr = Tcl_GetObjResult(interp);
            if (Tcl_GetIntFromObj(interp, objPtr, &procPtr->nargs) != TCL_OK) {
                procPtr->nargs = ARGS_FAILED;
            }
        }
        Tcl_DStringFree(&ds);
    }
    return procPtr->nargs;
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_RegisterFilterObj">RegisterFilterObj</a> --
 *
 *      Register a Tcl filter. 
 *
 * Results:
 *      TCL_ERROR if no server, TCL_OK otherwise. 
 *
 * Side effects:
 *      Will register a filter to run later.
 *
 *----------------------------------------------------------------------
 */

static int
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_RegisterFilterObj">RegisterFilterObj</a>(NsInterp *itPtr, int when, int objc, Tcl_Obj *CONST objv[])
{
    Proc            *procPtr;
    char            *server, *method, *url, *name, *args;

    if (<a href="/cvs/aolserver/aolserver/nsd/tclinit.c#A_NsTclGetServer">NsTclGetServer</a>(itPtr, &server) != TCL_OK) {
        return TCL_ERROR;
    }
    method = Tcl_GetString(objv[0]);
    url = Tcl_GetString(objv[1]);
    name = Tcl_GetString(objv[2]);
    args = (objc > 3 ? Tcl_GetString(objv[3]) : NULL);
    procPtr = <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NewProc">NewProc</a>(name, args);
    <a href="/cvs/aolserver/aolserver/nsd/filter.c#A_Ns_RegisterFilter">Ns_RegisterFilter</a>(server, method, url, <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_ProcFilter">ProcFilter</a>, when, procPtr);
    return TCL_OK;
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AppendConnId">AppendConnId</a> --
 *
 *      Append the Tcl conn handle to a dstring. 
 *
 * Results:
 *      None. 
 *
 * Side effects:
 *      Appends to the dstring. 
 *
 *----------------------------------------------------------------------
 */

static void
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_AppendConnId">AppendConnId</a>(Tcl_DString *dsPtr, Ns_Conn *conn)
{
    Conn *connPtr = (Conn *) conn;

    Tcl_DStringAppendElement(dsPtr, connPtr->idstr);
}


/*
 *----------------------------------------------------------------------
 *
 * <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NewProc">NewProc</a>, <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_FreeProc">FreeProc</a> --
 *
 *      Create or delete a Proc structure.
 *
 * Results:
 *      For <a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NewProc">NewProc</a>, pointer to new Proc.
 *
 * Side effects:
 *      None. 
 *
 *----------------------------------------------------------------------
 */

static Proc *
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_NewProc">NewProc</a>(char *name, char *args)
{
    Proc *procPtr;

    procPtr = ns_malloc(sizeof(Proc));
    procPtr->name = ns_strdup(name);
    procPtr->args = ns_strcopy(args);
    procPtr->nargs = ARGS_UNKNOWN;
    return procPtr;
}

static void
<a href="/cvs/aolserver/aolserver/nsd/tclrequest.c#A_FreeProc">FreeProc</a>(void *arg)
{
    Proc *procPtr = arg;
    
    ns_free(procPtr->name);
    if (procPtr->args != NULL) {
        ns_free(procPtr->args);
    }
    ns_free(procPtr);
}