[EMAIL PROTECTED] wrote:
> Hack the http:// protocol to add a way to specify the referrer when
> submitting an HTTP open request.
system/schemes/http/handler/open contains:
HTTP-Get-Header: make object! [
Accept: "*/*"
Connection: "close"
User-Agent: system/schemes/http/user-agent
Host: join port/host any [all [port/port-id (port/port-id
<> 80) join #":" port/port-id] #]
]
You could hack it this way:
>> code: second get in system/schemes/http/handler 'open
== [
port/locals: make object! [list: copy [] headers: none]
build-port: func [] [
open-proto port
port/u...
>> code: find code first [Http-Get-Header:]
== [
HTTP-Get-Header: make object! [
Accept: "*/*"
Connection: "close"
User-Agent: system/schemes/htt...
>> code: code/4
== [
Accept: "*/*"
Connection: "close"
User-Agent: system/schemes/http/user-agent
Host: join port/host any [all ...
>> insert tail code [Referer: My-Http-Referer]
== [
]
Then you can set it simply with:
>> my-http-referer: "something"
== "something"
> I am adding this as an enhancement to our database.
Exporting that object out of that function would do the job. Then
we could simply access, say,
system/schemes/http/handler/http-get-header.
HTH,
Gabriele.
--
Gabriele Santilli <[EMAIL PROTECTED]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
