home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 January / macformat-033.iso / mac / Shareware City / Developers / CGIshell Folder / deflect.4th < prev    next >
Encoding:
Text File  |  1995-09-22  |  561 b   |  32 lines  |  [TEXT/ALFA]
  1. \
  2. \  Deflect -- A CGI that sends you somewhere else
  3. \
  4. \  RTK, 22-Sep-95
  5. \
  6.  
  7. \ --> CGIshell.4th
  8.  
  9. message[ s1 HTTP/1.0 302 FOUND ]
  10. message[ s2 Location: ]
  11. message[ s3 URI: ]
  12. message[ s4 Server: WebSTAR/1.1 ID/CGI]
  13.  
  14. create crlf 3 allot  13 crlf c!  10 crlf 1+ c!  0 crlf 1+ c!
  15.  
  16. message[ URL http://kreeft.intmed.mcw.edu/phil.html]
  17.  
  18. 512 String>> out   out newstr
  19.  
  20. : +crlf  crlf out strcpy ;
  21.  
  22. ,s sdoc  ,s WWWΩ  ae:
  23.  
  24.   s1 out strcpy  +crlf  
  25.   s2 out strcpy  URL out strcpy  +crlf
  26.   s3 out strcpy  URL out strcpy  s4 out strcpy  +crlf
  27.   +crlf
  28.   
  29.   out REPLY
  30.   bye
  31. ;ae
  32.