<TITLE>WEB-CONTEXT Attributes</TITLE>
<form method="POST" name="BrokerAdm"">
  WebSpeed Broker Name: <input type="text" name="wsbrokername" value="whatever"> 
  <br>
  Number of Agents to add/trim: <input type="text" name="agentsnumber" value="1" size=1 maxlength=1> 
  <br>
  <br>
  <input type="submit" name="btnvalue" value="Get field list">
</form>

<SCRIPT LANGUAGE="Speedscript">
  function html-convert return character ( input param1 as character ) forward.

  {&OUT} "<center><h1>WEB-CONTEXT Attributes</h1><br>"
    "<table border=1>"
      "<tr><th>Variable</th><th>Value" 
      "</th></tr>" skip
      "<tr><td>EXCLUSIVE-ID</td><td>" WEB-CONTEXT:EXCLUSIVE-ID  
      "</td></tr>" skip
      "<tr><td>IS-XML</td><td>" WEB-CONTEXT:IS-XML
      "</td></tr>" skip
   if WEB-CONTEXT:IS-XML = true then
      "<tr><td>X-DOCUMENT</td><td>" + string(WEB-CONTEXT:X-DOCUMENT) + "</td></tr>" 
   else ""
      "<tr><td>CURRENT-ENVIRONMENT</td><td>" substring(WEB-CONTEXT:CURRENT-ENVIRONMENT,1,50) + "...."
      "</td></tr>" skip
      "<tr><td>FORM-INPUT</td><td>" WEB-CONTEXT:FORM-INPUT  
      "</td></tr>" skip
      "<tr><td>GET-CGI-LIST(ENV)</td><td>" substring(WEB-CONTEXT:GET-CGI-LIST("ENV"),1,50) + "...."  
      "</td></tr>" skip
      "<tr><td>GET-CGI-LIST(FORM)</td><td>" if WEB-CONTEXT:GET-CGI-LIST("FORM") = "" then "&nbsp;" else WEB-CONTEXT:GET-CGI-LIST("FORM")  
      "</td></tr>" skip
      "<tr><td>GET-CGI-LIST(QUERY)</td><td>" if WEB-CONTEXT:GET-CGI-LIST("QUERY") = "" then "&nbsp;" else WEB-CONTEXT:GET-CGI-LIST("QUERY")  
      "</td></tr>" skip
      "<tr><td>HTML-END-OF-LINE</td><td>" html-convert(WEB-CONTEXT:HTML-END-OF-LINE) 
      "</td></tr>" skip
      "<tr><td>HTML-FRAME-BEGIN</td><td>" html-convert(WEB-CONTEXT:HTML-FRAME-BEGIN) 
      "</td></tr>" skip
      "<tr><td>HTML-FRAME-END</td><td>" html-convert(WEB-CONTEXT:HTML-FRAME-END) 
      "</td></tr>" skip
      "<tr><td>HTML-HEADER-BEGIN</td><td>" html-convert(WEB-CONTEXT:HTML-HEADER-BEGIN) 
      "</td></tr>" skip
      "<tr><td>HTML-HEADER-END</td><td>" html-convert(WEB-CONTEXT:HTML-HEADER-END) 
      "</td></tr>" skip
      "<tr><td>HTML-TITLE-BEGIN</td><td>" if WEB-CONTEXT:HTML-TITLE-BEGIN = "" then "&nbsp;" else html-convert(WEB-CONTEXT:HTML-TITLE-BEGIN) 
      "</td></tr>" skip
      "<tr><td>HTML-TITLE-END</td><td>" if WEB-CONTEXT:HTML-TITLE-END = "" then "&nbsp;" else html-convert(WEB-CONTEXT:HTML-TITLE-END) 
      "</td></tr>" skip
      "<tr><td>HTML-END-OF-PAGE</td><td>" html-convert(WEB-CONTEXT:HTML-END-OF-PAGE) 
      "</td></tr>" skip
      "<tr><td>INCREMENT-EXCLUSIVE-ID(1)</td><td>" WEB-CONTEXT:INCREMENT-EXCLUSIVE-ID(1) 
      "</td></tr>" skip
      "<tr><td>UTC-OFFSET</td><td>" WEB-CONTEXT:UTC-OFFSET
      "</td></tr>" skip
      "<tr><td>GET-CONFIG-VALUE(""srvrAppMode"")</td><td>" WEB-CONTEXT:GET-CONFIG-VALUE("srvrAppMode":U) 
      "</td></tr>" skip
      "<tr><td>get-config(""wsRoot"")</td><td>" get-config("wsRoot":U)
      "</td></tr>" skip
      "<tr><td>URL-DECODE(value%20with%20space)</td><td>" if WEB-CONTEXT:URL-DECODE("value%20with%20space") = "" then "&nbsp;" else WEB-CONTEXT:URL-DECODE("value%20with%20space") 
      "</td></tr>" skip
      "<tr><td>url-encode(value with space,query)</td><td>" url-encode( "value with space", "query":U )
      "</td></tr>" skip
   "</table><P>For other values of WEB-CONTEXT:GET-CONFIG-VALUE see get-config() function and ubroker.properties file".


function html-convert return character ( input param1 as character ):

    param1 = REPLACE(param1, "&", "&amp~;").   /* & */
    param1 = REPLACE(param1, ">", "&gt~;").    /* > */
    param1 = REPLACE(param1, "<", "&lt~;").    /* < */
    param1 = REPLACE(param1, '"', "&quot~;").  /* " */
    param1 = REPLACE(param1, ' ', "&nbsp;").  /* space */

    param1 = REPLACE(param1, chr(10), "\n  chr(10)").  /* " */

    return param1.
end.

</SCRIPT>

1