fix bug in restore

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

CONTROL/conffiles

@@ -1 +0,0 @@
-etc/webif.db

CONTROL/control

@@ -1,11 +1,11 @@
 Package: webif
 Priority: optional
 Section: web
-Version: 0.5.4
+Version: 0.6.8-3
 Architecture: mipsel
 Maintainer: af123@hummypkg.org.uk
-Depends: mongoose(>=2.11-5),jim(>=0.71-1),jim-sqlite3(>=0.71-1),jim-cgi(>=0.2),jim-oo,service-control,busybox(>=1.18.3-1),lsof,epg(>=1.0.2),hmt(>=1.0.4),ssmtp
+Depends: mongoose(>=3.0-2),jim(>=0.71-1),jim-sqlite3(>=0.71-1),jim-cgi(>=0.4),jim-oo,jim-pack,service-control,busybox(>=1.18.3-1),lsof,epg(>=1.0.3),hmt(>=1.0.6),ssmtp
 Replaces: af123-webif
 Conflicts: af123-webif
-Suggests: ffmpeg
-Description: A web interface for the Humax. In development.
+Suggests: ffmpeg,webif-iphone
+Description: An evolving web interface for the Humax.

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

@@ -0,0 +1,75 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+
+require rsv.class
+
+set dir /mod/var/backup
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+if {![dict exists $_cgi file]} {
+	puts "No filename supplied."
+	exit
+}
+
+set file [file tail [dict get $_cgi file]]
+set ffile "/$dir/$file.rbk"
+
+if {[file exists $ffile]} {
+	puts "Backup file <i>$file</i> already exists."
+	exit
+}
+
+if {[catch { set fd [open $ffile w] } msg]} {
+	puts "Error creating backup file. - $msg"
+	exit
+}
+
+puts "Backing up scheduled recordings and events..."
+
+set events [rsv list]
+
+set fields [lsort [[rsv] vars]]
+
+#puts $fd "# [join $fields "\t"]"
+
+foreach event $events {
+	puts "  Backing up scheduled event '[$event name]'"
+	puts -nonewline $fd "event\t"
+
+	foreach f $fields {
+		if {$f eq "aulEventToRecordInfo"} { continue }
+		puts -nonewline $fd "[$event get $f]\t"
+	}
+	puts $fd ""
+}
+puts "Done."
+
+puts "Backing up channel favourites..."
+
+set grp 0
+foreach res [$rsvdb query {
+	select	eFavGroup,
+		TBL_FAV.eSvcType,
+		substr(szSvcName, 2) as szSvcName
+	from TBL_FAV join TBL_SVC using (hSvc)
+	order by eFavGroup
+    }] {
+	if {$res(eFavGroup) != $grp} {
+		set grp $res(eFavGroup)
+		puts "  Group $grp"
+	}
+	puts "    $res(szSvcName)"
+	puts $fd "fav\t$res(eFavGroup)\t$res(eSvcType)\t$res(szSvcName)"
+}
+puts "Done."
+
+close $fd
+rsv cleanup
+

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

@@ -0,0 +1,59 @@
+
+function refresh_files()
+{
+	$('#backup_files').load('/cgi-bin/backup/files.jim', function() {
+		$('input.restore').change(function() {
+			$('#restore_button').removeAttr('disabled')
+			    .button('option', 'disabled', false);
+			$('#delete_button').removeAttr('disabled')
+			    .button('option', 'disabled', false);
+		});
+	});
+}
+
+$(document).ready(function() {
+	$('button').button();
+
+	refresh_files();
+
+	$('#backup_button').click(function() {
+		$('#backup_working').slideDown();
+		$('#results').load('/cgi-bin/backup/backup.jim?' +
+		    $('#backup_name').serialize(), function() {
+			$('#results').slideDown(function() {
+				$('#backup_working').slideUp();
+				refresh_files();
+			});
+		});
+	});
+	$('#delete_button').click(function() {
+		var backup = $('input.restore').val();
+		if (confirm('Confirm deletion of ' + backup))
+		{
+			$('#results').load('/cgi-bin/backup/delete.jim?' +
+			    $('input.restore').serialize(), function() {
+				$('#results').slideDown(function() {
+					refresh_files();
+				});
+			});
+		}
+	});
+	$('#restore_button').click(function() {
+		var backup = $('input.restore').val();
+		if (confirm('!!!!!!!!!!!!!!!!!!!!!!!!! PLEASE CONFIRM !!!!!!!!!!!!!!!!!!!!!!!!!\n\nAre you sure you wish to erase all scheduled recordings and favourite channels and then restore them from\n' + backup + '?'))
+		{
+			$('#restore_working').slideDown();
+			$('#results').load('/cgi-bin/backup/restore.jim?' +
+			    $('input.restore').serialize(), function() {
+				$('#results').slideDown(function() {
+					$('#restore_working').slideUp();
+					refresh_files();
+					$('#restore_warning').slideDown();
+					$('#restart_block').load(
+					    '/cgi-bin/restartblock.jim');
+				});
+			});
+		}
+	});
+});
+

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

@@ -0,0 +1,31 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+
+set dir /mod/var/backup
+
+puts "Content-Type: text/html"
+puts "Pragma: no-cache"
+puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
+puts ""
+
+cgi_input
+#cgi_dump
+
+if {![dict exists $_cgi restore_file]} {
+	puts "No filename supplied."
+	exit
+}
+
+set file [file tail [dict get $_cgi restore_file]]
+set ffile "/$dir/$file.rbk"
+
+if {![file exists $ffile]} {
+	puts "Backup file <i>$file</i> does not exist."
+} elseif {[catch { file delete $ffile } msg]} {
+	puts "Deletion failed: $msg"
+} else {
+	puts "Successfully deleted <i>$file</i>"
+}
+

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

@@ -0,0 +1,39 @@
+#!/mod/bin/jimsh
+
+package require cgi
+
+puts "Content-Type: text/html"
+puts "Pragma: no-cache"
+puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
+puts ""
+
+set dir "/mod/var/backup"
+
+proc empty {} {
+	puts "<font style=\"color: grey\">
+		<i>No current backup files.</i>
+	      </font>"
+}
+
+if {![file isdirectory $dir]} {
+	empty
+	exit
+}
+
+set backups [glob -nocomplain "$dir/*.rbk"]
+
+if {![llength $backups]} {
+	empty
+	exit
+}
+
+foreach backup $backups {
+	set b [file rootname [file tail $backup]]
+	puts "<input name=restore_file class=restore
+	    type=radio value=\"$b\">$b <font class=footnote>(
+		[clock format [file mtime $backup] -format {%c %Z}]
+	    )</font></input>
+		<br>
+	"
+}
+

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

@@ -0,0 +1,124 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+
+require rsv.class findhsvc system.class
+
+set dir /mod/var/backup
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+#set _cgi(restore_file) "backup-2011-Jul-09-20:37"
+
+if {![dict exists $_cgi restore_file]} {
+	puts "No filename supplied."
+	exit
+}
+
+set file [file tail [dict get $_cgi restore_file]]
+set ffile "/$dir/$file.rbk"
+
+if {![file exists $ffile]} {
+	puts "Backup file <i>$file</i> does not exist."
+	exit
+}
+
+if {[catch { set fd [open $ffile r] } msg]} {
+	puts "Error opening backup file. - $msg"
+	exit
+}
+
+puts "Restoring scheduled events..."
+
+$rsvdb query {begin transaction;}
+$rsvdb query {delete from TBL_RESERVATION;}
+
+set fields [lsort [[rsv] vars]]
+
+set data [split [read $fd] "\n"]
+
+foreach line $data {
+	set vals [split $line "\t"]
+	if {[lindex $vals 0] ne "event"} { continue }
+	set vars {}
+	set i 0
+	foreach f $fields {
+		if {$f eq "aulEventToRecordInfo"} { continue }
+		incr i
+		lappend vars $f [lindex $vals $i]
+	}
+
+	set rsv [rsv new $vars]
+
+	# Need to fix up channel and CRID mappings in case something has
+	# changed during a channel scan.
+
+	puts "  Restoring [$rsv name]"
+
+	set bad 0
+	# First, the service number
+	set ohsvc [$rsv get hsvc]
+	if {$ohsvc > 0} {
+		set hsvc [$rsv fix_hsvc]
+		if {$hsvc == 0} {
+			puts "    Cannot find channel, restore failed."
+			set bad 1
+		} elseif {$hsvc != $ohsvc} {
+			puts -nonewline "    Service number has "
+			puts "changed $ohsvc -> $hsvc, fixing."
+		} else {
+			puts "    No change in channel service."
+		}
+	}
+
+	if {!$bad} { $rsv insert }
+}
+
+$rsvdb query {commit transaction;}
+
+puts "Restoring favourite channels..."
+$rsvdb query {begin transaction;}
+$rsvdb query {delete from channel.TBL_FAV}
+
+set grp 0
+foreach line $data {
+	set vals [split $line "\t"]
+	if {[lindex $vals 0] ne "fav"} { continue }
+
+	set group [lindex $vals 1]
+	set type [lindex $vals 2]
+	set chan [lindex $vals 3]
+	set hsvc [get_channel_attr $chan]
+
+	if {$grp != $group} {
+		set grp $group
+		puts "  Group $grp"
+	}
+
+	puts "    $chan"
+
+	if {!$hsvc} {
+		puts "        Cannot map channel name to service."
+		continue
+	}
+
+	set query "
+		insert into channel.TBL_FAV(hSvc, eFavGroup, eSvcType)
+		values($hsvc, $group, $type);
+	"
+
+	$rsvdb query $query
+}
+
+$rsvdb query {commit transaction;}
+
+system restartpending
+
+close $fd
+rsv cleanup
+

var/mongoose/cgi-bin/browse.jim

@@ -1,14 +1,14 @@
 #!/mod/bin/jimsh
 
 package require cgi
-source /mod/var/mongoose/lib/ts.class
-source /mod/var/mongoose/lib/pretty_size
+source /mod/var/mongoose/lib/setup
+require ts.class pretty_size
 
 puts "Content-Type: text/html"
 puts ""
 
 set ignore {.nts .thm .hmt .hmi}
-set include {.ts .avi .mpg .wmv .mkv}
+set include {.ts .avi .mpg .mpeg .wmv .mkv .mp3 .mp4 .mov}
 
 cgi_input
 #cgi_dump
@@ -17,10 +17,11 @@ cgi_input
 #set _cgi(dir) "/media/My Video/Chuggington"
 
 proc directory {file bfile} {
+	regsub -all " +" $bfile "" tbfile
 	puts "<div class=va>"
 	puts "<a href=$::env(REQUEST_URI)?dir=[cgi_quote_url $file]>"
-	puts "<img border=0 class=va src=/images/711_1_09_Media_Folder.png>"
-	regsub -all " +" $bfile "" tbfile
+	puts "<img border=0 class=va id=\"img$tbfile\"
+	    src=/images/711_1_09_Media_Folder.png>"
 	puts "$bfile</a><span class=filesize id=\"$tbfile\">
 		</span></div>"
 }
@@ -45,20 +46,30 @@ proc entry {file} {{i 0}} {
 	if {$ext eq ".ts" && [file exists "${base}.nts"]} {
 		set type ts
 		set ts [ts fetch $file 1]
-		set img 741_1_10_Video_Title.png
-		set pad 0
+		set img Video_TS
 	} else {
 		set type gen
 		set ts 0
-		set img 743_4_10_Video_Xvid_File.png
-		set pad "2 2 2 2"
+		set img Video_Other
 	}
 
 	puts "
 	    <div class=\"va bf\" id=[incr i]>
 	      <a class=bf file=\"$file\" type=$type href=#>
-		<img class=va border=0 width=45 src=/images/$img
-		    style=\"padding:$pad\">
+	"
+
+	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 }
+	}
+
+	if {$new} { append img _New }
+
+	puts "<img class=va border=0 src=/img/$img.png>"
+
+	puts "
 		$bfile
 	      </a>
 	"
