| mod_dtcl examples |
These are some examples, rather limited ones, of what can be done with mod_dtcl.
Hello world |
<? headers setcookie "foo" "bar" # we have to put this before any 'hputs' statements # once buffering is switched off, it is no longer possible to # maninuplate headers buffered off hputs "Hello world" ?> |
|
Produces:
|
Conditionals: |
<? if { 1 } { ?>
<h2> True </h2>
<? } ?>
|
|
Produces:
True |
Loops: |
<?
set x 0
while { $x < 5 } {
hputs "\$x = $x<br>"
incr x
?>
LOOP<br>
<? } ?>
|
| Produces:
"
incr x
?>
LOOP |
Variables (environmental as well as those passed to the script)
|
<?
hgetvars
if { [ array exists VARS ] } {
hputs "< ul>"
foreach { vr } [ array names VARS ] {
hputs "<li>(VARS) $vr = $VARS($vr)"
}
hputs "</ul>"
}
if { [ array exists ENVS ] } {
hputs "<ul>"
foreach { vr } [ array names ENVS ] {
hputs "<li>(ENVS) $vr = $ENVS($vr)"
}
hputs "</ul>"
}
if { [ array exists COOKIES ] } {
hputs "<ul>"
foreach { vr } [ array names COOKIES ] {
hputs "<li>(COOKIES) $vr = $COOKIES($vr)"
}
hputs "</ul>"
}
?>
|
| Produces: " foreach { vr } [ array names VARS ] { hputs "
|
Create a table on the fly
|
<?
set i 1
hputs "<table>\n"
while { $i <= 8 } {
hputs "<tr>\n"
for {set j 1} {$j <= 8} {incr j} {
set num [ expr $i * $j * 4 - 1]
hputs [ format "<td bgcolor=%2x%2x%2x > $num $num $num </td>\n" $num $num $num ]
}
incr i
hputs "</tr>\n"
}
hputs "</table>\n"
?>
|
| Produces: \n" while { $i <= 8 } { hputs " |
| $num $num $num | \n" $num $num $num ] } incr i hputs "