[20081025T1400Q] if {[var exists source]} { headers type "text/plain; charset=us-ascii" rivet_flush set fd [open $::env(PATH_TRANSLATED) r] fcopy $fd stdout close $fd abort_page exit 0 } source [file join [file dirname [info script]] common.tcl] if {[var exists starkit] && [var exists starpack_platform]} { headers type "text/plain" puts "[var get starkit]" puts "--" puts "[var get starpack_platform]" puts "--" puts "OK" } else { # Set content-type headers type "text/html; charset=us-ascii" ?> Starpacker <? puts -nonewline "[var exists starkit][var get starpack_platform {-}]" ?> " } } ?>
Upload file: (ZIP file, Tarball, Starkit, or Single Tcl File)
Target Platform:
Source