X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fwtcl.c;h=8772adcc89f87134cb408bb2eb8069e15ea478cc;hb=a99bbcafcacb3b34d19e2ccef4ee636dfbe883e1;hp=5728d569a592526a1ef0f2e43c7dadab01368ed7;hpb=cfd53e6da1790969cb800d187f81cc63c18859ce;p=egate.git diff --git a/www/wtcl.c b/www/wtcl.c index 5728d56..8772adc 100644 --- a/www/wtcl.c +++ b/www/wtcl.c @@ -41,6 +41,22 @@ * USE OR PERFORMANCE OF THIS SOFTWARE. * * $Log: wtcl.c,v $ + * Revision 1.20 1997/01/31 11:16:01 adam + * Enhanced the egw_source command. An optional parameter specifies the + * name of a variable in which the HTML output is stored. + * + * Revision 1.19 1997/01/27 11:27:17 adam + * Implemented a new command, egw_clear, to clear http output cache. + * Changed prototype for function wo_clear. + * + * Revision 1.18 1997/01/24 13:13:13 adam + * Implemnted egw_source and added a "raw" option to the URL. + * Fixed a bug in the buffering system of wproto; the macro wo_putc could + * override memory if it was the first HTML generating function called. + * + * Revision 1.17 1996/05/31 08:02:56 adam + * Bug fix: egw_enc encoded '/' - it shouldn't. + * * Revision 1.16 1996/05/23 15:53:12 adam * Bug fix: egw_enc failed on 8-bit chars. * New command: egw_parms. @@ -135,6 +151,8 @@ struct tcl_info { WCLIENT wcl; }; +static int exec_file (const char *fname, struct tcl_info *p); + Tcl_Interp *w_interp_tcl_get (W_Interp w_interp) { struct tcl_info *p; @@ -299,13 +317,17 @@ static int proc_enc (ClientData clientData, Tcl_Interp *interp, { const char *cp = argv[i]; while (*cp) - { - if (*cp <= ' ' || *cp >= 127 || *cp == '/' || *cp == ' ' || - *cp == '&' || *cp == ':' || *cp == '%') + { + if (*cp < ' ' || *cp >= 127 || *cp == '&' || *cp == '?' + || *cp == '%' || *cp == '+') { sprintf (buf1+1, "%02X", *cp & 0xff); Tcl_AppendResult (interp, buf1, NULL); } + else if (*cp == ' ') + { + Tcl_AppendResult (interp, "+", NULL); + } else { buf2[0] = *cp; @@ -362,6 +384,53 @@ static int proc_prog (ClientData clientData, Tcl_Interp *interp, return TCL_OK; } +static int proc_source (ClientData clientData, Tcl_Interp *interp, + int argc, char **argv) +{ + struct tcl_info *p = (struct tcl_info*) clientData; + int r, offset = 0; + + if (argc < 2 || argc > 3) + { + Tcl_AppendResult (p->interp, + "wrong # args: should be egw_source file ?var?", + NULL); + return TCL_ERROR; + } + if (argc == 3) + offset = wproto_save_push (p->wcl); + r = exec_file (argv[1], p); + Tcl_ResetResult (p->interp); + if (argc == 3) + { + char *res = wproto_save_pop (p->wcl, offset); + if (res) + Tcl_SetVar (p->interp, argv[2], res, 0); + } + if (r == -1) + { + Tcl_AppendResult (p->interp, "egw_source: couldn't open ", + argv[1], NULL); + return TCL_ERROR; + } + else if (r == -2) + { + Tcl_AppendResult (p->interp, "egw_source: Tcl error in script ", + argv[1], NULL); + return TCL_ERROR; + } + return TCL_OK; +} + +static int proc_clear (ClientData clientData, Tcl_Interp *interp, + int argc, char **argv) +{ + struct tcl_info *p = (struct tcl_info*) clientData; + + wo_clear (p->wcl); + return TCL_OK; +} + int Tcl_AppInit (Tcl_Interp *interp) { if (Tcl_Init (interp) == TCL_ERROR) @@ -401,6 +470,8 @@ static void *do_create (WCLIENT wcl, void *args) Tcl_CreateCommand (p->interp, "egw_enc", proc_enc, p, NULL); Tcl_CreateCommand (p->interp, "egw_dec", proc_dec, p, NULL); Tcl_CreateCommand (p->interp, "egw_prog", proc_prog, p, NULL); + Tcl_CreateCommand (p->interp, "egw_source", proc_source, p, NULL); + Tcl_CreateCommand (p->interp, "egw_clear", proc_clear, p, NULL); sprintf (tmp_str, "%d", wcl->id); Tcl_SetVar (p->interp, "sessionId", tmp_str, TCL_GLOBAL_ONLY); return p; @@ -417,8 +488,8 @@ static void report_error (struct tcl_info *p, int errorLine, wo_printf (p->wcl, "