forked from hummypkg/webif
Calculate progress against estimated audio size CGI parameter
This commit is contained in:
parent
6dc3cc0dc1
commit
74e09fa233
|
@ -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
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue