File: binary.rvt

package info (click to toggle)
libapache2-mod-rivet 3.2.6-1
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 6,384 kB
  • sloc: tcl: 8,982; xml: 8,619; ansic: 7,074; sh: 5,039; 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
}
?>