add network name

git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@678 2a923420-c742-0410-a762-8d5b09965624

CONTROL/control

@@ -1,9 +1,9 @@
 Package: webif
 Priority: optional
 Section: web
-Version: 0.8.4
+Version: 0.8.12-3
 Architecture: mipsel
 Maintainer: af123@hummypkg.org.uk
-Depends: mongoose(>=3.0-2),jim(>=0.71-1),jim-sqlite3(>=0.71-1),jim-cgi(>=0.4-1),jim-oo,jim-pack,service-control,busybox(>=1.19.3-1),lsof,epg(>=1.0.8),hmt(>=1.1.1),ssmtp,anacron
-Suggests: ffmpeg,webif-iphone,nicesplice
+Depends: mongoose(>=3.0-2),jim(>=0.71-1),jim-sqlite3(>=0.71-1),jim-cgi(>=0.5),jim-oo,jim-pack,service-control,busybox(>=1.19.3-1),lsof,epg(>=1.0.8),hmt(>=1.1.4),ssmtp,anacron,trm
+Suggests: ffmpeg,webif-iphone,nicesplice,id3v2
 Description: An evolving web interface for the Humax.

CONTROL/postinst

@@ -0,0 +1,17 @@
+#!/bin/sh
+
+export tmpf=/tmp/cronf.$$
+
+# Add anacron jobs
+
+ana=$PKG_ROOT/etc/anacrontab
+grep -v 'backup/backup.jim' $ana > $tmpf
+(
+	cat $tmpf
+	echo "1 8 sched_backup /mod/var/mongoose/cgi-bin/backup/backup.jim"
+) > $ana
+
+$PKG_ROOT/etc/init.d/S02anacron start < /dev/null > /dev/null 2>&1 &
+
+exit 0
+

CONTROL/prerm

@@ -0,0 +1,10 @@
+#!/bin/sh
+
+export tmpf=/tmp/cronf.$$
+
+ana=/mod/etc/anacrontab
+grep -v 'backup/backup.jim' $ana > $tmpf
+cp $tmpf $ana
+
+exit 0
+

var/mongoose/cgi-bin/backup/backup.jim

@@ -13,12 +13,23 @@ puts ""
 cgi_input
 #cgi_dump
 
