#!/mod/bin/jimsh

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

httpheader

set perc [cgi_get perc 100]
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 expected $($sz / 100 * $perc)
	set nsz [file size $newfile]

	set perc [expr $nsz * 100 / $expected]
	if {$perc > 100} { set perc 100 }
	puts $perc
}