Mailing List Archive: Re: URL encoding ?

[REBOL] Re: URL encoding ?

From: jason:cunliffe:verizon at: 24-Oct-2002 5:57


Hi Jean

This is how Vanilla [ http://www.langreiter.com/space/Vanilla ]  does it:

opt-in: charset "
*-.1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz"

url-encode: make function! [ str[string!] /re ] [
   if re [ insert  opt-in  "%:/&=" ]
   rslt: make string! ( (length? str ) * 3 )

   foreach  chr str [
      either ( find  opt-in chr  )
        [append rslt to-string (either(chr == #" ")["+"][chr])  ]
        [append rslt
            join "%" [back back tail(to-string(to-hex(to-integer chr)))]
        ]
   ]
   rslt
]

>> url-encode "http://www.bla.org/cgi-bin/bla.cgi?a=1&b=xyz"
== {http%3A%2F%2Fwww.bla.org%2Fcgi-bin%2Fbla.cgi%3Fa%3D1%26b%3Dxyz}

./Jason

----- Original Message -----
From: "Holzammer, Jean" <[Jean--Holzammer--faedv-n--bayern--de]>
To: <[rebol-list--rebol--com]>
Sent: Thursday, October 24, 2002 4:39 AM
Subject: [REBOL] URL encoding ?

Hi,

I'd like to encode a URL.

URL: http://www.bla.org/cgi-bin/bla.cgi?a=1&b=xyz