Rebol

Scripts

Animation

CGI

Compression

Console

Database

Debug

Dialects

Dialogs

Editor

Encryption

Extension

External Library

File

File Handling

Files

Financial

FTP

Game

Games

Graphics

GUI

HTML

HTTP

Internet

LDC

Markup

Math

Module

Network

Networking

None

Other - Net

Parse

Patch

Printing

Protocol

Rebol

Scheme

Scientific

SDK

Security

Shell

Sound

SQL

TCP

Testing

Text

Text Processing

User Interface

Util

Utility

VID

Visualization

Web

Win API

X-File

XML

Wiki

Download Script View Documentation

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