REBOL [
    Title: "REBOL CGI Test Script"
    Version: 0.0.2
    Name: "CGI-Test"
    File: %test.r
    Date: 17-Jan-2005
    Author: "Dirk Weyand"
    E-Mail: "D.Weyand--TGD-Consulting--DE"
    Owner: "TGD-Consulting"
    Rights: "TGD-Consulting"
    Home: http://www.TGD-Consulting.DE
    Needs: "Serve-It! or any other webserver featuring REBOL CGI-Scripts."
    Purpose: "REBOL Test CGI-Script for Serve-It!"
    License: "Freeware as long as you give credit to the author"
    Library: [ 
         level: 'intermediate
         platform: 'all
         type: [tool]
         domain: [cgi html web]
         tested-under: [view 1.2.1.1.1 on "AmigaOS 68k"] 
         support: none
         license: 'PD 
         see-also: "Serve-It!, at http://www.TGD-Consulting.de/Download.html"
    ]
]

emit-tbl-row: func [
   {Prints HTML-table row to STDOUT.}
   type [string!] "text of first column."
   content [string!] "text of second column."
   colors [block! unset!] "Colors of the columns."
   /local row foo
][
   if error? try [unset? colors] [colors: copy []]
   row: copy {}
   insert row content
   if none? foo: pick colors 2 [foo: {"white"}]
   insert row join {"]
   if none? foo: pick colors 1 [foo: {"white"}]
   insert row join {} type {}]
   print row
]

; -- HTML-Document starts here ----------------------------------------------------------------------

print {




} ; -- Header-Rows ------------------------------------------------------------------------------------ emit-tbl-row {

Serve-It! ( TGD-Consulting)

} join {Using: REBOL/} [system/product " " system/version "
Built: " system/build "
Script: " system/script/header/Version " " system/script/header/Date "
"] [] emit-tbl-row "Server Data/Time:" form now [{"#C0C060"}] emit-tbl-row "Current Dir:" form what-dir [{"#C0C060"}] ; -- Base-Rows -------------------------------------------------------------------------------------- foo: third system/options/cgi ; Werte des CGI-Objektes until [ emit-tbl-row join form first foo ":" form second foo [{"#F0F080"}] lesser-or-equal? length? foo: skip foo 2 2 ] ; -- HTTP-Header Rows ------------------------------------------------------------------------------- either empty? foo: last foo [ emit-tbl-row form "other-headers" form foo [{"#F0C080"}] ][ headers: copy [] until [ insert/only headers reduce [uppercase form pick foo 1 form pick foo 2] tail? foo: skip foo 2 ] sort headers foreach foo headers [ emit-tbl-row join "HTTP_" [first foo ":"] second foo [{"#F0C080"}] ] ] ; -- End of HTML-Document --------------------------------------------------------------------------- print {

} ;halt