Annotation of gforth/gforth-cgi.fs, revision 1.1
1.1 ! anton 1: #! /usr/bin/gforth
! 2:
! 3: \ This file is in the public domain. NO WARRANTY.
! 4:
! 5: \ Example CGI script
! 6:
! 7: .( Content-Type: text/plain; charset=us-ascii) cr
! 8: .( Content-Transfer-Encoding: 7bit) cr
! 9: cr
! 10: : zeroes ( u -- )
! 11: 0 +do '0 emit loop ;
! 12:
! 13: : u.rz ( u1 u2 -- )
! 14: >r s>d <<# #s #> r> over - zeroes type #>> ;
! 15:
! 16: .( It's ) time&date 4 u.rz .( -) 2 u.rz .( -) 2 u.rz space
! 17: 2 u.rz .( :) 2 u.rz .( :) 2 u.rz cr
! 18: \ : printargs ( -- )
! 19: \ argc @ 0 +do
! 20: \ ." arg" i . ." = '" i arg type ." '" cr
! 21: \ loop ;
! 22: \ printargs
! 23: \ s" QUERY_STRING" getenv type cr
! 24: \ s" PATH_INFO" getenv type cr
! 25: \ s" PATH_TRANSLATED" getenv type
! 26: \ s" CONTENT_LENGTH" getenv type
! 27: bye
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>