#!/mod/bin/jimsh

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

httpheader

set rfile [cgi_get file]
set ts [ts fetch_or_error $rfile]
if {$ts == 0} { return }
set dir [file dirname $rfile]
set len [$ts duration 1]

set xstart [clock milliseconds]

set token [system startop -multiple mpg $rfile]
$ts mkmpg
system endop $token

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

