File: binary.rvt

package info (click to toggle)
libapache2-mod-rivet 2.3.3-1
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 5,156 kB
  • ctags: 1,093
  • sloc: xml: 7,696; tcl: 6,939; ansic: 5,682; sh: 4,862; makefile: 199; 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
}
?>