current/tcl/tspr.c

/*
        openisis - an open implementation of the CDS/ISIS database
        Version 0.8.x (patchlevel see file Version)
        Copyright (C) 2001-2003 by Erik Grziwotz, erik@openisis.org

        This library is free software; you can redistribute it and/or
        modify it under the terms of the GNU Lesser General Public
        License as published by the Free Software Foundation; either
        version 2.1 of the License, or (at your option) any later version.

        This library is distributed in the hope that it will be useful,
        but WITHOUT ANY WARRANTY; without even the implied warranty of
        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
        Lesser General Public License for more details.

        You should have received a copy of the GNU Lesser General Public
        License along with this library; if not, write to the Free Software
        Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

        see README for more information
EOH */

/*
        $Id: tspr.c,v 1.7 2003/06/06 10:35:38 mawag Exp $
        OpenIsis TSP runner
        must be binary in order to use with #! lines
*/


#include <stdlib.h> /* getenv */
#include <unistd.h> /* read/write */

#include "openisis.h"
#include "openisistcl.h"

#define CL_MAX 512*1024

static int opc;
static const char **opv;


static int urldec ( OpenIsisRec **preq, const char *q, int l )
{
        OpenIsisRec *req = *preq;
        const char *e = q + (0 <= l ? l : (l = strlen(q)));

        while ( q < e && *q ) {
                char *v, *p;
                int tag, len;
                /* assume numeric tags */
                len = openIsisA2il( q, e-q, &tag );
                if ( !len && opc ) {
                        int i = opc;
                        while ( i-- ) {
                                int cmplen = strlen(opv[i]);
                                if ( cmplen > e-q-1 )
                                        cmplen = e-q-1;
                                if ( !memcmp( opv[i], q, cmplen ) && '=' == q[cmplen] ) {
                                        tag = i+1;
                                        len = cmplen;
                                        break;
                                }
                        }
                }
                q += len;
                if ( '=' != *q || 0 >= tag ) {
                        openIsisSMsg( OPENISIS_LOG_ERROR, "bad param %d '%.32s'", tag, q );
                        return 1;
                }
                q++;
                OPENISIS_RADD( req, tag, 0, e-q, !0 );
                if ( ! req )
                        return 3;
                p = v = (char*)req->field[req->len-1].val;
                for (;;p++,q++) {
                        switch (*q) {
                        case '+': *p = ' '; continue;
                        default: *p = *q; continue;
                        case '%': /* dehex 2 */
                                *p = 0;
                                q++;
                                if ( '0' <= *q && *q <= '9' )
                                        *p += *q - '0';
                                else if ( 'A' <= *q && *q <= 'F' )
                                        *p += *q - 'A' + 10;
                                else if ( 'a' <= *q && *q <= 'f' )
                                        *p += *q - 'a' + 10;
                                else
                                        return 2; /* carp bad hex */
                                *p <<= 4;
                                q++;
                                if ( '0' <= *q && *q <= '9' )
                                        *p += *q - '0';
                                else if ( 'A' <= *q && *q <= 'F' )
                                        *p += *q - 'A' + 10;
                                else if ( 'a' <= *q && *q <= 'f' )
                                        *p += *q - 'a' + 10;
                                else
                                        return 2;
                                continue;
                        case '&':
                                q++;
                        case 0:
                                break;
                        }
                        /* hit proper end */
                        req->used += req->field[req->len-1].len = p - v;
                        break;
                }
        } /* while q */
        *preq = req;
        return 0;
}


#ifdef ORATCL
extern int Oratcl_Init ( Tcl_Interp *ip );
#endif
#ifdef PGTCL
extern int Pgtcl_Init ( Tcl_Interp *ip );
#endif


static int appinit ( Tcl_Interp *interp )
{
        if ( TCL_OK != Tcl_Init( interp )
                /* done in new session
                || TCL_OK != OpenisisTcl_Init( interp )
                */
#ifdef ORATCL
                || TCL_OK != Oratcl_Init( interp )
#endif
#ifdef PGTCL
                || TCL_OK != Pgtcl_Init( interp )
#endif
        )
                return TCL_ERROR;
        return TCL_OK;
}

static char prelude[] = "Content-Type: text/html\r\n\r\n";
static char code[] = "package require openIsis 0.8\nopenIsis::Tspr $tsp";

