[REBOL] Re: Custom HTTP header
From: santilli:gabriele:gm:ail at: 24-Oct-2010 19:13
On Sun, Oct 24, 2010 at 7:04 PM, Gregg Irwin <gregg-pointillistic.com> wrote:
> =C2=A0 =C2=A0read/custom http://192.168.1.100:8080 append/only copy [header] custom-header
>
> =C2=A0 =C2=A0read/custom http://192.168.1.100:8080 join [header] [custom-header]
>
> =C2=A0 =C2=A0read/custom http://192.168.1.100:8080 rejoin [[header] custom-header]
> =C2=A0 =C2=A0; Thanks to Ladislav for reminding me about REJOIN with an initial
> =C2=A0 =C2=A0block arg.
>
> =C2=A0 =C2=A0hdr: [header []]
> =C2=A0 =C2=A0hdr/header: custom-header
> =C2=A0 =C2=A0read/custom http://192.168.1.100:8080 hdr
Well, while we're at it...
reduce ['header custom-header]
compose/deep [header [(custom-header)]] ; copies custom-header
compose/only [header (custom-header)]