#!/mod/bin/jimsh

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

set start [cgi_get start 60]
set end [cgi_get end 300]
set bin [cgi_get bin 0]
set go [cgi_get go 0]
if {![dict exists $env SCRIPT_NAME]} { set env(SCRIPT_NAME) "" }

header

puts "
<fieldset>
<legend>Unfinished Recordings</legend>
<form method=get action=$env(SCRIPT_NAME)>
<input type=hidden name=go value=1>
Resumes at least <input type=number name=start value=\"$start\" size=5
    class=\"text ui-widget-content ui-corner-all\">
seconds in and at least
<input type=number name=end value=\"$end\" size=5
    class=\"text ui-widget-content ui-corner-all\">
seconds from the end.
"
if {[system pkginst undelete]} {
	puts -nonewline "
	    Include files in the bin? <input type=checkbox name=bin value=1"
	if {$bin} { puts -nonewline " checked" }
	puts ">"
}

puts "
<button>Search</button>
</form>
<script type=text/javascript>\$('button').button();</script>
"

if {!$go} exit

puts "<hr><table class=keyval>"

set root [system mediaroot]
set rootl [expr [string length $root] + 1]
if {[system pkginst undelete] && !$bin} {
	set dustbin "[system dustbin]"
} else {
	set dustbin ""
}

ts iterate [lambda {ts} {
	global dustbin rootl start end
	if {$dustbin ne "" && [\
	    string first "$dustbin/" [$ts get file]] == 0} continue
	set dur [$ts duration 1]
	set res [$ts get resume]
	if {$res > $start && [expr $dur - $res] > $end} {
		puts "
<tr>
	<th>[string range [$ts get file] $rootl end]</th>
	<td nowrap>
		[progressbar $($res * 100 / $dur)]
		<br>
		[clock format $res -format %T]/[clock format $dur -format %T]
	</td>
	<td>[$ts get title]</td>
	<td>[$ts get synopsis]</td>
</tr>
"
	}
}]

puts "</table>"

footer