int main ( int argc, const char **argv )
{
        OpenIsisRec *req = 0;
        int sid, rid, ret;
        const char *q;
        Tcl_Interp *interp;

        if ( 2 > argc )
                return 42;
        opc = argc-2;
        opv = argv+1;
        openIsisCOpen(0);

        /* Tcl_Main( argc, argv, appinit ); */
        Tcl_FindExecutable(argv[0]); /* adds ../lib to auto_path */
        interp = Tcl_CreateInterp();
        appinit( interp );
        if ( (q = getenv("SCRIPT_NAME")) )
                OPENISIS_RADDS( req, -10, q, !0 );
        if ( (q = getenv("PATH_INFO")) )
                OPENISIS_RADDS( req, -11, q, !0 );
        if ( (q = getenv("REMOTE_USER")) )
                OPENISIS_RADDS( req, -12, q, !0 );
        /* URL-decode env(QUERY_STRING) into request record */
        if ( (q = getenv("QUERY_STRING")) && (ret = urldec( &req, q, -1 )) ) 
                return ret;
        if ( (q = getenv("CONTENT_LENGTH")) && *q ) {
                char buf[CL_MAX+1];
                int l = openIsisA2i( q, -1 );
                if ( l > CL_MAX )
                        return 4;
                if ( !(q = getenv("CONTENT_TYPE"))
                        || strcmp("application/x-www-form-urlencoded", q)
                )
                        return 5;
                if ( l != read( 0, buf, l ) )
                        return 6;
                buf[l] = 0;
                if ( (ret = urldec( &req, buf, l )) )
                        return ret;
        }
        sid = openIsisTclNewSession( interp );
        rid = openIsisTclCreateRecCmd( sid, "request", 0, 0 );

        Tcl_SetVar( interp, "tsp", (char*)argv[argc-1], 0 );
        write( 1, prelude, sizeof(prelude)-1 );
        if ( openIsisTclEval( sid, 1, &rid, &req, code ) ) {
                const char *errorInfo
                        = Tcl_GetVar( interp, "errorInfo", TCL_GLOBAL_ONLY );
                openIsisSMsg( OPENISIS_LOG_ERROR, "error in tsp\n%s",
                        errorInfo ? errorInfo : "-" );
                return 3;
        }
        return 0;
}
1	dpavlin	237	/*
2			openisis - an open implementation of the CDS/ISIS database
3			Version 0.8.x (patchlevel see file Version)
4			Copyright (C) 2001-2003 by Erik Grziwotz, erik@openisis.org
5
6			This library is free software; you can redistribute it and/or
7			modify it under the terms of the GNU Lesser General Public
8			License as published by the Free Software Foundation; either
9			version 2.1 of the License, or (at your option) any later version.
10
11			This library is distributed in the hope that it will be useful,
12			but WITHOUT ANY WARRANTY; without even the implied warranty of
13			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14			Lesser General Public License for more details.
15
16			You should have received a copy of the GNU Lesser General Public
17			License along with this library; if not, write to the Free Software
18			Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19
20			see README for more information
21			EOH */
22
23			/*
24			$Id: tspr.c,v 1.7 2003/06/06 10:35:38 mawag Exp $
25			OpenIsis TSP runner
26			must be binary in order to use with #! lines
27			*/
28
29
30			#include <stdlib.h> /* getenv */
31			#include <unistd.h> /* read/write */
32
33			#include "openisis.h"
34			#include "openisistcl.h"
35
36			#define CL_MAX 512*1024
37
38			static int opc;
39			static const char **opv;
40
41
42			static int urldec ( OpenIsisRec *preq, const char q, int l )
43			{
44			OpenIsisRec req = preq;
45			const char *e = q + (0 <= l ? l : (l = strlen(q)));
46
47			while ( q < e && *q ) {
48			char v, p;
49			int tag, len;
50			/* assume numeric tags */
51			len = openIsisA2il( q, e-q, &tag );
52			if ( !len && opc ) {
53			int i = opc;
54			while ( i-- ) {
55			int cmplen = strlen(opv[i]);
56			if ( cmplen > e-q-1 )
57			cmplen = e-q-1;
58			if ( !memcmp( opv[i], q, cmplen ) && '=' == q[cmplen] ) {
59			tag = i+1;
60			len = cmplen;
61			break;
62			}
63			}
64			}
65			q += len;
66			if ( '=' != *q \|\| 0 >= tag ) {
67			openIsisSMsg( OPENISIS_LOG_ERROR, "bad param %d '%.32s'", tag, q );
68			return 1;
69			}
70			q++;
71			OPENISIS_RADD( req, tag, 0, e-q, !0 );
72			if ( ! req )
73			return 3;
74			p = v = (char*)req->field[req->len-1].val;
75			for (;;p++,q++) {
76			switch (*q) {
77			case '+': *p = ' '; continue;
78			default: p = q; continue;
79			case '%': /* dehex 2 */
80			*p = 0;
81			q++;
82			if ( '0' <= q && q <= '9' )
83			p += q - '0';
84			else if ( 'A' <= q && q <= 'F' )
85			p += q - 'A' + 10;
86			else if ( 'a' <= q && q <= 'f' )
87			p += q - 'a' + 10;
88			else
89			return 2; /* carp bad hex */
90			*p <<= 4;
91			q++;
92			if ( '0' <= q && q <= '9' )
93			p += q - '0';
94			else if ( 'A' <= q && q <= 'F' )
95			p += q - 'A' + 10;
96			else if ( 'a' <= q && q <= 'f' )
97			p += q - 'a' + 10;
98			else
99			return 2;
100			continue;
101			case '&':
102			q++;
103			case 0:
104			break;
105			}
106			/* hit proper end */
107			req->used += req->field[req->len-1].len = p - v;
108			break;
109			}
110			} /* while q */
111			*preq = req;
112			return 0;
113			}
114
115
116
117			#ifdef ORATCL
118			extern int Oratcl_Init ( Tcl_Interp *ip );
119			#endif
120			#ifdef PGTCL
121			extern int Pgtcl_Init ( Tcl_Interp *ip );
122			#endif
123
124
125			static int appinit ( Tcl_Interp *interp )
126			{
127			if ( TCL_OK != Tcl_Init( interp )
128			/* done in new session
129			\|\| TCL_OK != OpenisisTcl_Init( interp )
130			*/
131			#ifdef ORATCL
132			\|\| TCL_OK != Oratcl_Init( interp )
133			#endif
134			#ifdef PGTCL
135			\|\| TCL_OK != Pgtcl_Init( interp )
136			#endif
137			)
138			return TCL_ERROR;
139			return TCL_OK;
140			}
141
142			static char prelude[] = "Content-Type: text/html\r\n\r\n";
143			static char code[] = "package require openIsis 0.8\nopenIsis::Tspr $tsp";
144
145			int main ( int argc, const char **argv )
146			{
147			OpenIsisRec *req = 0;
148			int sid, rid, ret;
149			const char *q;
150			Tcl_Interp *interp;
151
152			if ( 2 > argc )
153			return 42;
154			opc = argc-2;
155			opv = argv+1;
156			openIsisCOpen(0);
157
158			/* Tcl_Main( argc, argv, appinit ); */
159			Tcl_FindExecutable(argv[0]); /* adds ../lib to auto_path */
160			interp = Tcl_CreateInterp();
161			appinit( interp );
162			if ( (q = getenv("SCRIPT_NAME")) )
163			OPENISIS_RADDS( req, -10, q, !0 );
164			if ( (q = getenv("PATH_INFO")) )
165			OPENISIS_RADDS( req, -11, q, !0 );
166			if ( (q = getenv("REMOTE_USER")) )
167			OPENISIS_RADDS( req, -12, q, !0 );
168			/* URL-decode env(QUERY_STRING) into request record */
169			if ( (q = getenv("QUERY_STRING")) && (ret = urldec( &req, q, -1 )) )
170			return ret;
171			if ( (q = getenv("CONTENT_LENGTH")) && *q ) {
172			char buf[CL_MAX+1];
173			int l = openIsisA2i( q, -1 );
174			if ( l > CL_MAX )
175			return 4;
176			if ( !(q = getenv("CONTENT_TYPE"))
177			\|\| strcmp("application/x-www-form-urlencoded", q)
178			)
179			return 5;
180			if ( l != read( 0, buf, l ) )
181			return 6;
182			buf[l] = 0;
183			if ( (ret = urldec( &req, buf, l )) )
184			return ret;
185			}
186			sid = openIsisTclNewSession( interp );
187			rid = openIsisTclCreateRecCmd( sid, "request", 0, 0 );
188
189			Tcl_SetVar( interp, "tsp", (char*)argv[argc-1], 0 );
190			write( 1, prelude, sizeof(prelude)-1 );
191			if ( openIsisTclEval( sid, 1, &rid, &req, code ) ) {
192			const char *errorInfo
193			= Tcl_GetVar( interp, "errorInfo", TCL_GLOBAL_ONLY );
194			openIsisSMsg( OPENISIS_LOG_ERROR, "error in tsp\n%s",
195			errorInfo ? errorInfo : "-" );
196			return 3;
197			}
198			return 0;
199			}