You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2015/02/02 22:30:19 UTC
svn commit: r1656586 - /tcl/rivet/trunk/src/experimental/TclWebapache.c
Author: mxmanghi
Date: Mon Feb 2 21:30:19 2015
New Revision: 1656586
URL: http://svn.apache.org/r1656586
Log:
TclWeb_PrintHeaders did not shipped the code I moved from mod_rivet.c
Modified:
tcl/rivet/trunk/src/experimental/TclWebapache.c
Modified: tcl/rivet/trunk/src/experimental/TclWebapache.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/experimental/TclWebapache.c?rev=1656586&r1=1656585&r2=1656586&view=diff
==============================================================================
--- tcl/rivet/trunk/src/experimental/TclWebapache.c (original)
+++ tcl/rivet/trunk/src/experimental/TclWebapache.c Mon Feb 2 21:30:19 2015
@@ -150,6 +150,14 @@ TclWeb_PrintHeaders(TclWebRequest *req)
if (req->headers_printed)
return TCL_ERROR;
+ /* Let's set the charset in the headers if one was set in the configuration */
+
+ if (!globals->req->headers_set && (globals->req->charset != NULL))
+ {
+ TclWeb_SetHeaderType (apr_pstrcat(globals->req->req->pool,"text/html;",
+ globals->req->charset,NULL),globals->req);
+ }
+
if (req->headers_set == 0)
{
TclWeb_SetHeaderType(DEFAULT_HEADER_TYPE, req);
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org