http:// page header

[Alekk]

Code:

page: open/custom http://some.com [header [Range: "bytes=0-0"]]

and then You have it in page/locals/headers.

But "Range" it's not working on all servers.
As there is no "HEAD" possibility in REBOL, is there better way to get page header on such servers?

[Alekk]

Code:

page: open/direct http://some.com close page

OK - this one seem to work :-)
(without "close" data is transfered "behind the scene", you don't see it even if trace/net is set to True)

[Alekk]

HEAD implementation by Tom Conlin

http://www.rebol.org/cgi-bin/cgiwrap/rebol...ipt=http-head.r

Code:

rebol[
   title: "HTTP HEAD"
   author: "Tom Conlin"
   date: 24-Oct-2003
   file: %http-head.r
   version: 0.0.1
   Library: [
       level: 'intermediate
       platform: 'all
       type: [function how-to script tool]
       domain: [http web]
       tested-under: [unix win]
       support: none
       license: none
       see-also: none
   ]
   purpose: {Issue a HTTP HEAD command}
]

http-head: func[url [url!] /local port result][
   port: open compose[scheme: 'tcp host: (first skip parse url "/" 2) port-id: 80 timeout: 5]
   insert port rejoin["HEAD " url " HTTP/1.0^/^/"]
   wait port
   result: copy port
   close port
   result
]

:ph34r: I feel somehow strange selfanswering  

[JohnW]

I feel somehow strange selfanswering

Hey, if you have teh answer, by all means share it!