@verb #80:"decode_cgi_bin" this none this rxdo #60
@program #80:"decode_cgi_bin" this none this
"Copied from Tool (#2774):decode_cgi_bin by Raptor (#6319) Mar 19 01:22:40 1997"
":decode_cgi_bin(string or list)"
"Turns that nasty binary stuff from CGI arguments into ASCII."
":decode_cgi_bin(\"%40spy\")  =>  \"@spy\""
if (typeof(args[1]) == $LIST)
  lines = {}
  for x in (args[1])
    new = this:(verb)(x)
    lines = {@lines, new}
  endfor
  return lines
endif
line = decode_binary($su:subst(args[1], {{"%", "~"}}))
if (length(line) > 0)
  return line[1]
endif
return ""
"Last modified by Dax (#789) on Tue May  3 13:45:02 2005 MDT."
.