#!/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 / anything " } puts " Pflanzensuche / plant " puts " search " puts "Einfache Pflanzensuche / easy search " puts "Bitte klicken Sie auf die Zahlenangabe der Wuchshöhe, die ungefähr "
puts " zutrifft: " puts " " puts "Wuchshöhe "
puts " ist unbekannt / unbestimmt. | "
puts "