add tbstatus

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

CONTROL/control

@@ -1,9 +1,9 @@
 Package: webif
 Priority: optional
 Section: web
-Version: 0.9.2
+Version: 0.9.8-3
 Architecture: mipsel
 Maintainer: af123@hummypkg.org.uk
-Depends: mongoose(>=3.0-7),jim(>=0.73-1),jim-oo,jim-sqlite3(>=0.73),jim-cgi(>=0.5),service-control,busybox(>=1.19.3-1),lsof,epg(>=1.0.8),hmt(>=1.1.4),ssmtp,anacron,trm,openssl-command,nicesplice,id3v2
+Depends: webif-channelicons(>=1.0.1),mongoose(>=3.0-7),jim(>=0.73-1),jim-oo,jim-sqlite3(>=0.73),jim-cgi(>=0.5),service-control(>=1.2),busybox(>=1.19.3-1),lsof,epg(>=1.0.9),hmt(>=1.1.6),ssmtp,anacron,trm,openssl-command,nicesplice,id3v2,file,rsvsync(>=1.0.2),webif-charts(>=1.1)
 Suggests: ffmpeg,webif-iphone
 Description: An evolving web interface for the Humax.

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

@@ -19,7 +19,7 @@ set file [file tail [cgi_get file \
 
 if {[string match {auto-*} $file]} {
 	# Delete any automatic backups over 7 days old.
-	set mt $(7 * 86400)
+	set mt $(15 * 86400)
 	foreach af [glob -nocomplain "$dir/auto-*"] {
 		set aft [file mtime $af]
 		set diff $($now - $aft)

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

@@ -53,6 +53,9 @@ foreach line $data {
 		lappend vars $f [lindex $vals $i]
 	}
 
+	# Don't restore DSO events.
+	if {$vars(ersvtype) == 11} { continue }
+
 	set rsv [rsv new $vars]
 
 	# Need to fix up channel and CRID mappings in case something has
@@ -89,6 +92,14 @@ puts "Restoring favourite channels..."
 $rsvdb query {begin transaction;}
 $rsvdb query {delete from channel.TBL_FAV}
 
+$rsvdb query {drop table if exists pending.fav}
+$rsvdb query {create table pending.fav (
+		favIdx integer primary key autoincrement unique,
+		hSvc integer(4),
+		eFavGroup integer(4),
+		[eSvcType] integer(4)
+	)}
+
 set grp 0
 foreach line $data {
 	set vals [split $line "\t"]
@@ -112,7 +123,7 @@ foreach line $data {
 	}
 
 	set query "
-		insert into channel.TBL_FAV(hSvc, eFavGroup, eSvcType)
+		insert into pending.fav(hSvc, eFavGroup, eSvcType)
 		values($hsvc, $group, $type);
 	"
 

var/mongoose/cgi-bin/browse.jim

@@ -214,9 +214,10 @@ header
 
 puts { 
 	<link href=/css/jquery.contextMenu.css rel=stylesheet type=text/css />
-	<script type="text/javascript" src="/js/jquery.contextMenu.js"></script>
+	<script type=text/javascript src=/js/jquery.contextMenu.js></script>
 	<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=/js/jquery.bar.js></script>
+	<script type=text/javascript src=/js/enadis.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 />
 }

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

@@ -17,7 +17,10 @@ if {$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> }
+	puts {
+		<li><a href=#audio>Extract Audio</a></li>
+		<li><a href=#mpg>Extract to MPG</a></li>
+	}
 }
 if $nicesplice {
 	puts {
@@ -27,7 +30,6 @@ if $nicesplice {
 }
 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>
 
@@ -36,6 +38,7 @@ puts {
 	<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 class=separator><a href=#resetnew>Reset new flag</a></li>
 }
 
 if $flatten {

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

@@ -1,23 +1,3 @@
-(function($)
-{
-	$.fn.enable = function()
-	{
-		return this.each(function() {
-			$(this)
-			    .removeClass('ui-state-disabled')
-			    .removeProp('disabled');
-		});
-	};
-
-	$.fn.disable = function()
-	{
-		return this.each(function() {
-			$(this)
-			    .addClass('ui-state-disabled')
-			    .prop('disabled', true);
-		});
-	};
-})(jQuery);
 
 var dir;
 
@@ -222,16 +202,16 @@ function preparemenu(el, menu)
 {
 	if (el.attr('type') == 'ts')
 	{
-		if (el.attr('def') == 'HD')
-		{
-			$(menu).enableContextMenuItems('#enc');
-			if (el.attr('encd') == 1)
-				$(menu).changeContextMenuItem('#enc',
-				    'Remove Enc');
-			else
-				$(menu).changeContextMenuItem('#enc',
-				    'Set Enc');
-		}
+//		if (el.attr('def') == 'HD')
+//		{
+//			$(menu).enableContextMenuItems('#enc');
+//			if (el.attr('encd') == 1)
+//				$(menu).changeContextMenuItem('#enc',
+//				    'Remove Enc');
+//			else
+//				$(menu).changeContextMenuItem('#enc',
+//				    'Set Enc');
+//		}
 
 		if (el.attr('bx') > 0)
 			$(menu).enableContextMenuItems('#crop');
@@ -268,18 +248,25 @@ function preparemenu(el, menu)
 			$(menu).disableContextMenuItems('#decrypt');
 
 		if (el.attr('odencd') == 1)
+		{
 			$(menu).disableContextMenuItems('#audio');
+			$(menu).disableContextMenuItems('#mpg');
+		}
 		else
+		{
 			$(menu).enableContextMenuItems('#audio');
+			$(menu).enableContextMenuItems('#mpg');
+		}
 	}
 	else
 	{
 		$(menu).enableContextMenuItems('#delete');
 		$(menu).disableContextMenuItems('#lock');
-		$(menu).disableContextMenuItems('#enc');
+		//$(menu).disableContextMenuItems('#enc');
 		$(menu).disableContextMenuItems('#new');
 		$(menu).disableContextMenuItems('#decrypt');
 		$(menu).disableContextMenuItems('#audio');
+		$(menu).disableContextMenuItems('#mpg');
 		$(menu).disableContextMenuItems('#crop');
 		$(menu).disableContextMenuItems('#chunk');
 	}
@@ -332,10 +319,10 @@ var menuclick = function(action, el, pos)
 		    file, type, id);
 		break;
 
-	    case 'enc':
-		confirm_action('change the ENC flag on', enc_callback,
-		    file, type, id);
-		break;
+//	    case 'enc':
+//		confirm_action('change the ENC flag on', enc_callback,
+//		    file, type, id);
+//		break;
 
 	    case 'new':
 		confirm_action('change the New flag on', new_callback,
@@ -385,6 +372,11 @@ var menuclick = function(action, el, pos)
 		    file;
 		break;
 
+	    case 'mpg':
+		window.location.href = '/cgi-bin/browse/mpg/mpg.jim?file=' +
+		    file;
+		break;
+
 	    default:
 		alert('Unhandled action: ' + action);
 		break;
@@ -440,7 +432,12 @@ var dmenuclick = function(action, el, pos)
 		break;
 
 	    case 'flat':
-		var url = '/cgi-bin/browse/flat.jim?file=' + file;
+		var url = '/cgi-bin/browse/flat.jim?dir=' + file;
+		$.get(url, function() { window.location.reload(true); });
+		break;
+
+	    case 'resetnew':
+		var url = '/cgi-bin/browse/resetnew.jim?dir=' + file;
 		$.get(url, function() { window.location.reload(true); });
 		break;
 
@@ -590,7 +587,7 @@ var dmenuclick = function(action, el, pos)
 	// Buttons
 
 	$('#dedup').button().click(function() {
-		window.location = '/cgi-bin/dedup.jim?dir='
+		window.location = '/dedup/dedup.jim?dir='
 		    + encodeURIComponent(dir);
 	});
 

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

@@ -40,6 +40,14 @@ if {$url eq ""} {
 	exit
 }
 
+if {![system is_listening 9000]} {
+	puts "The Humax media server is not running, cannot decrypt."
+	puts "Have you enabled <i>Content Sharing</i> in the Humax menus?"
+	puts "It can sometimes turn itself off so it's worth double checking."
+	puts "If it is on then try turning sharing off and on again."
+	exit
+}
+
 puts "
 
 <span class=hidden id=params

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

@@ -16,6 +16,12 @@ set dir [file dirname $rfile]
 set len [$ts duration 1]
 lassign [$ts dlnaloc] url
 
+if {$url eq ""} {
+	puts "This file has not been indexed by the media server.
+	    Cannot decrypt."
+	exit
+}
+
 set xstart [clock milliseconds]
 
 set base [file rootname $rfile]
@@ -25,6 +31,11 @@ if {![file exists $origdir]} { file mkdir $origdir }
 set shname [file tail $base]
 puts "Processing $shname"
 
+if {[file exists "$origdir/$shname.ts"]} {
+	puts "The file already exists in _original, cannot decrypt."
+	exit
+}
+
 exec wget -O "$rfile.decrypting" $url
 
 puts "Moving recording to $origdir"

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

@@ -56,7 +56,9 @@ foreach file [cgi_get files] {
 		puts -nonewline "Directory..."
 		if {$ldustbin ne ""} {
 			set ndir "[bindir $file]/[file tail $file]"
-			while {[file isdirectory $ndir]} { append ndir "_" }
+			while {[file isdirectory $ndir]} {
+				append ndir "_"
+			}
 			file rename $file $ndir
 			touch $ndir
 		} else {
@@ -70,7 +72,7 @@ foreach file [cgi_get files] {
 		# Check TS validity
 		if {![catch {$ts get file}]} {
 			if {$ldustbin ne ""} {
-				$ts move [bindir $file] 1
+				$ts move [bindir $file] 1 1
 			} else {
 				if {[$ts delete]} {
 					puts "Successfully deleted $file."

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

@@ -9,7 +9,7 @@ puts ""
 cgi_input
 #cgi_dump
 
-set dir [cgi_get file]
+set dir [cgi_get dir]
 if {![file isdirectory $dir]} { exit }
 set noflat 0
 if {[string match {\[*\]} [file tail $dir]]} { 

var/mongoose/cgi-bin/browse/mpg/execute.jim

@@ -0,0 +1,31 @@
+#!/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]
+
+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 \
+    -map 0:0 -map 0:1 \
+    -vcodec copy -acodec copy "${base}.mpg"]
+
+set xtime [expr [expr [clock milliseconds] - $xstart] / 1000.0]
+puts "Time taken: $xtime"
+

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

@@ -0,0 +1,52 @@
+#!/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]
+
+header
+
+puts "
+<link href=/css/jquery.progressbar.css rel=stylesheet type=text/css />
+<script type=text/javascript src=/js/jquery.progressbar.js></script>
+<script type=text/javascript src=mpg.js></script>
+
+<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>
+
+<div id=progressdiv class=hidden>
+Extracting mpg: <div id=progressbar></div>
+</div>
+
+<button id=back class=hidden>Back to media list</button>
+
+<div id=output class=pre style=\"margin-top: 10px\"></div>
+</fieldset>
+
+"
+

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

@@ -0,0 +1,35 @@
+
+var handle = 0;
+
+function update()
+{
+	$.get('progress.jim?file=' + $('#params').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=' + $('#params').attr('dir');
+});
+
+$('#mpgit').button().click(function() {
+	$('#mpgdiv').hide('slow');
+	$('#progressdiv').show('slow');
+	handle = setInterval("update()", 1000);
+	$('#output').load('execute.jim?file=' + $('#params').attr('rfile'),
+	    function() {
+		clearInterval(handle);
+		handle = 0;
+		$('#back').show();
+		$('#progressbar').reportprogress(100);
+	});
+});
+
+});
+

var/mongoose/cgi-bin/browse/mpg/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}.mpg"]} {
+	puts "0"
+} else {
+	set sz [file size $rfile]
+	set nsz [expr [file size "${bfile}.mpg"] / 0.75]
+
+	set perc [expr $nsz * 100 / $sz]
+	if {$perc > 100} { set perc 100 }
+	puts $perc
+}
+

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

@@ -1,7 +1,8 @@
 #!/mod/bin/jimsh
 
 package require cgi
-source /mod/var/mongoose/lib/ts.class
+source /mod/var/mongoose/lib/setup
+require ts.class
 
 puts "Content-Type: text/html"
 puts ""

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

@@ -0,0 +1,49 @@
+#!/mod/bin/jimsh
+
+package require cgi
+package require pack
+source /mod/var/mongoose/lib/setup
+require ts.class hexdump
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+set dir [cgi_get dir]
+if {![file isdirectory $dir]} { exit }
+if {![file exists "$dir/.series"]} { exit }
+
+set tot 0
+set watched 0
+foreach file [readdir -nocomplain $dir] {
+	if {![string match {*.ts} $file]} { continue }
+	#puts "FILE: $file"
+	incr tot
+	if {[set ts [ts fetch "$dir/$file"]] != 0} {
+		if {![$ts flag "New"]} { incr watched }
+	}
+}
+
+set fd [open "$dir/.series"]
+set bytes [read $fd]
+close $fd
+set recs [unpack $bytes -uintle 0 32]
+set played [unpack $bytes -uintle 32 32]
+
+puts "Current: $played/$recs"
+
+#hexdump $bytes
+
+puts "Calculated: $watched/$tot"
+
+pack bytes $tot -intle 32 0 
+pack bytes $watched -intle 32 32
+
+#hexdump $bytes
+
+set fd [open "$dir/.series" "w"]
+puts -nonewline $fd $bytes
+close $fd
+

var/mongoose/cgi-bin/cfwreset

@@ -1,7 +0,0 @@
-#!/bin/sh
-
-echo "Content-Type: text/plain"
-echo
-
-/bin/rm -rf /mod/*
-

var/mongoose/cgi-bin/cfwreset.cgi

@@ -0,0 +1,7 @@
+#!/bin/sh
+
+echo "Content-Type: text/plain"
+echo
+
+touch /var/lib/humaxtv/mod/_RESET_CUSTOM_FIRMWARE_ENVIRONMENT
+

var/mongoose/cgi-bin/env.jim

@@ -0,0 +1,8 @@
+#!/mod/bin/jimsh
+
+puts "Content-type: text/plain\n"
+
+foreach f [dict keys $env] {
+	puts "$f = $env($f)"
+}
+

var/mongoose/cgi-bin/restart.jim

@@ -49,7 +49,7 @@ puts {
 
 	$(document).ready(function() {
 		$('#progressbar').reportprogress(0);
-		handle = setInterval("update()", 300);
+		handle = setInterval("update()", 350);
 		$.get('/cgi-bin/restart.jim?now=yes');
 	});
 </script>

var/mongoose/cgi-bin/settings.jim

@@ -335,24 +335,5 @@ puts ">
 
 eval_plugins settings
 
-puts {
-<br><br>
-<fieldset style="display: inline">
-<legend> Reset Custom Firmware </legend>
-<button id=cfwreset>
-Click to remove all packages and settings installed by the custom firmware.
-</button>
-</fieldset>
-<script type=text/javascript>
-$('#cfwreset').jConfirmAction({
-	yesAnswer: "Delete"
-}, function(el) {
-	$('html').html('Restart the Humax using the remote control.');
-	$.get('/cgi-bin/cfwreset');
-});
-</script>
-
-}
-
 footer
 

var/mongoose/cgi-bin/status.jim

@@ -1,49 +1,113 @@
 #!/mod/bin/jimsh
 
+source /mod/var/mongoose/lib/setup
+require system.class findhsvc epg.class
+
 puts "Content-Type: text/html"
+puts "Pragma: no-cache"
+puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
 puts ""
 
-if {[catch {set pid [exec pgrep humaxtv]}]} { exit }
-
-if {[catch {set data [exec lsof -p $pid | grep Video | fgrep .ts]} ]} {
-        exit
+if {[catch {set pid [exec pgrep humaxtv]}]} {
+	puts "Cannot find humaxtv process."
+	exit
 }
 
-set lines [split $data "\n"]
-foreach line $lines {
-	regsub -all -- {[[:space:]]+} $line " " line
-	set fields [split $line " "]
-	set name [lindex [split $line "/"] end]
-	set size($name) [lindex $fields 6]
-	set seen($name) 0
-}
+proc get_data {} {
+	global pid
 
-sleep 2
-
-set data [exec lsof -p $pid | grep Video | fgrep .ts]
-regsub -all -- {[[:space:]]+} $line " " line
-set lines [split $data "\n"]
-foreach line $lines {
-	regsub -all -- {[[:space:]]+} $line " " line
-	set fields [split $line " "]
-	set name [lindex [split $line "/"] end]
-	set size2 [lindex $fields 6]
-
-	if { $size2 > $size($name) && $seen($name) < 1 } {
-		set mode "Recording"
-		set icon "745_1_11_Video_1REC.png"
+	set ret {}
+	if {[catch {set data \
+	    [exec /mod/bin/lsof -p $pid | grep Video | fgrep .ts]} ]} {
+		set ret {}
 	} else {
-		set mode "Watching"
-		set icon "745_1_10_Video_2Live.png"
+		foreach line [split $data "\n"] {
+			regsub -all -- {[[:space:]]+} $line " " line
+			set name [file rootname [file tail $line]]
+			if {[dict exists $ret $name]} {
+				set ret($name) -1
+			} else {
+				set size [lindex [split $line " "] 6]
+				set ret($name) $size
+			}
+		}
 	}
+	return $ret
+}
 
-	incr seen($name)
+set play 0
+set rec 0
+set seen {}
+set output {}
 
-	lappend output "<img class=va src=/images/$icon><span class=va>
-	    $mode&nbsp;$name</span><br>"
+set data [get_data]
+if {[llength $data]} {
+	sleep 2
+	set ndata [get_data]
+	foreach name [array names ndata] {
+		if {![dict exists $seen $name]} { set seen($name) 0 }
+		if {![dict exists $data $name]} { set data($name) 0 }
+		if {$ndata($name) == -1} {
+			incr rec
+			incr play
+			set mode "Chase Playing"
+			set icon "745_1_11_Video_3REC_Live.png"
+		} elseif {$ndata($name) > $data($name) && $seen($name) < 1} {
+			incr rec
+			set mode "Recording"
+			set icon "745_1_11_Video_1REC.png"
+		} else {
+			incr play
+			set mode "Playing"
+			set icon "745_1_10_Video_2Live.png"
+		}
+
+		incr seen($name)
+
+		lappend output "<img class=va src=/images/$icon><span class=va>
+		    $mode&nbsp;<i>$name</i></span>"
+	}
+}
+
+if {![system instandby] && $play < 1} {
+	set hsvc [system param CUR_SVC Value USERCONFIG]
+
+	set ff [$rsvdb query "
+		select usSvcid as svcid, usLcn as lcn,
+		substr(szSvcName, 2) as name
+		from channel.TBL_SVC
+		where hSvc = $hsvc
+		limit 1
+	"]
+
+	if {[llength $ff] == 1} {
+		lassign [lindex $ff 0] x svcid x lcn x name
+		set epgs [epg dbfetch get \
+		    -service $svcid \
+		    -time [clock seconds]\
+		]
+		set prog ""
+		if {[llength $epgs] == 1} {
+			lassign $epgs epg
+			set prog "- [$epg get name] ("
+			append prog "[clock format [$epg get start] -format %H:%M] - "
+			append prog "[clock format $([$epg get start] + [$epg get duration]) -format %H:%M]"
+			append prog ") \[[$epg percent]%\]"
+		}
+			
+		lappend output "[epg channelicon $name 30 \
+		    {vertical-align: middle; padding: 0 4px 0 2px}]
+		    <span class=va> Watching <i>$lcn: $name $prog</i></span>"
+	}
+}
+
+if {[system instandby]} {
+	lappend output "<img class=va width=28 style=\"padding: 0 4px\"
+	    src=/img/standby.png>
+	    <span class=va>System is in standby.</span>"
 }
 
 if {[llength $output]} {
-	puts [join $output " "]
+	puts [join $output "<br>"]
 }
 

var/mongoose/cgi-bin/transmission.jim

@@ -1,13 +0,0 @@
-#!/mod/bin/jimsh
-
-set url "http://$env(HTTP_HOST):9091/"
-
-puts "Content-Type: text/html
-Location: $url
-
-<meta http-equiv=refresh content=\"0; url=$url\">
-
-Transmission is available <a href=$url>here</a>
-
-"
-

var/mongoose/html/css/jqueryFileTree.css

@@ -0,0 +1,91 @@
+UL.jqueryFileTree {
+	font-family: Verdana, sans-serif;
+	font-size: 11px;
+	line-height: 18px;
+	padding: 0px;
+	margin: 0px;
+}
+
+UL.jqueryFileTree LI {
+	list-style: none;
+	padding: 0px;
+	padding-left: 20px;
+	margin: 0px;
+	white-space: nowrap;
+}
+
+UL.jqueryFileTree A {
+	color: #333;
+	text-decoration: none;
+	display: block;
+	padding: 0px 2px;
+}
+
+UL.jqueryFileTree A:hover {
+	background: #BDF;
+}
+
+/* Core Styles */
+.jqueryFileTree LI.directory { background: url(/img/filetree/directory.png) left top no-repeat; }
+.jqueryFileTree LI.expanded { background: url(/img/filetree/folder_open.png) left top no-repeat; }
+.jqueryFileTree LI.file { background: url(/img/filetree/file.png) left top no-repeat; }
+.jqueryFileTree LI.wait { background: url(/img/filetree/spinner.gif) left top no-repeat; }
+/* File Extensions*/
+.jqueryFileTree LI.ext_3gp { background: url(/img/filetree/film.png) left top no-repeat; }
+.jqueryFileTree LI.ext_afp { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_afpa { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_asp { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_aspx { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_avi { background: url(/img/filetree/film.png) left top no-repeat; }
+.jqueryFileTree LI.ext_bat { background: url(/img/filetree/application.png) left top no-repeat; }
+.jqueryFileTree LI.ext_bmp { background: url(/img/filetree/picture.png) left top no-repeat; }
+.jqueryFileTree LI.ext_c { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_cfm { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_cgi { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_com { background: url(/img/filetree/application.png) left top no-repeat; }
+.jqueryFileTree LI.ext_cpp { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_css { background: url(/img/filetree/css.png) left top no-repeat; }
+.jqueryFileTree LI.ext_doc { background: url(/img/filetree/doc.png) left top no-repeat; }
+.jqueryFileTree LI.ext_exe { background: url(/img/filetree/application.png) left top no-repeat; }
+.jqueryFileTree LI.ext_gif { background: url(/img/filetree/picture.png) left top no-repeat; }
+.jqueryFileTree LI.ext_fla { background: url(/img/filetree/flash.png) left top no-repeat; }
+.jqueryFileTree LI.ext_h { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_htm { background: url(/img/filetree/html.png) left top no-repeat; }
+.jqueryFileTree LI.ext_html { background: url(/img/filetree/html.png) left top no-repeat; }
+.jqueryFileTree LI.ext_jar { background: url(/img/filetree/java.png) left top no-repeat; }
+.jqueryFileTree LI.ext_jpg { background: url(/img/filetree/picture.png) left top no-repeat; }
+.jqueryFileTree LI.ext_jpeg { background: url(/img/filetree/picture.png) left top no-repeat; }
+.jqueryFileTree LI.ext_js { background: url(/img/filetree/script.png) left top no-repeat; }
+.jqueryFileTree LI.ext_lasso { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_log { background: url(/img/filetree/txt.png) left top no-repeat; }
+.jqueryFileTree LI.ext_m4p { background: url(/img/filetree/music.png) left top no-repeat; }
+.jqueryFileTree LI.ext_mov { background: url(/img/filetree/film.png) left top no-repeat; }
+.jqueryFileTree LI.ext_mp3 { background: url(/img/filetree/music.png) left top no-repeat; }
+.jqueryFileTree LI.ext_mp4 { background: url(/img/filetree/film.png) left top no-repeat; }
+.jqueryFileTree LI.ext_mpg { background: url(/img/filetree/film.png) left top no-repeat; }
+.jqueryFileTree LI.ext_mpeg { background: url(/img/filetree/film.png) left top no-repeat; }
+.jqueryFileTree LI.ext_ogg { background: url(/img/filetree/music.png) left top no-repeat; }
+.jqueryFileTree LI.ext_pcx { background: url(/img/filetree/picture.png) left top no-repeat; }
+.jqueryFileTree LI.ext_pdf { background: url(/img/filetree/pdf.png) left top no-repeat; }
+.jqueryFileTree LI.ext_php { background: url(/img/filetree/php.png) left top no-repeat; }
+.jqueryFileTree LI.ext_png { background: url(/img/filetree/picture.png) left top no-repeat; }
+.jqueryFileTree LI.ext_ppt { background: url(/img/filetree/ppt.png) left top no-repeat; }
+.jqueryFileTree LI.ext_psd { background: url(/img/filetree/psd.png) left top no-repeat; }
+.jqueryFileTree LI.ext_pl { background: url(/img/filetree/script.png) left top no-repeat; }
+.jqueryFileTree LI.ext_py { background: url(/img/filetree/script.png) left top no-repeat; }
+.jqueryFileTree LI.ext_rb { background: url(/img/filetree/ruby.png) left top no-repeat; }
+.jqueryFileTree LI.ext_rbx { background: url(/img/filetree/ruby.png) left top no-repeat; }
+.jqueryFileTree LI.ext_rhtml { background: url(/img/filetree/ruby.png) left top no-repeat; }
+.jqueryFileTree LI.ext_rpm { background: url(/img/filetree/linux.png) left top no-repeat; }
+.jqueryFileTree LI.ext_ruby { background: url(/img/filetree/ruby.png) left top no-repeat; }
+.jqueryFileTree LI.ext_sql { background: url(/img/filetree/db.png) left top no-repeat; }
+.jqueryFileTree LI.ext_swf { background: url(/img/filetree/flash.png) left top no-repeat; }
+.jqueryFileTree LI.ext_tif { background: url(/img/filetree/picture.png) left top no-repeat; }
+.jqueryFileTree LI.ext_tiff { background: url(/img/filetree/picture.png) left top no-repeat; }
+.jqueryFileTree LI.ext_txt { background: url(/img/filetree/txt.png) left top no-repeat; }
+.jqueryFileTree LI.ext_vb { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_wav { background: url(/img/filetree/music.png) left top no-repeat; }
+.jqueryFileTree LI.ext_wmv { background: url(/img/filetree/film.png) left top no-repeat; }
+.jqueryFileTree LI.ext_xls { background: url(/img/filetree/xls.png) left top no-repeat; }
+.jqueryFileTree LI.ext_xml { background: url(/img/filetree/code.png) left top no-repeat; }
+.jqueryFileTree LI.ext_zip { background: url(/img/filetree/zip.png) left top no-repeat; }

var/mongoose/html/css/style.css

@@ -326,3 +326,50 @@ div.cut
 	background: transparent;
 }
 
+div.toolbarouter
+{
+	position: relative;
+}
+
+div.toolbar
+{
+	position: absolute;
+	top: -20px;
+	left: 30px;
+	z-index: 29;
+	display: none;
+	width: 80%;
+	border: 1px solid #899caa;
+	box-shadow: 2px 2px 11px #666;
+	-moz-box-shadow: 2px 2px 11px #666;
+	-webkit-box-shadow: 2px 2px 11px #666;
+	border-radius: 5px;
+	-moz-border-radius: 5px;
+	margin-top: -1px;
+	background: #d2e0ea;
+	padding: 6px;
+}
+
+span.toolbarcell
+{
+	float: left;
+	border-right: 1px solid #ccc;
+	text-align: center;
+	padding: 0 1em;
+}
+
+.tbhover
+{
+	background: #dfe8ef;
+	border-top: solid 1px #ccc;
+	border-left: solid 1px #ccc;
+}
+
+#tbstatus
+{
+	width: 100%;
+	border-top: 1px solid #ccc;
+	margin: 1em 0;
+	padding-top: 1em;
+}
+

var/mongoose/html/dedup/dedup

@@ -0,0 +1,77 @@
+#!/mod/bin/jimsh
+
+source /mod/var/mongoose/lib/setup
+require ts.class
+
+source /mod/var/mongoose/html/dedup/normalise.jim
+source /mod/var/mongoose/html/dedup/process.jim
+
+set dirs {}
+
+set doit 0
+foreach arg $argv {
+	if {$arg eq "-yes"} {
+		set doit 1
+	} else {
+		lappend dirs $arg
+	}
+}
+if {![llength $dirs]} { lappend dirs [exec pwd] }
+
+foreach dir $dirs {
+	if {[string index $dir end] eq "/"} {
+		set dir [string range $dir 0 end-1]
+	}
+	puts "\[$dir\]"
+
+	foreach file [readdir $dir] {
+		if {[file extension $file] ne ".hmt"} { continue }
+
+		set file "$dir/$file"
+
+		set base [file tail [file rootname $file]]
+		lassign [dedupprocess $file] stat ts syn fn
+
+		puts -nonewline "$base -> "
+
+		switch $stat {
+		    inuse {
+			puts -nonewline "In Use"
+		    }
+		    dup {
+			puts -nonewline "Duplicate"
+			if {$doit} {
+				set dupdir "$dir/_duplicates"
+				if {![file exists $dupdir]} {
+					file mkdir $dupdir
+				}
+				while {[file exists $dupdir/$fn.hmt]} {
+					append fn "~"
+				}
+				ts renamegroup $file "_duplicates/$fn"
+				puts -nonewline " - Renamed to _duplicates/$fn"
+			}
+		    }
+		    error {
+			puts -nonewline "Cannot process"
+		    }
+		    nothing {
+			puts -nonewline "Nothing to do"
+		    }
+		    preserve {
+			puts -nonewline "Preserving"
+		    }
+		    ok {
+			puts -nonewline $fn
+			if {$doit} {
+				# Dooooo, it.
+				$ts settitle $syn
+				ts renamegroup $file $fn
+				puts -nonewline "Done"
+			}
+		    }
+		}
+		puts ""
+	}
+}
+

var/mongoose/html/dedup/dedup.jim

@@ -4,6 +4,9 @@ package require cgi
 source /mod/var/mongoose/lib/setup
 require ts.class pretty_size altrow
 
+source normalise.jim
+source process.jim
+
 puts "Content-Type: text/html"
 puts ""
 
@@ -15,6 +18,8 @@ set doit [cgi_get doit 0]
 
 header
 
+puts "<script type=text/javascript src=script.js></script>"
+
 puts "<fieldset style=\"display: inline\">
 <legend>De-duplicate <span id=dir>$dir</span></legend>
 <table class=borders>
@@ -31,33 +36,20 @@ set seen {}
 foreach file [readdir $dir] {
 	set file "$dir/$file"
 	if {[file extension $file] ne ".hmt"} { continue }
-	altrow
-	set ts [ts fetch $file 1]
+
 	set base [file tail [file rootname $file]]
+	lassign [dedupprocess $file] stat ts syn fn
+
+	altrow
 	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
-		set syn $v
-		if {[string length $syn] < 6 && [string length $w] < 6} {
-			append syn "_$w"
-		}
-	}
-	if {[string length $syn] < 10} {
-		if {[string match "${syn}*" [$ts get title]]} {
-			set syn [$ts get title]
-		} else {
-			append syn " [$ts get title]"
-		}
-	}
-	regsub -all -- {[\/ &]} $syn "_" fn
 	puts "<td>$fn</td>"
 	puts "<td>$syn</td>"
 	puts "<td>"
-	if {$fn in $seen} {
+	switch $stat {
+	    inuse {
+		puts -nonewline "In Use"
+	    }
+	    dup {
 		puts -nonewline "Duplicate"
 		if {$doit} {
 			set dupdir "$dir/_duplicates"
@@ -68,19 +60,25 @@ foreach file [readdir $dir] {
 			ts renamegroup $file "_duplicates/$fn"
 			puts -nonewline " - Renamed to _duplicates/$fn"
 		}
-	} elseif {[string length $syn] > 40} {
+	    }
+	    error {
 		puts -nonewline "Cannot process"
-	} elseif {$base eq $fn} {
+	    }
+	    nothing {
 		puts -nonewline "Nothing to do"
-	} elseif {[file exists "$dir/$fn.ts"]} {
+	    }
+	    preserve {
 		puts -nonewline "Preserving"
-	} elseif {$doit} {
-		# Dooooo, it.
-		$ts settitle $syn
-		ts renamegroup $file $fn
-		puts -nonewline "Done"
+	    }
+	    ok {
+		if {$doit} {
+			# Dooooo, it.
+			$ts settitle $syn
+			ts renamegroup $file $fn
+			puts -nonewline "Done"
+		}
+	    }
 	}
-	lappend seen $fn
 	
 	puts "</td>"
 	puts "</tr>"
@@ -98,25 +96,8 @@ if {!$doit} { puts "<button id=dedup>Process folder</button>" }
 
 puts {
 </small>
-
 </div>
-
-<script type=text/javascript>
-$('#browse').button().click(function() {
-	window.location = '/cgi-bin/browse.jim?dir=' +
-	    encodeURIComponent($('#dir').text());
-});
 }
 
-if {!$doit} {
-	puts {
-	$('#dedup').button().click(function() {
-		window.location = window.location + '&doit=1';
-	});
-	}
-}
-
-puts "</script>"
-
 footer
 

var/mongoose/html/dedup/normalise.jim

@@ -0,0 +1,48 @@
+#!/mod/bin/jimsh
+
+set dedup_prefixes {
+	{^new series\.* *}
+	{^cbeebies\.* *}
+	{^cbbc\.* *}
+	{^brand new series *-* *}
+	{^\.+}
+}
+
+proc dedupnormalise {title {reserve ""}} {
+	global dedup_prefixes
+
+	# Strip common prefixes
+	foreach prefix $dedup_prefixes {
+		regsub -nocase -all -- $prefix $title "" title
+	}
+
+	# Strip anything following a colon.
+	regsub -all -- { *[:].*$} $title "" title
+
+	# If the resulting string is longer than 40 characters then
+	# split around . and take the left hand side if appropriate.
+	if {[string length $title] > 40} {
+		lassign [split $title "."] v w
+		set title $v
+		if {[string length $title] < 6 && [string length $w] < 6} {
+			append title "_$w"
+		}
+	}
+
+	# if still short, add the reserve string.
+	if {[string length $title] < 10} {
+		if {[string match "${title}*" $reserve]} {
+			set title $reserve
+		} else {
+			append title " $reserve"
+		}
+	}
+
+	# Shorten if too long.
+	if {[string length $title] > 40} {
+		set title [string range $title 0 39]
+	}
+
+	return $title
+}
+

var/mongoose/html/dedup/process.jim

@@ -0,0 +1,31 @@
+#!/mod/bin/jimsh
+
+require system.class
+
+proc dedupprocess {file} {{seen {}}} {
+	set ts [ts fetch $file 1]
+	set dir [file dirname $file]
+	set base [file tail [file rootname $file]]
+	set syn [dedupnormalise [$ts get synopsis] [$ts get title]]
+	# Escape special characters to create the filename.
+	regsub -all -- {[\/ &]} $syn "_" fn
+	regsub -all -- {[?]} $fn "" fn
+
+	set stat ok
+	if {[system inuse [file rootname $file]]} {
+		set stat inuse
+	} elseif {$fn in $seen} {
+		set stat dup
+	} elseif {[string length $syn] > 40} {
+		set stat error
+	} elseif {$base eq $fn} {
+		set stat nothing
+	} elseif {[file exists "$dir/$fn.ts"]} {
+		set stat preserve
+	}
+
+	lappend seen $fn
+
+	return [list $stat $ts $syn $fn]
+}
+

var/mongoose/html/dedup/script.js

@@ -0,0 +1,14 @@
+
+$(function() {
+
+$('#browse').button().click(function() {
+	window.location = '/cgi-bin/browse.jim?dir=' +
+	    encodeURIComponent($('#dir').text());
+});
+
+$('#dedup').button().click(function() {
+	window.location = window.location + '&doit=1';
+});
+
+});
+

var/mongoose/html/diag.shtml

@@ -1,40 +0,0 @@
-<!--#include virtual="/lib/header.shtml" -->
-
-<fieldset style="display: inline; float: left; clear: left">
-<legend>Diagnostics</legend>
-Diagnostic:
-<input name=seq id=seq autocorrect=off autocapitalize=off
-    value=general size=30 maxlength=50
-    class="text ui-widget-content ui-corner-all">
-<button id=rundiag>Run Diagnostic</button>
-</fieldset>
-
-<fieldset style="display: inline; float: left; clear: left">
-<legend>Log Files</legend>
-<!--#exec cmd="/mod/var/mongoose/include/logfiles.jim" -->
-</fieldset>
-
-<div style="margin-top: 2em; display: none; float: left; clear: left"
-    id=results></div>
-
-<script type=text/javascript>
-$('#rundiag').button().click(function() {
-	$('#results')
-	    .slideDown()
-	    .text('\n\nRunning diagnostic, please wait...\n\n')
-	    .load('/cgi-bin/diag.jim?diag=' +
-	    encodeURIComponent($('#seq').val()));
-});
-$('a.log').click(function() {
-	$('#results')
-	    .slideDown()
-	    .text('\n\nLoading log, please wait...\n\n')
-	    .load('/cgi-bin/cat.jim?file=' +
-	        encodeURIComponent($(this).attr('file')), function() {
-	    		$('#results').wrapInner('<pre>');
-		});
-});
-</script>
-
-<!--#include virtual="/lib/footer.shtml" -->
-

var/mongoose/html/diag/diag.jim

@@ -0,0 +1,139 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require pretty_size
+
+puts "Content-Type: text/html"
+puts ""
+
+header
+
+puts {
+<script type=text/javascript src=/js/enadis.js></script>
+<script type=text/javascript src=script.js></script>
+
+<fieldset class=cleft>
+<legend>Utilities</legend>
+<table>
+
+<tr>
+<td>Run Diagnostic:</td>
+<td><input name=seq id=seq autocorrect=off autocapitalize=off
+    value=general size=30 maxlength=50
+    class="text ui-widget-content ui-corner-all">
+<button id=rundiag>Run Diagnostic</button>
+</td>
+</tr>
+
+<tr>
+<td>Package:</td>
+<td><input name=fopkg id=fopkg autocorrect=off autocapitalize=off
+    value='' size=30 maxlength=50
+    class="text ui-widget-content ui-corner-all">
+<button id=runfopkg>Force re-install</button>
+</td>
+</tr>
+
+<tr><td colspan=2 style="height: 10px"></td></tr>
+
+<tr>
+<td colspan=2 align=center>
+<button id=runedit style="width: 48%">File Editor</button>
+<button id=dbinfo style="width: 48%">Database Browser</button>
+</td>
+</tr>
+
+<tr>
+<td colspan=2 align=center>
+<button id=channelinfo style="width: 48%">Channel Information</button>
+</td>
+</tr>
+
+}
+
+if {[system model] eq "HDR"} {
+puts {
+<tr>
+<td colspan=2 align=center>
+<button id=dlna style="width: 48%">DLNA Server</button>
+</td>
+</tr>
+}
+}
+
+puts {
+
+<tr><td colspan=2 style="height: 10px"></td></tr>
+
+<tr>
+<td colspan=2>
+<button id=reboot style="width: 100%">Reboot System</button>
+</td>
+</tr>
+
+<tr>
+<td colspan=2>
+<button id=runreset style="width: 100%"
+}
+
+if {[system modversion 1] < 200} {
+	puts -nonewline " disabled class=ui-state-disabled"
+}
+
+puts {
+>
+Remove all custom firmware packages and settings 
+</button>
+}
+
+if {[system modversion 1] < 200} {
+	puts {
+<div class=footnote style="text-align: center">
+(Install custom firmware v2.00 to enable this option)
+</div>
+	}
+}
+
+puts {
+
+<div id=resetdone class="hidden blood">
+Restart your Humax with the remote control.<br>
+Allow it to turn off completely before restarting.<br>
+</div>
+
+</td>
+</tr>
+
+</table>
+<span class=also style="padding-left: 5px">
+View:
+<a href=/jim/ref.html target=_blank>Jim Reference Manual</a> |
+<a href=/jim/oo.html target=_blank>OO</a> |
+<a href=/jim/sqlite.html target=_blank>Sqlite</a>
+</span>
+</fieldset>
+
+<fieldset class=left>
+<legend>View Log Files</legend>
+}
+
+foreach file [lsort [concat \
+    [glob -nocomplain /var/log/*.log] \
+    [glob -nocomplain /mod/tmp/*.log] \
+]] {
+	puts "<a href=# class=log file=\"$file\">
+	    <img border=0 height=14 src=/images/421_1_00_CH_Title_2R_Arrow.png>
+	    [file tail $file]</a> ([pretty_size [file size $file]]) <br>"
+}
+
+puts {
+</fieldset>
+
+<div style="margin-top: 2em; display: none; float: left; clear: left"
+    id=results></div>
+
+}
+
+footer
+

var/mongoose/html/diag/script.js

@@ -0,0 +1,83 @@
+
+$(function() {
+
+$('button').button();
+
+$('#rundiag').click(function() {
+	$('#results')
+	    .slideDown()
+	    .text('\n\nRunning diagnostic, please wait...\n\n')
+	    .load('rundiag.jim?diag=' +
+	    encodeURIComponent($('#seq').val()), function() {
+		$('#results').wrapInner('<pre>');
+	    });
+});
+
+$('#runfopkg').click(function() {
+	$('#results')
+	    .slideDown()
+	    .text('\n\nForcibly re-installing package, please wait...\n\n')
+	    .load('/cgi-bin/opkg.jim?cmd=install+--force-reinstall+' +
+	    encodeURIComponent($('#fopkg').val()), function() {
+		$('#results').wrapInner('<pre>');
+		$('#fopkg').val('');
+	    });
+});
+
+$('a.log').click(function() {
+	$('#results')
+	    .slideDown()
+	    .text('\n\nLoading log, please wait...\n\n')
+	    .load('/cgi-bin/cat.jim?file=' +
+	        encodeURIComponent($(this).attr('file')), function() {
+	    		$('#results').wrapInner('<pre>');
+		});
+});
+
+$('#runedit').click(function(e) {
+	e.preventDefault();
+	window.location = '/edit/edit.jim';
+});
+
+$('#dbinfo').click(function(e) {
+	e.preventDefault();
+	window.location = '/cgi-bin/db.jim';
+});
+
+$('#channelinfo').click(function(e) {
+	e.preventDefault();
+	window.location = '/cgi-bin/channel.jim';
+});
+
+$('#dlna').click(function(e) {
+	e.preventDefault();
+	window.location = '/dlna/dlna.jim';
+});
+
+$('#reboot').click(function(e) {
+	e.preventDefault();
+	if (confirm('Are you sure you wish to perform a reboot now?'))
+	    if (confirm('Really sure?\n\nThere is a small chance the ' +
+		' Humax may not restart\n' +
+		'without physical intervention.\n\n' +
+		'i.e. pressing the standby button or using the remote control'))
+			window.location = '/cgi-bin/restart.jim';
+});
+
+$('#runreset').click(function(e) {
+	e.preventDefault();
+	if (!confirm('Are you sure? This will completely remove all packages and settings.'))
+		return;
+	if (!confirm('Are you really sure?'))
+		return;
+	if (!confirm('One last time, are you sure?'))
+		return;
+	$.get('/cgi-bin/cfwreset.cgi', function() {
+		$('button').disable();
+		$('#resetdone').slideDown();
+	});
+});
+
+});
+
+

var/mongoose/html/dlna/dlna.jim

@@ -0,0 +1,84 @@
+#!/mod/bin/jimsh
+
+package require cgi
+package require sqlite3
+source /mod/var/mongoose/lib/setup
+require ts.class pretty_size
+
+puts "Content-Type: text/html\r\n\r\n"
+
+cgi_input
+#cgi_dump
+
+header
+
+#append dmsfile ".rr"
+
+set vars {
+	object.container 0
+	object.item.videoItem.movie 0
+	object.item.imageItem.photo 0
+	object.item.audioItem.musicTrack 0
+}
+
+if {[file exists $dmsfile] && ![catch {set db [sqlite3.open $dmsfile]}]} {
+	catch {
+		foreach ret [$db query "
+			select class, count(*) from tblObject group by 1
+		"] {
+			lassign $ret x class x num
+			set vars($class) $num
+		}
+	}
+	$db close
+}
+
+if {[system param DMS_START_ON]} {
+	set cfgstat "Enabled"
+} else {
+	set cfgstat "Disabled"
+}
+
+if {[system is_listening 9000]} {
+	set stat "Running."
+	set img "745_1_10_Video_2Live.png"
+} else {
+	set stat "Not running."
+	set img "745_1_11_Video_1REC.png"
+}
+
+puts "
+<script type=text/javascript src=script.js></script>
+<fieldset class=cleft>
+<legend>DLNA Server Information</legend>
+
+<table class=keyval cellpadding=5>
+<tr>
+	<th>Server Status</th>
+	<td class=va>$cfgstat - <img class=va src=/images/$img> $stat</td>
+</tr><tr>
+	<th>Folders Indexed</th>
+	<td>$vars(object.container)</td>
+</tr><tr>
+	<th>Movies Indexed</th>
+	<td>$vars(object.item.videoItem.movie)</td>
+</tr><tr>
+	<th>Photos Indexed</th>
+	<td>$vars(object.item.imageItem.photo)</td>
+</tr><tr>
+	<th>Music Tracks Indexed</th>
+	<td>$vars(object.item.audioItem.musicTrack)</td>
+</tr><tr>
+
+</table>
+</fieldset>
+<div class=cleft style=\"padding-top: 0.5em\">
+<button id=dlnareset>Reset DLNA Database</button>
+</div>
+<div id=results class=\"cleft hidden blood\"
+    style=\"border: solid 1px #ccc; margin: 1em; padding: 1em;\">
+</div>
+"
+
+footer
+

var/mongoose/html/dlna/reset.jim

@@ -0,0 +1,27 @@
+#!/mod/bin/jimsh
+
+source /mod/var/mongoose/lib/setup
+require system.class
+
+puts "Content-Type: text/html"
+puts ""
+
+set menupath "Settings->System->Internet Setting->Content Share"
+set dbpath "/mnt/hd2/dms_cds.db"
+
+if {[system param DMS_START_ON] || [system is_listening 9000]} {
+	puts "To reset the DLNA Database, disable <i>Content Sharing</i>"
+	puts " in the Humax menus at<br>"
+	puts "<span class=also style=\"padding-left: 5em\">$menupath</span><br>"
+	puts "and click the button again."
+} elseif {![file exists $dbpath]} {
+	puts "The DLNA Database does not exist.<br>"
+	puts "(already reset?)"
+} else {
+	file delete $dbpath
+	puts "The DLNA Database has been reset.<br>"
+	puts "You can now re-enable <i>Content Sharing</i> in the Humax menus."
+	puts "<br>"
+	puts "<span class=also style=\"padding-left: 5em\">$menupath</span><br>"
+}
+

var/mongoose/html/dlna/script.js

@@ -0,0 +1,11 @@
+$(function() {
+
+$('button').button();
+
+$('#dlnareset').click(function(e) {
+	e.preventDefault();
+	$('#results').empty().slideDown().load('reset.jim');
+});
+
+});
+

var/mongoose/html/edit/edit.jim

@@ -0,0 +1,53 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+
+puts "Content-Type: text/html"
+puts ""
+
+header
+
+cgi_input
+#cgi_dump
+set file [cgi_get file "/tmp/hosts"]
+
+puts {
+<script type=text/javascript src=/js/enadis.js></script>
+<script type=text/javascript src=/js/tabsupport.js></script>
+<script type=text/javascript src=/js/jqueryFileTree.js></script>
+<link rel=stylesheet type=text/css href=/css/jqueryFileTree.css />
+<script type=text/javascript src=script.js></script>
+<link rel=stylesheet href=style.css type=text/css />
+
+<fieldset class=cleft>
+<legend>File Editor</legend>
+
+<div id=msg class=blood style="padding-bottom: 0.7em">
+Use the <i>Open</i> button below to begin.
+</div>
+
+<textarea cols=80 rows=20 id=editor></textarea>
+
+<br>
+<button class=xeditactive id=open>Open</button>
+<button class=editactive id=save>Save</button>
+<button class=editactive id=revert>Revert</button>
+
+<div id=result class="blood hidden" />
+
+</fieldset>
+
+<div class=cleft>
+	<button id=back>Back to diagnostics</button>
+</div>
+
+<div id=chooserd>
+	<i>Humax Filesystem</i>
+	<div id=chooser></div>
+</div>
+
+}
+
+footer
+

var/mongoose/html/edit/files.jim

@@ -0,0 +1,43 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+
+cgi_input
+#cgi_dump
+
+puts "Content-Type: text/html"
+puts ""
+
+set root [cgi_get dir]
+
+set files [lsort [readdir -nocomplain $root]]
+
+puts "<ul class=jqueryFileTree class=hidden>"
+
+foreach dir $files {
+	set path "$root/$dir"
+	regsub -all -- {\/+} $path "/" path
+	if {![file isdirectory $path]} continue
+	puts -nonewline "<li class=\"directory collapsed\"><a href=# rel=\""
+	puts -nonewline [cgi_quote_html $path]
+	puts "\">[cgi_quote_html $dir]</a></li>"
+}
+
+foreach file $files {
+	set path "$root/$file"
+	regsub -all -- {\/+} $path "/" path
+	if {[file isdirectory $path]} continue
+	set ext [file extension $file]
+	puts -nonewline "<li class=\"file"
+	if {[string length $ext]} {
+		puts -nonewline " ext_[string range $ext 1 end]"
+	}
+	puts -nonewline "\">"
+	puts -nonewline "<a href=# rel=\"[cgi_quote_html $path]\">"
+	puts -nonewline [cgi_quote_html $file]
+	puts "</a></li>"
+}
+
+puts "</ul>"
+

var/mongoose/html/edit/get.jim

@@ -0,0 +1,32 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require chunked pretty_size
+
+cgi_input
+#cgi_dump
+
+set file [cgi_get file "/tmp/hosts"]
+if {$file eq "-"} { exit }
+
+start_chunked "text/plain"
+
+if {![file exists $file]} {
+	chunk ">>> File $file does not exist.\r\n"
+} else {
+	set type [exec /mod/bin/file --brief --mime-type --dereference $file]
+	if {![string match {text/*} $type]} {
+		chunk ">>> File $file is not a plain file ($type)"
+	} elseif {[file size $file] > 102400} {
+		chunk ">>> File $file is too large."
+		chunk ">>>   [pretty_size [file size $file]]"
+	} else {
+		set fp [open $file r]
+		chunk [read $fp]
+		close $fp
+	}
+}
+
+end_chunked
+

var/mongoose/html/edit/put.jim

@@ -0,0 +1,23 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+set file [cgi_get file "/tmp/testfile"]
+if {$file eq "-"} { exit }
+set data [cgi_get data]
+
+if {[catch {set fp [open $file w]} msg]} {
+	puts "Error, $msg"
+} else {
+	$fp puts -nonewline $data
+	close $fp
+	puts "File saved."
+}
+

var/mongoose/html/edit/script.js

@@ -0,0 +1,107 @@
+
+$(function() {
+
+var file = null;
+var changed = false;
+
+$('button').button();
+$('button.editactive').disable();
+$('#editor').tabsupport().disable();
+
+function loadfile(f)
+{
+	if (!f)
+		f = file;
+
+	$('button.editactive').disable();
+	$('#editor').disable().val('');
+	$('#msg').text('Loading ' + f);
+	$.get('get.jim?file=' + encodeURIComponent(f), function(data) {
+		if (data.match('^>>>'))
+		{
+			$('#msg').text(data);
+			file = null;
+			changed = false;
+		}
+		else
+		{
+			$('#editor').val(data).enable();
+			$('button.editactive').enable();
+			$('#msg').html('Editing <i>' + f + '</i>');
+			file = f;
+			changed = false;
+		}
+	});
+}
+
+function result(msg)
+{
+	$('#result')
+	    .html(msg)
+	    .slideDown('slow')
+	    .delay(5000)
+	    .slideUp('slow');
+}
+
+$('#chooser').fileTree({
+	root: '/',
+	script: 'files.jim',
+	multiFolder: false
+}, function(file) {
+	$('#chooserd').dialog('close');
+	loadfile(file);
+});
+
+$('#chooserd').dialog({
+	title: "Choose File to Edit",
+	modal: true, autoOpen: false,
+	height: '500', width: '600',
+	draggable: true, resizable: true,
+	closeOnEscape: true,
+	buttons: {
+		"Cancel" : function() {$(this).dialog('close');}
+	}
+});
+
+$('#open').click(function() {
+	$('#chooserd').dialog('open');
+});
+
+$('#editor').change(function() {
+	changed = true;
+});
+
+$('#save').click(function() {
+	if (!changed)
+	{
+		result('No changes to save.');
+		return;
+	}
+
+	if (!confirm('Save file?'))
+		return;
+	$.post('put.jim', {
+	    'file': file,
+	    'data': $('#editor').val()
+	}, function(data) {
+		result(data);
+	});
+});
+
+$('#revert').click(function() {
+	if (!changed)
+	{
+		result('No changes to revert.');
+		return;
+	}
+	if (!confirm('Discard changes and re-load file?'))
+		return;
+	loadfile();
+});
+
+$('#back').click(function() {
+		window.location = '/diag/diag.jim';
+	});
+
+});
+

var/mongoose/html/edit/style.css

@@ -0,0 +1,24 @@
+textarea
+{
+	background: white;
+	color: black;
+}
+
+#filename
+{
+	font-style: italic;
+}
+
+.loading
+{
+	font-style: italic;
+	color: #aaa;
+	background: white;
+}
+
+#chooser
+{
+	border: solid 1px #bbb;
+	padding: 5px;
+}
+

var/mongoose/html/img/channels/1-2-1 Dating.png

@@ -1 +0,0 @@
-blank.png

var/mongoose/html/img/channels/302.png

@@ -1 +0,0 @@
-302.png -

var/mongoose/html/img/channels/303.png

@@ -1 +0,0 @@
-303.png -

var/mongoose/html/img/channels/305.png

@@ -1 +0,0 @@
-305.png -

var/mongoose/html/img/channels/4music.png

@@ -1 +0,0 @@
-4Music.png

var/mongoose/html/img/channels/9X.png

@@ -1 +0,0 @@
-9X.png -

var/mongoose/html/img/channels/AAG.png

@@ -1 +0,0 @@
-AAG.png -

var/mongoose/html/img/channels/Absolute.png

@@ -1 +0,0 @@
-Absolute Radio.png

var/mongoose/html/img/channels/Alibi+1.png

@@ -1 +0,0 @@
-Alibi.png -

var/mongoose/html/img/channels/Alibi.png

@@ -1 +0,0 @@
-Alibi+1.png

var/mongoose/html/img/channels/BBC 1 E Mids.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 East (E).png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 East (W).png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 London.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 N West.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 NE & C.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 Oxford.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 S East.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 S West.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 Scotland.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 South.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 W Mids.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 Wales.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 West.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 Yorks.png

@@ -1 +0,0 @@
-BBC 1 Cl.png

var/mongoose/html/img/channels/BBC 1 Yrks&Lin.png

@@ -1 +0,0 @@
-BBC 1 Cl.png