Re: [AOLSERVER] AOLServer corrupting Form data

[Wojciech Kocjan]

Hello.

I have the same problem here in Poland. I wrote a quickhack that does
the trick in C.

It creates "ns_utf8" Tcl command which I use to convert from external to
utf and back. I use this way:
Instead of
   set text [ns_queryget text]
I use
   set text [ns_utf8 eu [ns_queryget text]]

Now it is utf-8 encoded (not with the proper encoding though - I should
use iso8859-2 :), so Tcl can safely operate on these strings.

For example
   set subtext [string range $text 1 end]

Then, when I want to return it to the browser:
<%=[ns_utf8 ue $subtext]%>

Note that you'd not be able to do this properly for non-latin text
without ns_utf8...

Also, when AOLserver will finally handle utf-8 correctly, you can just
write a dummy
   proc ns_utf8 {mode text} {return $text}

It's a quickhack, but works well.

--
WK

"Data typing is an illusion. Everything is a sequence of bytes."
                                                              -Todd Coram


#ifndef USE_TCL8X
#define USE_TCL8X
#endif

#include "ns.h"
#include <tcl.h>

int Ns_ModuleVersion = 1;

static int main_tcl_command (ClientData dummy, Tcl_Interp *interp,int objc, Tcl_Obj 
*CONST objv[]) {
    char *cmd;
    char *v;
    int l;
    Tcl_DString ds;
    Tcl_Obj *rc;
    Tcl_Encoding te;

    if (objc!=3) {
        return TCL_ERROR;
    }
    if ((te=Tcl_GetEncoding(interp,NULL))==NULL) {
        return TCL_ERROR;
    }

    Tcl_DStringInit(&ds);
    cmd=Tcl_GetString(objv[1]);
    v=Tcl_GetStringFromObj(objv[2],&l);
    if (!strcmp(cmd,"eu")) {
        Tcl_ExternalToUtfDString(te,v,l,&ds);
    }  else  {
        Tcl_UtfToExternalDString(te,v,l,&ds);
    }

    Tcl_FreeEncoding(te);

    if ((rc=Tcl_NewStringObj(Tcl_DStringValue(&ds),Tcl_DStringLength(&ds)))!=NULL) {
        Tcl_SetObjResult(interp, rc);
        Tcl_DStringFree(&ds);
        return TCL_OK;
    }  else  {
        Tcl_DStringFree(&ds);
        return TCL_ERROR;
    }
}

int ns_utf8_tcl(Tcl_Interp *i, void *c) {
    Tcl_CreateObjCommand(i, "ns_utf8", main_tcl_command, NULL, NULL);
    return TCL_OK;
}

Ns_ModuleInit(char *hServer, char *hModule) {
    Ns_TclInitInterps(hServer,ns_utf8_tcl,NULL);
    return NS_OK;
}