#!/mod/bin/jimsh

package require cgi
source /mod/webif/lib/setup
require pretty_size

cgi_input
#cgi_dump

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

httpheader "text/plain" 0
set maxfsize 102400

if {![file exists $file]} {
	puts ">>> File $file does not exist."
} else {
	set type [exec /mod/bin/file --brief --mime-type --dereference $file]
	if {!([string match {text/*} $type] || [string match {application/xml*} $type])} {
		puts ">>> File $file is not an editable type ($type)."
	} else {
		set fsize [file size $file]
		if {$fsize > $maxfsize} {
			puts ">>> File $file is too large ([pretty_size $fsize] > [pretty_size $maxfsize])."
		} else {
			set fp [open $file r]
			puts [read $fp]
			close $fp
		}
	}
}

