home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Os2 / varios / GOSERV / GOHTTP.ZIP / tiphead.doc < prev    next >
Encoding:
Text File  |  1995-04-15  |  1003 b   |  26 lines
  1. GoServe Filter routine to return the header sent by a browser
  2. -------------------------------------------------------------
  3.  
  4. Sample call:
  5.  
  6.    when sel='!header' then return header()
  7.  
  8. Subroutine:
  9.  
  10.   /* ----------------------------------------------------------------------- */
  11.   /* HEADER -- return header received from browser                           */
  12.   /* ----------------------------------------------------------------------- */
  13.   /* This must be in the main filter program (uses REQUEST).                 */
  14.   /* (Alternatively, REQUEST could be passed as an argument.)                */
  15.   /* It returns the GoServe command to send the result.                      */
  16.   header: procedure expose request
  17.     'READ HEADER VAR head'
  18.     if rc\=0 then return 'STRING READ command error (rc='rc')'
  19.     crlf='0d0a'x
  20.     all=request''crlf''head
  21.     pre='Request and header ['length(all)+2 'bytes] were:'crlf crlf
  22.     return 'STRING' pre''all
  23.  
  24. ----------------
  25. mfc - 1995/04/14
  26.