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 2005/09/09 10:13:42 UTC
cvs commit: tcl-websh/src/generic formdata.c
ronnie 2005/09/09 01:13:41
Modified: src/generic formdata.c
Log:
- all created files with configurable permissions
Revision Changes Path
1.9 +4 -4 tcl-websh/src/generic/formdata.c
Index: formdata.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/formdata.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- formdata.c 1 Mar 2004 17:31:11 -0000 1.8
+++ formdata.c 9 Sep 2005 08:13:41 -0000 1.9
@@ -351,7 +351,7 @@
bytesWritten =
readAndDumpBody(interp, channel, boundary, &isLast,
tmpFileName, upLoadFileSize,
- &bytesSkipped);
+ requestData->filePermissions, &bytesSkipped);
if (fileNameLen > 0) {
@@ -536,7 +536,7 @@
long readAndDumpBody(Tcl_Interp * interp, Tcl_Channel in,
const char *boundary, int *isLast,
Tcl_Obj * tmpFileName, long upLoadFileSize,
- long *bytesSkipped)
+ int filePermissions, long *bytesSkipped)
{
Tcl_Channel out;
@@ -560,7 +560,7 @@
* open file
* ----------------------------------------------------------------------- */
if ((out = Tcl_OpenFileChannel(NULL, Tcl_GetString(tmpFileName),
- "w", 0644)) == NULL)
+ "w", filePermissions)) == NULL)
return 0;
/* --------------------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org