* Demonstration systems:  This User Language shows how the $WEB_
* functions are used to interrogate header parameters and their
* values.

Begin

       %rc      is Float
       %j       is Float
       %x       is Float

       %j      = 0
       %rc     = $SetG('TITLE',-
                 'Header Query Functions Demo / Janus Web Server' )
       %rc     = $Web_Type('TEXT/HTML')
       %rc     = $Web_Sub('@@')
       %rc     = $Web_On

       * Replace this with your own "top-of-page" html *
       In JANWEB Include WEB/TEMPLATE_TOP

       Html
       <center><h2>Header Parameters</h2></center>
       <p>
       Header parameters are sent to the web server with each
       request for a URL.  They describe aspects of the user's
       browser or operating system.  Using Janus Web functions
       we've parsed every header parameter your browser sends
       and have presented them below:
       </p>

       <table border=2 cellpadding=4 cellspacing=5>
         <tr>
           <td width=33%>
              <b>Parameter Name</b>
           </td>

           <td width=67%>
              <b>Parameter Value</b>
           </td>
         </tr>
       End Html

       For %x from 1 to $Web_Num_Hdr
          Html
            <tr>
              <td width=33%>
              {$WEB_HDR_NAME(%x)}
              </td>
              <td width=67%>
              {$WEB_HDR_PARM($WEB_HDR_NAME(%x))}
              </td>
            </tr>
          End Html
       END FOR

       Html
       </table>

       <p>How can you use header parameters?  Well, if you
       You can use it to figure out what browser the client is using,
       so you can customize your site to particular browsers.  You can
       detect Java or Javascript capability and you can see what mime-type
       encoding is being used with the sent page.</p>

       <p><a href="/DEMO_HEADER">See the code</a>
       that analyzed the header and built this page.</p>

       <hr>
       <p>Note that there are also browser characteristics that are not stored
       in header parameters but can be queried via JavaScript function calls.
       Some of thes are:<p>
       <pre>

       <form name="form1" action="?" method="post">
       navigator.appName     <input type="TEXT" name="nav_appname"       size="40" value="none">
       navigator.appVersion  <input type="TEXT" name="nav_appversion"    size="40" value="none">
       navigator.appCodeName <input type="TEXT" name="nav_appcodename"   size="40" value="none">
       navigator.userAgent   <input type="TEXT" name="nav_useragent"     size="40" value="none">
       <input type="submit" value="Click to send">
       <input type="HIDDEN" name="subject"   value="Browser Survey Result" >
       </form>
       </pre>

       <p>You can view the JavaScript program used to determine these settings
       by looking at the source for this page.</p>

       <table cellpadding="0" cellspacing="0" border="0" width="300" height="300">
         <tr><td>&nbsp;</td></tr>
       </table>
       End Html

       In JANWEB Include WEB/TEMPLATE_BOTTOM

END