#!/mod/bin/jimsh

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

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"

set cmd [list ffmpeg -y -benchmark -v 0 -i "$rfile" -f mp3 -vn]

if {![[settings] audiomp3]} {
	lappend cmd -acodec copy
}
lappend cmd "${base}.mp3"

#puts "$cmd"
set token [system startop -multiple mp3 $rfile]
puts [exec {*}$cmd]
system endop $token

if {[system pkginst id3v2]} {
	puts [exec /mod/bin/id3v2 \
	    --song "[$ts get title]" \
	    --comment "[$ts get synopsis]" \
	    --album "[$ts get channel_name]" \
	    --year "[clock format [$ts get start] -format {%Y}]" \
	    "${base}.mp3"]
}

set xtime [expr [expr [clock milliseconds] - $xstart] / 1000.0]
puts "Time taken: $xtime"

