You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by da...@apache.org on 2002/12/06 02:20:26 UTC
cvs commit: tcl-rivet/src TclWebapache.c mod_rivet.c rivetCore.c
davidw 2002/12/05 17:20:26
Modified: . ChangeLog TODO
src TclWebapache.c mod_rivet.c rivetCore.c
Log:
* src/TclWebapache.c (TclWeb_GetEnvVars): Put DecrRefCount back in -
must have taken it out by mistake while hunting a previous memory
leak.
* src/mod_rivet.c (Rivet_SendContent): Set up information for [info
script] by using r->filename.
Revision Changes Path
1.84 +11 -0 tcl-rivet/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/tcl-rivet/ChangeLog,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -r1.83 -r1.84
--- ChangeLog 20 Nov 2002 01:50:15 -0000 1.83
+++ ChangeLog 6 Dec 2002 01:20:25 -0000 1.84
@@ -1,3 +1,14 @@
+2002-12-04 David N. Welton <da...@dedasys.com>
+
+ * src/TclWebapache.c (TclWeb_GetEnvVars): Put DecrRefCount back in
+ - must have taken it out by mistake while hunting a previous
+ memory leak.
+
+2002-11-23 David N. Welton <da...@dedasys.com>
+
+ * src/mod_rivet.c (Rivet_SendContent): Set up information for
+ [info script] by using r->filename.
+
2002-11-19 David N. Welton <da...@dedasys.com>
* doc/examples/table.rvt: Fixed up format operation to make nicer
1.15 +2 -0 tcl-rivet/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/tcl-rivet/TODO,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- TODO 5 Nov 2002 01:13:24 -0000 1.14
+++ TODO 6 Dec 2002 01:20:25 -0000 1.15
@@ -4,6 +4,8 @@
TODO
====
+* var_get and var_post commands.
+
* getting the plain post data. I use mod_dtcl as an xml server and I
need to collect the broken xml (due to query string proccessing). if
the user enters in the xml "=" I am lost. (From yahalom emet).
1.37 +1 -2 tcl-rivet/src/TclWebapache.c
Index: TclWebapache.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/TclWebapache.c,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- TclWebapache.c 30 Oct 2002 05:46:44 -0000 1.36
+++ TclWebapache.c 6 Dec 2002 01:20:26 -0000 1.37
@@ -375,7 +375,6 @@
Tcl_DecrRefCount(val);
}
- Tcl_DecrRefCount(envvar);
return TCL_OK;
}
1.53 +11 -2 tcl-rivet/src/mod_rivet.c
Index: mod_rivet.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/mod_rivet.c,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -r1.52 -r1.53
--- mod_rivet.c 5 Nov 2002 01:13:24 -0000 1.52
+++ mod_rivet.c 6 Dec 2002 01:20:26 -0000 1.53
@@ -423,8 +423,17 @@
"Could not create request namespace\n");
return HTTP_BAD_REQUEST;
}
- /* Apache Request stuff */
+
+ {
+ Tcl_Obj *infoscript[3];
+ infoscript[0] = Tcl_NewStringObj("info", -1);
+ infoscript[1] = Tcl_NewStringObj("script", -1);
+ infoscript[2] = Tcl_NewStringObj(r->filename, -1);
+ Tcl_EvalObjv(interp, 3, infoscript, 0);
+ }
+
+ /* Apache Request stuff */
TclWeb_InitRequest(globals->req, interp, r);
ApacheRequest_set_post_max(globals->req->apachereq, rsc->upload_max);
ApacheRequest_set_temp_dir(globals->req->apachereq, rsc->upload_dir);
1.31 +3 -3 tcl-rivet/src/rivetCore.c
Index: rivetCore.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/rivetCore.c,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- rivetCore.c 5 Nov 2002 01:13:24 -0000 1.30
+++ rivetCore.c 6 Dec 2002 01:20:26 -0000 1.31
@@ -253,7 +253,7 @@
}
/* Get the environmental variables, but do it from a tcl function, so
- we can decide whether we wish to or not */
+ we can decide whether we wish to or not. */
static int
Rivet_LoadEnv(
@@ -327,7 +327,7 @@
if (objc < 2 || objc > 4)
{
Tcl_WrongNumArgs(interp, 1, objv,
- "(get varname|list varname|exists varname|names"
+ "(get varname ?default?|list varname|exists varname|names"
"|number|all)");
return TCL_ERROR;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org