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 2003/03/27 22:27:49 UTC
cvs commit: tcl-rivet/src TclWebapache.c rivetCrypt.c rivetWWW.c
davidw 2003/03/27 13:27:49
Modified: . ChangeLog STATUS
src TclWebapache.c rivetCrypt.c rivetWWW.c
Log:
* src/rivetWWW.c (Rivet_UnescapeStringCmd): Free memory allocated with
Tcl_Alloc. (Rivet_EscapeStringCmd): Free memory allocated with
Tcl_Alloc. (Rivet_EscapeSgmlCharsCmd): Free memory allocated with
Tcl_Alloc. (Rivet_EscapeShellCommandCmd): Free memory allocated
with Tcl_Alloc.
* src/rivetCrypt.c (Rivet_DecryptCmd): Free memory allocated with
Tcl_Alloc. (Rivet_EncryptCmd): Free memory allocated with
Tcl_Alloc.
Revision Changes Path
1.104 +14 -0 tcl-rivet/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/tcl-rivet/ChangeLog,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -r1.103 -r1.104
--- ChangeLog 26 Mar 2003 09:39:42 -0000 1.103
+++ ChangeLog 27 Mar 2003 21:27:48 -0000 1.104
@@ -1,4 +1,18 @@
+2003-03-27 David N. Welton <da...@dedasys.com>
+
+ * src/rivetWWW.c (Rivet_UnescapeStringCmd): Free memory allocated
+ with Tcl_Alloc.
+ (Rivet_EscapeStringCmd): Free memory allocated with Tcl_Alloc.
+ (Rivet_EscapeSgmlCharsCmd): Free memory allocated with Tcl_Alloc.
+ (Rivet_EscapeShellCommandCmd): Free memory allocated with Tcl_Alloc.
+
+ * src/rivetCrypt.c (Rivet_DecryptCmd): Free memory allocated with
+ Tcl_Alloc.
+ (Rivet_EncryptCmd): Free memory allocated with Tcl_Alloc.
+
2003-03-26 David N. Welton <da...@dedasys.com>
+
+ * Remove index.html and help.html.
* rivet/pkgIndex.tcl: Added index file for RivetTcl package -
i.e. init.tcl.
1.5 +1 -3 tcl-rivet/STATUS
Index: STATUS
===================================================================
RCS file: /home/cvs/tcl-rivet/STATUS,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- STATUS 17 Jan 2003 07:49:12 -0000 1.4
+++ STATUS 27 Mar 2003 21:27:48 -0000 1.5
@@ -9,8 +9,6 @@
Work in progress:
----------------
-Logo - vote tallied.
-
Windows patches by Holger have yet to be applied.
Apache 2.0:
1.42 +2 -2 tcl-rivet/src/TclWebapache.c
Index: TclWebapache.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/TclWebapache.c,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -r1.41 -r1.42
--- TclWebapache.c 7 Jan 2003 21:28:16 -0000 1.41
+++ TclWebapache.c 27 Mar 2003 21:27:48 -0000 1.42
@@ -555,7 +555,7 @@
rivet_server_conf *rsc = NULL;
rsc = RIVET_SERVER_CONF( req->req->server->module_config );
- /* this sucks - we should use the hook, but I want to
+ /* This sucks - we should use the hook, but I want to
get everything fixed and working first */
if (rsc->upload_files_to_var)
{
1.5 +2 -0 tcl-rivet/src/rivetCrypt.c
Index: rivetCrypt.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/rivetCrypt.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- rivetCrypt.c 22 Oct 2002 18:21:47 -0000 1.4
+++ rivetCrypt.c 27 Mar 2003 21:27:49 -0000 1.5
@@ -65,6 +65,7 @@
}
Tcl_SetObjResult( interp, Tcl_NewStringObj( resultBuffer, -1 ) );
+ Tcl_Free(resultBuffer);
return TCL_OK;
}
@@ -92,6 +93,7 @@
}
Tcl_SetObjResult( interp, Tcl_NewStringObj( resultBuffer, -1 ) );
+ Tcl_Free(resultBuffer);
return TCL_OK;
}
1.4 +4 -0 tcl-rivet/src/rivetWWW.c
Index: rivetWWW.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/rivetWWW.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- rivetWWW.c 30 Oct 2002 05:46:44 -0000 1.3
+++ rivetWWW.c 27 Mar 2003 21:27:49 -0000 1.4
@@ -100,6 +100,7 @@
*newStringP = '\0';
Tcl_SetObjResult( interp, Tcl_NewStringObj( newString, -1 ) );
+ Tcl_Free(newString);
return TCL_OK;
}
@@ -171,6 +172,7 @@
*newStringP = '\0';
Tcl_SetObjResult( interp, Tcl_NewStringObj( newString, -1 ) );
+ Tcl_Free(newString);
return TCL_OK;
}
@@ -253,6 +255,7 @@
*newStringP = '\0';
Tcl_SetObjResult( interp, Tcl_NewStringObj( newString, -1 ) );
+ Tcl_Free(newString);
return TCL_OK;
}
@@ -302,6 +305,7 @@
*newStringP = '\0';
Tcl_SetObjResult( interp, Tcl_NewStringObj( newString, -1 ) );
+ Tcl_Free(newString);
return TCL_OK;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org