@verb #80:"integrate_cgi" this none this rxdo #789
@program #80:"integrate_cgi" this none this
":integrate_cgi({{'name', 'data'}, {'name', 'data'}, ...})"
"Builds a CGI-style argument out of name/data pairs.  Just like a web browser does when creating the URL from a form."
"{{'name', 'Raptor'}, {'action', 'audit'}} => ?name=Raptor&action=audit"
cgi = "?"
for pair in (args[1])
  if (typeof(pair[2]) == $LIST)
    if (pair[2])
      data = $string_utils:substitute(pair[2][1], $www.desubst)
      for x in (pair[2][2..$])
        suspend(0)
        data = tostr(data, "%0D%0A", $string_utils:substitute(x, $www.desubst))
      endfor
    else
      data = ""
    endif
  else
    data = $string_utils:substitute(pair[2], $www.desubst)
  endif
  cgi = tostr(cgi, $string_utils:substitute(pair[1], $www.desubst), "=", data, "&")
  $cmd_utils:suspend_if_needed(0)
endfor
if (cgi[$] == "&")
  cgi = cgi[1..$ - 1]
endif
return cgi
"Last modified by Dax (#789) on Tue May  3 13:45:02 2005 MDT."
.