home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / SREFPRC1 / ADVOPTH.SRF < prev    next >
Text File  |  1997-03-09  |  719b  |  23 lines
  1. /***********************/
  2. /* look for, and send to GoServe, HEADER and RESPONSE lines in an advanced options file */
  3. sref_adv_opts_header: 
  4. parse arg adv_opts,rstatus,servername
  5. crlf='0d0a'x
  6. parse var rstatus scode ssize
  7. do until adv_opts=""
  8.   parse var adv_opts  aline (crlf) adv_opts
  9.   parse var aline a1 aline ; a1=upper(a1)
  10.   if a1='RESPONSE' | a1='HEADER' then do
  11.      aline=sref_replacestrg(aline,'$code',scode)
  12.      aline=sref_replacestrg(aline,'$size',ssize)
  13.      aline=sref_replacestrg(aline,'$GMT',sref_new_gmt()||' GMT')
  14.      aline=sref_replacestrg(aline,'$server',servername)
  15.      if a1='RESPONSE' then
  16.          'RESPONSE 'aline
  17.      else
  18.          'HEADER ' aline
  19.   end
  20. end
  21. return 0
  22.  
  23.