[REBOL] How? Read HTTP message body
From: dave:jtgoodstuff at: 10-Aug-2001 19:23
I'm totally new to Rebol. I'm modifying the webserver.r script from the Rebol script
library. I've stripped it down. The technique that was used seems to make available the
Request Line and Message Headers.Which are line oriented. It seems to stop after it hits
the blank line and the actual Message Body is missing. Here's the main code. Any hints
on how to get to the message body?
Oh yes, what's the [err] for on send-cmd? I can't get rid of it but it doesn't appear
to do anything.
Thanks.
cntr: 1
buffer: make string! 1024 ; will auto-expand if needed
listen-port: open/lines tcp://:9090 ; port used for web connections
send-cmd: function [buffer thecntr] [err]
[
insert http-port join "HTTP/1.0 200 OK^/"
[
"Content-type: text/html^/^/"
"<br><pre>" buffer "</pre><br>"
length? buffer "<br><br>" now/time " " thecntr
]
]
forever
[
http-port: first wait listen-port
clear buffer
while [not empty? request: first http-port]
[
repend buffer [request newline]
]
set 'cntr cntr + 1
send-cmd buffer cntr
close http-port
]
