Симон прав, я думаю.
Это делает то, что вы хотите, я думаю:
p: open tcp://rebol.com:80
insert p "HEAD / HTTP/1.1 ^/"
insert p "Host: rebol.com^/^/"
while [data: first p][prin data]
HTTP/1.1 200 OK
Date: Sun, 18 Jul 2010 12:28:19 GMT
Server: Apache/1.3.42 (Unix) [.....]
Last-Modified: Thu, 15 Jul 2010 18:59:21 GMT
ETag: "3d0121-1c2a-4c3f5a89"
Accept-Ranges: bytes
Content-Length: 7210
Content-Type: text/html
Это, возможно, другой способ:
p: open http://rebol.com
probe p/locals/headers
make object! [
Date: "Sun, 18 Jul 2010 12:30:34 GMT"
Server: {Apache/1.3.42 (Unix) [....]
Last-Modified: "Thu, 15/Jul/2010/18:59:21/+GMT"
Accept-Ranges: "bytes"
Content-Encoding: none
Content-Type: "text/html"
Content-Length: "7210"
Location: none
Expires: none
Referer: none
Connection: "close"
Authorization: none
ETag: {"3d0121-1c2a-4c3f5a89"}
]