forked from hummypkg/webif
Simplify for revised audio extraction
This commit is contained in:
parent
8733ffe0e8
commit
e4d795dee0
|
@ -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"
|
||||
|
||||
|
|
Loading…
Reference in New Issue