#!/mod/bin/jimsh

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

httpheader

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

if {![file exists "${bfile}.mpg"]} {
	puts "0"
} else {
	set sz [file size $rfile]
	set nsz [expr [file size "${bfile}.mpg"] / 0.75]

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

