<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 " " 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 " " 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 " " 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 " " 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 " " 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, "&", "&~;"). /* & */
param1 = REPLACE(param1, ">", ">~;"). /* > */
param1 = REPLACE(param1, "<", "<~;"). /* < */
param1 = REPLACE(param1, '"', ""~;"). /* " */
param1 = REPLACE(param1, ' ', " "). /* space */
param1 = REPLACE(param1, chr(10), "\n chr(10)"). /* " */
return param1.
end.
</SCRIPT>