#!/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 Suche - Höhe " puts " " puts "

Einfache Pflanzensuche
easy
plant search

} # 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 " Please choose the height of growth of the plant:

" puts "

\"61-170\"31-60\"1-30\"171-500\"501-2000\"2001-6000 " puts "

" puts "

Wuchshöhe " puts " ist unbekannt / unbestimmt.
" puts " height " puts " of growth is not known / anything.

" puts "
" puts " " puts " "