# # Session-Kontext # # Erzeugt die zweite Seite web::command zweiteSeite { web::put "II." web::put "Session-ID [web::param sessionID]" web::put "

" if {[string match deutsch [web::param sprache]]} { web::put "Deutsch

" } else { web::put "English

" } # speichere Sprache in einer Datei /tmp/$sessionID.ktxt web::filecontext kontext -path [file join /tmp %i.ktxt ] kontext::new [web::param sessionID] kontext::cset sprache [web::param sprache] kontext::commit # Sprachwahl web::put "Sprachwahl" web::put "  " # verweise auf Seite aus einem anderen Skript web::cmdurlcfg -scriptname listing3.ws3 web::put "listing3" web::put "" } # # Erzeugt bei Bedarf eine neue Session. # Bietet Sprachwahl an # web::command default { web::put "Sprachwahl" if {![string length [web::param sessionID]]} { web::param -set sessionID [clock clicks] web::put "Neue Session-ID ist [web::param sessionID]" } else { web::put "In Session [web::param sessionID]" } web::put "

" web::put "Sprache auswählen: " web::put "Deutsch" web::put "   " web::put "English" web::put "" } web::dispatch -track sessionID