#!/mod/bin/jimsh

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

httpheader

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

if {[catch {set fp [open $file w]} msg]} {
	puts "Error, $msg"
} else {
	$fp puts -nonewline $data
	close $fp
	puts "File saved."
}