webif/var/mongoose/cgi-bin/epg_search.jim

#!/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

puts "Content-Type: text/html"
puts ""

source /mod/var/mongoose/html/lib/header.jim

puts "<script type=text/javascript src=/js/highlight.js></script>"

source /mod/var/mongoose/lib/epg_popup

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 ""
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>
Search EPG: <input name=term size=20 maxlength=255 value=\"$term\">
<input type=checkbox name=full"
if {[dict exists $_cgi full]} { puts " checked" }
puts ">Search descriptions as well as titles.
<input type=submit value=Search>
"

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>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>"
	}
	puts "</tr>"
}
puts "</table>"

$db close

puts "</form>"

if {$ct > 0 } {
	set records [epg fetch dump -type $ct]
} elseif {$crid ne ""} {
	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]
}

puts {
	<table class=borders id=results style="clear: both;margin: 0.5em 0 0 0">
	<tr>
		<th>Date</th>
		<th colspan=2>Channel</th>
		<th>Programme</th>
		<th>Synopsis</th>
	</tr>
}

proc rsort {v1 v2} {
	set v1s [$v1 get start]
	set v2s [$v2 get start]

	if {$v1s == $v2s} { return 0 }
	if {$v1s > $v2s } { return 1 }
	return -1
}


set i 0
foreach record [lsort -command rsort $records] {
	altrow
	puts "<td nowrap>
	    [clock format [$record get start] -format "%a %d %b %Y"]<br>
		[clock format [$record get start] -format "%H:%M %Z"]</td>"
	puts "<td>[$record get channel_num]</td>"
	puts "<td nowrap>
	    <a href=/cgi-bin/epg_service.jim?service=[$record get service_id]>
	    [$record get channel_name]
	    </a></td>"
	puts [$record cell]
	puts "<td>[$record get text]</td><td>[$record get warning]</td>"
	puts "</tr>"
	flush stdout
}
puts "</table>"

if {$term != ""} {
	puts "
		<script type=text/javascript>
		highlight(document.getElementById(\"results\"), \"$term\");
		</script>
	"
}

epg cleanup
source /mod/var/mongoose/html/lib/footer.jim