#!/mod/bin/jimsh

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

httpheader

set tsfile [file normalize [cgi_get file]]
set ntsfile "[file rootname $tsfile].nts"

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

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

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

