#!/mod/bin/jimsh

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

jqplugin progressbar
jscss mpg.js
header

set rfile [cgi_get file]
set ts [ts fetch $rfile]
set dir [file dirname $rfile]
set len [$ts duration 1]

puts "

<fieldset class=cleft>
<legend>Extract to MPG</legend>

<table class=keyval cellpadding=5>
<tr><th>File:</th><td>$rfile</td></tr>
<tr><th>Length:</th><td>[clock format $len -format "%T"]</td></tr>
</table>

<span class=hidden id=params
    dir=\"[cgi_quote_url $dir]\"
    rfile=\"[cgi_quote_url $rfile]\"
></span>

<div id=mpgdiv style=\"padding: 1em\">
<button id=mpgit>Perform mpg extraction</button>
</div>
<button id=back>Back to media list</button>

<div id=progressdiv class=hidden>
Extracting mpg: <div id=progressbar></div>
</div>

<div id=output class=pre style=\"margin-top: 10px\"></div>
</fieldset>

"

