From 752f6c7bdb8b64e1e09a9449cd0b836193e5b0c8 Mon Sep 17 00:00:00 2001
From: dschmenk <dschmenk@sbcglobal.net>
Date: Thu, 12 Feb 2015 15:23:57 -0800
Subject: [PATCH] Clean up some debug output

---
 src/samplesrc/httpd.pla | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/samplesrc/httpd.pla b/src/samplesrc/httpd.pla
index 7ccdbee..7c983eb 100644
--- a/src/samplesrc/httpd.pla
+++ b/src/samplesrc/httpd.pla
@@ -32,7 +32,7 @@ word socketHTTP
 byte[65] prefix
 byte     perr
 word     filebuff, iobuff
-byte hello = "Apple II Web Server"
+byte hello = "Apple II Web Server\n"
 byte defhtml = "INDEX.HTML"
 //
 // HTTP response
@@ -40,6 +40,7 @@ byte defhtml = "INDEX.HTML"
 byte httpOK = "HTTP/1.1 200 OK\n\rContent-Type: text/html\n\rContent-Length: "
 byte httpEnd = "\n\r\n\r"
 byte httpBAD = "HTTP/1.1 404 NOTFOUND\n\rContent-Type: text/plain\n\rContent-Length: 12\n\r\n\rBad Request\n\r"
+byte httpNOFILE = "HTTP/1.1 404 NOTFOUND\n\rContent-Type: text/plain\n\rContent-Length: 24\n\r\n\rError:File not found.\n\r"
 //
 // ProDOS routines
 //
@@ -225,12 +226,12 @@ def servHTTP(remip, remport, lclport, data, len, param)
 		        lenstr = itos(@lenstr + 1, filelen) - (@lenstr + 1)
 			strcat(@okhdr, @httpOK, @lenstr)
 			strcat(@okhdr, @okhdr, @httpEnd)
-			dumpchars(@okhdr + 1, okhdr)
+			//dumpchars(@okhdr + 1, okhdr)
 			iNet:sendTCP(socketHTTP, @okhdr + 1, okhdr)
 			sendFile(refnum, socketHTTP, filelen)
 			close(refnum)
 		    else
-			iNet:sendTCP(socketHTTP, @httpBAD + 1, httpBAD)
+			iNet:sendTCP(socketHTTP, @httpNOFILE + 1, httpNOFILE)
 		    fin
 		    return
 	        fin