@@ -69,11 +80,15 @@ proc entry {file} {{i 0}} {
 	# Icons
 
 	set locked 0
+	set encd 0
+	set def unknown
 	if {$type eq "ts"} {
 		# HD / SD
 		if {[$ts get definition] eq "HD"} {
+			set def HD
 			set img "172_1_00_HD"
 		} else {
+			set def SD
 			set img "172_1_26_SD"
 		}
 		puts "<img class=va src=/images/$img.png height=21>"
@@ -84,6 +99,21 @@ proc entry {file} {{i 0}} {
 			puts "<img class=va src=/images/178_1_00_Icon_Lock.png
 			    height=21>"
 		}
+
+		# Encrypted
+		if {[$ts flag "Encrypted"] > 0} {
+			set encd 1
+			puts "<img class=va
+			    src=/images/749_1_26_Video_Encryption.png
+			    height=21>"
+		}
+
+		# Guidance
+		if {[$ts flag "Guidance"] > 0} {
+			puts "<img class=va
+			    src=/images/174_1_26_GuidancePolicy.png
+			    height=21>"
+		}
 	}
 
 	# Opt+ button
@@ -91,7 +121,7 @@ proc entry {file} {{i 0}} {
 	puts "
 	      <a href=#>
 		<img class=\"opt va\" border=0 width=45 type=$type did=$i
-		    locked=$locked
+		    locked=$locked encd=$encd def=$def new=$new
 		    src=/images/181_1_00_Help5_OPT_Plus.png>
 	      </a>
 	    <div class=\"results blood\" style=\"margin: 0 0 0 5em\"></div>
@@ -108,7 +138,7 @@ if {[dict exists $_cgi dir]} {
 ######################################################################
 # Render web page
 
-source /mod/var/mongoose/html/lib/header.jim
+header
 
 puts { 
 	<link href=/css/jquery.contextMenu.css rel=stylesheet type=text/css />
@@ -117,6 +147,8 @@ puts {
 	<ul id=optmenu class=contextMenu>
 		<li><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>
 	</ul>
@@ -176,6 +208,7 @@ foreach part [split $dir /] {
 	append stub $name
 	puts "<a href=$env(REQUEST_URI)?dir=[cgi_quote_url $stub]>$name</a>
 }
+puts "<span class=filesize id=dirsize></span>"
 puts "</legend>"
 
 # Parent directory
@@ -184,7 +217,7 @@ if {$parent ne ""} {
 	puts "
 	    <div class=va>
 		<a href=$env(REQUEST_URI)?dir=[cgi_quote_url $parent]>
-		<img src=/images/711_3_09_Media_Folder_UP.png class=va>
+		<img border=0 src=/images/711_3_09_Media_Folder_UP.png class=va>
 			\[parent directory\]</a>
 	    </div>
 	"
@@ -199,5 +232,5 @@ foreach file [lsort [glob -nocomplain "$dir"]] {
 
 puts "</fieldset>"
 
-source /mod/var/mongoose/html/lib/footer.jim
+footer
 

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

@@ -20,16 +20,36 @@ function epginfo_callback(data, status, xhr)
 function insert_folder_size(folder, size)
 {
 	folder = folder.replace(/ /g, '');
+	folder = folder.replace(/([ #;&,.+*~\':"!^$[\]()=>|\/@])/g, '\\$1');
 	//console.log("Folder: (%s) = (%s)", folder, size);
-	$('#' + folder).text(' (' + size + 'iB)');
+	if (folder == "")
+		$('#dirsize').text(' (' + size + 'iB)');
+	else
+		$('#' + folder).text(' (' + size + 'iB)');
 }
 
 function folder_size_callback(data, status, xhr)
 {
 	//console.log("Status: %s", status);
+	//console.dir(data);
 	$.each(data, insert_folder_size);
 }
 
+function set_folder_new(folder, cnt)
+{
+	folder = folder.replace(/ /g, '');
+	folder = folder.replace(/([ #;&,.+*~\':"!^$[\]()=>|\/@])/g, '\\$1');
+	//console.log("Folder: (%s) = (%s)", folder, cnt);
+	$('#img' + folder).attr('src', '/img/Folder_New.png');
+}
+
+function new_folder_callback(data, status, xhr)
+{
+	//console.log("Status: %s", status);
+	//console.dir(data);
+	$.each(data, set_folder_new);
+}
+
 function delete_callback(file, type, id)
 {
 	var el = 'div.bf#' + id;
@@ -49,6 +69,18 @@ function lock_callback(file, type, id)
 	$.get(url, function() { window.location.reload(true); });
 }
 
+function enc_callback(file, type, id)
+{
+	var url = '/cgi-bin/browse/enc.jim?file=' + encodeURIComponent(file);
+	$.get(url, function() { window.location.reload(true); });
+}
+
+function new_callback(file, type, id)
+{
+	var url = '/cgi-bin/browse/new.jim?file=' + encodeURIComponent(file);
+	$.get(url, function() { window.location.reload(true); });
+}
+
 function rename_submit()
 {
 	var s = $('#renameform_form').serialize();
@@ -78,6 +110,26 @@ function preparemenu(el, menu)
 {
 	if (el.attr('type') == 'ts')
 	{
+		if (el.attr('def') == 'HD')
+		{
+			$('#optmenu').enableContextMenuItems('#enc');
+			if (el.attr('encd') == 1)
+				$(menu).changeContextMenuItem('#enc',
+				    'Remove ENC');
+			else
+				$(menu).changeContextMenuItem('#enc',
+				    'Set ENC');
+		}
+		else
+			$('#optmenu').disableContextMenuItems('#enc');
+
+		$('#optmenu').enableContextMenuItems('#new');
+		if (el.attr('new') == 1)
+			$(menu).changeContextMenuItem('#new', 'Mark watched');
+		else
+			$(menu).changeContextMenuItem('#new', 'Mark new');
+
+
 		$('#optmenu').enableContextMenuItems('#lock');
 		if (el.attr('locked') == 1)
 		{
@@ -94,7 +146,10 @@ function preparemenu(el, menu)
 	{
 		$('#optmenu').enableContextMenuItems('#delete');
 		$('#optmenu').disableContextMenuItems('#lock');
+		$('#optmenu').disableContextMenuItems('#enc');
+		$('#optmenu').disableContextMenuItems('#new');
 	}
+
 }
 
 
@@ -119,6 +174,16 @@ 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 'new':
+		confirm_action('change the New flag on', new_callback,
+		    file, type, id);
+		break;
+
 	    case 'rename':
 		$('#rename').val(bfile);
 		$('#renameorig').val(file);
@@ -138,7 +203,8 @@ var menuclick = function(action, el, pos)
 		break;
 
 	    case 'download':
-		window.location.href = file;
+		window.location.href = '/cgi-bin/browse/download.jim?file=' +
+		    encodeURIComponent(file);
 		break;
 
 	    default:
@@ -213,5 +279,9 @@ var menuclick = function(action, el, pos)
 	// Load folder sizes
 	$.getJSON('/cgi-bin/browse/sizes.jim?dir=' + encodeURIComponent(dir),
 		folder_size_callback);
+
+	// Flag folders with unwatched items
+	$.getJSON('/cgi-bin/browse/newdir.jim?dir=' + encodeURIComponent(dir),
+		new_folder_callback);
 });
 

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

@@ -0,0 +1,49 @@
+#!/mod/bin/jimsh
+
+package require cgi
+package require sqlite3
+source /mod/var/mongoose/lib/setup
+require ts.class
+
+#puts "Content-Type: text/plain\r\n\r\n"
+
+cgi_input
+#cgi_dump
+
+set file [dict get $_cgi file]
+set rfile [file normalize $file]
+set ts [ts fetch $file]
+
+set dmsfile /mnt/hd2/dms_cds.db
+
+set url $file
+set mime "video/ts"
+if {[file exists $dmsfile]} {
+	set db [sqlite3.open /mnt/hd2/dms_cds.db]
+	set muri [$db query "
+		select tblresource.mimetype, contenturi
+		from tblresource join tblmedia using (mediaid)
+		where localurl = '%s'" $rfile]
+	if {$muri != ""} {
+		set rec [lindex $muri 0]
+		set xuri [lindex $rec 3]
+		set mime [lindex $rec 1]
+		set url "http://$env(HTTP_HOST):9000/web/$xuri"
+	}
+}
+
+puts "Content-Type: text/plain"
+puts "Refresh: 0; url=$url"
+puts "Content-length: 0"
+puts ""
+
+#puts "Pragma: public"
+#puts "Expires: 0"
+#puts "Cache-Control: must-revalidate, post-check=0, pre-check=0"
+#puts "Content-Type: application/force-download"
+#puts "Content-Type: application/download"
+#puts "Content-Type: $mime"
+#puts "Content-Disposition: attachment; filename=\"[file tail $file]\""
+#puts "Content-Transfer-Encoding: binary"
+#puts "Content-Length: [file size $rfile]"
+

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

@@ -0,0 +1,27 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/ts.class
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+#set _cgi(file) "/media/My Video/The Walking Dead/The Walking Dead S01E06.ts"
+
+set file [dict get $_cgi file]
+set ts [ts fetch $file]
+if {[set ts [ts fetch $file]] != 0} {
+	set action enc
+	if {[$ts flag "Encrypted"]} { set action unenc }
+
+	if {[$ts $action]} {
+		puts "Successfully [set action]ed $file."
+	} else {
+		puts "Problem [set action]ing $file,
+		    [$ts get error]"
+	}
+}
+

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

@@ -34,6 +34,20 @@ if {$type eq "ts"} {
 	<th>Synopsis</th>
 	<td>[$ts get synopsis]</td>
 </tr><tr>
+	"
+
+	if {[$ts flag "Guidance"] > 0} {
+		puts "
+			<th>Guidance</th>
+			<td><img class=va
+			    src=/images/174_1_26_GuidancePolicy.png height=21>
+			    [$ts get guidance]
+			</td>
+			</tr><tr>
+		"
+	}
+
+	puts "
 	<th>Definition</th>
 	<td>
 	"

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

@@ -9,7 +9,7 @@ puts ""
 cgi_input
 #cgi_dump
 
-set _cgi(file) "/media/My Video/The Walking Dead/The Walking Dead S01E06.ts"
+#set _cgi(file) "/media/My Video/The Walking Dead/The Walking Dead S01E06.ts"
 
 set file [dict get $_cgi file]
 set ts [ts fetch $file]

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

@@ -0,0 +1,27 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/ts.class
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+#set _cgi(file) "/media/My Video/The Walking Dead/The Walking Dead S01E06.ts"
+
+set file [dict get $_cgi file]
+set ts [ts fetch $file]
+if {[set ts [ts fetch $file]] != 0} {
+	set action new
+	if {[$ts flag "New"]} { set action watched }
+
+	if {[$ts set_$action]} {
+		puts "Successfully marked $file as $action."
+	} else {
+		puts "Problem marking $file as $action,
+		    [$ts get error]"
+	}
+}
+

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

@@ -0,0 +1,34 @@
+#!/mod/bin/jimsh
+
+package require cgi
+package require pack
+
+puts "Content-Type: application/json"
+puts ""
+
+cgi_input
+#cgi_dump
+
+#set _cgi(dir) "/media/My Video"
+
+set root [dict get $_cgi dir]
+# Strip double slashes
+regsub -all -- {\/+} "$root/*" "/" root
+
+puts "{"
+foreach dir [glob -nocomplain "$root"] {
+	if {[file exists "$dir/.series"]} {
+		set fd [open "$dir/.series"]
+		set bytes [read $fd 8]
+		set recs [unpack $bytes -uintle 0 32]
+		set plays [unpack $bytes -uintle 32 32]
+		set diff $($recs - $plays)
+		if {$diff != 0} {
+			set node [lindex [split $dir /] end]
+			puts "\"$node\": $diff,"
+		}
+	}
+}
+puts "\"dummy\" : 0"
+puts "}"
+

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

@@ -2,13 +2,14 @@
 
 package require cgi
 
+#puts "Content-Type: text/plain"
 puts "Content-Type: application/json"
 puts ""
 
 cgi_input
 #cgi_dump
 
-set _cgi(dir) "/media/My Video"
+#set _cgi(dir) "/media/My Video"
 
 set dir [dict get $_cgi dir]
 
@@ -18,9 +19,28 @@ puts "{"
 foreach line [split [exec /mod/bin/busybox/du -h "$dir/"] "\n"] {
 	set fields [split $line "\t"]
 	set size [lindex $fields 0]
-	set node [lindex [split [lindex $fields 1] '/'] end]
+	set node [file tail [lindex $fields 1]]
+#	set node [lindex [split [lindex $fields 1] /] end]
 	puts "\"$node\" : \"$size\","
 }
+
+# Handle symbolic links.
+foreach file [glob -nocomplain "$dir/*"] {
+	if {[catch {set lk [file readlink $file]}]} continue
+
+	if {![string match "/*" $lk]} { set lk "$dir/$lk" }
+
+	if {![file isdirectory $lk]} continue
+	foreach line [split [exec /mod/bin/busybox/du -h "$lk"] "\n"] {
+		set fields [split $line "\t"]
+		if {[lindex $fields 1] eq $lk} {
+			set node [file tail $file]
+			set size [lindex $fields 0]
+			puts "\"$node\" : \"@$size\","
+		}
+	}
+}
+
 puts "\"dummy\" : \"\""
 puts "}"
 

var/mongoose/cgi-bin/db.jim

@@ -0,0 +1,72 @@
+#!/mod/bin/jimsh
+
+package require cgi
+package require sqlite3
+source /mod/var/mongoose/lib/setup
+require altrow
+
+puts "Content-Type: text/html"
+puts ""
+
+header
+
+cgi_input
+#cgi_dump
+
+set ftab [cgi_get tab]
+set fdb [cgi_get db]
+
+if {$fdb != 0} {
+	puts "<h1><a href=/cgi-bin/db.jim>Remove filters</a></h1>"
+}
+
+proc db_info {db_file} {
+	global _cgi fdb ftab
+
+	if {$fdb != 0 && [file tail $db_file] ne $fdb} { return }
+	if {![file exists $db_file]} { return }
+
+	set db [sqlite3.open $db_file]
+	set tables [$db query {
+		select name from sqlite_master
+		where type='table' order by name
+	}]
+
+	puts "<h1><a href=/cgi-bin/db.jim?db=[file tail $db_file]>
+		$db_file</a></h1>"
+	
+	foreach table $tables {
+		set table [lindex $table 1]
+		if {$ftab != 0 && $ftab ne $table} { continue }
+		set columns [$db query "pragma table_info($table)"]
+		set datas [$db query "SELECT * FROM $table order by 1"]
+		
+		puts "<h2><a href=/cgi-bin/db.jim?db=[file tail $db_file]&tab=$table>$table</a></h2>"
+		puts "<table class=borders>"
+		puts "  <tr>"
+		foreach column $columns {
+			puts "    <th>[lindex $column 3]</th>"
+		}
+		puts "  </tr>"
+		foreach data $datas {
+			altrow
+			
+			for {set i 1} {$i < [llength $data]} {incr i 2} {
+				puts "    <td>[lindex $data $i]</td>"
+			}
+			puts "  </tr>"
+		}
+		puts "</table>"
+	}
+	
+	$db close
+}
+
+db_info /var/lib/humaxtv/rsvp.db
+db_info /var/lib/humaxtv/rsv.db
+db_info /var/lib/humaxtv/setup.db
+db_info /var/lib/humaxtv/channel.db
+db_info /mnt/hd2/dms_cds.db
+
+footer
+

var/mongoose/cgi-bin/epg_dump.jim

@@ -1,12 +1,13 @@
 #!/mod/bin/jimsh
 
 package require cgi
-source /mod/var/mongoose/lib/epg.class
+source /mod/var/mongoose/lib/setup
+require epg.class
 
 puts "Content-Type: text/html"
 puts ""
 
-source /mod/var/mongoose/html/lib/header.jim
+header
 
 cgi_input
 #cgi_dump
@@ -31,5 +32,6 @@ if { $raw == 0 } {
 puts "</pre>"
 
 epg cleanup
-source /mod/var/mongoose/html/lib/footer.jim
+
+footer
 

var/mongoose/cgi-bin/epg_info.jim

@@ -1,7 +1,8 @@
 #!/mod/bin/jimsh
 
 package require cgi
-source /mod/var/mongoose/lib/epg.class
+source /mod/var/mongoose/lib/setup
+require epg.class
 
 puts "Content-Type: text/html"
 puts ""
@@ -9,19 +10,25 @@ puts ""
 cgi_input
 #cgi_dump
 
-set service 0
-catch { set service [dict get $_cgi service] }
-set event 0
-catch { set event [dict get $_cgi event] }
-if {! [dict exists $_cgi bare]} {
-	source /mod/var/mongoose/html/lib/header.jim
-}
-
-#set service 8384
-#set event 25293
+set service [cgi_get service 0]
+set event [cgi_get event 0]
+if {! [dict exists $_cgi bare]} { header }
 
 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>
@@ -33,10 +40,38 @@ puts "
 		<td>[$record get text]</td>
 	</tr><tr>
 		<th>Start</th>
-		<td>[clock format [$record get start] -format {%c %Z}]</td>
+		<td>[clock format [$record get start] -format {%c %Z}]
+"
+
+foreach o $others {
+	if {[$o ended]} { continue }
+	$o get_channel_info
+	$o process_sched
+	if {[$o get series_crid] eq ""} { set ro 1 } else { set ro 2 }
+	puts -nonewline "<br><font class=also>&nbsp;&nbsp;&nbsp;&nbsp;"
+	puts -nonewline "Also: "
+	puts -nonewline "<a class=event href=# xs=[$o get service_id] "
+	puts -nonewline "xe=[$o get event_id] "
+	puts -nonewline "sch=[$o get sched_type] rec=$ro>"
+	puts -nonewline "[clock format [$o get start] -format {%c %Z}]"
+	puts -nonewline " on "
+	puts -nonewline [$o channel_icon 16]
+	puts -nonewline "[$o get channel_name] "
+	puts "</a>"
+	puts "</font>"
+}
+
+puts "
+		</td>
 	</tr><tr>
 		<th>Duration</th>
-		<td>[clock format [$record get duration] -format %T]</td>
+		<td>[clock format [$record get duration] -format %T]
+"
+if {[$record showing]} {
+	puts [progressbar [$record percent]]
+}
+puts "
+	</td>
 	</tr><tr>
 		<th>Type</th>
 		<td>[$record get content_type] ([$record get content_code])</td>
@@ -55,8 +90,13 @@ if {[$record get warning] != ""} {
 if {[$record get event_crid] != ""} {
 	puts "
 	<tr>
-		<th>CRID</th>
-		<td>[$record get channel_crid][$record get event_crid]</td>
+		<th>CRID</th><td>
+		<a href=/cgi-bin/epg_search.jim?crid=[$record get event_crid]>
+			<img border=0 height=14
+			    src=/images/421_1_00_CH_Title_2R_Arrow.png>
+			[$record get channel_crid][$record get event_crid]
+			</a>
+		</td>
 	</tr>
 	"
 }
@@ -104,8 +144,8 @@ puts "
 	</a>
 "
 
-epg cleanup
-if {! [dict exists $_cgi bare]} {
-	source /mod/var/mongoose/html/lib/footer.jim
-}
+puts "<div id=epginfo_extra class=footnote></div>"
+
+epg cleanup
+if {! [dict exists $_cgi bare]} { footer }
 

var/mongoose/cgi-bin/epg_schedule.jim

@@ -0,0 +1,83 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require epg.class system.class
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+#set _cgi(service) 4170
+#set _cgi(event) 38584
+#set _cgi(type) 2
+
+if {![dict exists $_cgi service] || ![dict exists $_cgi event]} {
+	puts "Error, insufficient parameters passed."
+	exit
+}
+
+set service $_cgi(service)
+set event $_cgi(event)
+set type 1
+if {[dict exists $_cgi type]} { set type $_cgi(type) }
+
+set event [lindex [epg fetch dump -service $service -event $event] 0]
+if {$event eq ""} {
+	puts "Error, cannot find event to schedule."
+	exit
+}
+if {[$event percent] > 0} {
+	puts "Error, cannot record programme which has already started showing"
+	puts "or occurred in the past."
+	exit
+}
+
+$event get_channel_info
+
+set args {}
+
+set args(ersvtype)		3
+set args(hsvc)			[$event get channel_hsvc]
+set args(nsttime)		[$event get start]
+set args(nduration)		[$event get duration]
+set args(usevtid)		[$event get event_id]
+set args(szevtname)		"\025[$event get name]"
+set args(eReady)		30
+
+set ccrid [$event get channel_crid]
+
+if {$type == 1} {
+	# Event
+	set args(ucCRIDType)		49
+	set args(ucRecKind)		1
+	set args(szCRID) 		"$ccrid[$event get event_crid]"
+	set args(szEventToRecord)	"1$args(szCRID)|"
+} else {
+	# Series
+	set args(ucCRIDType)		50
+	set args(ucRecKind)		4
+	set args(szCRID)		"$ccrid[$event get series_crid]"
+	set args(szFPBRecPath)		"$args(szevtname)"
+	set progs [lmap i [epg fetch dump -scrid [$event get series_crid]] {
+		if {[set ecrid [$i get event_crid]] eq ""} { continue }
+		list "1$::ccrid$ecrid"
+	}]
+	set args(szEventToRecord)	 "[join $progs "|"]|"
+}
+
+#puts $args
+
+set msg ""
+#if {![file exists /mod/.schedule.testing]} { set msg "Disabled during testing" }
+if {$msg ne "" || [catch {[rsv new $args] insert} msg]} {
+	puts "Error encountered while scheduling the recording: <i>$msg</i>"
+} else {
+	puts "Successfully scheduled recording of <i>[$event get name]</i>"
+	system restartpending
+}
+
+epg cleanup
+

var/mongoose/cgi-bin/epg_search.jim

@@ -1,28 +1,19 @@
 #!/mod/bin/jimsh
 
 package require cgi
-source /mod/var/mongoose/lib/epg.class
-source /mod/var/mongoose/lib/altrow
-source /mod/var/mongoose/lib/cat
+source /mod/var/mongoose/lib/setup
+require epg.class spinner.class altrow
 
 puts "Content-Type: text/html"
 puts ""
 
-source /mod/var/mongoose/html/lib/header.jim
+header
 
-puts "<script type=text/javascript src=/js/highlight.js></script>"
-
-source /mod/var/mongoose/lib/epg_popup
+puts "<script type=text/javascript src=/js/jquery.highlight.js></script>"
 
 cgi_input
 #cgi_dump
-#set _cgi [dict create term "doctor who"]
-#set env(REQUEST_URI) "test"
 
-set term ""
-catch { set term [dict get $_cgi term] }
-set cmd "search"
-if {[dict exists $_cgi full]} { set cmd "searchall" }
 set ct 0
 catch { set ct [dict get $_cgi ct] }
 set crid ""
@@ -30,87 +21,35 @@ catch { set crid [dict get $_cgi crid] }
 set scrid ""
 catch { set scrid [dict get $_cgi scrid] }
 
-puts "
-<form method=get action=/cgi-bin/epg_search.jim>
-<fieldset>
-<legend>EPG Search</legend>
-<label for=term>Query</label>
-<input type=text name=term id=term size=20 maxlength=255 value=\"$term\"
-    class=\"text ui-widget-content ui-corner-all\">
-<input type=submit value=Search>
-<input type=checkbox name=full id=full"
-if {[dict exists $_cgi full]} { puts -nonewline " checked" }
-puts ">
-<label for=full>Search descriptions as well as titles.</label>
-"
+if {[dict exists $_cgi term]} {
+	set lterm [dict get $_cgi term]
 
-puts {
-	<style type=text/css>
-	.ui-button, .ui-button-text { padding: 0; font-size: 12px; }
-	</style>
-	<script type=text/javascript>
-		$('input:submit').button();
-	</script>
-}
-
-set db [sqlite3.open /var/lib/humaxtv/setup.db]
-set res [$db query {
-	select itemBlob from TBL_USERCONFIG
-	where itemName like 'EPG\_KEYWORD\_%%' ESCAPE '\'
-}]
-
-proc cts {type img text} {
-	puts "<a href=$::env(REQUEST_URI)?ct=$type>
-		<img height=18 border=0 src=/images/173_3_00_G3_$img.png>&nbsp;$text</a>";
-}
-
-puts {
-	<br>
-	<table>
-	<tr><td rowspan=2 valign=top>Content Type Searches</td>
-	<td>
-}
-
-cts 1 "Movie" "Film/Drama"
-puts "</td><td>"
-cts 2 "News" "News/Current affairs"
-puts "</td><td>"
-cts 4 "Sports" "Sport"
-puts "</td><td>"
-cts 9 "Education" "Education/Science/Factual"
-puts "</td><td>"
-cts 10 "Leisure" "Leisure"
-
-puts "</td></tr><tr><td>"
-
-cts 7 "Art" "Arts/Culture"
-puts "</td><td>"
-cts 3 "Show" "Show/Game show"
-puts "</td><td>"
-cts 5 "Children" "Children"
-puts "</td><td>"
-cts 8 "Society" "Social/Political/Economic"
-puts "</td><td>"
-cts 6 "Music" "Music/Ballet/Dance"
-
-puts "</tr></table>"
-
-puts "<table cellpadding=5>"
-if {[llength $res] > 0} {
-	puts "<tr><td>Keyword Searches</td>"
-	foreach keyword $res {
-		set kw [string range [lindex $keyword 1] 1 end]
-		puts "<td><a href=$env(REQUEST_URI)?term=[cgi_quote_url $kw]>$kw
-		    </a></td>"
+	if {[string match {CRID:*} $lterm]} {
+		set crid [string range $lterm 5 end]
+	} elseif {[string match {SCRID:*} $lterm]} {
+		set scrid [string range $lterm 6 end]
 	}
-	puts "</tr>"
+} elseif {$crid ne ""} {
+	set _cgi(term) "CRID:$crid"
+} elseif {$scrid ne ""} {
+	set _cgi(term) "SCRID:$scrid"
 }
-puts "</table>"
 
-$db close
+require epg_search
 
-puts "</fieldset>"
-puts "</form>"
+[spinner new {
+	text "Searching EPG..."
+	size "1.2em"
+	style "margin: 1em;"
+	}] start
+
+require epg_popup
+
+#set _cgi [dict create term "doctor who"]
+#set env(REQUEST_URI) "test"
+
+set cmd "search"
+if {$searchfull} { set cmd "searchall" }
 
 if {$ct > 0 } {
 	set records [epg fetch dump -type $ct]
@@ -118,13 +57,16 @@ if {$ct > 0 } {
 	set records [epg fetch dump -crid $crid]
 } elseif {$scrid ne ""} {
 	set records [epg fetch dump -scrid $scrid]
-} elseif {$term ne ""} { 
-	set records [epg fetch $cmd -extra $term]
+} elseif {$searchterm ne ""} { 
+	set records [epg fetch $cmd -extra $searchterm]
+} else {
+	set records {}
 }
 
 set favlist [epg favlist]
 
-puts {
+if {[llength $records] > 0} {
+	puts {
 	<table class=borders id=results style="clear: both;margin: 0.5em 0 0 0">
 	<tr>
 		<th>Date</th>
@@ -132,6 +74,9 @@ puts {
 		<th>Programme</th>
 		<th>Synopsis</th>
 	</tr>
+	}
+} else {
+	puts "No results found."
 }
 
 proc rsort {v1 v2} {
@@ -150,9 +95,14 @@ foreach record [lsort -command rsort $records] {
 	}
 	altrow
 	$record get_channel_info
-	puts "<td nowrap>
+
+	set ended [$record ended]
+
+	if $ended { puts "<td nowrap class=blood>" } else { puts "<td nowrap>"}
+	puts "
 	    [clock format [$record get start] -format "%a %d %b %Y"]<br>
-		[clock format [$record get start] -format "%H:%M %Z"]</td>"
+		[clock format [$record get start] -format "%H:%M %Z"]"
+	puts "</td>"
 	puts "<td>[$record get channel_num]</td>"
 	puts "<td>[$record channel_icon 50]</td>"
 	puts "<td nowrap>
@@ -162,18 +112,17 @@ foreach record [lsort -command rsort $records] {
 	puts [$record cell]
 	puts "<td>[$record get text]</td><td>[$record get warning]</td>"
 	puts "</tr>"
-	flush stdout
 }
 puts "</table>"
 
-if {$term != ""} {
+if {$searchterm != ""} {
 	puts "
 		<script type=text/javascript>
-		highlight(document.getElementById(\"results\"), \"$term\");
+		\$('#results').highlight('$searchterm');
 		</script>
 	"
 }
 
 epg cleanup
-source /mod/var/mongoose/html/lib/footer.jim
+footer
 

var/mongoose/cgi-bin/epg_service.jim

@@ -1,15 +1,13 @@
 #!/mod/bin/jimsh
 
 package require cgi
-source /mod/var/mongoose/lib/epg.class
-source /mod/var/mongoose/lib/spinner.class
-source /mod/var/mongoose/lib/altrow
-source /mod/var/mongoose/lib/cat
+source /mod/var/mongoose/lib/setup
+require epg.class spinner.class altrow
 
 puts "Content-Type: text/html"
 puts ""
 
-source /mod/var/mongoose/html/lib/header.jim
+header
 
 [spinner new {
 	text "Loading EPG Data..."
@@ -20,12 +18,9 @@ source /mod/var/mongoose/html/lib/header.jim
 cgi_input
 #cgi_dump
 
-source /mod/var/mongoose/lib/epg_popup
-
-set service 0
-set service 4351
-catch { set service [dict get $_cgi service] }
+require epg_popup
 
+set service [cgi_get service 4351]
 set records [epg fetch dump -service $service]
 
 set tr [lindex $records 0]
@@ -56,21 +51,22 @@ puts {
 set i 0
 foreach record $records {
 	altrow
+	$record get_channel_info
+	set ended [$record ended]
 	if {[$record showing]} {
 	    puts "<td><img src=/images/111_1_00_Cursor_2R_Arrow.png></td>"
 	} else { puts "<td></td>" }
-	puts "<td nowrap>
-		[clock format [$record get start] -format "%a %d %b %Y"]</td>"
-	puts "<td nowrap>
-		[clock format [$record get start] -format "%H:%M"]</td>"
+	if $ended { puts "<td nowrap class=blood>" } else { puts "<td nowrap>" }
+	puts "[clock format [$record get start] -format "%a %d %b %Y"]</td>"
+	if $ended { puts "<td nowrap class=blood>" } else { puts "<td nowrap>" }
+	puts "[clock format [$record get start] -format "%H:%M"]</td>"
 	puts [$record cell]
 	puts "<td>[$record get text]</td>"
 	puts "<td>[$record get warning]</td>"
 	puts "</tr>"
-	flush stdout
 }
 puts "</table>"
 
 epg cleanup
-source /mod/var/mongoose/html/lib/footer.jim
+footer
 

var/mongoose/cgi-bin/opkg.jim

@@ -0,0 +1,29 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require pkg.class chunked
+
+cgi_input
+#cgi_dump
+
+set cmd [cgi_get cmd update]
+
+start_chunked
+
+set bcmd "|/mod/var/mongoose/lib/opkg $cmd"
+set fd [open $bcmd r]
+while {[gets $fd line] >= 0} {
+	chunk "$line\r\n"
+	#chunk_pad
+}
+close $fd
+
+if {$cmd eq "update"} {
+	chunk "Updating package meta information\r\n"
+	pkg fetchmeta
+	chunk "Done.\r\n"
+}
+
+end_chunked
+

var/mongoose/cgi-bin/pkg.jim

@@ -0,0 +1,98 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require settings.class pkg.class altrow
+
+if {[[settings] pkgdev]} { set filter 0 } else { set filter 1 }
+
+puts "Content-Type: text/html"
+puts "Pragma: no-cache"
+puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
+puts ""
+
+cgi_input
+#cgi_dump
+if {![dict exists $_cgi type]} { set _cgi(type) avail }
+
+proc pkgrow {pkg} {
+	set name [$pkg get name]
+	altrow
+	puts "
+		<td nowrap>$name</td>
+	"
+
+	if {$::type eq "avail"} {
+		puts "<td nowrap>[$pkg get latest]</td>"
+	} else {
+		puts "<td nowrap>[$pkg get installed]</td>"
+	}
+
+	if {$::type eq "upgr"} {
+		puts "<td nowrap>[$pkg get latest]</td>"
+	}
+
+	if {[dict exists $::pkgmeta $name]} {
+		puts "<td>$::pkgmeta($name)</td>"
+	} else {
+		puts "<td>[$pkg get descr]</td>"
+	}
+
+	if {![$pkg is installed]} {
+		set type Install
+	} elseif {$::type eq "upgr" && [$pkg is upgradable]} {
+		set type Upgrade
+	} else {
+		set type Remove
+	}
+
+	puts "<td align=center><small><button id=\"[$pkg get name]\"
+	    action=[string tolower $type]
+	    class=[string tolower $type]>$type</button></small></td>"
+
+	puts "</tr>"
+}
+
+pkg loadmeta
+
+set type $_cgi(type)
+
+set pkgs [pkg $type]
+
+if {[llength $pkgs] > 0} {
+	puts "<table><tr><th>Package</th>"
+
+	if {$type eq "avail"} {
+		puts "<th>Available</th>"
+	} else {
+		puts "<th>Installed</th>"
+	}
+
+	if {$type eq "upgr"} {
+		puts "<th>Avail</th>"
+	}
+
+	puts "
+		<th>Description</th>
+		<th>&nbsp;&nbsp;Action&nbsp;&nbsp;</th>
+		</tr>
+	"
+
+	foreach pkg $pkgs {
+		if {$filter && ![dict exists $::pkgmeta $pkg]} { continue }
+		pkgrow [pkg load $pkg]
+	}
+	puts "</table>"
+	if {$filter} {
+		puts "<font class=footnote>This is a filtered package list. To show all packages, enable the <i>Show development and advanced packages</i> in the settings screen.</font>"
+	}
+} else {
+	puts "<i>No packages "
+	switch $type {
+		inst { puts "are installed." }
+		upgr { puts "are available for upgrade." }
+		avail { puts "are available for installation." }
+	}
+	puts "</i>"
+}
+

var/mongoose/cgi-bin/restart.jim

@@ -0,0 +1,56 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require rsv.class system.class
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+if {[cgi_get now] eq "yes"} {
+	# - Busybox reboot does sync the disk but may still not be clean enough.
+	puts "Restarting."
+	system reboot
+	exit
+}
+
+file delete /tmp/.restartpending
+header
+
+# Commit pending reservations on older mod versions.
+if {![file exists /sbin/rsvsync] && ![file exists /mod/boot/rsvsync]} {
+	rsv commit
+}
+
+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>
+	var handle = 0;
+	var pct = 0;
+	function update()
+	{
+		$('#progressbar').reportprogress(++pct);
+		if (pct == 100)
+		{
+			clearInterval(handle);
+			pct = 0;
+			window.location = '/';
+		}
+	}
+
+	$(document).ready(function() {
+		$('#progressbar').reportprogress(0);
+		handle = setInterval("update()", 300);
+		$.get('/cgi-bin/restart.jim?now=yes');
+	});
+</script>
+
+Please wait while the Humax restarts...<br>
+<div id=progressbar></div>
+}
+
+footer
+

var/mongoose/cgi-bin/restartblock.jim

@@ -0,0 +1,7 @@
+#!/mod/bin/jimsh
+
+puts "Content-Type: text/html"
+puts ""
+
+source /mod/var/mongoose/include/restart.jim
+

var/mongoose/cgi-bin/sched_cancel.jim

@@ -0,0 +1,26 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require rsv.class
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+set slot [cgi_get slot 0]
+set table [cgi_get table TBL_RESERVATION] 
+
+set event [rsv slot $table $slot]
+
+if {$table eq "pending"} {
+	$event remove_pending
+	exit
+}
+
+$event clear_ulslot
+$event set_delete
+$event insert
+

var/mongoose/cgi-bin/sched_info.jim

@@ -0,0 +1,123 @@
+#!/mod/bin/jimsh
+
+package require cgi
+source /mod/var/mongoose/lib/setup
+require rsv.class
+
+puts "Content-Type: text/html"
+puts ""
+
+cgi_input
+#cgi_dump
+
+set table [cgi_get table TBL_RESERVATION]
+set slot [cgi_get slot 0]
+
+set event [rsv slot $table $slot]
+
+set rsvicon [$event icon]
+if {$rsvicon ne ""} {
+	set rsvicon "<img src='images/$rsvicon' height=20>
+}
+
+set RKIcon [$event RKIcon]
+if {$RKIcon ne ""} {
+	set RKIcon "<img src='images/$RKIcon' height=20>
+}
+
+if {[$event get ucRecKind] == 4} {
+	set series 1
+} else {
+	set series 0
+}
+
+puts "
+	<table class=keyval>
+	<tr>
+		<th>Event [$event get ulslot]</th>
+		<td class=va>$rsvicon $RKIcon</td>
+	</tr><tr>
+		<th>Channel</th>
+		<td class=va>
+"
+if {[$event get usLcn] ne ""} {
+	puts "
+		<img class=va width=50
+		    src=\"/img/channels/[$event channel_name].png\">
+		- [$event get usLcn] - [$event channel_name]
+	"
+}
+
+puts "
+		</td>
+	</tr><tr>
+		<th>Event Name</th>
+		<td>[$event name]</td>
+	</tr><tr>
+		<th>Start</th>
+"
+
+set s [$event get nsttime]
+set d [$event get nduration]
+set e $($s + $d)
+set n [clock seconds]
+
+if { $n > $e } {
+	puts "<td class=blood nowrap class=va>"
+} else {
+	puts "<td nowrap class=va>"
+}
+puts "[clock format $s -format "%a %d %b %Y"]
+    [clock format $s -format "%H:%M %Z"]"
+
+if {$d > 0 && $n > $s && $n < $e} {
+	puts "<br>"
+	set perc [expr [expr $n - $s] * 100 / $d]
+	puts "<img class=va src=/images/745_1_11_Video_1REC.png>"
+	puts [progressbar $perc]
+}
+
+puts "
+		</td>
+	</tr><tr>
+		<th>Duration</th>
+		<td>[clock format [$event get nduration] -format %T]</td>
+	</tr>
+"
+
+set crid [join [lrange [split [$event get szCRID] /] 1 end]]
+if {$crid != ""} {
+	puts "<tr><th>"
+	if $series { puts "Series" } else { puts "Event" }
+	puts " CRID</th><td>"
+	puts -nonewline "<a href=/cgi-bin/epg_search.jim?"
+	if $series { puts -nonewline "s" }
+	puts "crid=/$crid>
+	<img border=0 src=/images/421_1_00_CH_Title_2R_Arrow.png
+	    height=14>
+	[$event get szCRID]"
+	puts "</a></td></tr>"
+}
+puts "<tr><th>Events</th><td>"
+set flag 0
+foreach ev [split [$event get szEventToRecord] "|"] {
+	if {$ev eq ""} { continue }
+	set ev [string range $ev 1 end]
+	if {$flag} { puts "<br>" }
+	incr flag
+	set crid [join [lrange [split $ev /] 1 end]]
+	puts -nonewline "<a href=/cgi-bin/epg_search.jim?"
+	puts "crid=/$crid>
+	<img border=0 src=/images/421_1_00_CH_Title_2R_Arrow.png
+	    height=14> 
+	$ev"
+	puts "</a>"
+}
+puts "</td></tr>"
+puts "<tr><th>Accepted</th><td>"
+if {[$event get aulEventToRecordInfo] != ""} {
+	puts "Yes"
+}
+puts "</td></tr>"
+puts "</table>"
+

var/mongoose/cgi-bin/settings.jim

@@ -1,7 +1,9 @@
 #!/mod/bin/jimsh
 
-source /mod/var/mongoose/lib/settings.class
 package require cgi
+source /mod/var/mongoose/lib/setup
+require settings.class
+require plugin
 
 puts "Content-Type: text/html"
 puts ""
@@ -14,11 +16,11 @@ set settings [settings new]
 set hostname [$settings hostname]
 set smtp_server [$settings smtp_server]
 set channel_group [$settings channel_group]
+set pkgdev [$settings pkgdev]
 
 # Handle updates
 
-#set _cgi(smtp_server) "fred.bob"
-#set env(REQUEST_URI) ''
+if {![dict exists $env REQUEST_URI]} { set env(REQUEST_URI) "" }
 
 proc _handle_update {class var old text} {
 	global _cgi
@@ -49,18 +51,20 @@ proc handle_str_update {var old {text "Value"}} {
 handle_str_update hostname $hostname Hostname
 _handle_update ascii smtp_server $smtp_server "SMTP Server"
 handle_int_update channel_group $channel_group "Channel Group"
+if {[dict exists $_cgi pkgdevoff] && ![dict exists $_cgi pkgdev]} {
+	set _cgi(pkgdev) 0
+}
+handle_int_update pkgdev $pkgdev "Development Package Display"
+
+header
 
-source /mod/var/mongoose/html/lib/header.jim
 puts {<script type="text/javascript" src="/js/jquery.form.js"></script>}
 
 puts {
-	<style type=text/css>
-	.ui-button, .ui-button-text { padding: 0; font-size: 10px; }
-	</style>
 	<script type=text/javascript>
 	$(document).ready(function () {
 		$(":submit").button();
-		$('form').each(function(i, el) {
+		$('form.auto').each(function(i, el) {
 			var id = $(this).attr('id');
 			var output = '#' + id + '_output'
 			$(this).ajaxForm({
@@ -77,6 +81,9 @@ puts {
 }
 
 puts "
+<link href=/css/iphone-style-checkboxes.css rel=stylesheet type=text/css />
+<script type=\"text/javascript\" src=\"/js/iphone-style-checkboxes.js\">
+</script>
 	<fieldset style=\"display: inline\">
 		<legend>
 			General Settings
@@ -86,12 +93,14 @@ puts "
 
 puts "
 	<tr>
-	<form id=hostname method=get action=$env(REQUEST_URI)>
+	<form class=auto id=hostname method=get action=$env(REQUEST_URI)>
 		<th class=key>Hostname</th>
 		<td><input name=hostname value=\"$hostname\"
 		    class=\"text ui-widget-content ui-corner-all\"
 		    length=20 maxlength=50>
+		    <small>
 		    <input id=hostname_submit value=\"change\" type=submit>
+		    </small>
 		    <div id=hostname_output></div>
 		</td>
 	</form>
@@ -100,7 +109,7 @@ puts "
 
 puts "
 	<tr>
-	<form id=channel_group method=get action=$env(REQUEST_URI)>
+	<form class=auto id=channel_group method=get action=$env(REQUEST_URI)>
 		<th class=key>Channel Group for EPG</th>
 		<td><select id=channel_group name=channel_group
 		    class=\"text ui-widget-content ui-corner-all\"
@@ -120,7 +129,9 @@ foreach grp [$settings channel_groups] {
 
 puts "
 		</select>
+		<small>
 		<input name=channel_group value=\"set\" type=submit>
+		</small>
 		<div id=channel_group_output></div>
 		</td>
 	</form>
@@ -138,12 +149,14 @@ puts "
 
 puts "
 	<tr>
-	<form id=smtp_server method=get action=$env(REQUEST_URI)>
+	<form class=auto id=smtp_server method=get action=$env(REQUEST_URI)>
 		<th class=key>SMTP Server for outbound email</th>
 		<td><input name=smtp_server value=\"$smtp_server\"
 		    class=\"text ui-widget-content ui-corner-all\"
 		    length=20 maxlength=50>
+		    <small>
 		    <input id=smtp_server_submit value=\"change\" type=submit>
+		    </small>
 		    <div id=smtp_server_output></div>
 		</td>
 	</form>
@@ -153,7 +166,37 @@ puts "
 puts "
 	</table>
 	</fieldset>
+	<br><br>
+	<fieldset style=\"display: inline\">
+	<legend> Advanced Settings </legend>
+	<table>
 "
 
-source /mod/var/mongoose/html/lib/footer.jim
+puts "
+	<tr>
+	<form class=auto id=pkgdev method=get action=$env(REQUEST_URI)>
+		<th class=key>Show development and advanced packages?</th>
+		<td><input name=pkgdevoff value=0 type=hidden>
+		    <input name=pkgdev id=pkgdev value=1 type=checkbox
+"
+if {$pkgdev} { puts " checked" }
+puts {
+		>
+		    <small>
+		    <input id=pkgdev_submit value="save" type=submit>
+		    </small>
+		    <div id=pkgdev_output></div>
+		</td>
+	</form>
+	</tr>
+}
+
+puts "
+	</table>
+	</fieldset>
+"
+
+eval_plugins settings
+
+footer
 

var/mongoose/cgi-bin/status.jim

@@ -3,10 +3,6 @@
 puts "Content-Type: text/html"
 puts ""
 
-#puts "<img style=\"vertical-align: middle\" src=/images/745_1_11_Video_1REC.png><span style=\"vertical-align: middle\">Recording one thing</span>"
-#puts "<img style=\"vertical-align: middle\" src=/images/745_1_11_Video_1REC.png><span style=\"vertical-align: middle\">Recording another thing</span>"
-#puts "<img style=\"vertical-align: middle\" src=/images/745_1_10_Video_2Live.png><span style=\"vertical-align: middle\">Watching something else</span>"
-
 if {[catch {set pid [exec pgrep humaxtv]}]} { exit }
 
 if {[catch {set data [exec lsof -p $pid | grep Video | fgrep .ts]} ]} {

var/mongoose/cgi-bin/transmission.jim

@@ -0,0 +1,13 @@
+#!/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/backup.shtml

@@ -1,4 +1,4 @@
-<!--#include virtual="/lib/header.shtml" -->
-<!--#exec cmd="/mod/var/mongoose/include/db.jim" -->
-<!--#include virtual="/lib/footer.shtml" -->
-
+<!--#include virtual="/lib/header.shtml" -->
+<!--#exec cmd="/mod/var/mongoose/include/backup.jim" -->
+<!--#include virtual="/lib/footer.shtml" -->
+

var/mongoose/html/css/jquery.contextMenu.css

@@ -1,62 +1,62 @@
-/* Generic context menu styles */
-.contextMenu {
-	position: absolute;
-	width: 120px;
-	z-index: 99999;
-	border: solid 1px #CCC;
-	background: #EEE;
-	padding: 0px;
-	margin: 0px;
-	display: none;
-}
-
-.contextMenu LI {
-	list-style: none;
-	padding: 0px;
-	margin: 0px;
-}
-
-.contextMenu A {
-	color: #333;
-	text-decoration: none;
-	display: block;
-	line-height: 20px;
-	height: 20px;
-	background-position: 6px center;
-	background-repeat: no-repeat;
-	outline: none;
-	padding: 1px 5px;
-	padding-left: 28px;
-}
-
-.contextMenu LI.hover A {
-	color: #FFF;
-	background-color: #3399FF;
-}
-
-.contextMenu LI.disabled A {
-	color: #AAA;
-	cursor: default;
-}
-
-.contextMenu LI.hover.disabled A {
-	background-color: transparent;
-}
-
-.contextMenu LI.separator {
-	border-top: solid 1px #CCC;
-}
-
-/*
-	Adding Icons
-	
-	You can add icons to the context menu by adding
-	classes to the respective LI element(s)
-*/
-
-.contextMenu LI.edit A { background-image: url(images/page_white_edit.png); }
-.contextMenu LI.cut A { background-image: url(images/cut.png); }
-.contextMenu LI.copy A { background-image: url(images/page_white_copy.png); }
-.contextMenu LI.paste A { background-image: url(images/page_white_paste.png); }
-.contextMenu LI.delete A { background-image: url(images/page_white_delete.png); }
-.contextMenu LI.quit A { background-image: url(images/door.png); }
+/* Generic context menu styles */
+.contextMenu {
+	position: absolute;
+	width: 150px;
+	z-index: 99999;
+	border: solid 1px #CCC;
+	background: #EEE;
+	padding: 0px;
+	margin: 0px;
+	display: none;
+}
+
+.contextMenu LI {
+	list-style: none;
+	padding: 0px;
+	margin: 0px;
+}
+
+.contextMenu A {
+	color: #333;
+	text-decoration: none;
+	display: block;
+	line-height: 20px;
+	height: 20px;
+	background-position: 6px center;
+	background-repeat: no-repeat;
+	outline: none;
+	padding: 1px 5px;
+	padding-left: 28px;
+}
+
+.contextMenu LI.hover A {
+	color: #FFF;
+	background-color: #3399FF;
+}
+
+.contextMenu LI.disabled A {
+	color: #AAA;
+	cursor: default;
+}
+
+.contextMenu LI.hover.disabled A {
+	background-color: transparent;
+}
+
+.contextMenu LI.separator {
+	border-top: solid 1px #CCC;
+}
+
+/*
+	Adding Icons
+	
+	You can add icons to the context menu by adding
+	classes to the respective LI element(s)
+*/
+
+.contextMenu LI.edit A { background-image: url(images/page_white_edit.png); }
+.contextMenu LI.cut A { background-image: url(images/cut.png); }
+.contextMenu LI.copy A { background-image: url(images/page_white_copy.png); }
+.contextMenu LI.paste A { background-image: url(images/page_white_paste.png); }
+.contextMenu LI.delete A { background-image: url(images/page_white_delete.png); }
+.contextMenu LI.quit A { background-image: url(images/door.png); }

var/mongoose/html/css/jquery.progressbar.css

@@ -0,0 +1,31 @@
+
+/* progress bar container */
+#progressbar{
+	border:1px solid black;
+	width:200px;
+	height:20px;
+	position:relative;
+	color:black; 
+}
+/* color bar */
+#progressbar div.progress{
+	position:absolute;
+	width:0;
+	height:100%;
+	overflow:hidden;
+	background-color:#369;
+}
+/* text on bar */
+#progressbar div.progress .text{
+	position:absolute;
+	text-align:center;
+	color:white;
+}
+/* text off bar */
+#progressbar div.text{
+	position:absolute;
+	width:100%;
+	height:100%;
+	text-align:center;
+}
+

var/mongoose/html/css/style.css

@@ -52,6 +52,13 @@ div.footer
 	padding-top: 2em;
 }
 
+div.warningbox
+{
+	background: url('/img/redshade.png') repeat-x;
+	padding: 0.5em;
+	margin: 1em;
+}
+
 table
 {
 	empty-cells: show;
@@ -236,8 +243,18 @@ img.progress
 	display: block;
 }
 
+.hidden
+{
+	display: none;
+}
+
 input.text
 {
 	padding: .4em;
 }
 
+.highlight
+{
+	background-color: yellow;
+}
+

var/mongoose/html/css/tsort.css

@@ -0,0 +1,21 @@
+
+table.tablesorter .header {
+	background-image: url(/img/tsort/bg.png);
+	background-repeat: no-repeat;
+	border-left: 1px solid #FFF;
+	border-right: 1px solid #000;
+	border-top: 1px solid #FFF;
+	padding-left: 30px;
+	padding-top: 8px;
+	height: auto;
+}
+
+table.tablesorter .headerSortUp {
+	background-image: url(/img/tsort/asc.png);
+	background-repeat: no-repeat;
+}
+
+table.tablesorter .headerSortDown {
+	background-image: url(/img/tsort/desc.png);
+	background-repeat: no-repeat;
+}

var/mongoose/html/epg.shtml

@@ -1,27 +1,4 @@
 <!--#include virtual="/lib/header.shtml" -->
-
-<style type=text/css>
-.ui-button, .ui-button-text { padding: 0; font-size: 12px; }
-</style>
-
-<div style="width: 75%">
-<form method=get action=/cgi-bin/epg_search.jim>
-<fieldset>
-<legend>EPG Search</legend>
-<label for=term>Query</label>
-<input type=text name=term id=term size=20 maxlength=255
-    class="text ui-widget-content ui-corner-all">
-<input type=submit value=Search>
-<input type=checkbox name=full id=full>
-<label for=full>Search descriptions as well as titles.</label>
-</fieldset>
-</form>
-</div>
-
-<script type=text/javascript>
-	$('input:submit').button();
-</script>
-
 <!--#exec cmd="/mod/var/mongoose/include/epg.jim" -->
 <!--#include virtual="/lib/footer.shtml" -->
 

var/mongoose/html/index.shtml

@@ -19,6 +19,8 @@ $(document).ready(function() {
 });
 </script>
 
+<div style="clear: both">
+
 <div style="float: left">
 	<center>
 	<a href=/cgi-bin/browse.jim>
@@ -39,7 +41,7 @@ $(document).ready(function() {
 	</a>
 	<br>
 	<a href=/sched.shtml>
-	<b>Scheduled Recordings</b>
+	<b>Scheduled Events</b>
 	</a>
 	<br>
 	</center>
@@ -56,8 +58,11 @@ $(document).ready(function() {
 	<br>
 	</center>
 </div>
+</div>
 
-<div style="float: left; clear: left">
+<div style="clear: both; padding-top: 1em">
+
+<div style="float: left">
 	<center>
 	<a href=/services.shtml>
 	<img src=/img/spanner.jpg border=0 width=217 height=228>
@@ -72,11 +77,11 @@ $(document).ready(function() {
 
 <div style="float: left">
 	<center>
-	<a href=/packages.shtml>
+	<a href=/pkg.shtml>
 	<img src=/img/packages.jpg border=0 width=217 height=228>
 	</a>
 	<br>
-	<a href=/packages.shtml>
+	<a href=/pkg.shtml>
 	<b>Package Management</b>
 	</a>
 	<br>
@@ -97,13 +102,16 @@ $(document).ready(function() {
 	</center>
 </div>
 
+</div>
+
+<div style="clear: both">
+<!--#exec cmd="/mod/var/mongoose/include/mediatomb.jim" -->
+<!--#exec cmd="/mod/var/mongoose/include/transmission.jim" -->
+</div>
 <div class=footer>
 <ul>
 <li>
-<!--#exec cmd="/mod/var/mongoose/include/mediatomb.jim" -->
-MediaTomb Web Interface</a>
-</li><li>
-<a href=/db.shtml target=_blank>SQLite3 Database Dump</a>
+<a href=/cgi-bin/db.jim target=_blank>SQLite3 Database Dump</a>
 </li><li>
 <a href=/jim/ref.html target=_blank>Jim Reference Manual</a> |
 <a href=/jim/oo.html target=_blank>OO</a> |

var/mongoose/html/js/iajax.js

@@ -0,0 +1,50 @@
+
+jQuery.ajaxPrefilter(function(options, _, jqXHR) {
+
+    if (jQuery.isFunction(options.progress)) {
+
+        var xhrFactory = options.xhr,
+            interval;
+
+        options.xhr = function() {
+            
+            var xhr = xhrFactory.apply(this, arguments),
+                partial = "",
+                prevcount = 1;
+
+            interval = setInterval(function() {
+
+                var responseText,
+                    jQueryPartial;
+
+                try {
+
+                    responseText = xhr.responseText;
+                    
+                    if (responseText && (responseText.length > partial.length))
+		    {
+
+                        partial = responseText;
+                        jQueryPartial = $(partial).filter("*")
+
+                        if (jQueryPartial.length > prevcount) {
+                            prevcount = jQueryPartial.length;
+                            options.progress(jQueryPartial.filter("*:not(:last)"));
+                        }
+                    }
+                } catch(e) {
+                    alert(e);
+                }
+            }, options.progressInterval);
+
+            return xhr;
+        };
+        function stop()
+	{
+            if (interval)
+                clearInterval(interval);
+        }
+        jqXHR.then(stop, stop);
+    }
+});
+

var/mongoose/html/js/jquery.highlight.js

@@ -0,0 +1,53 @@
+/*
+
+highlight v3
+
+Highlights arbitrary terms.
+
+<http://johannburkard.de/blog/programming/javascript/highlight-javascript-text-higlighting-jquery-plugin.html>
+
+MIT license.
+
+Johann Burkard
+<http://johannburkard.de>
+<mailto:jb@eaio.com>
+
+*/
+
+jQuery.fn.highlight = function(pat) {
+ function innerHighlight(node, pat) {
+  var skip = 0;
+  if (node.nodeType == 3) {
+   var pos = node.data.toUpperCase().indexOf(pat);
+   if (pos >= 0) {
+    var spannode = document.createElement('span');
+    spannode.className = 'highlight';
+    var middlebit = node.splitText(pos);
+    var endbit = middlebit.splitText(pat.length);
+    var middleclone = middlebit.cloneNode(true);
+    spannode.appendChild(middleclone);
+    middlebit.parentNode.replaceChild(spannode, middlebit);
+    skip = 1;
+   }
+  }
+  else if (node.nodeType == 1 && node.childNodes && !/(script|style)/i.test(node.tagName)) {
+   for (var i = 0; i < node.childNodes.length; ++i) {
+    i += innerHighlight(node.childNodes[i], pat);
+   }
+  }
+  return skip;
+ }
+ return this.each(function() {
+  innerHighlight(this, pat.toUpperCase());
+ });
+};
+
+jQuery.fn.removeHighlight = function() {
+ return this.find("span.highlight").each(function() {
+  this.parentNode.firstChild.nodeName;
+  with (this.parentNode) {
+   replaceChild(this.firstChild, this);
+   normalize();
+  }
+ }).end();
+};

var/mongoose/html/js/jquery.progressbar.js

@@ -0,0 +1,54 @@
+/*
+ * Copyright (c) 2007 Josh Bush (digitalbush.com)
+ * 
+ * Permission is hereby granted, free of charge, to any person
+ * obtaining a copy of this software and associated documentation
+ * files (the "Software"), to deal in the Software without
+ * restriction, including without limitation the rights to use,
+ * copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the
+ * Software is furnished to do so, subject to the following
+ * conditions:
+
+ * The above copyright notice and this permission notice shall be
+ * included in all copies or substantial portions of the Software.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+ * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+ * HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+ * OTHER DEALINGS IN THE SOFTWARE. 
+ */
+ 
+/*
+ * Progress Bar Plugin for jQuery
+ * Version: Alpha 2
+ * Release: 2007-02-26
+ */ 
+(function($) {	
+	//Main Method
+	$.fn.reportprogress = function(val,maxVal) {			
+		var max=100;
+		if(maxVal)
+			max=maxVal;
+		return this.each(
+			function(){		
+				var div=$(this);
+				var innerdiv=div.find(".progress");
+				
+				if(innerdiv.length!=1){						
+					innerdiv=$("<div class='progress'></div>");					
+					div.append("<div class='text'>&nbsp;</div>");
+					$("<span class='text'>&nbsp;</span>").css("width",div.width()).appendTo(innerdiv);					
+					div.append(innerdiv);					
+				}
+				var width=Math.round(val/max*100);
+				innerdiv.css("width",width+"%");	
+				div.find(".text").html(width+" %");
+			}
+		);
+	};
+})(jQuery);

var/mongoose/html/lib/header.jim

@@ -16,6 +16,9 @@ puts {
 }
 
 source /mod/var/mongoose/html/lib/topbar.jim
+puts "<div id=restart_block>"
+source /mod/var/mongoose/include/restart.jim
+puts "</div>"
 
 puts {
 <div style="clear: both">

var/mongoose/html/lib/header.shtml

@@ -1,6 +1,8 @@
 <html>
 <head>
 <title><!--#exec cmd="/mod/var/mongoose/include/model.jim" --></title>
+<meta http-equiv="expires" value="Thu, 01 Jan 1970 00:00:00 GMT" />
+<meta http-equiv="pragma" content="no-cache" />
 <link rel="shortcut icon" href=/img/favicon.ico />
 <link href=/css/style.css rel=stylesheet type=text/css />
 <link type="text/css" href="/css/jquery-ui.css" rel="Stylesheet" />     
@@ -10,6 +12,9 @@
 <body>
 
 <!--#include virtual="/lib/topbar.shtml" -->
+<div id=restart_block>
+<!--#exec cmd="/mod/var/mongoose/include/restart.jim" -->
+</div>
 
 <div style="clear: both">
 

var/mongoose/html/lib/topbar.jim

@@ -4,17 +4,18 @@ puts {
 <div class=container onclick="location.href='/'; return false;">
 	<div class=left><img src=/images/154_1_00_WIN_MD116_1L.png></div>
 	<div class=middle>
-		<img border=0 src=/images/516_1_26_Freeview_Logo.png>
-		<span style="font-size: 150%; padding: 0 0 0 2em;">
-}
-source /mod/var/mongoose/include/model.jim
-puts {
-		</span>
-<!-- Start include diskspace -->
+<!-- Start include diskspace - above other items to work around IE feature.. -->
 }
 source /mod/var/mongoose/include/diskspace.jim
 puts {
 <!-- End include diskspace -->
+		<img border=0 src=/images/516_1_26_Freeview_Logo.png>
+		<span style="display: inline; font-size: 150%;
+		    padding: 0 0 0 2em;">
+}
+source /mod/var/mongoose/include/model.jim
+puts {
+		</span>
 	</div>
 	<div class=right><img src=/images/154_1_00_WIN_MD116_3R.png></div>
 </div>

var/mongoose/html/lib/topbar.shtml

@@ -3,13 +3,13 @@
 <div class=container onclick="location.href='/'; return false;">
 	<div class=left><img src=/images/154_1_00_WIN_MD116_1L.png></div>
 	<div class=middle>
-		<img border=0 src=/images/516_1_26_Freeview_Logo.png>
-		<span style="font-size: 150%; padding: 0 0 0 2em;">
-<!--#exec cmd="/mod/var/mongoose/include/model.jim" -->
-		</span>
-<!-- Start include diskspace -->
+<!-- Start include diskspace - above other items to work around IE feature.. -->
 <!--#exec cmd="/mod/var/mongoose/include/diskspace.jim" -->
 <!-- End include diskspace -->
+		<img border=0 src=/images/516_1_26_Freeview_Logo.png>
+		<span style="font-size: 1.5em; padding: 0 0 0 2em;">
+<!--#exec cmd="/mod/var/mongoose/include/model.jim" -->
+		</span>
 	</div>
 	<div class=right><img src=/images/154_1_00_WIN_MD116_3R.png></div>
 </div>

var/mongoose/html/packages.shtml

@@ -1,14 +0,0 @@
-<!--#include virtual="/lib/header.shtml" -->
-
-<h1>Package Management</h1>
-<div id=results class=shadowbox style="width: 90%; display: none; margin: 1 0 1em 0">
-<div>
-<pre id=result_txt>
-Results...
-</pre>
-</div>
-</div>
-
-<!--#exec cmd="/mod/var/mongoose/include/packages.jim" -->
-
-<!--#include virtual="/lib/footer.shtml" -->

var/mongoose/html/pkg.shtml

@@ -0,0 +1,141 @@
+<!--#include virtual="/lib/header.shtml" -->
+
+<style type=text/css>
+button.install
+{
+	display: none;
+	background-image: none;
+	background: #ccff99;
+}
+button.remove
+{
+	display: none;
+	background-image: none;
+	background: #ff6666;
+}
+button.upgrade
+{
+	display: none;
+}
+</style>
+
+<div class=va style="padding: 0 0 1em 0">
+<h1 style="display: inline" class=va>Package Management</h1>
+<small>
+<button class=va id=opkgupdate style="display: none">
+Update package list from Internet
+</button>
+</small>
+</div>
+
+<div id=results class=shadowbox
+    style="width: 90%; display: none; margin: 1 0 1em 0">
+	<div>
+		<pre id=result_txt>
+		Updating package list...
+		</pre>
+	</div>
+</div>
+
+<div id=dialogue style="display: none; align: center">
+	<pre id=dresults></pre>
+	<div id=dspinner><img border=0 src=/img/loading.gif>Processing request...</div>
+</div>
+
+<script type=text/javascript src=/js/iajax.js></script>
+<script type=text/javascript>
+
+var opkg = '/cgi-bin/opkg.jim?cmd=';
+
+$(document).ready(function() {
+
+	$('#opkgupdate')
+	    .button()
+	    .click(function() { execopkg('update'); })
+	    .fadeIn('slow');
+
+	$('#pkgtabs').tabs({
+		load: setup_buttons,
+		spinner: '<img border=0 src=/img/loading.gif> ' +
+		    '<em>Loading...</em>'
+	});
+
+	var $dialog = $('#dialogue').dialog({
+		title: "Package Management Results",
+		modal: false, autoOpen: false,
+		height: 500, width: 700,
+		show: 'scale', hide: 'fade',
+		draggable: true, resizable: true,
+		buttons: { "Close":
+		    function() {$(this).dialog('close');}},
+		close: function(e,u) { window.location.reload(true); }
+	});
+
+	jQuery.ajaxSetup({progressInterval: 1});
+
+	function loaddata(data, isfinal)
+	{
+		console.log('loaddata called, final=' + isfinal);
+		console.log('Data: ' + data);
+		$('#dresults').append(data);
+		if (isfinal)
+			$('#dspinner').hide('slow');
+	}
+
+	function execopkg(arg)
+	{
+		$('#dspinner').show();
+		$dialog.dialog('open');
+		$('#dresults').empty();
+		$.ajax({
+			type: "GET",
+			url: opkg + arg,
+			progress: loaddata,
+			success: function(data) {
+				console.log("ajax success");
+				loaddata(data, true);
+			},
+			error: function(_, _, e) {
+				console.log("ajax error");
+				alert(e);
+			}
+		});
+	}
+
+	function setup_buttons()
+	{
+		$('button.remove, button.install, button.upgrade')
+		    .button()
+		    .click(function() {
+			if ($(this).attr('action') == 'remove' &&
+			    !confirm('Please confirm removal of the ' +
+			    $(this).attr('id') + ' package.'))
+				return;
+			execopkg(encodeURIComponent($(this).attr('action') +
+			    ' ' + $(this).attr('id')));
+		}).fadeIn('slow');
+	}
+});
+
+
+</script>
+
+<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=avail>
+		<span>Available</span>
+		</a>
+	</li>
+</ul>
+</div>
+
+<!--#include virtual="/lib/footer.shtml" -->

var/mongoose/html/sched.shtml

@@ -1,4 +1,6 @@
 <!--#include virtual="/lib/header.shtml" -->
+<script type="text/javascript" src="/js/jquery.tablesorter.js"></script>
+<link type=text/css href=/css/tsort.css rel=Stylesheet />
 <!--#exec cmd="/mod/var/mongoose/include/sched.jim" -->
 <!--#include virtual="/lib/footer.shtml" -->
 

var/mongoose/include/backup.jim

@@ -0,0 +1,66 @@
+#!/mod/bin/jimsh
+
+source /mod/var/mongoose/lib/setup
+require altrow rsv.class
+
+puts {
+<script type=text/javascript src=/cgi-bin/backup/backup.js></script>
+<h2>Backup/Restore</h2>
+
+<div id=restore_warning class="hidden warningbox">
+<center>
+<b>!!!!!!!!!!!!!! PLEASE NOTE !!!!!!!!!!!!!!
+<br><br>
+After restoring the scheduled recordings you <b>MUST</b> restart the box using
+the link at the top of the screen or via the remote control and then add
+at least one scheduled entry using the remote control
+(which you can then delete).
+</div>
+
+<div style="clear: both; float: left; width: 40%; border: 1px solid grey;
+    padding: 1em">
+To create a backup of your current favourite channel configuration and
+scheduled recordings, enter a name in the box below and click the button.
+A suggested name has been entered for you.
+
+<p>
+}
+
+puts "<input type=text size=30 maxlength=50 id=backup_name name=file
+    class=\"text ui-widget-content ui-corner-all\"
+    value=\"[clock format [clock seconds] -format "backup-%Y-%b-%d-%H:%M"]\">"
+puts "<button id=backup_button>Create Backup</button>"
+
+puts {
+	<br>
+	<div id=backup_working class=va style="display: none;">
+		<img class=va src=/img/loading.gif>&nbsp;
+		<font class=footnote>Backing up...</font>
+	</div>
+</div>
+
+
+<div id=backup_files_outer
+    style="float: left; width: 40%; border: 1px solid grey; margin-left: 1em;
+	padding: 0 1em 1em 1em">
+	<h3>Available Backups</h3>
+	<div id=backup_files style="padding: 0 0 0 2em">
+		<img src=/img/loading.gif>Retrieving list of backups...
+	</div>
+	<br>
+	<button id=restore_button disabled>Restore Backup</button>
+	<button id=delete_button disabled>Delete Backup</button>
+	<br>
+	<div id=restore_working class=va style="display: none;">
+		<img class=va src=/img/loading.gif>&nbsp;
+		<font class=footnote>Restoring...</font>
+	</div>
+</div>
+
+
+<div id=results class=pre
+    style="display: none; clear: both; float: left; padding: 1em;
+    margin-top: 1em; border: 1px solid grey; width: 70%">
+</div>
+}
+

var/mongoose/include/db.jim

@@ -1,43 +0,0 @@
-#!/mod/bin/jimsh
-
-package require sqlite3
-
-source /mod/var/mongoose/lib/altrow
-
-proc db_info {db_file} {
-	set db [sqlite3.open $db_file]
-	set tables [$db query {SELECT name FROM sqlite_master WHERE type='table' ORDER BY name}]
-	
-	puts "<h1>$db_file</h1>"
-	
-	foreach table $tables {
-		set table_name [lindex $table 1]
-		set columns [$db query "pragma table_info($table_name)"]
-		set datas [$db query "SELECT * FROM $table_name"]
-		
-		puts "<h2>$table_name</h2>"
-		puts "<table>"
-		puts "  <tr>"
-		foreach column $columns {
-			puts "    <th>[lindex $column 3]</th>"
-		}
-		puts "  </tr>"
-		foreach data $datas {
-			altrow
-			
-			for {set i 1} {$i < [llength $data]} {incr i 2} {
-				puts "    <td>[lindex $data $i]</td>"
-			}
-			puts "  </tr>"
-		}
-		puts "</table>"
-	}
-	
-	$db close
-}
-
-puts {<style type="text/css">table, td, th {border-collapse:collapse; border:1px solid black;}</style>}
-db_info /var/lib/humaxtv/rsv.db
-db_info /var/lib/humaxtv/setup.db
-db_info /var/lib/humaxtv/channel.db
-

var/mongoose/include/diskspace.jim

@@ -1,30 +1,31 @@
 #!/mod/bin/jimsh
 
-if {[os.gethostname] eq "hosting"} {
-	set size "1TB"
-	set used "100GB"
-	set perc "10"
-} else {
-	foreach df [split [exec df -h 2>>/dev/null] "\n\r"] {
-		if [string match *sd*2* $df] {
-			regsub -all -- {[[:space:]]+} $df " " df
-			set fields [split $df]
-			set size [lindex $fields 1]
-			set used [lindex $fields 2]
-			set perc [string trimright [lindex $fields 4] "%"]
-		}
-	}
-}
+source /mod/var/mongoose/lib/setup
+require system.class
 
+lassign [system diskspace] size used perc
 set file [format "%02d" [expr {$perc * 25 / 100 + 1}]]
 
-puts "<div style=\"float: right; background:url('/images/345_1_27_ST_USB_BG.png')\">"
-puts "<img src=/images/345_2_14_ST_HDD_$file.png>"
-puts "</div>"
-puts "<span style=\"float: right\">"
-puts "<br>"
-puts "Total space: $size<br>"
-puts "Used: $used ($perc%)"
-puts "</span>"
+# The HD model only has the USB images which are blue. I prefer the green
+# one so use those if available.
+if {[file exists /opt/share/images/blue/345_2_14_ST_HDD_01.png]} {
+	set prefix 345_2_14_ST_HDD
+} else {
+	set prefix 345_1_27_ST_USB
+}
 
+puts "
+
+	<span style=\"float: right; 
+	    background:url('/images/345_1_27_ST_USB_BG.png')
+	    no-repeat\">
+		<img src=/images/${prefix}_$file.png>
+	</span>
+
+	<span style=\"float: right\">
+		<br>
+		Total space: $size<br>
+		Used: $used ($perc%)
+	</span>
+"
 

var/mongoose/include/epg.jim

@@ -1,18 +1,16 @@
 #!/mod/bin/jimsh
 
-source /mod/var/mongoose/lib/epg.class
-source /mod/var/mongoose/lib/spinner.class
-source /mod/var/mongoose/lib/altrow
-source /mod/var/mongoose/lib/cat
+package require cgi
+source /mod/var/mongoose/lib/setup
+require epg.class spinner.class altrow epg_search
 
 [spinner new {
-	text "Loading EPG Data..."
+	text "Loading Now/Next Information..."
 	size "1.2em"
 	style "margin: 1em;"
 	}] start
 
-#cat /mod/var/mongoose/lib/epg_popup
-source /mod/var/mongoose/lib/epg_popup
+require epg_popup
 
 set start [clock milliseconds]
 set records [epg fetch dump -time [clock seconds]]

var/mongoose/include/mediatomb.jim

@@ -8,5 +8,18 @@ close $fd
 regexp {URL=([^"]*)} $data match
 set url [string range $match 4 [string length $match]]
 
-puts "<a href=$url>";
+puts "
+<div style=\"float: left; padding-top: 5em\">
+	<center>
+	<a href=$url>
+	<img border=0 src=/img/mediatomb.png width=180>
+	</a>
+	<br>
+	<a href=$url>
+	<b>MediaTomb</b>
+	</a>
+	<br>
+	</center>
+</div>
+"
 

var/mongoose/include/model.jim

@@ -1,15 +1,7 @@
 #!/mod/bin/jimsh
 
-if {[catch {set fp [open /etc/model r]}]} {
-	set model {HD[R]}
-} else {
-	set model [string trim [read $fp]]
-	close $fp
-}
+source /mod/var/mongoose/lib/setup
+require system.class
 
-if {[catch {set hostname [string trim [exec hostname]]}]} {
-	set hostname "humax"
-}
-
-puts "Humax $model Fox T2 ($hostname)"
+puts "Humax [system model] Fox T2 ([system hostname])"
 

var/mongoose/include/packages.jim

@@ -1,54 +0,0 @@
-#!/mod/bin/jimsh
-
-# Build a list of available packages
-
-set avail_pkgs {}
-foreach pkg [split [exec /bin/opkg list] "\n"] {
-	if [regexp {^ } $pkg] {
-		append descr $pkg
-	} else {
-		if {[regexp {^([^ ]+) - ([^ ]+) - (.*)$} \
-		    $pkg full name ver descr] == 0} { continue }
-	}
-	set avail_pkgs($name) [concat $ver "$descr"]
-	#puts "Set: $name = ($ver, $descr)<br>"
-}
-
-# Build a list of installed packages - just the names
-set inst_pkgs {}
-foreach pkg [split [exec /bin/opkg list-installed] "\n"] {
-	if {[regexp {^([^ ]+)} $pkg name] == 0} { continue }
-	lappend inst_pkgs $name
-	#puts "Inst: $name<br>"
-}
-
-puts "<table class=borders>"
-puts "<tr>"
-puts "<th>Installed</th>"
-puts "<th>Name</th>"
-puts "<th>Version</th>"
-puts "<th>Description</th>"
-puts "</tr>"
-
-foreach name [lsort [array names avail_pkgs]] {
-	set value $avail_pkgs($name)
-	set ver [lindex $value 0]
-	set descr [lrange $value 1 [llength $value]]
-
-	puts "<tr>"
-	puts "<td>"
-	if {[lsearch $inst_pkgs $name] > -1} {
-		puts "<img src=/img/on.png>"
-	} else {
-		puts "<img src=/img/off.png>"
-	}
-
-	puts "</td>"
-	puts "<td>$name</td>"
-	puts "<td>$ver</td>"
-	puts "<td>$descr</td>"
-	puts "</tr>"
-}
-
-puts "</table>"
-

var/mongoose/include/pkg.jim

@@ -0,0 +1,46 @@
+#!/mod/bin/jimsh
+
+source /mod/var/mongoose/lib/setup
+
+puts {
+<script type=text/javascript src=/js/packages.js></script>
+
+<style type=text/css>
+button.install
+{
+	display: none;
+	background-image: none;
+	background: #ccff99;
+}
+button.remove
+{
+	display: none;
+	background-image: none;
+	background: #ff6666;
+}
+button.upgrade
+{
+	display: none;
+}
+</style>
+
+<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=avail>
+		<span>Available</span>
+		</a>
+	</li>
+</ul>
+</div>
+}
+
+

var/mongoose/include/restart.jim

@@ -0,0 +1,43 @@
+#!/mod/bin/jimsh
+
+source /mod/var/mongoose/lib/setup
+require system.class
+
+if {[file exists /tmp/.restartpending]} {
+
+puts {
+	<center>
+	<div style="width: 60%; height: 0.7em;
+	    background: url(/img/stripes.gif) repeat-x;"></div>
+	<div style="font-size: 1.2em; width: 60%; text-align: center; padding: 0.5em">
+	A restart is required in order to complete a scheduling operation.
+	<br>
+	<font class=blood>
+}
+
+if {[system busy]} {
+	puts "Cannot restart whilst box is busy."
+} else {
+	puts {
+		Restart via the remote control or
+		<small><button id=restart_humaxtv>Restart now</button></small>
+	}
+}
+
+puts {
+	</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() {
+		if (confirm('Are you sure you wish to perform a restart now?'))
+			window.location = '/cgi-bin/restart.jim';
+	});
+	</script>
+}
+
+}
+

var/mongoose/include/sched.jim

@@ -1,103 +1,243 @@
 #!/mod/bin/jimsh
 
-package require sqlite3
+source /mod/var/mongoose/lib/setup
+require altrow rsv.class progressbar
 
-source /mod/var/mongoose/lib/altrow
+puts {
+<div id=dialogue></div>
+<script type=text/javascript>
 
-set db [sqlite3.open /var/lib/humaxtv/rsv.db]
-$db query {attach database '/var/lib/humaxtv/channel.db' as channel}
+$.tablesorter.addParser({
+	id: 'programme',
+	is: function () { return false; },
+	format: function(s) {
+		return s.toLowerCase().replace(/---/, 'zzz');
+	},
+	type: 'text'
+});
 
-set res [$db query {
-	select *, channel.TBL_SVC.szSvcName, channel.TBL_SVC.usLcn,
-	    case when ersvtype > 3 then 1 else 0 end as sort
-	from tbl_reservation
-	left join channel.TBL_SVC
-	on main.TBL_RESERVATION.hSvc = channel.TBL_SVC.hSvc
-	order by sort, nsttime
-	}]
+$.tablesorter.addParser({
+	id: 'date',
+	is: function () { return false; },
+	format: function(s) {
+		var d = new Date(s.substring(0, s.length - 4));
+		return d.getTime();
+	},
+	type: 'numeric'
+});
 
-puts "<table class=borders>"
-puts "<tr>"
-#puts "<th>Slot</th>"
-puts "<th colspan=2>Programme</th>"
-puts "<th>Duration</th>"
-puts "<th colspan=2>Channel</th>"
-puts "<th>Date/Time</th>"
-puts "<th>Mode</th>"
-puts "<th>Event/Series ID</th>"
-puts "</tr>"
-foreach r $res {
-	set name [string range $r(szevtname) 1 end]
-	if {[string first "i7" $name] == 0} {
-		set name [string range $name 2 end]
-		set b "*"
-	} else {
-		set b ""
-	}
+$(document).ready(function() {
+	$('table.tablesorter').tablesorter({
+	    headers: {
+		1: { sorter: false },
+		3: { sorter: 'programme' },
+		4: { sorter: 'date' },
+		5: { sorter: 'date' },
+		5: { sorter: false },
+		6: { sorter: false },
+		7: { sorter: false }
+	    }
+	});
+});
 
-	altrow
+$(document).ready(function() {
+	function docancel()
+	{
+		var table = $('#dialogue').attr('table');
+		var slot = $('#dialogue').attr('slot');
 
-	set rsvicon ""
-	set alta ""
-	switch $r(ersvtype) {
-		1 { set rsvicon "175_1_00_Reservation_Watch.png" }
-		2 { set rsvicon "175_1_00_Reservation_Watch.png" }
-		3 { set rsvicon "175_1_11_Reservation_Record.png" }
-		5 { set rsvicon "745_1_10_Video_2Live.png"; set alta "Wake-up" }
-		6 { set rsvicon "745_1_11_Video_1REC.png"; set alta "Sleep" }
-		7 { set rsvicon "345_6_08_ST_Ad_Hoc.png"
-		    set alta "Auto Update" }
-		default { set alta "Unknown type $r(ersvtype)" }
-	}
-	if {$name == ""} { set name "-- $alta --" }
-
-	set series 0
-	if {$r(ucRecKind) == 4} {
-		set RKIcon "175_1_11_Series_Record.png"
-		set series 1
-	} else {
-		switch $r(erepeat) {
-			1 {set RKIcon "521_1_00_RP_Daily_C.png"}
-			2 {set RKIcon "521_1_00_RP_Weekly_C.png"}
-			3 {set RKIcon "521_1_00_RP_Weekdays_C.png"}
-			4 {set RKIcon "521_1_00_RP_Weekend_C.png"}
-			default {set RKIcon ""}
+		if (confirm('Really remove scheduled event?'))
+		{
+			$.get('/cgi-bin/sched_cancel.jim?slot=' + slot +
+			    '&table=' + table, function() {
+				window.location.reload(true);
+			});
+			$('#dialogue').dialog('close');
 		}
 	}
 
+	var $buttons1 = {
+	    "Close" : function() {$(this).dialog('close');}
+	};
+	var $buttons2 = $.extend(
+	    {"Cancel Event": function() { docancel() }},
+	    $buttons1);
+
+	var $dialog = $('#dialogue').dialog({
+		title: "Schedule Details",
+		modal: false, autoOpen: false,
+		height: 500, width: 700,
+		show: 'scale', hide: 'fade',
+		draggable: true, resizable: true,
+		buttons: $buttons2,
+		close: function(e,u) { $('#dialogue').empty().html(
+		    '<img src="/img/loading.gif" alt="loading">'); }
+	});
+
+	function schedpopup(e, o)
+	{
+		e.preventDefault();
+		var slot = o.attr('slot');
+		var table = o.attr('table');
+		$('#dialogue').attr('slot', slot).attr('table', table);
+
+		var url = '/cgi-bin/sched_info.jim?slot=' + slot +
+		    '&table=' + table;
+		$('#dialogue').load(url);
+		$dialog.dialog('open');
+	}
+	$('a.schedule').click(function(e) { schedpopup(e, $(this)) });
+});
+</script>
+}
+
+proc eventheader {{table TBL_RESERVATION} note} {
+	puts {
+		<fieldset style="display: inline; padding: 1em">
+		<legend>
+	}
+	puts "<h3>$note</h3>"
+	puts {
+		</legend>
+		<table class="borders tablesorter">
+		<thead>
+		<tr>
+	}
+
+	if {$table eq "pending" } { puts "<th>Action</th>" }
+
+	puts {
+			<th></th>
+			<th>&nbsp;</th><th>Channel</th>
+			<th>Programme</th>
+			<th>Start Time</th>
+			<th>Duration</th>
+			<th>Mode</th>
+		</tr>
+		</thead>
+		<tbody>
+	}
+}
+
+proc eventrow {event {table TBL_RESERVATION}} {
+	set name [$event name]
+
+	altrow
+
+	set rsvicon [$event icon]
+	set RKIcon [$event RKIcon]
+	if {[$event get ucRecKind] == 4} {
+		set series 1
+	} else {
+		set series 0
+	}
+
 	if {$rsvicon ne ""} {
-		set rsvicon "<img src='images/$rsvicon' height=15>
+		set rsvicon "<img src='/images/$rsvicon' height=20>
 	}
 	if {$RKIcon ne ""} {
-		set RKIcon "<img src='images/$RKIcon' height=15>
+		set RKIcon "<img src='/images/$RKIcon' height=20>
 	}
 
-#	puts "<td>{$r(ulslot)}</td>"
-	puts "<td>$b</td><td>$name</td>"
-	puts "<td>[clock format $r(nduration) -format %T]</td>"
-	puts "<td>$r(usLcn)</td>"
-	puts "<td>[string range $r(szSvcName) 1 end]</td>"
-	if { $r(nsttime) < [clock seconds] } {
-		puts "<td class=blood>"
+	if {$table eq "pending"} {
+		if {[$event get action] == 0} {
+			set icon "add"
+		} else {
+			set icon "close"
+		}
+		puts "<td align=center>
+		    <img class=va width=30 src=/img/$icon.png></td>"
+	}
+
+	puts "<td>[$event get ulslot]</td>"
+
+	if {[$event get usLcn] ne ""} {
+		puts "
+		<td>
+			<img src=\"/img/channels/[$event channel_name].png\"
+			    width=50>
+		</td>
+		<td nowrap>[$event get usLcn]<br>
+			[$event channel_name]</td>
+		"
 	} else {
-		puts "<td>"
+		puts "<td>&nbsp;<br><br></td><td>&nbsp;</td>"
 	}
-	puts "[clock format $r(nsttime) -format {%c %Z}]</td>"
-	puts "<td>$rsvicon $RKIcon</td>"
-	puts "<td>"
-	set crid [join [lrange [split $r(szCRID) "/"] 1 end]]
-	if {$crid != ""} {
-		puts -nonewline "<a href=/cgi-bin/epg_search.jim?"
-		if $series { puts -nonewline "s" }
-		puts "crid=/$crid>
-		<img border=0 src=/images/421_1_00_CH_Title_2R_Arrow.png
-		    height=14>
-		$r(szCRID)"
+
+	puts "<td nowrap>
+		<a slot=[$event get ulslot] table=$table
+		href=# class=schedule>$name</a>
+		</td>"
+
+	set s [$event get nsttime]
+	set d [$event get nduration]
+	set e $($s + $d)
+	set n [clock seconds]
+
+	if { $n > $e } {
+		puts "<td class=blood nowrap class=va>"
+	} else {
+		puts "<td nowrap class=va>"
 	}
+	puts "[clock format $s -format "%a %d %b %Y"]<br>
+	    [clock format $s -format "%H:%M %Z"]"
+
+	if {$d > 0 && $n > $s && $n < $e} {
+		puts "<br>"
+		set perc [expr [expr $n - $s] * 100 / $d]
+		puts "<img class=va src=/images/745_1_11_Video_1REC.png>"
+		puts [progressbar $perc]
+	}
+
 	puts "</td>"
+
+	puts "<td>[clock format [$event get nduration] -format %T]</td>"
+
+	puts "<td nowrap>$rsvicon $RKIcon</td>"
+	if {[$event get aulEventToRecordInfo] != ""} {
+		puts "<td><img src=/img/lightning.png
+		    alt=\"Accepted by Humax\"
+		    title=\"Accepted by Humax\"></td>"
+	} else {
+		puts "<td>&nbsp;</td>"
+	}
 	puts "</tr>"
 }
-puts "</table>"
-puts "<font class=footnote>Click on the CRID to view episodes.</font>"
-$db close
+
+proc eventfooter {} {
+	puts "</tbody></table></fieldset>"
+}
+
+set events [rsv list pending]
+if {[llength $events] > 0} {
+	eventheader pending "Pending Scheduled Events"
+	foreach event $events {eventrow $event pending}
+	eventfooter
+	puts {
+		<small>
+		<button onclick="window.location='/cgi-bin/db.jim?db=rsvp.db&tab=pending';">
+		Raw database view
+		</button>
+		</small>
+	}
+}
+
+set events [rsv list]
+eventheader "live" "Scheduled Events"
+foreach event $events {eventrow $event}
+eventfooter
+
+puts {
+	<br>
+	<small>
+	<button onclick="window.location='/backup.shtml';">
+		Backup/Restore Scheduled Recordings/Events
+	</button>
+	<button onclick="window.location='/cgi-bin/db.jim?db=rsv.db&tab=TBL_RESERVATION';">
+		Raw database view
+	</button>
+	<script type=text/javascript>
+		$('button').button();
+	</script>
+}
 

var/mongoose/include/status.jim

@@ -1,35 +0,0 @@
-#!/mod/bin/jimsh
-
-set ::env(PATH) "/mod/bin/busybox:/mod/bin:/bin"
-
-set pid [exec pgrep humaxtv]
-
-if {[catch {set line [exec lsof -p $pid | grep Video | fgrep .ts]} ]} {
-	exit
-}
-
-regsub -all -- {[[:space:]]+} $line " " line
-set fields [split $line " "]
-set size [lindex $fields 6]
-
-sleep 2
-
-set line [exec lsof -p $pid | grep Video | fgrep .ts]
-regsub -all -- {[[:space:]]+} $line " " line
-set fields [split $line " "]
-set size2 [lindex $fields 6]
-
-if { $size2 > $size } {
-	set mode "Recording"
-	set icon "745_1_11_Video_1REC.png"
-} else {
-	set mode "Watching"
-	set icon "745_1_10_Video_2Live.png"
-}
-
-set name [lindex [split $line "/"] end]
-
-puts "<div class=shadowbox><div>"
-puts "<img src=/images/$icon>$mode $name"
-puts "</div></div>"
-

var/mongoose/include/transmission.jim

@@ -0,0 +1,21 @@
+#!/mod/bin/jimsh
+
+if {![file exists /mod/sbin/transmission-daemon]} { exit 0 }
+
+set url "/cgi-bin/transmission.jim"
+
+puts "
+<div style=\"float: left; padding-top: 5em\">
+	<center>
+	<a href=$url>
+	<img border=0 src=/img/transmission.png>
+	</a>
+	<br>
+	<a href=$url>
+	<b>Transmission</b>
+	</a>
+	<br>
+	</center>
+</div>
+"
+

var/mongoose/lib/chunked

@@ -0,0 +1,21 @@
+
+proc chunk {chk} {
+	puts -nonewline [format "%x\r\n" [string length $chk]]
+	puts -nonewline "$chk\r\n"
+	flush stdout
+}
+
+proc chunk_pad {{len 256}} {
+	incr len
+	chunk [string range [format "%${len}d" 0] 1 end-1]
+}
+
+proc start_chunked {{type "text/html"}} {
+	puts -nonewline "Content-Type: $type\r\n"
+	puts -nonewline "Transfer-Encoding: chunked\r\n\r\n"
+}
+
+proc end_chunked {} {
+	puts -nonewline "0\r\n\r\n\r\n"
+}
+

var/mongoose/lib/epg.class

@@ -1,20 +1,20 @@
+source /mod/var/mongoose/lib/setup
 
-if {[expr ! [exists -proc class ]]} { package require oo }
-if {[expr ! [exists -proc sqlite3.open ]]} { package require sqlite3 }
-if {[expr ! [exists -proc settings ]]} {
-	source /mod/var/mongoose/lib/settings.class
+if {![exists -proc class ]} { package require oo }
+if {![exists -proc sqlite3.open ]} { package require sqlite3 }
+
+require settings.class progressbar rsv.class
+
+set ::channeldb 0
+catch { set ::channeldb [sqlite3.open /var/lib/humaxtv/channel.db] }
+
+set ::epgpath /mnt/hd1/dvbepg/epg.dat
+set ::hdepgpath /media/drive1/epgsavedata
+if {![file exists $::epgpath] && [file exists $::hdepgpath]} {
+	set ::epgpath $::hdepgpath
 }
 
-source /mod/var/mongoose/lib/progressbar
-
-set channeldb 0
-catch { set channeldb [sqlite3.open /var/lib/humaxtv/channel.db] }
-
-set epgpath /mnt/hd1/dvbepg/epg.dat
-set hdepgpath /media/drive1/epgsavedata
-if {![file exists $epgpath] && [file exists $hdepgpath]} {
-	set epgpath $hdepgpath
-}
+set ::rsvlookup [rsv lookuptab]
 
 #  * service_id, event_id, start, duration, encrypted, name, text
 #  * warning, content code, content type,
@@ -38,6 +38,10 @@ class epg {
 	channel_num	0
 	channel_name	""
 	channel_crid	""
+	channel_hsvc	0
+
+	sched_type	0
+	rsv		0
 }
 
 epg method _parse {line} {
@@ -66,8 +70,15 @@ epg method percent {} {
 }
 
 epg method showing {} {
-	set percent [$self percent]
-	if {$percent > 0 && $percent < 100} { return 1 } else { return 0 }
+	set now [clock seconds]
+	if {$start > $now} { return 0 }
+	if {$start + $duration < $now} { return 0 }
+	return 1
+}
+
+epg method ended {} {
+	if {$start + $duration < [clock seconds]} { return 1 }
+	return 0
 }
 
 epg method elapsed {} {
@@ -83,7 +94,7 @@ epg method remaining {} {
 
 epg method type_icon {} {
 	set img ""
-	switch -- [$self get content_code] {
+	switch -- $content_code {
 		1 { set img "Movie" }
 		2 { set img "News" }
 		3 { set img "Show" }
@@ -111,7 +122,7 @@ proc {epg channelicon} {name {width 0} {style ""}} {
 }
 
 epg method channel_icon {{width 0} {style ""}} {
-	set str "<img src=\"/img/channels/[$self get channel_name].png\"";
+	set str "<img src=\"/img/channels/$channel_name.png\"";
 	if {$width > 0} { append str " width=$width" }
 	if {$style ne ""} { append str " style=\"$style\" }
 	append str " alt=\"\">"
@@ -123,13 +134,38 @@ epg method get_channel_info {} {
 
 	if {!$channel_num && $channeldb != ""} {
 		set chan [lindex [$channeldb query {
-			select szSvcName, usLcn, aucDefaultAuthority
+			select szSvcName, usLcn, aucDefaultAuthority, hsvc
 			from TBL_SVC
-			where usSvcId = %s} "[$self get service_id]"
+			where usSvcId = '%s'} $service_id
 		    ] 0]
-		set channel_num $chan(usLcn)
-		set channel_name [string range $chan(szSvcName) 1 end]
-		set channel_crid [string toupper $chan(aucDefaultAuthority)]
+		if {[dict exists $chan usLcn]} {
+			set channel_num $chan(usLcn)
+			set channel_name [string range $chan(szSvcName) 1 end]
+			set channel_crid [string toupper $chan(aucDefaultAuthority)]
+			set channel_hsvc $chan(hSvc)
+		}
+	}
+}
+
+epg method get_rsv {} {
+	if {$hsvc == 0} { $self get_channel_info }
+	if {$hsvc == 0} { return }
+
+	if {$rsv == 0 && $event_crid ne ""} {
+		set rsv [rsv entry $event_crid $hsvc]
+	}
+	if {$rsv == 0 && $series_crid ne ""} {
+		set rsv [rsv entry $series_crid $hsvc]
+	}
+}
+
+epg method process_sched {} {
+	set sched_type 0
+	if {$event_crid ne "" && "$channel_hsvc$event_crid" in $::rsvlookup} {
+		set sched_type 1
+	} elseif {$series_crid ne "" &&
+	    "$channel_hsvc$series_crid" in $::rsvlookup} {
+		set sched_type 2
 	}
 }
 
@@ -139,40 +175,55 @@ epg method icon_set {{height 0}} {
 	set set ""
 	if {$icon != ""} {
 		lappend set "<img src=$icon $height
-		    alt=\"[$self get content_type]\"
-		    title=\"[$self get content_type]\">"
+		    alt=\"$content_type\" title=\"$content_type\">"
 	}
-	if {[$self get rec_crid] != ""} {
+
+	$self process_sched
+	if {$sched_type == 1} {
 		lappend set \
-		    "<img src=/images/178_1_26_Icon_Recommend.png $height>"
+		    "<img src=/images/175_1_11_Reservation_Record.png $height>"
 	}
-	if {[$self get series_crid] != ""} {
+
+	if {$sched_type == 2} {
+		lappend set \
+		    "<img src=/images/175_1_11_Series_Record.png $height>"
+	} elseif {$series_crid ne ""} {
 		lappend set \
 		    "<img src=/images/178_1_00_Icon_Serise.png $height>"
 	}
+
+	if {$rec_crid ne ""} {
+		lappend set \
+		    "<img src=/images/178_1_26_Icon_Recommend.png $height>"
+	}
+
 	return $set
 }
 
 epg method cell {} {
-	set name [$self get name]
-	set text [$self get text]
-	
 	set percent [$self percent]
 
 	puts "<td nowrap valign=top title=\"$text\">"
 
 	puts [join [$self icon_set 14] ""]
 
+	if {$series_crid ne ""} {
+		set recopts 2
+	} else {
+		set recopts 1
+	}
+
 	puts "
-	    <a class=event href=# xs=[$self get service_id]
-		xe=[$self get event_id]>
-	    $name</a>"
+	    <a class=event href=# xs=$service_id xe=$event_id
+		sch=$sched_type rec=$recopts>
+	    $name</a>
+	"
 
 	puts "<br>"
 
 	puts "<font class=footnote>"
-	puts "[clock format [$self get start] -format %H:%M]"
-	puts " ([clock format [$self get duration] -format %T])"
+	puts "[clock format $start -format %H:%M]"
+	puts " ([clock format $duration -format %T])"
 	if {$percent > 0 && $percent < 100} {
 		puts "<br>[progressbar $percent]"
 		puts "$percent% [clock format [$self elapsed] -format %T] /
@@ -183,8 +234,8 @@ epg method cell {} {
 }
 
 epg method next {} {
-	set tm [expr [$self get start] + [$self get duration] + 60]
-	set nextlist [epg fetch dump -service [$self get service_id] -time $tm]
+	set tm $($start + $duration + 60)
+	set nextlist [epg fetch dump -service $service_id -time $tm]
 
 	if {[llength nextlist] > 0} {
 		return [lindex $nextlist 0]
@@ -195,13 +246,25 @@ epg method next {} {
 
 epg method recommended {} {
 	set rec ""
-	if {[$self get rec_crid] != ""} {
+	if {$rec_crid ne ""} {
 		catch { set rec [lindex [
-		    epg fetch dump -crid [$self get rec_crid]] 0] }
+		    epg fetch dump -crid $rec_crid] 0] }
 	}
 	return $rec
 }
 
+epg method othertimes {} {
+	if {$event_crid eq ""} { return "" }
+
+	set others ""
+	foreach other [epg fetch dump -crid $event_crid] {
+		if {[$other get service_id] == $service_id &&
+		    [$other get event_id] == $event_id} { continue }
+		lappend others $other
+	}
+	return $others
+}
+
 proc {epg parse} {line} {
 	set e [epg new]
 	$e _parse $line
@@ -228,6 +291,7 @@ proc {epg exec} {mode args} {
 				-service { lappend cmd -S $args($arg) }
 				-event { lappend cmd -E $args($arg) }
 				-time { lappend cmd -@ $args($arg) }
+				-day { lappend cmd -/ $args($arg) }
 				-extra { set extra $args($arg) }
 				default { error "Invalid option, $arg" }
 			}
@@ -265,3 +329,15 @@ proc {epg favlist} {} {
 	"] { lindex $i end }]
 }
 
+proc {epg channellist} {} {
+	global channeldb
+
+	set channels {}
+	lmap i [$channeldb query "
+		select usSvcid, szSvcName
+		from TBL_SVC
+	"] { set channels([string range [lindex $i 3] 1 end]) [lindex $i 1] }
+
+	return $channels
+}
+

var/mongoose/lib/epg_popup

@@ -1,27 +1,70 @@
 puts {
 <div id=dialogue></div>
 <script type=text/javascript>
-	$(document).ready(function() {
-		var $dialog = $('#dialogue').dialog({
-			title: "Programme Details",
-			modal: false, autoOpen: false,
-			height: 500, width: 700,
-			show: 'scale', hide: 'fade',
-			draggable: true, resizable: true,
-			buttons: { "Close":
-			    function() {$(this).dialog('close');}},
-			close: function(e,u) { $('#dialogue').empty().html(
-			    '<img src="/img/loading.gif" alt="loading">'); }
-		});
-		$('a.event').click(function(e) {
-			e.preventDefault();
-			var url = '/cgi-bin/epg_info.jim?service=' +
-			    $(this).attr('xs') + '&event=' +
-			    $(this).attr('xe') + '&bare=1';
-			$('#dialogue').load(url);
-			$dialog.dialog('open');
+$(document).ready(function() {
+	function doschedule(type)
+	{
+		$('#epginfo_extra').load('/cgi-bin/epg_schedule.jim?' +
+		    'service=' +
+		    encodeURIComponent($('#dialogue').attr('xs')) +
+		    '&event=' +
+		    encodeURIComponent($('#dialogue').attr('xe')) +
+		    '&type=' + type, function() {
+			$('#restart_block')
+			    .load('/cgi-bin/restartblock.jim');
 		});
+		$(":button:contains('Record')").fadeOut('slow');
+	}
+
+	var $buttons1 = {
+	    "Close" : function() {$(this).dialog('close');}
+	};
+	var $buttons2 = $.extend(
+	    {"Record Programme": function() { doschedule(1) }},
+	    $buttons1);
+	var $buttons3 = $.extend(
+	    {"Record Series": function() { doschedule(2) }},
+	    $buttons2);
+
+	var $dialog = $('#dialogue').dialog({
+		title: "Programme Details",
+		modal: false, autoOpen: false,
+		height: 500, width: 700,
+		show: 'scale', hide: 'fade',
+		draggable: true, resizable: true,
+		buttons: $buttons1,
+		close: function(e,u) { $('#dialogue').empty().html(
+		    '<img src="/img/loading.gif" alt="loading">'); }
 	});
+
+	function epgpopup(e, o)
+	{
+		e.preventDefault();
+		var sch = o.attr('sch');
+		var rec = o.attr('rec');
+		if (sch != 0)
+			$dialog.dialog("option", "buttons", $buttons1);
+		else if (rec == 2)
+			$dialog.dialog("option", "buttons", $buttons3);
+		else if (rec == 1)
+			$dialog.dialog("option", "buttons", $buttons2);
+		else
+			$dialog.dialog("option", "buttons", $buttons1);
+		var url = '/cgi-bin/epg_info.jim?service=' +
+		    o.attr('xs') + '&event=' +
+		    o.attr('xe') + '&bare=1';
+		$('#dialogue').load(url, function() {
+			$('#dialogue a.event').click(function(e) {
+				epgpopup(e, $(this));
+			});
+		});
+		$('#dialogue')
+		    .attr('xs', o.attr('xs'))
+		    .attr('xe', o.attr('xe'));
+		$dialog.dialog('open');
+	}
+	$('a.event').click(function(e) { epgpopup(e, $(this)) });
+});
 </script>
 }
 

var/mongoose/lib/epg_search

@@ -0,0 +1,124 @@
+
+puts {
+<style type=text/css>
+.ui-button, .ui-button-text { padding: 0; font-size: 12px; }
+#moresearch { display: none; }
+#morebutton { position: relative; top: -12px; }
+</style>
+}
+
+set searchterm ""
+catch { set searchterm [dict get $_cgi term] }
+set searchfull 0
+catch { if {[dict exists $_cgi full]} { set searchfull 1 } }
+
+puts "
+<form method=get action=/cgi-bin/epg_search.jim>
+<fieldset>
+<legend>EPG Search</legend>
+<label for=term>Query</label>
+<input type=text name=term id=term size=20 maxlength=255 value=\"$searchterm\"
+    class=\"text ui-widget-content ui-corner-all\">
+<input type=submit value=Search>
+<input type=checkbox name=full id=full"
+if {$searchfull == 1} { puts -nonewline " checked" }
+puts ">
+<label for=full>Search descriptions as well as titles.</label>
+<font class=footnote style=\"margin-left: 5em\">
+	Click down arrow below for more options.
+</font>
+<div id=moresearch class=hidden>
+"
+
+proc cts {type img text} {
+	puts "<a href=/cgi-bin/epg_search.jim?ct=$type>
+		<img height=18 border=0 src=/images/173_3_00_G3_$img.png>
+		&nbsp;$text</a>";
+}
+
+puts {
+	<br>
+	<fieldset>
+	<legend>Content Type Searches</legend>
+	<table>
+	<tr>
+	<td>
+}
+
+cts 1 "Movie" "Film/Drama"
+puts "</td><td>"
+cts 2 "News" "News/Current affairs"
+puts "</td><td>"
+cts 4 "Sports" "Sport"
+puts "</td><td>"
+cts 9 "Education" "Education/Science/Factual"
+puts "</td><td>"
+cts 10 "Leisure" "Leisure"
+
+puts "</td><td><a href=/epg.shtml>Now/Next</a>"
+
+puts "</td></tr><tr><td>"
+
+cts 7 "Art" "Arts/Culture"
+puts "</td><td>"
+cts 3 "Show" "Show/Game show"
+puts "</td><td>"
+cts 5 "Children" "Children"
+puts "</td><td>"
+cts 8 "Society" "Social/Political/Economic"
+puts "</td><td>"
+cts 6 "Music" "Music/Ballet/Dance"
+
+puts "</tr></table></fieldset>"
+
+set db [sqlite3.open /var/lib/humaxtv/setup.db]
+set res [$db query {
+	select itemBlob from TBL_USERCONFIG
+	where itemName like 'EPG\_KEYWORD\_%%' ESCAPE '\'
+}]
+$db close
+
+if {[llength $res] > 0} {
+	puts "
+		<fieldset>
+		<legend>Keyword Searches</legend>
+		<table cellpadding=5>
+		<tr>
+	"
+	foreach keyword $res {
+		set kw [string range [lindex $keyword 1] 1 end]
+		# Clean the keyword string.
+		regexp -nocase {^(\w+)} $kw kw
+		puts "<td><a href=/cgi-bin/epg_search.jim?term=[cgi_quote_url $kw]>$kw
+		    </a></td>"
+	}
+	puts "
+		</tr>
+		</table>
+		</fieldset>
+	"
+}
+
+puts "
+	</div>
+"
+
+puts "</fieldset>"
+puts "<center><img id=morebutton src=/img/more_show.png></center>"
+puts "</form>"
+
+puts {
+<script type=text/javascript>
+$('input:submit').button();
+$('#morebutton').click(function(e) {
+	e.preventDefault();
+	$('#moresearch').slideToggle('slow');
+	if ($('#morebutton').attr('src') == '/img/more_show.png')
+		$('#morebutton').attr('src', '/img/more_hide.png');
+	else
+		$('#morebutton').attr('src', '/img/more_show.png');
+});
+
+</script>
+}
+

var/mongoose/lib/ffmpeg

@@ -1,8 +1,14 @@
 #!/bin/sh
 
-/mod/bin/ffmpeg "$@" 2>&1 | sed '
-	1,8d
-	$d
-'
+if [ -x /mod/bin/ffprobe ]; then
+	/mod/bin/ffprobe "$@" 2>&1 | sed '
+		1,10d
+	'
+else
+	/mod/bin/ffmpeg "$@" 2>&1 | sed '
+		1,8d
+		$d
+	'
+fi
 exit 0
 

var/mongoose/lib/findhsvc

@@ -0,0 +1,38 @@
+
+if {![exists -proc get_channel_attr]} {
+	require rsv.class
+
+	proc get_channel_attr {channel {field hSvc}} {
+		global rsvdb
+
+		set ff [$rsvdb query "
+			select $field
+			from channel.TBL_SVC
+			where szSvcName = '$channel'
+			or szSvcname = '\025$channel'
+			limit 1
+		"]
+
+		if {[llength $ff] == 1} {
+			return [lindex [lindex $ff 0] 1]
+		}
+		return ""
+	}
+
+	proc get_channel_attr_bylcn {lcn {field hSvc}} {
+		global rsvdb
+
+		set ff [$rsvdb query "
+			select $field
+			from channel.TBL_SVC
+			where usLcn = $lcn
+			limit 1
+		"]
+
+		if {[llength $ff] == 1} {
+			return [lindex [lindex $ff 0] 1]
+		}
+		return 0
+	}
+}
+

var/mongoose/lib/opkg

@@ -0,0 +1,6 @@
+#!/bin/sh
+
+# stderr is always unbuffered so use that...
+/bin/opkg "$@" 2>&1
+exit 0
+

var/mongoose/lib/pkg.class

@@ -0,0 +1,103 @@
+
+if {[expr ! [exists -proc class ]]} { package require oo }
+
+class pkg {
+	name		""
+	latest		""
+	descr		""
+	installed	""
+}
+
+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
+	set info [exec /bin/opkg list-installed $nm]
+	regexp {^([^ ]+) - ([^ ]+)$} $info full xname installed
+
+	return $self
+}
+
+proc {pkg load} {nm} {
+	return [[pkg] _load $nm]
+}
+
+pkg method is {what} {
+	switch $what {
+		installed {
+			if {$installed eq ""} { return 0 }
+			return 1
+		}
+		upgradable {
+			if {$installed eq $latest} { return 0 }
+			return 1
+		}
+	}
+	return 0
+}
+
+proc {pkg avail} {} {
+	set inst_pkgs [pkg inst]
+	set avail_pkgs {}
+	foreach pkg [split [exec /bin/opkg list] "\n"] {
+		if [regexp {^ } $pkg] { continue }
+		if {[regexp {^([^ ]+)} $pkg name] == 0} { continue }
+		if {$name ni $inst_pkgs} { lappend avail_pkgs $name }
+		#puts "New: $name<br>"
+	}
+	return $avail_pkgs
+}
+
+proc {pkg inst} {} {
+	# Build a list of installed packages - just the names
+	set inst_pkgs {}
+	foreach pkg [split [exec /bin/opkg list-installed] "\n"] {
+		if {[regexp {^([^ ]+)} $pkg name] == 0} { continue }
+		lappend inst_pkgs $name
+		#puts "Inst: $name<br>"
+	}
+	return $inst_pkgs
+}
+
+proc {pkg upgr} {} {
+	#webif - 0.5.3 - 0.5.7
+	set upgr_pkgs {}
+	foreach pkg [split [exec /bin/opkg list-upgradable] "\n"] {
+		if {[regexp {^([^ ]+)} $pkg name] == 0} { continue }
+		lappend upgr_pkgs $name
+		#puts "Upgr: $name<br>"
+	}
+	return $upgr_pkgs
+}
+
+proc {pkg loadmeta} {} {
+	if {[llength $::pkgmeta]} { return }
+	if {![file exists "/mod/var/pkg.meta"]} {
+		pkg fetchmeta
+	} else {
+		set meta [open "/mod/var/pkg.meta" r]
+		set ::pkgmeta [read $meta]
+		$meta close
+	}
+}
+
+proc {pkg fetchmeta} {} {
+	set f [socket stream hummypkg.org.uk:80]
+	$f puts -nonewline "GET /pkg.meta HTTP/1.1\r\n"
+	$f puts -nonewline "Host: hummypkg.org.uk\r\n"
+	$f puts -nonewline "\r\n"
+
+	set line [string trim [$f gets]]
+	while {[string length $line]} {
+		set line [string trim [$f gets]]
+	}
+	set ::pkgmeta [$f read]
+	$f close
+
+	set ff [open "/mod/var/pkg.meta" w]
+	puts $ff $::pkgmeta
+	$ff close
+}
+

var/mongoose/lib/plugin

@@ -0,0 +1,9 @@
+
+proc eval_plugins {hook} {
+	foreach plugin [glob -nocomplain /mod/var/mongoose/plugin/*] {
+		if {[file isfile "$plugin/$hook.hook"]} {
+			uplevel source "$plugin/$hook.hook"
+		} 
+	}
+}
+

var/mongoose/lib/rsv.class

@@ -0,0 +1,295 @@
+source /mod/var/mongoose/lib/setup
+
+if {![exists -proc class ]} { package require oo }
+if {![exists -proc sqlite3.open ]} { package require sqlite3 }
+if {![exists -proc settings ]} { require settings.class }
+
+set rsvdb [sqlite3.open /var/lib/humaxtv/rsv.db]
+$rsvdb query {attach database '/var/lib/humaxtv/channel.db' as channel}
+
+if {![file exists /var/lib/humaxtv/rsvp.db]} {
+	file copy /var/lib/humaxtv/rsv.db /var/lib/humaxtv/rsvp.db
+	set tdb [sqlite3.open /var/lib/humaxtv/rsvp.db]
+	$tdb query {drop table TBL_VERSION}
+	$tdb query {alter table TBL_RESERVATION rename to pending}
+	$tdb query {alter table pending add column action int}
+	$tdb query {delete from pending}
+	$tdb close
+}
+$rsvdb query {attach database '/var/lib/humaxtv/rsvp.db' as pending}
+# This is required to upgrade old tables and will be removed in a future
+# version.
+catch { $rsvdb query {alter table pending add column action int} }
+
+class rsv {
+	ulslot			-1
+	ersvtype		0
+	hsvc			0
+	nsttime			0
+	szsttime		"00000000000000"
+	nduration		0
+	erepeat			0
+	usevtid			0
+	szevtname		{}
+	ulPreOffset		0
+	ulPostOffset		0
+	ulProgramId		0
+	ulSeriesId		0
+	ucVolume		0
+	ucInputMode		0
+	usChNum			0
+	ucRecKind		0
+	ucCRIDType		0
+	szCRID			{}
+	szFPBRecPath		{}
+	szRecordedProgCrid	{}
+	szEventToRecord		{}
+	aulEventToRecordInfo	{}
+	bRecomRsv		0
+	usLastRecordedEvtId	0
+	eReady			0
+	szSvcName		{}
+	usLcn			0
+	sort			0
+	action			0
+}
+
+rsv method clear_ulslot {} {
+	set ulslot -1
+}
+
+rsv method name {} {
+	set name [string range $szevtname 1 end]
+	if {[string first "i7" $name] == 0} {
+		set name [string range $name 2 end]
+	}
+	if {$name == ""} {
+		switch $ersvtype {
+		    5 { set name "--- Wake-up ---" }
+		    6 { set name "--- Sleep ---" }
+		    7 { set name "--- Auto Update ---" }
+		    11 { set name "--- DSO Event ---" }
+		    default { set name "--- Unknown event type $ersvtype ---" }
+		}
+	}
+
+	return $name
+}
+
+rsv method channel_name {} {
+	return [string range $szSvcName 1 end]
+}
+
+rsv method icon {} {
+	set rsvicon ""
+	switch $ersvtype {
+		1 { set rsvicon "175_1_00_Reservation_Watch.png" }
+		2 { set rsvicon "175_1_00_Reservation_Watch.png" }
+		3 { set rsvicon "175_1_11_Reservation_Record.png" }
+		5 { set rsvicon "745_1_10_Video_2Live.png" }
+		6 { set rsvicon "745_1_11_Video_1REC.png" }
+		7 { set rsvicon "345_6_08_ST_Ad_Hoc.png" }
+	}
+	return $rsvicon
+}
+
+rsv method RKIcon {} {
+	switch $ucRecKind {
+	    2 { set RKIcon "178_1_26_Icon_Split.png" }
+	    4 { set RKIcon "175_1_11_Series_Record.png" }
+	    default {
+		switch $erepeat {
+			1 {set RKIcon "521_1_00_RP_Daily_C.png"}
+			2 {set RKIcon "521_1_00_RP_Weekly_C.png"}
+			3 {set RKIcon "521_1_00_RP_Weekdays_C.png"}
+			4 {set RKIcon "521_1_00_RP_Weekend_C.png"}
+			default {set RKIcon ""}
+		}
+	    }
+	}
+	return $RKIcon
+}
+
+rsv method set_delete {} {
+	set action 1
+}
+
+rsv method remove_pending {} {
+	$::rsvdb query "delete from pending where ulslot = $ulslot"
+}
+
+rsv method fix_hsvc {} {
+	global rsvdb
+
+	set _hsvc [$rsvdb query {
+		select hSvc
+		from channel.TBL_SVC
+		where szSvcName = '%s'
+		or szSvcname = '\025%s'
+		limit 1
+	} $szSvcName $szSvcName]
+
+	if {[llength $_hsvc] == 1} {
+		set hsvc [lindex [lindex $_hsvc 0] 1]
+	} else {
+		set hsvc 0
+	}
+	return $hsvc
+}
+
+rsv method insert {{table pending}} {
+	global rsvdb
+
+	# Find a spare slot.
+	if {$ulslot < 0} {
+		set slotlist [$rsvdb query "
+				select ulslot FROM $table
+				order by ulslot;
+			    "]
+		if {[llength $slotlist] > 0} {
+			set slots [lmap i $slotlist {lindex $i 1}]
+			set max [lindex $i end]
+			for {set i 0} {$i < $max} {incr i} {
+				if {$i ni $slots} {
+					set ulslot $i
+					break
+				}
+			}
+			if {$ulslot < 0} { set ulslot $($max + 1) }
+		}
+		if {$ulslot < 0} { set ulslot 0 }
+	}
+
+	set fields [lsort [$self vars]]
+
+	foreach field {aulEventToRecordInfo szSvcName usLcn sort} {
+		set df [lsearch $fields $field]
+		set fields [lreplace $fields $df $df]
+	}
+
+	if {$table ne "pending"} {
+		set df [lsearch $fields "action"]
+		set fields [lreplace $fields $df $df]
+	}
+
+	set vals {}
+	foreach field $fields {
+		# Escape any quotes embedded in the data.
+		regsub -all {'} [$self get $field] {''} f
+		lappend vals "'$f'"
+		#lappend vals "'[$self get $field]'"
+	}
+
+	set query "insert into ${table}("
+	append query [join $fields ","]
+	append query ") values("
+	append query [join $vals ","]
+	append query ");"
+
+	$rsvdb query $query
+}
+
+proc {rsv list} {{table tbl_reservation}} {
+	set res [$::rsvdb query "
+		select $table.*,
+		channel.TBL_SVC.szSvcName, channel.TBL_SVC.usLcn,
+		    case when ersvtype > 3 then 1 else 0 end as sort
+		from $table
+		left join channel.TBL_SVC
+		on $table.hSvc = channel.TBL_SVC.hSvc
+		order by sort, nsttime
+	"]
+
+	set records {}
+	foreach rec $res {
+		lappend records [rsv new $rec]
+	}
+
+	return $records
+}
+
+proc {rsv lookuptab} {} {
+	set records {}
+	foreach tab {tbl_reservation pending} {
+		set res [$::rsvdb query "
+			select $tab.szCRID, channel.TBL_SVC.hSvc
+			from $tab left join channel.TBL_SVC
+			on $tab.hSvc = channel.TBL_SVC.hSvc
+			where ersvtype <= 3
+		"]
+
+		foreach rec $res {
+			lappend records "$rec(hSvc)/[file tail $rec(szCRID)]"
+		}
+	}
+
+	return $records
+}
+
+proc {rsv entry} {{table TBL_RESERVATION} crid svc} {
+	set res [$::rsvdb query "
+		select $table.*,
+		channel.TBL_SVC.szSvcName, channel.TBL_SVC.usLcn
+		from $table
+		left join channel.TBL_SVC
+		on $table.hSvc = channel.TBL_SVC.hSvc
+		where szCRID like '%%%s' and $table.hsvc = '%s'
+	" $crid $svc]
+
+	if {[llength $res] > 0} {
+		return [rsv new [lindex $res 0]]
+	}
+	return 0
+}
+
+proc {rsv fetch} {{table TBL_RESERVATION} ersvtype hsvc nsttime usevtid events} {
+	set res [$::rsvdb query "
+		select $table.*,
+		channel.TBL_SVC.szSvcName, channel.TBL_SVC.usLcn
+		from $table
+		left join channel.TBL_SVC
+		on $table.hSvc = channel.TBL_SVC.hSvc
+		where $table.ersvtype = '%s'
+		and $table.hsvc = '%s'
+		and $table.nsttime = '%s'
+		and $table.usevtid = '%s'
+		and $table.szEventToRecord = '%s'
+	" $ersvtype $hsvc $nsttime $usevtid $events]
+
+	if {[llength $res] > 0} {
+		return [rsv new [lindex $res 0]]
+	}
+	return 0
+}
+
+proc {rsv slot} {{table TBL_RESERVATION} slot} {
+	set res [$::rsvdb query "
+		select $table.*,
+		channel.TBL_SVC.szSvcName, channel.TBL_SVC.usLcn
+		from $table
+		left join channel.TBL_SVC
+		on $table.hSvc = channel.TBL_SVC.hSvc
+		where ulslot = %s" $slot]
+
+	if {[llength $res] > 0} {
+		return [rsv new [lindex $res 0]]
+	}
+	return 0
+}
+
+proc {rsv cleanup} {} {
+	catch {$::rsvdb close}
+}
+
+proc {rsv commit} {} {
+	$::rsvdb query {begin transaction}
+	foreach rec [rsv list pending] {
+		if {[$rec get action] == 0} {
+			$rec clear_ulslot
+			$rec insert TBL_RESERVATION
+		}
+	}
+	$::rsvdb query {delete from pending}
+	$::rsvdb query {commit transaction}
+}
+

var/mongoose/lib/settings.class

@@ -1,13 +1,26 @@
 
-if {[expr ! [exists -proc class ]]} { package require oo }
-if {[expr ! [exists -proc sqlite3.open ]]} { package require sqlite3 }
+if {![exists -proc class ]} { package require oo }
+if {![exists -proc sqlite3.open ]} { package require sqlite3 }
 
-set settingsdb [sqlite3.open /mod/etc/webif.db]
+if {![file exists /mod/etc/webif.db]} {
+	set settingsdb [sqlite3.open /mod/etc/webif.db]
+	catch {
+		$settingsdb query {
+			CREATE TABLE settings(name text, nval int, tval text);
+		}
+		$settingsdb query {
+			CREATE UNIQUE INDEX key on settings(name);
+		}
+	}
+} else {
+	set settingsdb [sqlite3.open /mod/etc/webif.db]
+}
 
 class settings {
 	hostname	""
 	channel_group	0
 	smtp_server	""
+	pkgdev		0
 }
 
 settings method hostname {{name ""}} {
@@ -86,6 +99,10 @@ settings method channel_group {{group -1}} {
 	return [$self _nval_setting channel_group $group]
 }
 
+settings method pkgdev {{val -1}} {
+	return [$self _nval_setting pkgdev $val]
+}
+
 settings method channel_groups {} {
 	set ret ""
 	set db [sqlite3.open /var/lib/humaxtv/setup.db]

var/mongoose/lib/setup

@@ -0,0 +1,20 @@
+
+if {![exists -proc require]} {
+	proc require {args} {{done {}}} {
+		foreach file $args {
+			if {$file ni $done} {
+				uplevel source "/mod/var/mongoose/lib/$file"
+				lappend $done $file
+			}
+		}
+	}
+
+	proc header {} {
+		uplevel source /mod/var/mongoose/html/lib/header.jim
+	}
+
+	proc footer {} {
+		uplevel source /mod/var/mongoose/html/lib/footer.jim
+	}
+}
+

var/mongoose/lib/system.class

@@ -0,0 +1,64 @@
+
+if {![exists -proc class ]} { package require oo }
+
+class system {}
+
+proc {system model} {} {
+	if {[catch {set fp [open /etc/model r]}]} {
+		set model {HD[R]}
+	} else {
+		set model [string trim [read $fp]]
+		close $fp
+	}
+	return $model
+}
+
+proc {system hostname} {} {
+	if {[catch {set hostname [string trim [exec hostname]]}]} {
+		set hostname "humax"
+	}
+	return $hostname
+}
+
+proc {system diskspace} {} {
+	switch [system model] {
+		HDR { set part /mnt/hd2 }
+		HD { set part /media/drive1 }
+	}
+
+	set size 0
+	set used 0
+	set perc 0
+	foreach line [split [exec /mod/bin/busybox/df -h $part 2>>/dev/null] "\n\r"] {
+		if {[string match "/*" $line]} {
+			regsub -all -- {[[:space:]]+} $line " " line
+			set fields [split $line]
+			set size [lindex $fields 1]
+			set used [lindex $fields 2]
+			set perc [string trimright [lindex $fields 4] "%"]
+			break
+		}
+	}
+
+	return [list $size $used $perc]
+}
+
+proc {system busy} {} {
+	# Is humaxtv doing anything?
+	set pid [exec /mod/bin/busybox/pgrep humaxtv]
+	set c 0
+	catch { set c [exec /mod/bin/lsof -p $pid | grep Video | fgrep .ts | wc -l] }
+
+	if {$c > 0} { return 1 }
+	return 0
+}
+
+proc {system reboot} {} {
+	exec /etc/init.d/S90settop shut
+	exec /sbin/reboot
+}
+
+proc {system restartpending} {} {
+	close [open /tmp/.restartpending w]
+}
+

var/mongoose/lib/ts.class

@@ -1,5 +1,5 @@
 
-if {[expr ! [exists -proc class ]]} { package require oo }
+if {![exists -proc class ]} { package require oo }
 
 class ts {
 	file		""
@@ -13,6 +13,7 @@ class ts {
 	end		0
 	flags		""
 	error		""
+	guidance	""
 }
 
 ts method duration {} {
@@ -35,6 +36,7 @@ ts method _parse {line} {
 	set start [lindex $vars 5]
 	set end [lindex $vars 6]
 	set flags [split [string range [lindex $vars 7] 0 end-1] ,]
+	set guidance [lindex $vars 8]
 }
 
 ts method flag {f} {
@@ -43,14 +45,36 @@ ts method flag {f} {
 
 ts method unlock {} {
 	set cmd [list /mod/bin/hmt -lock $file]
-	#puts "CMD: $cmd"
 	exec {*}$cmd
 	return 1
 }
 
 ts method lock {} {
 	set cmd [list /mod/bin/hmt +lock $file]
-	#puts "CMD: $cmd"
+	exec {*}$cmd
+	return 1
+}
+
+ts method unenc {} {
+	set cmd [list /mod/bin/hmt -protect $file]
+	exec {*}$cmd
+	return 1
+}
+
+ts method enc {} {
+	set cmd [list /mod/bin/hmt +protect $file]
+	exec {*}$cmd
+	return 1
+}
+
+ts method set_new {} {
+	set cmd [list /mod/bin/hmt +new $file]
+	exec {*}$cmd
+	return 1
+}
+
+ts method set_watched {} {
+	set cmd [list /mod/bin/hmt -new $file]
 	exec {*}$cmd
 	return 1
 }