<?
# $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"
    }
}

?>