webif/var/mongoose/include/xepg.jim

#!/mod/bin/jimsh

package require cgi
source /mod/var/mongoose/lib/setup
require epg.class spinner.class altrow epg_search totop

puts {<link type="text/css" href="/css/epg.css" rel="Stylesheet" />}

[spinner new {
	text "Loading Now/Next Information..."
	size "1.2em"
	style "margin: 1em;"
	}] start

require epg_popup

set start [clock milliseconds]
set stt [clock seconds]

set stt [expr int($stt / 1800) * 1800]

set ett $($stt + 14400)
set records [epg fetch dump -trange "$stt:$ett"]
set got [clock milliseconds]

set favlist [epg favlist]

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

	if {$v1s > $v2s } { return 1 }
	if {$v1s == $v2s} {
		set v1t [$v1 get start]
		set v2t [$v2 get start]
		if {$v1t > $v2t} { return 1 }
		if {$v1t == $v2t} { return 0 }
		return -1
	}
	return -1
}

foreach record $records {
	$record get_channel_info
}

puts {
<table class=epggrid style="float: left; clear: both">
<tr>
	<td></td>
	<td class=epgdate colspan=48>
}
puts [clock format $stt -format {%a %D}]
puts { </td></tr><tr><td></td> }

for {set i 0} {$i < 48} {incr i} {
	puts "<td class=epgdummy></td>"
}
puts "</tr><tr><td></td>"

for {set i 0} {$i < 8} {incr i} {
	puts "<td class=epgtime colspan=6>
	    [clock format $($stt + 1800 * $i) -format "%H:%M"]</td>"
}

puts "</tr>"

set lcn 0
set bg "odd"
foreach record [lsort -command rsort $records] {
	if {$favlist != "" && [$record get service_id] ni $favlist} {
		continue
	}
	set chnum [$record get channel_num]
	if {$chnum == 0} { continue }

	if {$chnum != $lcn} {
		if {$lcn > 0} { puts "</tr>" }

		puts "<tr>";
		puts "<td class=epgchan>[$record channel_icon 30]&nbsp;"
		puts "$chnum
	    <a href=/cgi-bin/epg_service.jim?service=[$record get service_id]>
	    [$record get channel_name]
	    </a></td>"

		set lcn $chnum
		set le 0
		if {$bg eq "odd"} { set bg "even" } else { set bg "odd" }
	}

	set es [$record get start]
	set ee [expr $es + [$record get duration]]

	set txt "[cgi_quote_html [$record get name]] ([\
	    clock format $es -format "%H:%M"] - [\
	    clock format $ee -format "%H:%M"])"

	if {$es < $le} { continue }
	if {$es < $stt} { set es $stt }
	if {$ee > $ett} { set ee $ett }
	set le $ee

	set columns [expr int(($ee - $es) / 300)]
	if {$columns < 1} { set columns 1 }
	set pxwidth $($columns * 13)

	set perc [$record percent]
	set showing [$record showing]
	if {$showing} {
		append txt " ($perc%)"
	}

	puts "<td class=\"epgprog $bg\" colspan=$columns>\n"

	if {$showing} {
		puts "
			<div class=\"meter-wrap\" style=\"width: ${pxwidth}px\">
			  <div class=\"meter-value\" style=\"width: ${perc}%\">
			    <div class=\"meter-text\""
	} else {
		puts "<div style=\"width: ${pxwidth}px\""
	}
	puts " title=\"${txt}\" alt=\"${txt}\">\n"

	puts "<a class=event href=# xs=[$record get service_id]
	    xe=[$record get event_id] sch=2 rec=1>"
	puts $txt
	puts "</a>\n"
	puts "</div>"
	if {$showing} { puts "</div></div>" }
	puts "</td>\n"
}
if {$lcn > 0} { puts "</tr>" }
puts "</table><br><br>"

puts {
<small><button id=epgswitch>
	Switch to standard now/next display.
</button></small>

<script type=text/javascript>
$(document).ready(function() {

$('#epgswitch').button().click(function() {
	window.location = '/epg.html';
});
$('#earlier').button().click(function() {
	window.location = '/xepg.html?stt=<?php echo $stt - 3600*4; ?>';
});
$('#later').button().click(function() {
	window.location = '/xepg.html?stt=<?php echo $ett; ?>';
});

});
</script>
}

puts "
	<a href=/cgi-bin/settings.jim>
	<img border=0 height=14 src=/images/421_1_00_CH_Title_2R_Arrow.png>
	Visit settings to change EPG options.
	</a><br>
"

set end [clock milliseconds]
puts "<font class=footnote>
    Retrieved in: [expr [expr $got - $start] / 1000.0] seconds.
    Rendered in: [expr [expr $end - $start] / 1000.0] seconds.
    </font>"

epg cleanup