http/examine: added dest param for cmd, debug msg fixes

world/default/en/html.textdb

@@ -1352,8 +1352,9 @@ _PAGES_start_description
 |<script>
 |var longer = 44
 |
-|function cmd(wish) {
+|function cmd(wish, dest) {
 |	Pef.cmd.value = wish
+|	Pef.dest.value = dest || ''
 |	Pef.submit()
 |	longer = 44
 |	return false

world/net/http/examine.c

@@ -15,7 +15,7 @@ htget(prot, query, headers, qs) {
 	} else unless (user->validToken(query["token"])) {
 		t = "_error_invalid_authentication_token";
 	} else if ((t = query["cmd"]) && strlen(t)) {
-		user->parsecmd(t);	// htcmd?
+		user->parsecmd(t, query["dest"]);	// htcmd?
 		t = "_echo_execute_web";
 	} else if (t = user->htDescription(0, query, headers, qs, "")) {
 		P4(("result: %O\n", t))

world/net/http/header.i

@@ -14,7 +14,7 @@ http_ok(string prot, string type, string extra) {
 	out = type || extra ? htheaders(type, extra) +"\n"
 	       	: "Content-type: " DEFAULT_CONTENT_TYPE "\n\n";
 	emit(out = HTTP_SVERS " 200 Sure\n"+ out);
-	P3((out))
+	P3(("http_ok: out: %O\s", out))
 }
 
 varargs http_error(string prot, int code, string comment, string html) {

world/net/http/server.c

@@ -86,7 +86,7 @@ parse_url(input) {
 parse_header(input) {
     string key, val;
 
-    P4((input + "\n"))
+    P4(("parse_header(%O)\n", input))
     
     unless (input == "") {
 	if (sscanf(input, "%s:%1.0t%s", key, val)) {