+static int proc_wlog_invoke (ClientData clientData, Tcl_Interp *interp,
+ int argc, char **argv)
+{
+ unsigned mask;
+
+ if (argc < 3)
+ return TCL_OK;
+ if (!strcmp (argv[1], "debug"))
+ mask = GW_LOG_DEBUG;
+ else if (!strcmp (argv[1], "fatal"))
+ mask = GW_LOG_FATAL;
+ else if (!strcmp (argv[1], "warn"))
+ mask = GW_LOG_WARN;
+ else if (!strcmp (argv[1], "acct"))
+ mask = GW_LOG_ACCT;
+ else
+ mask = GW_LOG_DEBUG;
+ switch (argc)
+ {
+ case 3:
+ gw_log (mask, mod, "%s", argv[2]);
+ break;
+ case 4:
+ gw_log (mask, mod, "%s %s", argv[2], argv[3]);
+ break;
+ case 5:
+ gw_log (mask, mod, "%s %s %s", argv[2], argv[3], argv[4]);
+ break;
+ case 6:
+ gw_log (mask, mod, "%s %s %s %s", argv[2], argv[3], argv[4], argv[5]);
+ break;
+ }
+ return TCL_OK;
+}
+
+static int proc_enc (ClientData clientData, Tcl_Interp *interp,
+ int argc, char **argv)
+{
+ int i;
+ char buf1[4];
+ char buf2[2];
+
+ buf1[0] = '%';
+ buf2[1] = '\0';
+ for (i = 1; i<argc; i++)
+ {
+ const char *cp = argv[i];
+ while (*cp)
+ {
+ if (*cp <= ' ' || *cp >= 127 || *cp == '/' || *cp == ' ' ||
+ *cp == '&' || *cp == ':' || *cp == '%')
+ {
+ sprintf (buf1+1, "%02X", *cp);
+ Tcl_AppendResult (interp, buf1, NULL);
+ }
+ else
+ {
+ buf2[0] = *cp;
+ Tcl_AppendResult (interp, buf2, NULL);
+ }
+ cp++;
+ }
+ }
+ return TCL_OK;
+}
+
+static int proc_dec (ClientData clientData, Tcl_Interp *interp,
+ int argc, char **argv)
+{
+ int i;
+ unsigned val;
+ char buf[2];
+
+ buf[1] = '\0';
+ for (i = 1; i<argc; i++)
+ {
+ const char *cp = argv[i];
+ while (*cp)
+ {
+ if (*cp == '%' && cp[1] && cp[2])
+ {
+ if (cp[1] >= 'A')
+ val = cp[1] - 'A'+10;
+ else
+ val = cp[1] - '0';
+
+
+ if (cp[2] >= 'A')
+ val = val*16 + (cp[2] - 'A'+10);
+ else
+ val = val*16 + (cp[2] - '0');
+ buf[0] = val;
+ cp += 3;
+ }
+ else
+ buf[0] = *cp++;
+ Tcl_AppendResult (interp, buf, NULL);
+ }
+ }
+ return TCL_OK;
+}
+
+