| <? | |
| ::rivet::headers type "image/jpeg" | |
| if { [::rivet::var exists test1] } { | |
| set fl [ open AngeloFish.jpg r ] | |
| fconfigure $fl -encoding binary | |
| fconfigure $fl -translation binary | |
| fconfigure stdout -encoding binary | |
| if {$::tcl_platform(platform) eq "windows"} { | |
| fconfigure stdout -translation binary | |
| } | |
| puts -nonewline [read $fl] | |
| close $fl | |
| } else { | |
| ::rivet::include AngeloFish.jpg | |
| } | |
| ?> |