Calculate progress against estimated audio size CGI parameter

This commit is contained in:
df 2020-09-07 14:32:55 +00:00
parent 6dc3cc0dc1
commit 74e09fa233
1 changed files with 5 additions and 4 deletions

View File

@ -7,16 +7,17 @@ require ts.class
httpheader
set tsfile [cgi_get file]
set asize [cgi_get asize]
set rfile [file normalize $tsfile]
set bfile [file rootname $rfile]
if {![file exists "${bfile}.mp3"]} {
puts "0"
} else if {! ($asize > 0) } {
puts "0"
}
} else {
set sz [file size $rfile]
set nsz [expr [file size "${bfile}.mp3"] / 0.3]
set perc [expr $nsz * 100 / $sz]
set perc [expr [file size "${bfile}.mp3"] * 100 / $asize]
if {$perc > 100} { set perc 100 }
puts $perc
}