#!/usr/local/bin/tclsh
#
# Copyright (c): Uwe Schmidt, FH Wedel
#
# You may study, modify and distribute this source code
# FOR NON-COMMERCIAL PURPOSES ONLY.
# This copyright message has to remain unchanged.
#
# Note that this document is provided 'as is',
# WITHOUT WARRANTY of any kind either expressed or implied.
#!/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 "
Das heutige Datum
Heute ist der [date].
"
}
#--------------------
#
# Content-type prefix
proc html-content page {
return "Content-type: text/html
$page"
}
#--------------------
#
# Aufruf
puts [html-content [date-page]]
#--------------------