set filename [ns_queryget filename]
set tmpfile [ns_queryget filename.tmpfile]

set ext [file extension $filename]
set name [ns_queryget name]

set exp {[/]}

if {[regexp $exp $name ]} {
	ns_return 200 text/plain "Sorry name can't have dir sep '/'"
	return -code error
}


set dir "/web/zmbh/www/ns_cpfp"

file copy -force $tmpfile $dir/${name}-copy$ext
ns_log Notice "ns_cpfp/upload.tcl: copied $tmpfile to $dir/${name}-copy$ext"
set infd [open $tmpfile r]

set outfd [open $dir/${name}-ns_cpfp$ext w+]

ns_cpfp $infd $outfd
ns_log Notice "ns_cpfp/upload.tcl: copied $tmpfile to $dir/${name}-ns_cpfp$ext"

close $infd
close $outfd


ns_cp $tmpfile $dir/${name}-ns_cp$ext 
ns_log Notice "ns_cpfp/upload.tcl: copied $tmpfile to $dir/${name}-ns_cp$ext"


ns_returnredirect "."