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 mx...@apache.org on 2008/12/23 01:28:46 UTC
svn commit: r728830 - in /tcl/rivet/trunk: ChangeLog src/apache-2/rivetCore.c
Author: mxmanghi
Date: Mon Dec 22 16:28:45 2008
New Revision: 728830
URL: http://svn.apache.org/viewvc?rev=728830&view=rev
Log:
* src/apache-2/rivetCode.c: add handling for subcommand 'tempname'
Modified:
tcl/rivet/trunk/ChangeLog
tcl/rivet/trunk/src/apache-2/rivetCore.c
Modified: tcl/rivet/trunk/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/ChangeLog?rev=728830&r1=728829&r2=728830&view=diff
==============================================================================
--- tcl/rivet/trunk/ChangeLog (original)
+++ tcl/rivet/trunk/ChangeLog Mon Dec 22 16:28:45 2008
@@ -1,3 +1,8 @@
+2008-12-21 Massimo Manghi <mx...@apache.ora>
+
+ * src/apache-2/rivetCode.c: add handling for subcommand
+ 'tempname'
+
2008-12-15 Massimo Manghi <mx...@apache.org>
* src/apache-2/TclWebapache.c: fixed test on configuaration
Modified: tcl/rivet/trunk/src/apache-2/rivetCore.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/apache-2/rivetCore.c?rev=728830&r1=728829&r2=728830&view=diff
==============================================================================
--- tcl/rivet/trunk/src/apache-2/rivetCore.c (original)
+++ tcl/rivet/trunk/src/apache-2/rivetCore.c Mon Dec 22 16:28:45 2008
@@ -584,6 +584,7 @@
"type",
"filename",
"names",
+ "tempname",
NULL
};
@@ -595,25 +596,27 @@
SIZE,
TYPE,
FILENAME,
- NAMES
+ NAMES,
+ TEMPNAME
};
rivet_interp_globals *globals = Tcl_GetAssocData(interp, "rivet", NULL);
command = Tcl_GetString(objv[1]);
Tcl_GetIndexFromObj(interp, objv[1], SubCommand,
- "channel|save|data|exists|size|type|filename|names",
+ "channel|save|data|exists|size|type|filename|names|tempname",
0, &subcommandindex);
/* If it's any of these, we need to find a specific name. */
/* Excluded cases are EXISTS and NAMES. */
- if ((enum subcommand)subcommandindex == CHANNEL ||
- (enum subcommand)subcommandindex == SAVE ||
- (enum subcommand)subcommandindex == DATA ||
- (enum subcommand)subcommandindex == EXISTS ||
- (enum subcommand)subcommandindex == SIZE ||
- (enum subcommand)subcommandindex == TYPE ||
- (enum subcommand)subcommandindex == FILENAME)
+ if ((enum subcommand)subcommandindex == CHANNEL ||
+ (enum subcommand)subcommandindex == SAVE ||
+ (enum subcommand)subcommandindex == DATA ||
+ (enum subcommand)subcommandindex == EXISTS ||
+ (enum subcommand)subcommandindex == SIZE ||
+ (enum subcommand)subcommandindex == TYPE ||
+ (enum subcommand)subcommandindex == FILENAME ||
+ (enum subcommand)subcommandindex == TEMPNAME)
{
varname = Tcl_GetString(objv[2]);
if ((enum subcommand)subcommandindex != EXISTS)
@@ -683,6 +686,9 @@
case FILENAME:
TclWeb_UploadFilename(result, globals->req);
break;
+ case TEMPNAME:
+ TclWeb_UploadTempname(result,globals->req);
+ break;
case NAMES:
if (objc != 2)
{
@@ -693,7 +699,7 @@
break;
default:
Tcl_WrongNumArgs(interp, 1, objv,
- "channel|save ?name?|data|exists|size|type|filename|names");
+ "channel|save ?name?|data|exists|size|type|filename|names|tempname");
}
Tcl_SetObjResult(interp, result);
return TCL_OK;
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org