#!/mod/bin/jimsh

package require cgi
source /mod/webif/lib/setup
require system.class pretty_size

cgi_input
#cgi_dump

set file [cgi_get file "-"]
if {$file eq "-"} { exit }

httpheader "text/plain"

if {![file exists $file]} {
	puts ">>> File $file does not exist.\r\n"
} else {
	puts ">>> Contents of $file [pretty_size [file size $file]]\r\n"
	set fp [open $file r]
	puts [read $fp]
	close $fp
}