Simplify for revised audio extraction

This commit is contained in:
df 2020-09-07 15:01:40 +00:00
parent 8733ffe0e8
commit e4d795dee0
1 changed files with 2 additions and 8 deletions

View File

@ -1,6 +1,5 @@
#!/mod/bin/jimsh
package require sqlite3
package require cgi
source /mod/webif/lib/setup
require ts.class system.class settings.class
@ -9,16 +8,12 @@ httpheader
set rfile [cgi_get file]
set ts [ts fetch $rfile]
set dir [file dirname $rfile]
set len [$ts duration 1]
set xstart [clock milliseconds]
set base [file rootname $rfile]
set shname [file tail $base]
puts "Processing $shname"
puts "Processing [file tail $base]]"
set slow [[settings] audiomp3]
set xstart [clock milliseconds]
set token [system startop -multiple mp3 $rfile]
puts [$ts mkmp3 $slow]
@ -26,4 +21,3 @@ system endop $token
set xtime [expr [expr [clock milliseconds] - $xstart] / 1000.0]
puts "Time taken: $xtime"