373
@verb #1200:"parse_query(old)" this none this rxd #9988
@program #1200:"parse_query(old)" this none this
query = args[1][2..(i = index(args[1], "?")) - 1]
queries = $string_utils:explode(args[1][i + 1..$], "&")
stuffs = {}
for x in (queries)
  stuffs = {@stuffs, {x[1..(i = index(x, "=")) - 1], `x[i + 1..$] ! E_RANGE => ""'}}
  stuffs[$][2] = strsub(stuffs[$][2], "+", " ")
  while (i = index(stuffs[$][2], "%"))
    code = stuffs[$][2][i + 1..i + 2]
    if (typeof(ok = decode_binary("~" + code)) == $STR)
      stuffs[2][$][i..i + 2] = ok
    else
      stuffs[$][2][i..i + 2] = tostr("[binary(", code, ")]")
    endif
  endwhile
  index(stuffs[$][2], "[binary(0D)][binary(0A)]") && (stuffs[$][2] = $string_utils:explode(stuffs[$][2], "[binary(0D)][binary(0A)]"))
endfor
return {query, stuffs}
"Last modified by Dax (#789) on Tue May  3 13:43:09 2005 MDT."
.

0