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 2010/04/27 09:44:48 UTC
svn commit: r938342 - in /tcl/rivet/trunk/src/apache-1: TclWebapache.c
apache_multipart_buffer.c apache_request.c mod_rivet.c rivetCore.c
Author: mxmanghi
Date: Tue Apr 27 07:44:47 2010
New Revision: 938342
URL: http://svn.apache.org/viewvc?rev=938342&view=rev
Log:
* src/apache-1/TclWebapache.c,src/apache-1/rivetCore.c,src/apache-1/mod_rivet.c,
src/apache-1/apache_request.c,src/apache-1/apache_multipart_buffer.c: changes and
additions made for apache 2 added to the code for apache 1.x
Modified:
tcl/rivet/trunk/src/apache-1/TclWebapache.c
tcl/rivet/trunk/src/apache-1/apache_multipart_buffer.c
tcl/rivet/trunk/src/apache-1/apache_request.c
tcl/rivet/trunk/src/apache-1/mod_rivet.c
tcl/rivet/trunk/src/apache-1/rivetCore.c
Modified: tcl/rivet/trunk/src/apache-1/TclWebapache.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/apache-1/TclWebapache.c?rev=938342&r1=938341&r2=938342&view=diff
==============================================================================
--- tcl/rivet/trunk/src/apache-1/TclWebapache.c (original)
+++ tcl/rivet/trunk/src/apache-1/TclWebapache.c Tue Apr 27 07:44:47 2010
@@ -26,7 +26,7 @@
/* Rivet config */
#ifdef HAVE_CONFIG_H
-#include <config.h>
+#include <rivet_config.h>
#endif
#include <tcl.h>
@@ -537,6 +537,14 @@ int TclWeb_UploadChannel(char *varname,
}
}
+int TclWeb_UploadTempname(Tcl_Obj *tempname, TclWebRequest *req)
+{
+ Tcl_SetStringObj(tempname,
+ TclWeb_StringToUtf(req->upload->tempname,
+ req), -1);
+ return TCL_OK;
+}
+
int TclWeb_UploadSave(char *varname, Tcl_Obj *filename, TclWebRequest *req)
{
int sz;
Modified: tcl/rivet/trunk/src/apache-1/apache_multipart_buffer.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/apache-1/apache_multipart_buffer.c?rev=938342&r1=938341&r2=938342&view=diff
==============================================================================
--- tcl/rivet/trunk/src/apache-1/apache_multipart_buffer.c (original)
+++ tcl/rivet/trunk/src/apache-1/apache_multipart_buffer.c Tue Apr 27 07:44:47 2010
@@ -17,7 +17,7 @@
/* Rivet config */
#ifdef HAVE_CONFIG_H
-#include <config.h>
+#include <rivet_config.h>
#endif
#include "apache_multipart_buffer.h"
Modified: tcl/rivet/trunk/src/apache-1/apache_request.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/apache-1/apache_request.c?rev=938342&r1=938341&r2=938342&view=diff
==============================================================================
--- tcl/rivet/trunk/src/apache-1/apache_request.c (original)
+++ tcl/rivet/trunk/src/apache-1/apache_request.c Tue Apr 27 07:44:47 2010
@@ -316,7 +316,7 @@ static int ap_unescape_url_u(char *url)
return OK;
}
-static int urlword_dlm[] = {'&', ';', 0};
+// static int urlword_dlm[] = {'&', ';', 0};
static char *my_urlword(pool *p, const char **line)
{
@@ -409,7 +409,7 @@ int ApacheRequest_parse_urlencoded(Apach
return rc;
}
if (data) {
- req->raw_post = data; /* Give people a way of getting at the raw data. */
+ req->raw_post = (char *) data; /* Give people a way of getting at the raw data. */
split_to_parms(req, data);
}
}
Modified: tcl/rivet/trunk/src/apache-1/mod_rivet.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/apache-1/mod_rivet.c?rev=938342&r1=938341&r2=938342&view=diff
==============================================================================
--- tcl/rivet/trunk/src/apache-1/mod_rivet.c (original)
+++ tcl/rivet/trunk/src/apache-1/mod_rivet.c Tue Apr 27 07:44:47 2010
@@ -17,7 +17,7 @@
/* Rivet config */
#ifdef HAVE_CONFIG_H
-#include <config.h>
+#include <rivet_config.h>
#endif
/* Apache includes */
@@ -752,8 +752,7 @@ Rivet_PerInterpInit(server_rec *s, rivet
/* Create TCL commands to deal with Apache's BUFFs. */
rsc->outchannel = ap_pcalloc(p, sizeof(Tcl_Channel));
- *(rsc->outchannel) = Tcl_CreateChannel(&RivetChan, "apacheout", rsc,
- TCL_WRITABLE);
+ *(rsc->outchannel) = Tcl_CreateChannel(&RivetChan, "apacheout", rsc, TCL_WRITABLE);
Tcl_SetStdChannel(*(rsc->outchannel), TCL_STDOUT);
@@ -782,7 +781,7 @@ Rivet_PerInterpInit(server_rec *s, rivet
* links a specific installation to RivetTcl's version
*/
- if (Tcl_EvalFile(interp,RIVETLIB_DESTDIR"/init.tcl") == TCL_ERROR) {
+ if (Tcl_EvalFile(interp,RIVET_RIVETLIB_DESTDIR"/init.tcl") == TCL_ERROR) {
ap_log_error( APLOG_MARK, APLOG_ERR, s,
"init.tcl must be installed correctly for Apache Rivet to function: %s",
Tcl_GetStringResult(interp) );
@@ -858,7 +857,7 @@ Rivet_InitTclStuff(server_rec *s, pool *
server_rec *sr;
/* Initialize TCL stuff */
- Tcl_FindExecutable(NAMEOFEXECUTABLE);
+ Tcl_FindExecutable(RIVET_NAMEOFEXECUTABLE);
interp = Tcl_CreateInterp();
if (interp == NULL)
@@ -1534,13 +1533,13 @@ Rivet_ChildExit(server_rec *s, pool *p)
MODULE_VAR_EXPORT void
-Rivet_InitHandler(server_rec *s, pool *p)
+Rivet_InitHandler(server_rec *s, pool *pPool)
{
-#ifndef HIDE_RIVET_VERSION
- ap_add_version_component("Rivet/"VERSION);
+#if RIVET_DISPLAY_VERSION
+ ap_add_version_component(RIVET_PACKAGE_NAME"/"RIVET_PACKAGE_VERSION);
#else
- ap_add_version_component("Rivet");
-#endif /* !HIDE_RIVET_VERSION */
+ ap_add_version_component(RIVET_PACKAGE_NAME);
+#endif /* RIVET_DISPLAY_VERSION */
}
const handler_rec rivet_handlers[] =
Modified: tcl/rivet/trunk/src/apache-1/rivetCore.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/apache-1/rivetCore.c?rev=938342&r1=938341&r2=938342&view=diff
==============================================================================
--- tcl/rivet/trunk/src/apache-1/rivetCore.c (original)
+++ tcl/rivet/trunk/src/apache-1/rivetCore.c Tue Apr 27 07:44:47 2010
@@ -21,7 +21,7 @@
/* Rivet config */
#ifdef HAVE_CONFIG_H
-#include <config.h>
+#include <rivet_config.h>
#endif
#include "httpd.h"
@@ -47,6 +47,7 @@
#define COOKIES_ARRAY_NAME "cookies"
extern module rivet_module;
+extern char* TclWeb_GetRawPost (TclWebRequest *req);
#define POOL (globals->r->pool)
@@ -578,6 +579,7 @@ TCL_CMD_HEADER( Rivet_Upload )
"size",
"type",
"filename",
+ "tempname",
"names",
NULL
};
@@ -590,24 +592,26 @@ TCL_CMD_HEADER( Rivet_Upload )
SIZE,
TYPE,
FILENAME,
+ TEMPNAME,
NAMES
};
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|tempname|names",
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 ||
+ /* Excluded case is 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 == TEMPNAME ||
(enum subcommand)subcommandindex == FILENAME)
{
varname = Tcl_GetString(objv[2]);
@@ -686,6 +690,9 @@ TCL_CMD_HEADER( Rivet_Upload )
}
TclWeb_UploadNames(result, globals->req);
break;
+ case TEMPNAME:
+ TclWeb_UploadTempname(result,globals->req);
+ break;
default:
Tcl_WrongNumArgs(interp, 1, objv,
"channel|save ?name?|data|exists|size|type|filename|names");
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org