#!/usr/bin/tclsh # maybe change upper line for NEXTSTEP # ChM 25.12.2001 proc encode {w} { regsub -all { } $w {_} w return $w } set query $env(QUERY_STRING) proc empty {w} { return [string match "" $w] } puts {Content-type: text/html
Einfache Pflanzensuche |
||||||||||||
}
# Farbe
if [regexp {farbe=([0-9a-zA-Z+%\-]*)} $query z color] {
if ![empty $color] {
puts " Farbe: $color " } } { set color "" puts "Farbe: unbestimmt " } # Wuchshoehe if [regexp {hoehe=([0-9a-zA-Z+%\-]*)} $query z height] { if ![empty $height] { } } { set height "" } if [regexp {hoehemax=([0-9a-zA-Z+%\-]*)} $query z heightmax] { if ![empty $heightmax] { puts "Wuchshöhe: $height - $heightmax cm " } } { set heightmax 0 puts "Wuchshöhe: unbestimmt " } puts "Bitte klicken Sie auf den Monat, in dem Sie die Pflanze blühen gesehen "
puts " haben:
Blütezeitraum ist unbekannt "
puts " / unbestimmt. " puts " |