File: binary.rvt

package info (click to toggle)
libapache2-mod-rivet 3.2.2-1
  • links: PTS
  • area: main
  • in suites: bookworm
  • size: 6,296 kB
  • sloc: xml: 8,554; tcl: 7,568; ansic: 7,094; sh: 5,017; makefile: 195; sql: 91; lisp: 78
file content (16 lines) | stat: -rw-r--r-- 424 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<?
::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
}
?>