#!/mod/bin/jimsh package require cgi source /mod/var/mongoose/lib/setup require epg.class spinner.class altrow epg_search totop [spinner new { text "Loading Now/Next Information..." size "1.2em" style "margin: 1em;" }] start require epg_popup set start [clock milliseconds] set now [clock seconds] set then $($now + 14400) if {$::qepg} { set records [epg dbfetch dump -trange "$now:$then"] } else { require channelsort set records [channelsort [epg fetch dump -trange "$now:$then"]] } set got [clock milliseconds] set favlist [epg favlist] puts { <small><button id=switch>Switch to grid-style Now/Next</button></small> <script type=text/javascript> $('#switch').button().click(function() { window.location = '/cgi-bin/xepg.jim'; }); </script> <table class=borders> <tr> <th colspan=3>Channel</th> <th>On Now</th> <th>On Next</th> <th>On Later</th> </tr> } set lcn 0 set num 0 foreach record $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>" } altrow puts "<td>$chnum</td>" puts "<td>[$record channel_icon 50]</td> <td> <a href=/cgi-bin/epg_service.jim?service=[$record get service_id]> [$record get channel_name] </a></td>" set lcn $chnum set num 0 } incr num if {$num < 4} { catch { puts [$record cell] } } } if {$lcn > 0} { puts "</tr>" } puts "</table>" 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