#!/mod/bin/jimsh

package require cgi
source /mod/webif/lib/setup
require ts.class

puts "Content-Type: text/html\r\n\r\n"

cgi_input
#cgi_dump

set tsfile [cgi_get file]
set rfile [file normalize $tsfile]

if {![file exists "$rfile.decrypting"]} {
	puts "0"
} else {
	set sz [file size $rfile]
	set nsz [file size "$rfile.decrypting"]

	puts [expr $nsz * 100 / $sz]
}

