You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2002/04/17 18:12:45 UTC
cvs commit: tcl-websh/src/generic request_cgi.c
ronnie 02/04/17 09:12:44
Modified: src/generic request_cgi.c
Log:
- added dummy requestScriptName to make websh compile
Revision Changes Path
1.5 +10 -1 tcl-websh/src/generic/request_cgi.c
Index: request_cgi.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/request_cgi.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- request_cgi.c 12 Dec 2001 12:47:10 -0000 1.4
+++ request_cgi.c 17 Apr 2002 16:12:44 -0000 1.5
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: request_cgi.c,v 1.4 2001/12/12 12:47:10 davidw Exp $
+ * @(#) $Id: request_cgi.c,v 1.5 2002/04/17 16:12:44 ronnie Exp $
*
*/
@@ -43,4 +43,13 @@
return TCL_OK;
requestData->requestIsInitialized = 1;
return Tcl_Eval(interp, "web::cgi::copyenv");
+}
+
+
+int requestScriptName(Tcl_Interp *interp, char **filename) {
+ /* fixme: we should return script filen name from the CGI env
+ * what's the status of such a char pointer (who allocates)??
+ * Maybe it would be easier to return a Tcl_Obj */
+ *filename = "";
+ return TCL_OK;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org