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:29:39 UTC
cvs commit: tcl-websh/src/generic request_ap.c
ronnie 02/04/17 09:29:39
Modified: src/generic request_ap.c
Log:
- AP2.0 compatibility (requestScriptName)
Revision Changes Path
1.10 +5 -1 tcl-websh/src/generic/request_ap.c
Index: request_ap.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/request_ap.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- request_ap.c 17 Apr 2002 11:27:37 -0000 1.9
+++ request_ap.c 17 Apr 2002 16:29:39 -0000 1.10
@@ -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_ap.c,v 1.9 2002/04/17 11:27:37 davidw Exp $
+ * @(#) $Id: request_ap.c,v 1.10 2002/04/17 16:29:39 ronnie Exp $
*
*/
@@ -98,6 +98,10 @@
int requestScriptName(Tcl_Interp *interp, char **filename) {
request_rec *r;
r = (request_rec *)Tcl_GetAssocData(interp, WEB_AP_ASSOC_DATA, NULL);
+#ifdef APACHE2
+ *filename = (char *) apr_pstrdup(r->pool, r->filename);
+#else /* not APACHE2 */
*filename = ap_pstrdup(r->pool, r->filename);
+#endif /* APACHE2 */
return TCL_OK;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org