| <? |
| # $Id$ |
| # dtcl page used with mod_dtcl's dtcl.test |
| |
| hgetvars |
| |
| headers setcookie -name mod -value dtcl -expires 01-01-2003 |
| |
| # hello-1.1 |
| hputs "Hello, World\n" |
| |
| # i18n-1.1 |
| hputs "¡ À È Ì Ò Ù - El Burro Sabe Más Que Tú!\n" |
| |
| if { [ var number ] > 0 } { |
| # get/post variables 1.1 |
| if { [ var exists foobar ] } { |
| hputs "VARS(foobar) = [var get foobar]\n" |
| } |
| # get/post variables 1.{2,3} |
| if { [ var exists Más ] } { |
| hputs "VARS(Más) = [var get Más]\n" |
| } |
| } |
| |
| # env |
| hputs "ENVS(DOCUMENT_NAME) = $ENVS(DOCUMENT_NAME)\n" |
| |
| # cookies |
| if { [ array exists COOKIES ] } { |
| foreach { ck } [ array names COOKIES ] { |
| hputs "COOKIES($ck) = $COOKIES($ck)\n" |
| } |
| } |
| |
| ?> |