- gw_log (GW_LOG_DEBUG, mod, "command: %s", argument);
- wo_printf (wcl, "<BODY>hej - %s</BODY>\n", argument);
+ gw_log (GW_LOG_DEBUG, mod, "script: %s", script);
+ gw_log (GW_LOG_DEBUG, mod, "parms: %s", p);
+ if (w_interp_exec (tcl_interp, wcl, script, p))
+ {
+ wo_printf (wcl, "<html><head><title>wsh error</title></head>\n");
+ wo_printf (wcl, "<body>Couldn't execute script %s</body></html>",
+ script);
+ }