Processing table: lib/prc.urldec

Jump to line:


1
 
If:
' brian@aljex.com - urldec

 
 
Then:
' convert url-encoded text to plain text

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

 
 
Then:
' example url text    : 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/urldec" ; show urlenc_do

5
 
If:
' data-in data-out

 
 
Then:
declare extern urlenc_di, urlenc_do

6
 
If:
' position length inchar outchar

 
 
Then:
declare urlenc_dp(9,.0), urlenc_dl(9,.0), urlenc_ic(3), urlenc_oc(1), 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_oc = mid(urlenc_di,urlenc_dp,"1")

10
 
If:
 

 
 
Then:
urlenc_ic = mid(urlenc_di,urlenc_dp+"1","2")

11
 
If:
urlenc_oc eq "%"

 
 
Then:
urlenc_oc = chr(base(urlenc_ic,"16","10")) ; urlenc_dp = urlenc_dp + "2"

12
 
If:
 

 
 
Then:
urlenc_do = urlenc_do & urlenc_oc

13
 
If:
urlenc_dp lt urlenc_dl

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


Displayed with Fairlight prc2html v01.02.10