#!/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 - Monat

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

" } # 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:
" puts " Please choose the month in which you have seen the plant blossom:

" puts "" puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts " " puts "
Januar " puts " / januaryJuli " puts " / july
Februar " puts " / februaryAugust " puts " / august
März " puts " / marchSeptember " puts " / september
April " puts " / aprilOktober " puts " / october
Mai " puts " / mayNovember " puts " / november
Juni " puts " / juneDezember " puts " / december
" puts "

Blütezeitraum ist unbekannt " puts " / unbestimmt.
" puts " Time is not " puts " known / anytime.
" puts "

" puts "

 

" puts "
" puts "" puts ""