forked from hummypkg/webif
8f3971cf76
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif@171 2a923420-c742-0410-a762-8d5b09965624
104 lines
2.7 KiB
Plaintext
Executable File
104 lines
2.7 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require sqlite3
|
|
|
|
source /mod/var/mongoose/lib/altrow
|
|
|
|
set db [sqlite3.open /var/lib/humaxtv/rsv.db]
|
|
$db query {attach database '/var/lib/humaxtv/channel.db' as channel}
|
|
|
|
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
|
|
}]
|
|
|
|
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 ""
|
|
}
|
|
|
|
altrow
|
|
|
|
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 {$rsvicon ne ""} {
|
|
set rsvicon "<img src='images/$rsvicon' height=15>
|
|
}
|
|
if {$RKIcon ne ""} {
|
|
set RKIcon "<img src='images/$RKIcon' height=15>
|
|
}
|
|
|
|
# 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>"
|
|
} else {
|
|
puts "<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>"
|
|
puts "</tr>"
|
|
}
|
|
puts "</table>"
|
|
puts "<font class=footnote>Click on the CRID to view episodes.</font>"
|
|
$db close
|
|
|