Processing table: lib/prc.urlenc

Jump to line:


1
 
If:
' brian@aljex.com - urlenc

 
 
Then:
' convert text into url-safe (url-encoded) text

2
 
If:
' example plain text in : blah)^%$#@

 
 
Then:
' example url text out : blah%29%5E%25%24%23%40%0D%0A

3
 
If:
' definition: url encoding is:

 
 
Then:
' % + <hex ascii value of character in latin1 character set>

4
 
If:
' usage: declare global urlenc_di, urlenc_do

 
 
Then:
' urlenc_di = "input string" ; call "cgi/urlenc" ; show urlenc_do

5
 
If:
' data-in data-out

 
 
Then:
declare extern urlenc_di, urlenc_do

6
 
If:
' position length inchar outchar  '' do not define size for _oc

 
 
Then:
declare urlenc_dp(8,.0), urlenc_dl(8,.0), urlenc_ic(1), urlenc_oc, urlenc_dit

7
 
If:
 

 
 
Then:
urlenc_dp = "1" ; urlenc_do = ""

8
 
If:
 

 
 
Then:
urlenc_dit = urlenc_di{"" ; urlenc_dl = len(urlenc_dit)

9
nxtchr
If:
 

 
 
Then:
urlenc_ic = mid(urlenc_di,urlenc_dp,"1") ; urlenc_oc = urlenc_ic

10
 
If:
"$&+,/:;=?@ <>#%{}|^~[]`'"{chr("92"){chr("34") co urlenc_ic

 
 
Then:
urlenc_oc = "%" { base(asc(urlenc_ic),"10","16")

11
 
If:
 

 
 
Then:
urlenc_do = urlenc_do & urlenc_oc

12
 
If:
urlenc_dp lt urlenc_dl

 
 
Then:
urlenc_dp = urlenc_dp + "1" ; goto nxtchr


Displayed with Fairlight prc2html v01.02.10