#!/mod/bin/jimsh

package require cgi
source /mod/var/mongoose/lib/setup
require ts.class

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

cgi_input
#cgi_dump

set tsfile [file normalize [cgi_get file]]

set origfile "[file dirname $tsfile]/_original/[file tail $tsfile]"
set newfile [file rootname $tsfile]

if {![file exists $newfile]} {
	puts "0"
} else {
	set sz [file size $origfile]
	set nsz [file size $newfile]

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