#
# Erzeugt die zweite Seite: Sie zeigt Umgebungsvariablen an
#
web::command zweiteSeite {
web::put "
Zweite Seite"
web::put ""
foreach v [lsort [web::request -names]] {
web::put [web::htmlify " $v [web::request $v]"]
}
web::put "Zurück"
web::put ""
}
#
# Erzeugt die erste Seite und werte sie aus:
# Sie bietet ein Formular zur Farbauswahl
#
web::command default {
web::put "Dispatch"
web::put ""
web::put "websh Beispiel
"
web::put ""
web::put "Datenweitergabe"
web::put ""
}
web::dispatch