-if {![dict exists $_cgi file]} {
-	puts "No filename supplied."
-	exit
+set now [clock seconds]
+set file [file tail [cgi_get file \
+    [clock format $now -format "auto-%Y-%b-%d-%H:%M"]]]
+
+if {[string match {auto-*} $file]} {
+	# Delete any automatic backups over 7 days old.
+	set mt $(7 * 86400)
+	foreach af [glob -nocomplain "$dir/auto-*"] {
+		set aft [file mtime $af]
+		set diff $($now - $aft)
+		if {$diff > $mt} {
+			puts "Removing $af"
+			file delete $af 
+		}
+	}
 }
 
-set file [file tail [dict get $_cgi file]]
 set ffile "/$dir/$file.rbk"
 
 if {[file exists $ffile]} {

var/mongoose/cgi-bin/backup/files.jim

@@ -20,7 +20,18 @@ if {![file isdirectory $dir]} {
 	exit
 }
 
-set backups [glob -nocomplain "$dir/*.rbk"]
+proc s_time {a b} {
+	file stat $a l
+	set at $l(ctime)
+	file stat $b l
+	set bt $l(ctime)
+
+	if {$at < $bt} { return -1 }
+	if {$at > $bt} { return 1 }
+	return 0
+}
+
+set backups [lsort -command s_time [glob -nocomplain "$dir/*.rbk"]]
 
 if {![llength $backups]} {
 	empty

var/mongoose/cgi-bin/backup/restore.jim

@@ -106,7 +106,7 @@ foreach line $data {
 
 	puts "    $chan"
 
-	if {!$hsvc} {
+	if {$hsvc eq ""} {
 		puts "        Cannot map channel name to service."
 		continue
 	}

var/mongoose/cgi-bin/browse.jim

@@ -2,21 +2,24 @@
 
 package require cgi
 source /mod/var/mongoose/lib/setup
-require ts.class pretty_size system.class settings.class
+require ts.class pretty_size system.class settings.class escape
 
 puts "Content-Type: text/html"
 puts ""
 
 set nicesplice [system pkginst nicesplice]
+set flatten [system pkginst flatten]
 
-set ignore {.nts .thm .hmt .hmi}
-set include {.ts .avi .mpg .mpeg .wmv .mkv .mp3 .mp4 .mov}
+set ignore {.nts .thm .hmi}
+set include {.ts .avi .mpg .mpeg .wmv .mkv .mp3 .mp4 .mov .hmt}
 
 cgi_input
 #cgi_dump
 
-#set env(REQUEST_URI) ''
-#set _cgi(dir) "/media/My Video/\[Don't Die Young\]"
+if {![dict exists $env REQUEST_URI]} {
+	set env(REQUEST_URI) ""
+	set _cgi(dir) "/media/My Video/"
+}
 
 if {![dict exists $env QUERY_STRING]} { set env(QUERY_STRING) "root" }
 
@@ -27,22 +30,46 @@ if {$order eq "-"} {
 	[settings new] sortorder $order
 }
 
+set dustbin [system dustbin 1]
+
 proc directory {file bfile} {
+	global flatten
+
 	regsub -all " +" $bfile "" tbfile
 	puts "<div class=va>"
-	puts "<img border=0 class=va id=\"img$tbfile\"
-	    src=/images/711_1_09_Media_Folder.png>"
+	set img "/images/711_1_09_Media_Folder.png"
+	if {$bfile eq $::dustbin} { set img "/img/Dustbin_Folder.png" }
+	puts "<img border=0 class=va id=\"img$tbfile\" src=$img>"
 	puts "<input class=\"fs fsdir\" type=checkbox>"
 	puts "<a class=dbf
 	    href=\"$::env(REQUEST_URI)?dir=[cgi_quote_url $file]\"
-	    file=\"$file\">"
+	    file=\"[cgi_quote_url $file]\">"
 	puts "$bfile</a><span class=filesize id=\"$tbfile\">
 		</span>"
-	puts "
+
+	set noflat 0
+	if $flatten {
+		if {[string match {\[*\]} [file tail $file]]} { set noflat 1 }
+		if {[file exists "$file/.noflatten"]} {
+			set noflat 1
+		}
+
+		if $noflat {
+			puts "<img alt=\"No-flatten\" title=\"No-flatten\"
+			    class=va src=/img/flat-tyre.png height=21>"
+		}
+	}
+
+	puts -nonewline "
 	      <a href=#>
-		<img class=\"dopt va\" border=0 width=45 
+		<img class=\"dopt va\" border=0 width=45 "
+	if $flatten { puts -nonewline "noflat=$noflat " }
+	puts "
 		    src=/images/181_1_00_Help5_OPT_Plus.png>
 	      </a>
+	"
+
+	puts "
 	    <div class=\"results blood\" style=\"margin: 0 0 0 5em\"></div>
 	"
 	puts "</div>"
@@ -69,6 +96,12 @@ proc entry {file} {{i 0}} {
 		set type ts
 		set ts [ts fetch $file 1]
 		set img Video_TS
+	} elseif {$ext eq ".hmt"} {
+		if {[file exists "${base}.ts"]} { continue }
+		# Sole hmt file indicates failure to track.
+		set type bad
+		set ts 0
+		set img Video_Failed
 	} else {
 		set type gen
 		set ts 0
@@ -78,22 +111,25 @@ proc entry {file} {{i 0}} {
 	set new 0
 	if {$type eq "ts"} {
 		if {[$ts flag "New"] > 0} { set new 1 }
-	} else {
-		if {![file exists "[file rootname $file].hmi"]} { set new 1 }
+	} elseif {$type eq "gen"} {
+		if {![file exists "${base}.hmi"]} { set new 1 }
 	}
 
 	if {$new} { append img _New }
 
 	set fscl "fs"
+	set synopsis ""
 	if {$type eq "ts"} {
 		set fscl "fs fsts"
+		set synopsis [cgi_quote_html [$ts get synopsis]]
 	}
 
 	puts "
 	    <div class=\"va bf\" id=[incr i]>
 		<img class=va border=0 src=/img/$img.png>
 		<input class=\"$fscl\" type=checkbox>
-		<a class=bf file=\"$file\" type=$type href=#>
+		<a class=bf title=\"$synopsis\"
+		    file=\"[cgi_quote_url $file]\" type=$type href=#>
 		    $bfile
 	        </a>
 	"
@@ -172,124 +208,21 @@ header
 puts { 
 	<link href=/css/jquery.contextMenu.css rel=stylesheet type=text/css />
 	<script type="text/javascript" src="/js/jquery.contextMenu.js"></script>
-
-	<ul id=optmenu class=contextMenu>
-		<li class=delete><a href=#delete>Delete</a></li>
-		<li><a href=#lock>Toggle Lock</a></li>
-		<li><a href=#enc>Toggle Enc</a></li>
-		<li><a href=#new>Toggle New</a></li>
-		<li><a href=#rename>Rename</a></li>
-		<li><a href=#download>Download</a></li>
-}
-if {[system model] eq "HDR"} {
-	puts { <li class="separator"><a href=#decrypt>Decrypt</a></li> }
-}
-if $nicesplice {
-	puts { <li class="cut separator"><a href=#crop>Crop</a></li> }
-}
-puts {
-	</ul>
-
-	<ul id=doptmenu class=contextMenu>
-		<li class=delete><a href=#delete>Delete</a></li>
-		<li><a href=#rename>Rename</a></li>
-	</ul>
-
-	<div id=renameform title="Rename media file" style="display: none">
-		<form id=renameform_form>
-		<input type=hidden name="renameorig" id="renameorig" value="">
-		<input type=hidden name="titleorig" id="titleorig" value="">
-		<table border=0>
-		<tr>
-		<th>
-			<label for="rename">
-				<b>New Filename</b>
-			</label>
-		</th>
-		<td>
-			<input type=text name="rename" id="rename"
-			    value="" size=70 maxlength=255
-			    class="text ui-widget-content ui-corner-all">
-		</td>
-		</tr>
-		<tr style="display: none" class=tstype>
-		<th>
-			<label for="renametitle" style="padding-top: 0.5em">
-				<b>New Medialist Title</b>
-			</label>
-		</th>
-		<td>
-			<input type=text name="renametitle" id="renametitle"
-			    value="" size=70 maxlength=48
-			    class="text ui-widget-content ui-corner-all">
-		</td>
-		</tr>
-		<tr style="display: none" class=tstype>
-		<td colspan=2 id=synopsis style="font-style: italic"></td>
-		</tr>
-		</table>
-		</form>
-	</div>
-
-	<div id=drenameform title="Rename directory" style="display: none">
-		<form id=drenameform_form>
-		<input type=hidden name="renameorig" id="drenameorig" value="">
-		<table border=0>
-		<tr>
-		<th>
-			<label for="drename">
-				<b>New Directory Name</b>
-			</label>
-		</th>
-		<td>
-			<input type=text name="rename" id="drename"
-			    value="" size=70 maxlength=255
-			    class="text ui-widget-content ui-corner-all">
-		</td>
-		</tr>
-		</table>
-		</form>
-	</div>
-
-	<div id=savestreamform title="Save streamed content"
-	    style="display: none">
-		<div class=pre id=savestream_detail></div>
-		<form id=savestream_form>
-}
-puts "<input type=hidden name=dir value=\"$dir\">"
-puts {
-		<table border=0>
-		<tr>
-		<th>
-			<label for="savestream_name">
-				<b>Filename</b>
-			</label>
-		</th>
-		<td>
-			<input type=text name="savestream_name"
-			    id="savestream_name"
-			    value="" size=70 maxlength=255
-			    class="text ui-widget-content ui-corner-all">
-			<img id=savestream_spin src=/img/loading.gif>
-		</td>
-		</tr>
-		</table>
-		</form>
-	</div>
-
-	<div id=dialogue></div>
-	<div id=confirm title="Confirmation Required"></div>
-
+	<link href=/css/jquery.bar.css rel=stylesheet type=text/css />
+	<script type="text/javascript" src="/js/jquery.bar.js"></script>
 	<script type=text/javascript src=/cgi-bin/browse/browse.js></script>
+	<link type=text/css rel=stylesheet href=/cgi-bin/browse/style.css />
 }
 
-puts "<span style=\"display:none\" id=dir>$dir</span>"
+source /mod/var/mongoose/cgi-bin/browse/assets.jim
 
-# Breadcrumb path
 puts "
-      <fieldset style=\"margin: 1em\">
+	<span style=\"display:none\" id=dir>$dir</span>
+      <fieldset class=cleft style=\"margin: 0 1em 1em 1em\">
       <legend style=\"font-size: 1.5em; padding: 0 0.5em 0.5em 0.5em;\">
 "
+
+# Breadcrumb path
 set stub ""
 foreach part [split $dir /] {
 	if {$stub eq "/"} { set name $part } else { set name "/$part" }
@@ -372,10 +305,25 @@ puts "</div>"
 
 puts "</fieldset>"
 
+puts {
+<fieldset class=left style="margin: 0 1em 1em 1em">
+<legend style="font-size: 1.5em; padding: 0 0.5em 0.5em 0.5em; color: #1e5bbd;">
+File Clipboard
+</legend>
+<div id=clipboard>
+<img src=/img/loading.gif> <i>Loading...</i>
+</div>
+</fieldset>
+}
+
 puts "<div class=brow>"
 
 puts {
+<button id=copy>Copy</button>
+<button id=cut>Cut</button>
+<button id=paste>Paste</button>
 <button id=delete>Delete</button>
+<button id=newdir>New Folder</button>
 <div id=deletewait class=blood style="display: none">
 <img src=/img/loading.gif>Deleting may take some time, please be patient...
 </div>

var/mongoose/cgi-bin/browse/assets.jim

@@ -0,0 +1,161 @@
+#!/mod/bin/jimsh
+
+puts {
+
+<div id=jbar></div>
+
+<ul id=optmenu class=contextMenu style="width: 160px">
+	<li class=delete><a href=#delete>Delete</a></li>
+	<li class=cut><a href=#cut>Cut to clipboard</a></li>
+	<li class=pwcopy><a href=#copy>Copy to clipboard</a></li>
+
+	<li class=separator><a href=#rename>Rename</a></li>
+	<li><a href=#download>Download</a></li>
+
+}
+if {[system model] eq "HDR"} {
+	puts { <li class="separator"><a href=#decrypt>Decrypt</a></li> }
+}
+if {[system pkginst ffmpeg]} {
+	puts { <li><a href=#audio>Extract Audio</a></li> }
+}
+if $nicesplice {
+	puts { <li class="cut"><a href=#crop>Crop</a></li> }
+}
+puts {
+	<li class=separator><a href=#lock>Toggle Lock</a></li>
+	<li><a href=#enc>Toggle Enc</a></li>
+	<li><a href=#new>Toggle New</a></li>
+</ul>
+
+<ul id=doptmenu class=contextMenu style="width: 160px">
+	<li class=delete><a href=#delete>Delete</a></li>
+	<li class=cut><a href=#cut>Cut to clipboard</a></li>
+	<li class=pwcopy><a href=#copy>Copy to clipboard</a></li>
+	<li class=separator><a href=#rename>Rename</a></li>
+}
+
+if $flatten {
+	puts { <li class="separator"><a href=#flat>No-Flatten</a></li> }
+}
+
+puts {
+</ul>
+
+<div id=renameform title="Rename media file" style="display: none">
+	<form id=renameform_form>
+	<input type=hidden name="renameorig" id="renameorig" value="">
+	<input type=hidden name="titleorig" id="titleorig" value="">
+	<table border=0>
+	<tr>
+	<th>
+		<label for="rename">
+			<b>New Filename</b>
+		</label>
+	</th>
+	<td>
+		<input type=text name="rename" id="rename"
+		    value="" size=70 maxlength=255
+		    class="text ui-widget-content ui-corner-all">
+	</td>
+	</tr>
+	<tr style="display: none" class=tstype>
+	<th>
+		<label for="renametitle" style="padding-top: 0.5em">
+			<b>New Medialist Title</b>
+		</label>
+	</th>
+	<td>
+		<input type=text name="renametitle" id="renametitle"
+		    value="" size=70 maxlength=48
+		    class="text ui-widget-content ui-corner-all">
+	</td>
+	</tr>
+	<tr style="display: none" class=tstype>
+	<td colspan=2 id=synopsis style="font-style: italic"></td>
+	</tr>
+	</table>
+	</form>
+</div>
+
+<div id=drenameform title="Rename directory" style="display: none">
+	<form id=drenameform_form>
+	<input type=hidden name="renameorig" id="drenameorig" value="">
+	<table border=0>
+	<tr>
+	<th>
+		<label for="drename">
+			<b>New Directory Name</b>
+		</label>
+	</th>
+	<td>
+		<input type=text name="rename" id="drename"
+		    value="" size=70 maxlength=255
+		    class="text ui-widget-content ui-corner-all">
+	</td>
+	</tr>
+	</table>
+	</form>
+</div>
+
+<div id=savestreamform title="Save streamed content"
+    style="display: none">
+	<div class=pre id=savestream_detail></div>
+	<form id=savestream_form>
+}
+puts "<input type=hidden name=dir value=\"$dir\">"
+puts {
+	<table border=0>
+	<tr>
+	<th>
+		<label for="savestream_name">
+			<b>Filename</b>
+		</label>
+	</th>
+	<td>
+		<input type=text name="savestream_name"
+		    id="savestream_name"
+		    value="" size=70 maxlength=255
+		    class="text ui-widget-content ui-corner-all">
+		<img id=savestream_spin src=/img/loading.gif>
+	</td>
+	</tr>
+	</table>
+	</form>
+</div>
+
+<div id=newdirform title="New Folder" style="display: none">
+	<form id=newdirform_form>
+}
+puts "<input type=hidden name=dir value=\"$dir\">"
+puts {
+	<table border=0>
+	<tr>
+	<th>
+		<label for="newdirname">
+			<b>New Folder Name</b>
+		</label>
+	</th>
+	<td>
+		<input type=text name="newdirname" id="newdirname"
+		    value="" size=70 maxlength=255
+		    class="text ui-widget-content ui-corner-all">
+	</td>
+	</tr>
+	</table>
+	</form>
+</div>
+
+<div id=dialogue></div>
+<div id=confirm title="Confirmation Required"></div>
+<div id=pwdialogue style="display: none">
+<center>
+<img src=/img/loading.gif>
+<br><br>
+Please wait...
+<div id=pwfeedback></div>
+</center>
+</div>
+
+}
+

var/mongoose/cgi-bin/browse/audio.jim

@@ -0,0 +1,109 @@
+#!/mod/bin/jimsh
+
+package require sqlite3
+package require cgi
+source /mod/var/mongoose/lib/setup
+require ts.class system.class
+
+puts "Content-Type: text/html\r\n\r\n"
+
+cgi_input
+#cgi_dump
+
+set rfile [cgi_get file]
+set ts [ts fetch $rfile]
+set dir [file dirname $rfile]
+set len [$ts duration 1]
+
+if {[cgi_get do] eq "it"} {
+	set xstart [clock milliseconds]
+
+	set base [file rootname $rfile]
+	set shname [file tail $base]
+	puts "Processing $shname"
+
+	puts [exec /mod/bin/ffmpeg -y -benchmark -v 0 \
+	    -i $rfile -f mp3 \
+	    -vn -acodec copy "${base}.mp3"]
+
+	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"
+
+	exit
+}
+
+header
+
+puts "
+<link href=/css/jquery.progressbar.css rel=stylesheet type=text/css />
+<script type=\"text/javascript\" src=\"/js/jquery.progressbar.js\"></script>
+
+<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>
+"
+
+puts {
+
+<div style="margin-top: 10px"></div>
+<div id=audiodiv><button id=audioit>Perform audio extraction</button></div>
+<div id=progressdiv style="display: none">
+Extracting audio: <div id=progressbar></div>
+}
+puts "<button id=back
+    dir=\"[cgi_quote_url $dir]\"
+    rfile=\"[cgi_quote_url $rfile]\"
+    style=\"display: none\">Back to media list</button>"
+puts {
+<div id=output class=pre style="margin-top: 10px"></div>
+</div>
+
+<script type=text/javascript>
+
+var handle = 0;
+
+function update()
+{
+	$.get('/cgi-bin/browse/audio_progress.jim?file='
+	    + $('#back').attr('rfile'), function(data) {
+		if (handle)
+			$('#progressbar').reportprogress(data);
+	});
+}
+
+$(document).ready(function() {
+
+$('#progressbar').reportprogress(0);
+
+$('#back').button().click(function() {
+	window.location = '/cgi-bin/browse.jim?dir=' + $(this).attr('dir');
+});
+
+$('#audioit').button().click(function() {
+	$('#audiodiv').hide('slow');
+	$('#progressdiv').show('slow');
+	handle = setInterval("update()", 1000);
+	$('#output').load(document.URL + '&do=it', function() {
+		clearInterval(handle);
+		handle = 0;
+		$('#back').show();
+		$('#progressbar').reportprogress(100);
+	});
+});
+
+});
+</script>
+</div>
+
+}
+

var/mongoose/cgi-bin/browse/audio_progress.jim

@@ -0,0 +1,26 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require ts.class
+
+puts "Content-Type: text/html\r\n\r\n"
+
+cgi_input
+#cgi_dump
+
+set tsfile [cgi_get file]
+set rfile [file normalize $tsfile]
+set bfile [file rootname $rfile]
+
+if {![file exists "${bfile}.mp3"]} {
+	puts "0"
+} else {
+	set sz [file size $rfile]
+	set nsz [expr [file size "${bfile}.mp3"] / 0.3]
+
+	set perc [expr $nsz * 100 / $sz]
+	if {$perc > 100} { set perc 100 }
+	puts $perc
+}
+

var/mongoose/cgi-bin/browse/browse.js

@@ -24,6 +24,38 @@ function disableall()
 	$('button,a,input').disable();
 }
 
+function reloadclipboard()
+{
+	$('#clipboard')
+	    .empty()
+	    .html('<img src=/img/loading.gif> <i>Loading...</i>')
+	    .load('/cgi-bin/browse/clipboard.jim', function() {
+
+// Start Clipboard post-load actions
+
+if ($('#clipclear').length)
+	$('#paste').enable();
+else
+	$('#paste').disable();
+
+$('#clipclear').button().click(function() {
+	$.get('/cgi-bin/browse/clipboard.jim?act=clear', function() {
+		reloadclipboard();
+	});
+});
+
+$('a.clipdel').click(function() {
+	$.get('/cgi-bin/browse/clipboard.jim?act=remove&path=' +
+	    $(this).attr('path'), function() {
+		reloadclipboard();
+	});
+});
+
+// End Clipboard post-load actions
+
+	});
+}
+
 function epginfo_callback(data, status, xhr)
 {
 	var width = 85;
@@ -75,16 +107,17 @@ function new_folder_callback(data, status, xhr)
 	$.each(data, set_folder_new);
 }
 
-function delete_callback(file, type, id)
+function delete_callback(file, dir, id)
 {
 	var el = 'div.bf#' + id;
 	var results = el + ' .results';
-	var url = '/cgi-bin/browse/delete.jim?file=' +
-	    encodeURIComponent(file) + '&type=' + type;
 	$(results)
 	    .html('<img src=/img/loading.gif>Deleting, please wait...')
 	    .slideDown('slow')
-	    .load(url, function() {
+	    .load('/cgi-bin/browse/delete.jim', {
+		'dir': dir,
+		'files': [decodeURIComponent(file)]
+		}, function() {
 		$(el).delay(3000).slideUp(300, function() {
 			$(el).remove();
 		});
@@ -93,19 +126,19 @@ function delete_callback(file, type, id)
 
 function lock_callback(file, type, id)
 {
-	var url = '/cgi-bin/browse/lock.jim?file=' + encodeURIComponent(file);
+	var url = '/cgi-bin/browse/lock.jim?file=' + file;
 	$.get(url, function() { window.location.reload(true); });
 }
 
 function enc_callback(file, type, id)
 {
-	var url = '/cgi-bin/browse/enc.jim?file=' + encodeURIComponent(file);
+	var url = '/cgi-bin/browse/enc.jim?file=' + file;
 	$.get(url, function() { window.location.reload(true); });
 }
 
 function new_callback(file, type, id)
 {
-	var url = '/cgi-bin/browse/new.jim?file=' + encodeURIComponent(file);
+	var url = '/cgi-bin/browse/new.jim?file=' + file;
 	$.get(url, function() { window.location.reload(true); });
 }
 
@@ -123,6 +156,13 @@ function drename_submit()
 	    function() { window.location.reload(true); });
 }
 
+function newdir_submit()
+{
+	var s = $('#newdirform_form').serialize();
+	$.get('/cgi-bin/browse/mknewdir.jim?' + s,
+	    function() { window.location.reload(true); });
+}
+
 function savestream_submit()
 {
 	var s = $('#savestream_form').serialize();
@@ -148,7 +188,7 @@ function confirm_action(action, callback, file, type, id)
 	});
 	$('#confirm').empty().html(
 	    'Are you sure you wish to ' + action + '<br>' +
-	    '<i>' + bfile + '</i> ?'
+	    '<i>' + decodeURIComponent(bfile) + '</i> ?'
 	);
 	$confirm.dialog('open');
 }
@@ -159,7 +199,7 @@ function preparemenu(el, menu)
 	{
 		if (el.attr('def') == 'HD')
 		{
-			$('#optmenu').enableContextMenuItems('#enc');
+			$(menu).enableContextMenuItems('#enc');
 			if (el.attr('encd') == 1)
 				$(menu).changeContextMenuItem('#enc',
 				    'Remove Enc');
@@ -169,50 +209,70 @@ function preparemenu(el, menu)
 		}
 
 		if (el.attr('bx') > 0)
-			$('#optmenu').enableContextMenuItems('#crop');
+			$(menu).enableContextMenuItems('#crop');
 		else
-			$('#optmenu').disableContextMenuItems('#crop');
+			$(menu).disableContextMenuItems('#crop');
 
-		$('#optmenu').enableContextMenuItems('#new');
+		$(menu).enableContextMenuItems('#new');
 		if (el.attr('new') == 1)
 			$(menu).changeContextMenuItem('#new', 'Mark watched');
 		else
 			$(menu).changeContextMenuItem('#new', 'Mark new');
 
 
-		$('#optmenu').enableContextMenuItems('#lock');
+		$(menu).enableContextMenuItems('#lock');
 		if (el.attr('locked') == 1)
 		{
 			$(menu).changeContextMenuItem('#lock', 'Unlock');
-			$('#optmenu').disableContextMenuItems('#delete');
+			$(menu).disableContextMenuItems('#delete');
 		}
 		else
 		{
 			$(menu).changeContextMenuItem('#lock', 'Lock');
-			$('#optmenu').enableContextMenuItems('#delete');
+			$(menu).enableContextMenuItems('#delete');
 		}
 
 		if (el.attr('odencd') == 1)
-			$('#optmenu').enableContextMenuItems('#decrypt');
+		{
+			$(menu).enableContextMenuItems('#decrypt');
+			$(menu).disableContextMenuItems('#audio');
+		}
 		else
-			$('#optmenu').disableContextMenuItems('#decrypt');
+		{
+			$(menu).disableContextMenuItems('#decrypt');
+			$(menu).enableContextMenuItems('#audio');
+		}
 	
 	}
 	else
 	{
-		$('#optmenu').enableContextMenuItems('#delete');
-		$('#optmenu').disableContextMenuItems('#lock');
-		$('#optmenu').disableContextMenuItems('#enc');
-		$('#optmenu').disableContextMenuItems('#new');
-		$('#optmenu').disableContextMenuItems('#decrypt');
-		$('#optmenu').disableContextMenuItems('#crop');
+		$(menu).enableContextMenuItems('#delete');
+		$(menu).disableContextMenuItems('#lock');
+		$(menu).disableContextMenuItems('#enc');
+		$(menu).disableContextMenuItems('#new');
+		$(menu).disableContextMenuItems('#decrypt');
+		$(menu).disableContextMenuItems('#audio');
+		$(menu).disableContextMenuItems('#crop');
 	}
 
 }
 
+function preparedmenu(el, menu)
+{
+	if (el.attr('noflat') != undefined)
+	{
+		if (el.attr('noflat') > 0)
+			$(menu).changeContextMenuItem('#flat', 'Allow Flatten');
+		else
+			$(menu).changeContextMenuItem('#flat',
+			    'Prevent Flatten');
+	}
+}
 
 $(document).ready(function() {
 
+var dir = $('#dir').text();
+
 var menuclick = function(action, el, pos)
 {
 	var file = $(el).parent().prevAll('a.bf').last().attr('file');
@@ -224,7 +284,18 @@ var menuclick = function(action, el, pos)
 	{
 	    case 'delete':
 		confirm_action('delete', delete_callback, file,
-		    type, id);
+		    dir, id);
+		break;
+
+	    case 'copy':
+		if (!confirm('Are you sure? Copying recordings takes a long time!'))
+			break;
+		// Fallthrough
+	    case 'cut':
+		$.get('/cgi-bin/browse/clipboard.jim?act=add&mode=' + action +
+		    '&path=' + file, function() {
+			reloadclipboard();
+		    });
 		break;
 
 	    case 'lock':
@@ -243,8 +314,8 @@ var menuclick = function(action, el, pos)
 		break;
 
 	    case 'rename':
-		$('#rename').val(bfile);
-		$('#renameorig').val(file);
+		$('#rename').val(decodeURIComponent(bfile));
+		$('#renameorig').val(decodeURIComponent(file));
 
 		$('#titleorig').val('');
 		$('#renametitle').val('');
@@ -254,7 +325,7 @@ var menuclick = function(action, el, pos)
 		if (type == 'ts')
 		{
 			$.getJSON('/cgi-bin/browse/epgtitle.jim?file=' +
-			    encodeURIComponent(file), epginfo_callback);
+			    file, epginfo_callback);
 		}
 
 		$('#renameform').dialog('open');
@@ -262,17 +333,22 @@ var menuclick = function(action, el, pos)
 
 	    case 'download':
 		window.location.href = '/cgi-bin/browse/download.jim?file=' +
-		    encodeURIComponent(file);
+		    file;
 		break;
 
 	    case 'crop':
 		window.location.href = '/cgi-bin/browse/crop.jim?file=' +
-		    encodeURIComponent(file);
+		    file;
 		break;
 
 	    case 'decrypt':
 		window.location.href = '/cgi-bin/browse/decrypt.jim?file=' +
-		    encodeURIComponent(file);
+		    file;
+		break;
+
+	    case 'audio':
+		window.location.href = '/cgi-bin/browse/audio.jim?file=' +
+		    file;
 		break;
 
 	    default:
@@ -292,17 +368,19 @@ var dmenuclick = function(action, el, pos)
 	switch (action)
 	{
 	    case 'delete':
-		var url = '/cgi-bin/browse/delete.jim?file=' +
-		    encodeURIComponent(file) + '&type=dir';
 
-		if (confirm('Are you sure you wish to delete "' + file +
+		if (confirm('Are you sure you wish to delete "' +
+		    decodeURIComponent(file) +
 		    '" and all files within it?'))
 		{
 			$(results)
 			    .html('<img src=/img/loading.gif>' +
 			    'Deleting, please wait...')
 			    .slideDown('slow')
-			    .load(url, function() {
+			    .load('/cgi-bin/browse/delete.jim', {
+				'dir': dir,
+				'files': [decodeURIComponent(file)]
+				}, function() {
 				$(direl).delay(3000).slideUp(300, function() {
 					$(direl).remove();
 				});
@@ -310,12 +388,28 @@ var dmenuclick = function(action, el, pos)
 		}
 		break;
 
+	    case 'copy':
+		if (!confirm('Are you sure? Copying directories can take a very long time!'))
+			break;
+		// Fallthrough
+	    case 'cut':
+		$.get('/cgi-bin/browse/clipboard.jim?act=add&mode=' + action +
+		    '&path=' + file, function() {
+			reloadclipboard();
+		    });
+		break;
+
 	    case 'rename':
-		$('#drename').val(bfile);
-		$('#drenameorig').val(file);
+		$('#drename').val(decodeURIComponent(bfile));
+		$('#drenameorig').val(decodeURIComponent(file));
 		$('#drenameform').dialog('open');
 		break;
 
+	    case 'flat':
+		var url = '/cgi-bin/browse/flat.jim?file=' + file;
+		$.get(url, function() { window.location.reload(true); });
+		break;
+
 	    default:
 		alert('Unhandled action: ' + action);
 		break;
@@ -336,6 +430,7 @@ var dmenuclick = function(action, el, pos)
 		{
 			menu: 'doptmenu',
 			leftButton: true,
+			beforeShow: preparedmenu
 		},
 		dmenuclick
 	);
@@ -364,8 +459,8 @@ var dmenuclick = function(action, el, pos)
 		e.preventDefault();
 		var file = $(this).attr('file');
 		var type = $(this).attr('type');
-		var url = '/cgi-bin/browse/file.jim?file=' +
-		    encodeURIComponent(file) + '&type=' + type;
+		var url = '/cgi-bin/browse/file.jim?file=' + file
+		    + '&type=' + type;
 		$('#dialogue').load(url);
 		$dialog.dialog('open');
 	});
@@ -416,8 +511,6 @@ var dmenuclick = function(action, el, pos)
 		show: 'fade', hide: 'fade',
 		draggable: false, resizable: false
 	});
-	
-	var dir = $('#dir').text();
 
 	// Load folder sizes
 	$.getJSON('/cgi-bin/browse/sizes.jim?dir=' + encodeURIComponent(dir),
@@ -427,6 +520,9 @@ var dmenuclick = function(action, el, pos)
 	$.getJSON('/cgi-bin/browse/newdir.jim?dir=' + encodeURIComponent(dir),
 		new_folder_callback);
 
+	// Load clipboard
+	reloadclipboard();
+
 	// Uncheck everything
 	$('input.fs:checked').attr('checked', false);
 
@@ -458,7 +554,7 @@ var dmenuclick = function(action, el, pos)
 	    .click(function() {
 		var files = new Array();
 		var els = $('input.fsts:checked + a').each(function() {
-			files.push(encodeURIComponent($(this).attr('file')));
+			files.push($(this).attr('file'));
 		});
 		//console.log("%o", files);
 		window.location.href = '/cgi-bin/browse/join.jim?files=' +
@@ -469,7 +565,7 @@ var dmenuclick = function(action, el, pos)
 	    .click(function() {
 		var files = new Array();
 		var els = $('input.fs:checked + a').each(function() {
-			files.push(encodeURIComponent($(this).attr('file')));
+			files.push(decodeURIComponent($(this).attr('file')));
 		});
 		//console.log("%o", files);
 		var str = 'Are you sure you want to delete ' + files.length +
@@ -480,20 +576,96 @@ var dmenuclick = function(action, el, pos)
 		{
 			disableall();
 			$('#deletewait').slideDown('slow');
-			window.location.href =
-			    '/cgi-bin/browse/mdelete.jim?dir=' +
-			    encodeURIComponent(dir) + '&files=' +
-		    	    files.join();
+
+			$('#pwdialogue').dialog({
+				title: "Deleting",
+				modal: true, autoOpen: true,
+				height: 'auto', width: 'auto',
+				show: 'scale', hide: 'fade',
+				draggable: false, resizable: false,
+				closeOnEscape: false,
+				open: function() {
+				    $('.ui-dialog-titlebar-close').hide();
+				}
+			});
+			$('#pwfeedback').load(
+			    '/cgi-bin/browse/delete.jim', {
+				'dir': dir,
+				'files': files
+				}, function() {
+				$('#pwdialogue').dialog('close');
+				window.location.reload(true);
+			});
 		}
 	    });
 
+	$('#copy,#cut').button().disable()
+	    .click(function() {
+		var files = new Array();
+		var els = $('input.fs:checked + a').each(function() {
+			files.push(decodeURIComponent($(this).attr('file')));
+		});
+		//console.log("%o", files);
+		var action = $(this).attr('id');
+		if (action == 'copy' && !confirm('Are you sure? ' +
+		    'Copying recordings can take a very long time!'))
+			return;
+
+		$.post('/cgi-bin/browse/clipboard.jim', {
+		    'act': 'add',
+		    'dir': dir,
+		    'mode': action,
+		    'path': files
+		    }, function() {
+			reloadclipboard();
+			$('input.fs:checked').attr('checked', false);
+		    });
+	    });
+
+	$('#paste').button().disable()
+	    .click(function() {
+		disableall();
+		$('#pwdialogue').dialog({
+			title: "Pasting from clipboard",
+			modal: true, autoOpen: true,
+			height: 'auto', width: 'auto',
+			show: 'scale', hide: 'fade',
+			draggable: false, resizable: false,
+			closeOnEscape: false,
+			open: function() {
+			    $('.ui-dialog-titlebar-close').hide();
+			}
+		});
+		$('#pwfeedback').load(
+		    '/cgi-bin/browse/clipboard.jim?act=paste&dir='
+		    + encodeURIComponent(dir), function() {
+			$('#pwdialogue').dialog('close');
+			window.location.reload(true);
+		});
+	});
+
+	$('#newdir').button().click(function() {
+		$('#newdirform').dialog({
+			autoOpen: true,
+			height: 'auto', width: 'auto',
+			modal: true,
+			buttons: {
+				"Create": newdir_submit,
+				"Cancel": function() {
+					$(this).dialog('close');
+				}
+			},
+			close: function() { $('#newdirname').val(''); }
+		});
+	});
+
 	$('input.fs').change(function() {
 		var num = $('input.fs:checked').size();
 		if (num > 0)
-			$('#delete').enable();
+			$('#delete,#cut,#copy').enable();
 		else
-			$('#delete').disable();
-	
+			$('#delete,#cut,#copy').disable();
+
 		var num = $('input.fsts:checked').size();
 		if (num > 1)
 			$('#join').enable();

var/mongoose/cgi-bin/browse/clipboard.jim

@@ -0,0 +1,116 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require clipboard.class ts.class
+
+puts "Content-Type: text/html; no-cache"
+puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
+puts "Pragma: nocache"
+puts ""
+
+cgi_input 1
+#cgi_dump
+
+set cb [[clipboard new {path "/tmp/webif-browse.cb"}] load]
+
+set action [cgi_get act list]
+
+switch $action {
+    list {
+	if {![$cb size]} {
+		puts "<i>Clipboard is empty</i>"
+		break
+	}
+	puts "<div class=cliplist>"
+	foreach file [$cb get items] {
+		set img "page_white_copy"
+		if {[$file get action] eq "cut"} {
+			set img "cut"
+		}
+		set path [$file get path]
+		set xpath [cgi_quote_html $path]
+		puts "<span title=\"$xpath\" alt=\"$xpath\">"
+		puts "<img src=/img/context/$img.png>"
+		set dfile [file tail $path]
+		if {[string length $dfile] > 25} {
+			set dfile "[string range $dfile 0 22]..."
+		}
+		if {[file isdirectory $path]} {
+			puts "<img height=16
+			    src=/images/711_1_09_Media_Folder.png>"
+		}
+		puts [cgi_quote_html $dfile]
+		puts "<a class=clipdel href=# alt=\"Remove\" title=\"Remove\"
+		    path=\"[cgi_quote_url $path]\">
+		    <img border=0 src=/img/close.png height=16></a>"
+		puts "</span>"
+	}
+	puts "</div>"
+	puts "<button id=clipclear>Empty clipboard</button>"
+    }
+    add {
+	if {[set path [cgi_get path]] eq "0"} {
+		puts "No path."
+		exit
+	}
+	set dir [cgi_unquote_input [cgi_get dir]]
+	set mode [cgi_get mode copy]
+	foreach p $path {
+		set p [cgi_unquote_input $p]
+		if {$dir ne "0" && ![string match "$dir/*" $p]} {
+			puts "$p not in directory<br>"
+			continue
+		}
+		if {![$cb present $p]} {
+			$cb add $mode $p
+			puts "Added $p for $mode<br>"
+		}
+	}
+	$cb save
+    }
+    remove {
+	$cb remove [cgi_unquote_input [cgi_get path]]
+	$cb save
+    }
+    clear {
+	$cb clear
+	$cb save
+    }
+    paste {
+	set dir [cgi_unquote_input [cgi_get dir]]
+	foreach item [$cb get items] {
+		set path [$item get path]
+		set file [file tail $path]
+		set mode [$item get action]
+
+		puts "Pasting $file"
+
+		if {[file isdirectory $path]} {
+			# Directory
+			if {$mode eq "cut"} {
+				catch {file rename $path "$dir/$file"}
+			} else {
+				catch {puts [exec /mod/bin/busybox/cp -r \
+				    $path $dir]}
+			}
+		} else {
+			set root [file rootname $path]
+			# Protect special characters in root.
+			# In particular [] characters which are used a lot
+			# for torrent names.
+			regsub -all {([\\["$])} $root {\\\1} root
+			foreach f [glob -nocomplain "${root}.*"] {
+				if {$mode eq "cut"} {
+					catch {file rename $f "$dir/[file tail $f]"}
+				} else {
+					catch {file copy $f "$dir/[file tail $f]"}
+				}
+			}
+		}
+	}
+	$cb clear
+	$cb save
+    }
+}
+

var/mongoose/cgi-bin/browse/crop.jim

@@ -9,8 +9,7 @@ puts "Content-Type: text/html\r\n\r\n"
 cgi_input
 #cgi_dump
 
-set tsfile [cgi_get file]
-set rfile [file normalize $tsfile]
+set rfile [cgi_get file]
 set ts [ts fetch $rfile]
 set dir [file dirname $rfile]
 

var/mongoose/cgi-bin/browse/decrypt.jim

@@ -10,14 +10,14 @@ puts "Content-Type: text/html\r\n\r\n"
 cgi_input
 #cgi_dump
 
-set tsfile [cgi_get file]
-set rfile [file normalize $tsfile]
+set rfile [cgi_get file]
 set ts [ts fetch $rfile]
 set dir [file dirname $rfile]
 set len [$ts duration 1]
 lassign [$ts dlnaloc] url
 
 if {[cgi_get do] eq "it"} {
+	set xstart [clock milliseconds]
 
 	set base [file rootname $rfile]
 	set origdir "$dir/_original"
@@ -51,6 +51,9 @@ if {[cgi_get do] eq "it"} {
 		exec /mod/bin/hmt -encrypted "$dir/$shname.hmt"
 	}
 
+	set xtime [expr [expr [clock milliseconds] - $xstart] / 1000.0]
+	puts "Time taken: $xtime"
+
 	exit
 }
 
@@ -70,6 +73,7 @@ puts "
 if {$url eq ""} {
 	puts "This file has not been indexed by the media server.
 	    Cannot decrypt."
+	puts "Have you enabled <i>Content Sharing</i> in the Humax menus?"
 	exit
 }
 

var/mongoose/cgi-bin/browse/delete.jim

@@ -1,32 +1,97 @@
 #!/mod/bin/jimsh
 
 package require cgi
-source /mod/var/mongoose/lib/ts.class
+source /mod/var/mongoose/lib/setup
+require ts.class pretty_size system.class tdelete
 
-puts "Content-Type: text/html"
-puts ""
+puts "Content-Type: text/html\r\n"
 
 cgi_input
 #cgi_dump
 
-set file [dict get $_cgi file]
-set type [dict get $_cgi type]
+set dir [cgi_get dir]
 
-if {$type eq "ts"} {
-	set ts [ts fetch $file]
-	if {[$ts delete]} {
-		puts "Successfully deleted $file."
-	} else {
-		puts "Problem deleting $file, [$ts get error]"
-	}
-	exit
-} elseif {$type eq "dir"} {
-	puts -nonewline "Directory..."
-	puts [exec /mod/bin/busybox/rm -rf $file]
-	puts -nonewline "Done..."
+#puts "DIR: ($dir)"
+
+if {[system pkginst undelete]} {
+	set dustbin [system dustbin]
 } else {
-	file delete $file
-	file delete "[file rootname $file].hmi"
-	puts "Successfully deleted $file."
+	set dustbin ""
 }
 
+proc bindir {file} {
+	global dustbin
+	set dir [file dirname $file]
+	regsub "^[system mediaroot]" $dir $dustbin dir
+	system mkdir_p $dir
+	return $dir
+}
+
+proc touch {file} {
+	exec /mod/bin/busybox/touch $file
+}
+
+puts "<div id=deleting class=blood><img src=/img/loading.gif>Deleting...</div>"
+puts "<ul style=\"list-style-type: square\">"
+foreach file [cgi_get files] {
+	puts -nonewline "<li>\"$file\"..."
+	regsub -all {([\\["$])} $dir {\\\1} dir
+	if {![string match "$dir/*" $file]} {
+		puts "Error - outside directory."
+		continue
+	}
+
+	if {[string first $dustbin $file] > -1} {
+		set ldustbin ""
+	} else {
+		set ldustbin $dustbin
+	}
+
+	set done 0
+	if {[file isdirectory $file]} {
+		puts -nonewline "Directory..."
+		if {$ldustbin ne ""} {
+			set ndir "[bindir $file]/[file tail $file]"
+			while {[file isdirectory $ndir]} { append ndir "_" }
+			file rename $file $ndir
+			touch $ndir
+		} else {
+			tdelete $file
+		}
+		puts -nonewline "Done..."
+		set done 1
+	} elseif {[string match {*.ts} $file]} {
+		set ts [ts fetch $file]
+
+		# Check TS validity
+		if {![catch {$ts get file}]} {
+			if {$ldustbin ne ""} {
+				$ts move [bindir $file] 1
+			} else {
+				if {[$ts delete]} {
+					puts "Successfully deleted $file."
+				} else {
+					puts "Problem deleting $file, [$ts get error]"
+				}
+			}
+			set done 1
+		}
+		# else treat as normal file.
+	}
+
+	if {!$done} {
+		if {$ldustbin ne ""} {
+			set nfile "[bindir $file]/[file tail $file]"
+			file rename $file $nfile
+			touch $nfile
+		} else {
+			tdelete $file
+		}
+		catch {file delete "[file rootname $file].hmi"}
+		puts -nonewline "Done..."
+	}
+
+	puts "</li>"
+}
+puts "</ul>"
+

var/mongoose/cgi-bin/browse/download.jim

@@ -11,20 +11,23 @@ cgi_input
 #cgi_dump
 
 set file [cgi_get file]
-set rfile [file normalize $file]
-set ts [ts fetch $file]
 
 # Default to just downloading the raw file.
 set url $file
 set mime "video/ts"
 
-# If it's encrypted on disk and the DLNA option is available, then use
-# the server to perform decryption on the fly.
-if {[$ts flag "ODEncrypted"] > 0} {
-	set dlna [$ts dlnaloc]
-	if {[llength $dlna]} { lassign $dlna url mime }
+if {[string match {*.ts} $file]} {
+	if {![catch {set ts [ts fetch $file]}]} {
 
-	#puts "DLNA: $dlna"
+		# If it's encrypted on disk and the DLNA option is available,
+		# then use the server to perform decryption on the fly.
+		if {[$ts flag "ODEncrypted"] > 0} {
+			set dlna [$ts dlnaloc]
+			if {[llength $dlna]} { lassign $dlna url mime }
+
+			#puts "DLNA: $dlna"
+		}
+	}
 }
 
 puts "Content-Type: text/plain"

var/mongoose/cgi-bin/browse/file.jim

@@ -65,15 +65,22 @@ if {$type eq "ts"} {
 	<th>Start Time</th>
 	<td>"
 	puts [clock format [$ts get start] -format "%c %Z"]
+	puts "<font class=also>(Scheduled: [
+	    clock format [$ts get schedstart] -format "%c %Z"])</font>"
 	puts "</td>
 </tr><tr>
 	<th>End Time</th>
 	<td>"
 	puts [clock format [$ts get end] -format "%c %Z"]
+	puts "<font class=also>(Scheduled: [clock format \
+	    [expr [$ts get schedstart] + [$ts get scheddur]] \
+	    -format "%c %Z"])</font>"
 	puts "</td>
 </tr><tr>
 	<th>Duration</th>
-	<td>[$ts duration] minute(s).</td>
+	<td>[$ts duration] minute(s).
+	    <font class=also>(Scheduled: [expr [$ts get scheddur] / 60])
+	    </font></td>
 </tr><tr>
 	<th>Size</th>
 	<td>$sz</td>

var/mongoose/cgi-bin/browse/flat.jim

@@ -0,0 +1,28 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/ts.class
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+set dir [cgi_get file]
+if {![file isdirectory $dir]} { exit }
+set noflat 0
+if {[string match {\[*\]} [file tail $dir]]} { 
+	set ndir [string range [file tail $dir] 1 end-1]
+	file rename $dir "[file dirname $dir]/$ndir"
+	puts "Unflagged directory as noflatten."
+	exit
+}
+if {[file exists "$dir/.noflatten"]} {
+	file delete "$dir/.noflatten"
+	puts "Unflagged directory as noflatten."
+} else {
+	close [open "$dir/.noflatten" w]
+	puts "Flagged directory as noflatten."
+}
+

var/mongoose/cgi-bin/browse/mdelete.jim

@@ -1,55 +0,0 @@
-#!/mod/bin/jimsh
-
-package require cgi
-source /mod/var/mongoose/lib/setup
-require ts.class pretty_size
-
-puts "Content-Type: text/html\r\n\r\n"
-header
-
-cgi_input 1
-#cgi_dump
-set dir [cgi_unquote_input [cgi_get dir]]
-
-puts "<div id=deleting class=blood><img src=/img/loading.gif>Deleting...</div>"
-puts "<ul style=\"list-style-type: square\">"
-foreach file [split [cgi_get files] ","] {
-	set file [cgi_unquote_input $file]
-	puts -nonewline "<li>\"$file\"..."
-
-	if {[file isdirectory $file]} {
-		puts -nonewline "Directory..."
-		puts [exec /mod/bin/busybox/rm -rf $file]
-		puts -nonewline "Done..."
-	} elseif {[string match {*.ts} $file]} {
-		set ts [ts fetch $file]
-		if {[catch {$ts delete} msg]} {
-			puts -nonewline "Error loading TS file..."
-		} else {
-			puts -nonewline "Done..."
-		}
-	} else {
-		if {[catch {file delete $ts} msg]} {
-			puts -nonewline "Error: $msg"
-		} else {
-			catch {file delete "[file rootname $file].hmi"}
-			puts -nonewline "Done..."
-		}
-	}
-	puts "</li>"
-}
-puts "</ul>"
-puts "<button id=back dir=\"$dir\">Back to media list</button>";
-
-puts {
-<script type=text/javascript>
-$('#deleting').slideUp('slow');
-$('#back').button().click(function() {
-	window.location.href = '/cgi-bin/browse.jim?dir=' +
-	    encodeURIComponent($('#back').attr('dir'));
-});
-</script>
-}
-
-footer
-

var/mongoose/cgi-bin/browse/mknewdir.jim

@@ -0,0 +1,15 @@
+#!/mod/bin/jimsh
+
+package require cgi
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+set dir [cgi_get dir -]
+set name [cgi_get newdirname "New Folder"]
+
+file mkdir "$dir/$name"
+

var/mongoose/cgi-bin/browse/sizes.jim

@@ -16,11 +16,10 @@ set dir [dict get $_cgi dir]
 #9.4G	/media/My Video/Archive
 #1.4G	/media/My Video/CSI_ Crime Scene Investigation
 puts "{"
-foreach line [split [exec /mod/bin/busybox/du -h "$dir/"] "\n"] {
-	set fields [split $line "\t"]
-	set size [lindex $fields 0]
-	set node [file tail [lindex $fields 1]]
-#	set node [lindex [split [lindex $fields 1] /] end]
+regsub -all {([\\["$])} $dir {\\\1} xdir
+foreach line [split [exec /mod/bin/busybox/du -h -d 1 "$dir/"] "\n"] {
+	lassign [split $line "\t"] size node
+	regsub -- "^$xdir/" $node "" node
 	puts "\"$node\" : \"$size\","
 }
 

var/mongoose/cgi-bin/browse/style.css

@@ -0,0 +1,17 @@
+
+div.brow
+{
+	float: left;
+	clear: left;
+}
+
+div.cliplist span
+{
+	display: block;
+}
+
+#clipclear
+{
+	margin-top: 1em;
+}
+

var/mongoose/cgi-bin/channel.jim

@@ -32,17 +32,19 @@ puts "
 		<th>Frequency</th>
 		<th>Signal Strength</th>
 		<th>Signal Quality</th>
+		<th>Network</th>
 		<th>Mux</th>
 		<th>Channels</th>
 		<th>&gt;799</th>
 	</tr>
 "
 foreach tw [$db query {
-		select tsIdx, usTsID, ulFrequency, ucLevel, ucQuality
-		from TBL_TS
+		select tsIdx, szNetName, usTsID, ulFrequency, ucLevel, ucQuality
+		from TBL_TS join TBL_NET using (netIdx)
 		order by ulFrequency
 	}] {
-	lassign $tw x tsIdx x usTsID x ulFrequency x ucLevel x ucQuality
+	lassign $tw \
+	    x tsIdx x netName x usTsID x ulFrequency x ucLevel x ucQuality
 
 	altrow
 	puts "
@@ -51,6 +53,7 @@ foreach tw [$db query {
 	"
 	puts "<td>[progressbar $ucLevel]</td>"
 	puts "<td>[progressbar $ucQuality]</td>"
+	puts "<td>[string range $netName 3 end]</td>"
 
 	set channels [$db query {
 		select usLcn, szSvcName, szPrvName, aucDefaultAuthority
@@ -59,7 +62,7 @@ foreach tw [$db query {
 		order by usLcn
 		} $tsIdx]
 
-	set mux "???"
+	set mux "Local"
 	set ehs 0
 	foreach chan $channels {
 		lassign $chan x lcn x name
@@ -72,6 +75,7 @@ foreach tw [$db query {
 			"ITV3" { set mux "COM4/SDN" }
 			"Dave" { set mux "COM5/ARQ A" }
 			"Film4" { set mux "COM6/ARQ B" }
+			"Movies4Men" { set mux "Local" }
 		}
 	}
 	puts "<td>$mux</td>"

var/mongoose/cgi-bin/db.jim

@@ -8,13 +8,8 @@ require altrow
 puts "Content-Type: text/html"
 puts ""
 
-set databases {
-	/var/lib/humaxtv/rsvp.db
-	/var/lib/humaxtv/rsv.db
-	/var/lib/humaxtv/setup.db
-	/var/lib/humaxtv/channel.db
-	/mnt/hd2/dms_cds.db
-}
+set databases [glob /var/lib/humaxtv/*.db]
+lappend databases "/mnt/hd2/dms_cds.db"
 
 header
 

var/mongoose/cgi-bin/dedup.jim

@@ -40,6 +40,7 @@ foreach file [lsort [glob -nocomplain "$sdir"]] {
 	puts "<td nowrap>$base</td>"
 	set syn [$ts get synopsis]
 	regsub -nocase -all -- {^new series\.* *} $syn "" syn
+	regsub -nocase -all -- {^cbeebies\. *} $syn "" syn
 	regsub -all -- { *[:].*$} $syn "" syn
 	if {[string length $syn] > 40} {
 		lassign [split $syn "."] v w

var/mongoose/cgi-bin/epg_info.jim

@@ -18,18 +18,6 @@ set record [lindex [epg fetch dump -service $service -event $event] 0]
 $record get_channel_info
 set others [$record othertimes]
 
-puts {
-	<style type=text/css>
-	font.also
-	{
-		font-size: 0.9em;
-		font-style: italic;
-		color: #333;
-		background: transparent;
-	}
-	</style>
-}
-
 puts "
 	<table class=keyval>
 	<tr>

var/mongoose/cgi-bin/pkg.jim

@@ -79,7 +79,8 @@ if {[llength $pkgs] > 0} {
 	"
 
 	foreach pkg $pkgs {
-		if {$filter && ![dict exists $::pkgmeta $pkg]} { continue }
+		if {$type ne "upgr" && $filter && \
+		    ![dict exists $::pkgmeta $pkg]} { continue }
 		pkgrow [pkg load $pkg]
 	}
 	puts "</table>"
@@ -90,7 +91,7 @@ if {[llength $pkgs] > 0} {
 	puts "<i>No packages "
 	switch $type {
 		inst { puts "are installed." }
-		upgr { puts "are available for upgrade." }
+		upgr { puts "are available for upgrade; try updating the package list from the Internet using the button above." }
 		avail { puts "are available for installation." }
 	}
 	puts "</i>"

var/mongoose/cgi-bin/restart.jim

@@ -8,6 +8,12 @@ puts "Content-Type: text/html"
 puts ""
 
 cgi_input
+
+if {[cgi_get act] eq "cancel"} {
+	file delete /tmp/.restartpending
+	exit
+}
+
 if {[cgi_get now] eq "yes"} {
 	# - Busybox reboot does sync the disk but may still not be clean enough.
 	puts "Restarting."

var/mongoose/cgi-bin/sched_info.jim

@@ -17,12 +17,23 @@ set event [rsv slot $table $slot]
 
 set rsvicon [$event icon]
 if {$rsvicon ne ""} {
-	set rsvicon "<img src='images/$rsvicon' height=20>
+	set rsvicon "<img src='images/$rsvicon' height=20>"
+	if {[$event get ersvtype] == 3} {
+		if {[$event padded]} {
+			set padding "<- [expr [$event get ulPreOffset] / 60], [expr [$event get ulPostOffset] / 60] ->"
+			append rsvicon \
+			    "<img src=/img/pad.png height=20
+			     title=\"$padding\" alt=\"$padding\">"
+		} else {
+			append rsvicon \
+			    "<img src=/img/ar.png height=20>"
+		}
+	}
 }
 
 set RKIcon [$event RKIcon]
 if {$RKIcon ne ""} {
-	set RKIcon "<img src='images/$RKIcon' height=20>
+	set RKIcon "<img src='images/$RKIcon' height=20>"
 }
 
 if {[$event get ucRecKind] == 4} {
@@ -115,7 +126,7 @@ foreach ev [split [$event get szEventToRecord] "|"] {
 }
 puts "</td></tr>"
 puts "<tr><th>Accepted</th><td>"
-if {[$event get aulEventToRecordInfo] != ""} {
+if {[$event get aulEventToRecordInfo] ne ""} {
 	puts "Yes"
 }
 puts "</td></tr>"

var/mongoose/html/css/jquery.bar.css

@@ -0,0 +1,48 @@
+.jbar{
+	height:50px;
+	width:100%;
+	background-color: #ffffcc;
+	color: #ff4000;
+	position:fixed;
+	filter:progid:DXImageTransform.Microsoft.Alpha(opacity=95); 
+	opacity: 0.95;
+	-moz-opacity: 0.95;
+	text-align:center;
+	left:0px;
+	z-index:9999999;
+	margin:0px;
+	padding:0px;
+}
+.jbar-top{
+	top:0px;
+	border-top:2px solid #fff;
+	border-bottom: 1px solid #ebebeb;
+}
+.jbar-bottom{
+	bottom:0px;
+	border-bottom:2px solid #fff;
+	border-top: 1px solid #ebebeb;
+	color:#777;
+}
+.jbar-content{
+	line-height:46px;
+	font-size: 18px;
+	font-family:'Lucida Grande',sans-serif;
+}
+a.jbar-cross{
+	position:absolute;
+	width:31px;
+	height:31px;
+	background:transparent url(/images/cross.png) no-repeat top left;	
+	cursor:pointer;
+	right:10px;
+}
+a.jbar-cross:hover{
+	background-image: url(/images/cross_hover.png)
+}
+.jbar-top a.jbar-cross{
+	top:8px;	
+}
+.jbar-bottom a.jbar-cross{
+	bottom:8px;
+}

var/mongoose/html/css/style.css

@@ -13,6 +13,19 @@ html>body
 	font-size: small;
 }
 
+.left, .cleft
+{
+	float: left;
+}
+.cleft
+{
+	clear: left;
+}
+fieldset.left, fieldset.cleft
+{
+	display: inline;
+}
+
 div.container
 {
 	position: relative;
@@ -82,6 +95,12 @@ table.borders, table.borders td, table.borders th
 	color: black;
 }
 
+.hover
+{
+	background: #f6ff5b;
+	color: black;
+}
+
 table td,table th
 {
 	font-size: small;
@@ -296,3 +315,11 @@ div.cut
 	font-size: 12px;
 }
 
+font.also
+{
+	font-size: 0.9em;
+	font-style: italic;
+	color: #333;
+	background: transparent;
+}
+

var/mongoose/html/css/tsort.css

@@ -10,6 +10,16 @@ table.tablesorter .header {
 	height: auto;
 }
 
+table.tablesorter .headerplain {
+	background-image: url(/img/tsort/bgplain.png);
+	background-repeat: no-repeat;
+	border-left: 1px solid #FFF;
+	border-right: 1px solid #000;
+	border-top: 1px solid #FFF;
+	padding-top: 8px;
+	height: auto;
+}
+
 table.tablesorter .headerSortUp {
 	background-image: url(/img/tsort/asc.png);
 	background-repeat: no-repeat;

var/mongoose/html/index.shtml

@@ -111,6 +111,12 @@ $(document).ready(function() {
 <div class=footer>
 <ul>
 <li>
+Release Notes: 
+<a target=_blank
+    href="http://wiki.hummy.tv/wiki/Customised_Firmware_Release_Notes">
+Firmware</a> |
+<a target=_blank href="http://wiki.hummy.tv/wiki/Webif_release_notes">Webif</a>
+</li><li>
 <a href=/diag.shtml>Diagnostics</a>
 </li><li>
 <a href=/cgi-bin/channel.jim>Channel Information</a>

var/mongoose/html/js/jquery.bar.js

@@ -0,0 +1,53 @@
+(function($) {
+	
+	$.fn.bar = function(options) {
+		var opts = $.extend({}, $.fn.bar.defaults, options);
+		return this.each(function() {
+			$this = $(this);
+			var o = $.meta ? $.extend({}, opts, $this.data()) : opts;
+			
+//			$this.click(function(e){
+				if(!$('.jbar').length){
+					timeout = setTimeout('$.fn.bar.removebar()',o.time);
+					var _message_span = $(document.createElement('span')).addClass('jbar-content').html(o.message);
+					_message_span.css({"color" : o.color});
+					var _wrap_bar;
+					(o.position == 'bottom') ? 
+					_wrap_bar	  = $(document.createElement('div')).addClass('jbar jbar-bottom'):
+					_wrap_bar	  = $(document.createElement('div')).addClass('jbar jbar-top') ;
+					
+					_wrap_bar.css({"background-color" 	: o.background_color});
+					if(o.removebutton){
+						var _remove_cross = $(document.createElement('a')).addClass('jbar-cross');
+						_remove_cross.click(function(e){$.fn.bar.removebar();})
+					}
+					else{				
+						_wrap_bar.css({"cursor"	: "pointer"});
+						_wrap_bar.click(function(e){$.fn.bar.removebar();})
+					}	
+					_wrap_bar.append(_message_span).append(_remove_cross).hide().insertBefore($('.content')).fadeIn('fast');
+				}
+//			})
+			
+			
+		});
+	};
+	var timeout;
+	$.fn.bar.removebar 	= function(txt) {
+		if($('.jbar').length){
+			clearTimeout(timeout);
+			$('.jbar').fadeOut('fast',function(){
+				$(this).remove();
+			});
+		}	
+	};
+	$.fn.bar.defaults = {
+		background_color 	: '#FFFFFF',
+		color 				: '#000',
+		position		 	: 'top',
+		removebutton     	: true,
+		time			 	: 5000	
+	};
+	
+})(jQuery);
+

var/mongoose/html/pkg.shtml

@@ -146,13 +146,13 @@ $(document).ready(function() {
 <div id=pkgtabs>
 <ul>
 	<li>
-		<a href=/cgi-bin/pkg.jim?type=inst>
-		<span>Installed</span>
-		</a>
-	</li><li>
 		<a href=/cgi-bin/pkg.jim?type=upgr>
 		<span>Upgrades</span>
 		</a>
+	</li><li>
+		<a href=/cgi-bin/pkg.jim?type=inst>
+		<span>Installed</span>
+		</a>
 	</li><li>
 		<a href=/cgi-bin/pkg.jim?type=avail>
 		<span>Available</span>

var/mongoose/include/logfiles.jim

@@ -4,7 +4,7 @@ source /mod/var/mongoose/lib/setup
 require pretty_size
 
 foreach file [concat \
-    [glob -nocomplain /tmp/*.log] \
+    [glob -nocomplain /var/log/*.log] \
     [glob -nocomplain /mod/tmp/*.log] \
 ] {
 	puts "<a href=# class=log file=\"$file\">

var/mongoose/include/restart.jim

@@ -25,17 +25,23 @@ if {[system busy]} {
 }
 
 puts {
+	<small><button id=restart_cancel>Hide</button></small>
 	</font>
 	</div>
 	<div style="width: 60%; height: 0.7em; margin-bottom: 2em;
 	    background: url(/img/stripes.gif) repeat-x;"></div>
 	</center>
 	<script type=text/javascript>
-	$('#restart_humaxtv').button();
-	$('#restart_humaxtv').click(function() {
+	$('#restart_humaxtv').button()
+	    .click(function() {
 		if (confirm('Are you sure you wish to perform a restart now?'))
 			window.location = '/cgi-bin/restart.jim';
 	});
+	$('#restart_cancel').button()
+	    .click(function() {
+		$.get('/cgi-bin/restart.jim?act=cancel');
+		$('#restart_block').slideUp('slow');
+	});
 	</script>
 }
 

var/mongoose/include/sched.jim

@@ -38,6 +38,8 @@ $(document).ready(function() {
 		7: { sorter: false }
 	    }
 	});
+	$('table.tablesorter thead th').filter('[class!=header]')
+	    .addClass('headerplain');
 });
 
 $(document).ready(function() {
@@ -87,6 +89,10 @@ $(document).ready(function() {
 		$dialog.dialog('open');
 	}
 	$('a.schedule').click(function(e) { schedpopup(e, $(this)) });
+
+	$('table.tablesorter tbody tr').hover(
+		function() { $(this).addClass('hover'); },
+		function() { $(this).removeClass('hover'); });
 });
 </script>
 }
@@ -133,17 +139,29 @@ proc eventrow {event {table TBL_RESERVATION}} {
 	}
 
 	if {$rsvicon ne ""} {
-		set rsvicon "<img src='/images/$rsvicon' height=20>
+		set rsvicon "<img src='/images/$rsvicon' height=20>"
+		if {[$event get ersvtype] == 3} {
+			if {[$event padded]} {
+				set padding "<- [expr [$event get ulPreOffset] / 60], [expr [$event get ulPostOffset] / 60] ->"
+				append rsvicon \
+				    "<img src=/img/pad.png height=20
+				     title=\"$padding\" alt=\"$padding\">"
+			} else {
+				append rsvicon \
+				    "<img src=/img/ar.png height=20>"
+			}
+		}
 	}
 	if {$RKIcon ne ""} {
-		set RKIcon "<img src='/images/$RKIcon' height=20>
+		set RKIcon "<img src='/images/$RKIcon' height=20>"
 	}
 
 	if {$table eq "pending"} {
-		if {[$event get action] == 0} {
-			set icon "add"
-		} else {
-			set icon "close"
+		switch [$event get action] {
+		    0 { set icon "add" }
+		    1 { set icon "close" }
+		    2 { set icon "ar" }
+		    3 { set icon "pad" }
 		}
 		puts "<td align=center>
 		    <img class=va width=30 src=/img/$icon.png></td>"
@@ -196,14 +214,13 @@ proc eventrow {event {table TBL_RESERVATION}} {
 		puts "[clock format [$event get nduration] -format %T]</td>"
 	}
 
-	puts "<td nowrap>$rsvicon $RKIcon</td>"
+	puts "<td nowrap>$rsvicon $RKIcon</td><td>"
 	if {[$event get aulEventToRecordInfo] != ""} {
-		puts "<td><img src=/img/lightning.png
+		puts "<img src=/img/lightning.png
 		    alt=\"Accepted by Humax\"
-		    title=\"Accepted by Humax\"></td>"
-	} else {
-		puts "<td>&nbsp;</td>"
+		    title=\"Accepted by Humax\">"
 	}
+	puts "</td>";
 	puts "</tr>"
 }
 

var/mongoose/lib/altrow

@@ -1,5 +1,5 @@
 
-if {[expr ! [exists -proc altrow ]]} {
+if {![exists -proc altrow]} {
 	proc altrow {} {{i 0}} {
 		if { $i == 0 } {
 			puts "<tr class=odd>"

var/mongoose/lib/cat

@@ -1,5 +1,5 @@
 
-if {[expr ! [exists -proc cat ]]} {
+if {![exists -proc cat]} {
 	proc cat {file} {
 		if {[catch {set fp [open $file r}]} { return }
 		puts [read $fp]

var/mongoose/lib/classdump

@@ -0,0 +1,9 @@
+
+if {![exists -proc classdump]} {
+	proc classdump {o} {
+		foreach var [$o vars] {
+			puts [format {%20s %s} $var [$o get $var]]
+		}
+	}
+}
+

var/mongoose/lib/clipboard.class

@@ -0,0 +1,87 @@
+
+if {![exists -proc class]} { package require oo }
+
+class clipboard {
+	path	"/tmp/webif.cb"
+	items	{}
+}
+
+class clipboarditem {
+	action	""
+	path	""
+}
+
+clipboarditem method _parse {line} {
+	lassign [split $line "|"] action path
+}
+
+proc {clipboarditem load} {line} {
+	set c [clipboarditem new]
+	$c _parse $line
+	return $c
+}
+
+clipboard method save {} {
+	set fd [open $path w]
+	foreach item $items {
+		puts $fd "[$item get action]|[$item get path]"
+	}
+	$fd close
+}
+
+clipboard method load {} {
+	set items {}
+	set changed 0
+	if {[file exists $path]} {
+		set fd [open $path r]
+		foreach line [split [$fd read] "\n"] {
+			set ci [clipboarditem load $line]
+			if {[file exists [$ci get path]]} {
+				lappend items $ci
+			} else {
+				set changed 1
+			}
+		}
+	}
+	if {$changed} { $self save }
+	return $self
+}
+
+clipboard method present {xfile} {
+	foreach item $items {
+		if {[$item get path] eq $xfile} {
+			return 1
+		}
+	}
+	return 0
+}
+
+clipboard method index {xfile} {
+	set index -1
+	foreach item $items {
+		incr index
+		if {[$item get path] eq $xfile} {
+			return $index
+		}
+	}
+	return -1
+}
+
+clipboard method clear {} {
+	set items {}
+}
+
+clipboard method size {} {
+	return [llength $items]
+}
+
+clipboard method add {xaction xpath} {
+	lappend items [clipboarditem load "$xaction|$xpath"]
+}
+
+clipboard method remove {xpath} {
+	set index [$self index $xpath]
+	if {$index < 0} { return }
+	set items [lreplace $items $index $index]
+}
+

var/mongoose/lib/epg.class

@@ -1,7 +1,7 @@
 source /mod/var/mongoose/lib/setup
 
-if {![exists -proc class ]} { package require oo }
-if {![exists -proc sqlite3.open ]} { package require sqlite3 }
+if {![exists -proc class]} { package require oo }
+if {![exists -proc sqlite3.open]} { package require sqlite3 }
 
 require settings.class progressbar rsv.class
 

var/mongoose/lib/escape

@@ -0,0 +1,8 @@
+
+if {![exists -proc escape]} {
+	proc escape {str} {
+		regsub -all -- {"} "$str" "\\\"" str
+		return $str
+	}
+}
+

var/mongoose/lib/pkg.class

@@ -1,5 +1,5 @@
 
-if {[expr ! [exists -proc class ]]} { package require oo }
+if {![exists -proc class]} { package require oo }
 
 class pkg {
 	name		""
@@ -12,8 +12,10 @@ set ::pkgmeta {}
 
 pkg method _load {nm} {
 	set name $nm
-	set info [join [split [exec /bin/opkg list $nm] "\n"] " "]
-	regexp {^([^ ]+) - ([^ ]+) - (.*)$} $info full xname latest descr
+	foreach line [split [exec /bin/opkg list $nm] "\n"] {
+		# betaftpd - 0.0.8pre17-1 - Description...
+		regexp {^[^ ]+ - ([^ ]+) - (.*)$} $line x latest descr
+	}
 	set info [exec /bin/opkg list-installed $nm]
 	regexp {^([^ ]+) - ([^ ]+)$} $info full xname installed
 

var/mongoose/lib/pretty_size

@@ -1,5 +1,5 @@
 
-if {[expr ! [exists -proc pretty_size ]]} {
+if {![exists -proc pretty_size]} {
 	proc pretty_size {size} {
 		set units {bytes KiB MiB GiB TiB}
 

var/mongoose/lib/progressbar

@@ -1,5 +1,5 @@
 
-if {[expr ! [exists -proc progressbar ]]} {
+if {![exists -proc progressbar]} {
 	proc progressbar {percent} {
 		set pos [expr 118 - $percent / 100.0 * 118]
 		return "<img src=/img/percentimage.png

var/mongoose/lib/rsv.class

@@ -1,7 +1,7 @@
 source /mod/var/mongoose/lib/setup
 
-if {![exists -proc class ]} { package require oo }
-if {![exists -proc sqlite3.open ]} { package require sqlite3 }
+if {![exists -proc class]} { package require oo }
+if {![exists -proc sqlite3.open]} { package require sqlite3 }
 require settings.class system.class
 
 set rsvdb [sqlite3.open /var/lib/humaxtv/rsv.db]
@@ -54,6 +54,17 @@ class rsv {
 	action			0
 }
 
+rsv method aul {} {
+	if {![exists -proc binary]} { package require binary }
+	set aul {}
+	for {set i 0} {$i < [string length $aulEventToRecordInfo]} {incr i 16} {
+		binary scan [string range $aulEventToRecordInfo $i $($i + 15)] \
+		    iiii service start end event_id
+		lappend aul [list $service $start $end $event_id]
+	}
+	return $aul
+}
+
 rsv method clear_ulslot {} {
 	set ulslot -1
 }
@@ -125,6 +136,16 @@ rsv method set_delete {} {
 	set action 1
 }
 
+rsv method set_unpad {} {
+	set action 2
+}
+
+rsv method set_pad {{pre 60} {post 60}} {
+	set action 3
+	set ulPreOffset $pre
+	set ulPostOffset $post
+}
+
 rsv method remove_pending {} {
 	$::rsvdb query "delete from pending where ulslot = $ulslot"
 }
@@ -338,6 +359,11 @@ proc {rsv construct} {event type} {
 
 	set ccrid [$event get channel_crid]
 
+	# Fallback from series to event if there is no series CRID.
+	if {$type == 2 && [$event get series_crid] eq ""} {
+		set type 1
+	}
+
 	if {$type == 1} {
 		# Event
 		set args(ucCRIDType)		49

var/mongoose/lib/settings.class

@@ -1,6 +1,6 @@
 
-if {![exists -proc class ]} { package require oo }
-if {![exists -proc sqlite3.open ]} { package require sqlite3 }
+if {![exists -proc class]} { package require oo }
+if {![exists -proc sqlite3.open]} { package require sqlite3 }
 
 if {![file exists /mod/etc/webif.db]} {
 	set settingsdb [sqlite3.open /mod/etc/webif.db]

var/mongoose/lib/system.class

@@ -1,6 +1,6 @@
 
-if {![exists -proc class ]} { package require oo }
-if {![exists -proc sqlite3.open ]} { package require sqlite3 }
+if {![exists -proc class]} { package require oo }
+if {![exists -proc sqlite3.open]} { package require sqlite3 }
 
 class system {}
 
@@ -50,6 +50,16 @@ proc {system mediaroot} {} {
 	return ""
 }
 
+proc {system dustbin} {{short 0}} {
+	set dustbin "\[Deleted Items\]"
+	if {![catch {set fd [open "/mod/boot/dustbin.name" r]}]} {
+		set dustbin [lindex [split [read $fd] "\n"] 0]
+		$fd close
+	}
+	if {$short} { return $dustbin }
+	return "[system mediaroot]/$dustbin"
+}
+
 proc {system diskspace} {} {
 	switch [system model] {
 		HDR { set part /mnt/hd2 }
@@ -116,3 +126,7 @@ proc {system padding} {} {
 	return [list $start $stop]
 }
 
+proc {system mkdir_p} {dir} {
+	exec /mod/bin/busybox/mkdir -p $dir
+}
+

var/mongoose/lib/tdelete

@@ -0,0 +1,19 @@
+
+if {![exists -proc tdelete]} {
+	proc tdelete {path} {
+		if {[file isdirectory $path]} {
+			regsub -all {([\\["$])} $path {\\\1} cpath
+			foreach file [glob -nocomplain "${cpath}/*"] {
+				if {[file isdirectory $file]} {
+					tdelete $file
+				} else {
+					exec /mod/bin/trm $file
+				}
+			}
+			exec /mod/bin/busybox/rm -rf $path
+		} else {
+			exec /mod/bin/trm $path
+		}
+	}
+}
+

var/mongoose/lib/ts.class

@@ -1,5 +1,7 @@
 
-if {![exists -proc class ]} { package require oo }
+if {![exists -proc class]} { package require oo }
+source /mod/var/mongoose/lib/setup
+require tdelete
 
 set dmsfile /mnt/hd2/dms_cds.db
 
@@ -17,6 +19,8 @@ class ts {
 	error		""
 	guidance	""
 	bookmarks	0
+	schedstart	0
+	scheddur	0
 }
 
 ts method duration {{raw 0}} {
@@ -35,7 +39,7 @@ ts method _parse {line} {
 
 	lassign [split $line "\t"] \
 	    title synopsis definition channel_num channel_name \
-	    start end flags_list guidance bookmarks
+	    start end flags_list guidance bookmarks schedstart scheddur
 
 	set flags [split [string range $flags_list 0 end-1] ,]
 }
@@ -116,10 +120,36 @@ proc {ts fetch} {file {checked 0}} {
 }
 
 ts method delete {} {
-	# Extract file basename
-	foreach f [glob -nocomplain "[file rootname $file].*"] {
+	set root [file rootname $file]
+	# Protect special characters in root.
+	# In particular [] characters which are used a lot
+	# for torrent names.
+	regsub -all {([\\["$])} $root {\\\1} root
+	foreach f [glob -nocomplain "${root}.*"] {
+		tdelete $f
 		puts "Removed $f<br>"
-		file delete $f
+	}
+	return 1
+}
+
+ts method move {dst {touch 0}} {
+	set root [file rootname $file]
+	regsub -all {([\\["$])} $root {\\\1} root
+	foreach f [glob -nocomplain "${root}.*"] {
+		set nf "$dst/[file tail $f]"
+		file rename $f $nf
+		if {$touch} {
+			exec /mod/bin/busybox/touch $nf
+		}
+	}
+	return 1
+}
+
+ts method copy {dst} {
+	set root [file rootname $file]
+	regsub -all {([\\["$])} $root {\\\1} root
+	foreach f [glob -nocomplain "${root}.*"] {
+		file copy $f "$dst/[file tail $f]"
 	}
 	return 1
 }