Datei: Date.cgi

#!/bin/sh

# the next line restarts using tclsh (anywhere in search path) \

exec tclsh "$0" "$@"

# berechne Datum mit dem "date" Kommando

proc date {} {

return [exec date "+%d.%m.%Y"]

}

# erzeuge die HTML Seite

proc date-page {} {

return "

<HTML>

<HEAD>

<TITLE>Das heutige Datum</TITLE>

</HEAD>

<BODY>

Heute ist der <b>[date]</b>.

</BODY>

</HTML>

}

# Content-type prefix

proc html-content page {

return "Content-type: text/html

$page"

}

# Aufruf

puts [html-content [date-page]]

Die Datei: Date.cgi