diff --git a/ethernet/webserver.bas b/ethernet/webserver.bas index 137ba435..70decfb4 100644 --- a/ethernet/webserver.bas +++ b/ethernet/webserver.bas @@ -84,7 +84,7 @@ 840 GOTO 800 ' 900 POKE HA,4: POKE LA,40: REM *** 0x428 Received ptr -905 OL=PEEK(DP):OH=PEEK(DP) +905 OH=PEEK(DP):OL=PEEK(DP) 910 RO=(OH*256)+OL 920 REM *** SHOULD MASK WITH 0x1ff but how? 930 RA=RO+24576:REM $6000 @@ -100,8 +100,40 @@ ' TODO: handle wraparound of 8kb buffer ' 1100 REM *** Update read pointer +'"HTTP/1.1 200 OK\r\n" +'"Date: %s\r\n" +'"Server: VMW-web\r\n" +'"Last-Modified: %s\r\n" +'"Content-Length: %ld\r\n" +'"Content-Type: %s\r\n" +'"\r\n", 1200 REM *** SEND RESPONSE -2000 REM *** CLOSE - - - +1205 A$="HTTP/1.1 200 OK"+CHR$(13)+CHR$(10) +1210 A$=A$+"Server: VMW-web"+CHR$(13)+CHR$(10) +1220 A$=A$+"Content-Length: 58"+CHR$(13)+CHR$(10) +1230 A$=A$+"Content-Type: text/html"+CHR$(13)+CHR$(10) +1250 A$=A$+CHR$(13)+CHR$(10) +1260 A$=A$+"
test