From af95219a9e5531ab465398563ec32664fb58e324 Mon Sep 17 00:00:00 2001
From: Gabor Adam Toth <tg@x-net.hu>
Date: Mon, 22 Feb 2010 08:33:32 +0100
Subject: [PATCH] http/examine: added dest param for cmd, debug msg fixes

---
 world/default/en/html.textdb | 3 ++-
 world/net/http/examine.c     | 2 +-
 world/net/http/header.i      | 2 +-
 world/net/http/server.c      | 2 +-
 4 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/world/default/en/html.textdb b/world/default/en/html.textdb
index 1c1d4bd..d8a08a4 100644
--- a/world/default/en/html.textdb
+++ b/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
diff --git a/world/net/http/examine.c b/world/net/http/examine.c
index feb0be8..81e15da 100644
--- a/world/net/http/examine.c
+++ b/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))
diff --git a/world/net/http/header.i b/world/net/http/header.i
index a047f6c..21f6dd5 100644
--- a/world/net/http/header.i
+++ b/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) {
diff --git a/world/net/http/server.c b/world/net/http/server.c
index 3c144ff..5960d6a 100644
--- a/world/net/http/server.c
+++ b/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)) {