q/thirdculture-werc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bin/cgilib.rc: fn urlencode -> fn nurlencode; fn urldecode -> fn nurldecode. avoid confusion and delay.

Browse source
This commit is contained in:
Stanley Lieber 2020-06-12 20:51:42 -04:00
parent 5e591403da
commit 29f3f6fa9d
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
bin/cgilib.rc
View file

@ -29,9 +29,9 @@ fn load_post_args {
ifs='& ifs='&
' for(pair in `{cat}) { ' for(pair in `{cat}) {
ifs='=' { pair=`{echo -n $pair} } ifs='=' { pair=`{echo -n $pair} }
n='post_arg_'^`{echo $pair(1)|urldecode|tr -cd 'a-zA-Z0-9_'} n='post_arg_'^`{echo $pair(1)|nurldecode|tr -cd 'a-zA-Z0-9_'}
post_args=( $post_args $n ) post_args=( $post_args $n )
ifs=() { $n=`{echo -n $pair(2)|urldecode|tr -d ' '} } ifs=() { $n=`{echo -n $pair(2)|nurldecode|tr -d ' '} }
} }
pair=() pair=()
} }
@ -64,7 +64,7 @@ fn awk_buffer {
END { printf "%s", buf }' END { printf "%s", buf }'
} }
fn urldecode { $PLAN9/bin/urlencode -d || url_decode} # GROSS fn nurldecode { urlencode -d || url_decode} # GROSS
fn url_decode { fn url_decode {
awk ' awk '
@ -109,7 +109,7 @@ BEGIN {
' '
} }
fn urlencode { $PLAN9/bin/urlencode $* || url_encode } # GROSS fn nurlencode { urlencode || url_encode } # GROSS
fn url_encode { fn url_encode {
awk ' awk '