forked from hummypkg/webif
111 lines
2.4 KiB
Tcl
Executable File
111 lines
2.4 KiB
Tcl
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
require rsv.class progressbar epg.class
|
|
|
|
httpheader
|
|
|
|
set table [cgi_get table TBL_RESERVATION]
|
|
set slot [cgi_get slot 0]
|
|
|
|
set event [rsv slot $table $slot]
|
|
|
|
puts "
|
|
<table class=keyval>
|
|
<tr>
|
|
<th>Event [$event get ulslot]</th>
|
|
<td class=va>[join [$event iconset] ""]</td>
|
|
</tr><tr>
|
|
<th>Channel</th>
|
|
<td class=va>
|
|
"
|
|
if {[$event get usLcn] ne ""} {
|
|
puts "[epg channelicon [$event channel_name] 50]
|
|
- [$event get usLcn] - [$event channel_name]
|
|
"
|
|
}
|
|
|
|
puts "
|
|
</td>
|
|
</tr><tr>
|
|
<th>Event Name</th>
|
|
<td>[$event name]"
|
|
if {[$event get ucRecKind] == 4 && [$event name] ne [$event folder]} {
|
|
puts "<span class=also>(Folder: [$event folder])</span>"
|
|
}
|
|
|
|
puts "</td>
|
|
</tr><tr>
|
|
<th>Start</th>
|
|
"
|
|
|
|
set s [$event start]
|
|
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 {[$event isseries]} { puts "Series" } else { puts "Event" }
|
|
puts " CRID</th><td>"
|
|
puts -nonewline "<a href=/cgi-bin/epg/search.jim?"
|
|
if {[$event isseries]} { 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>"
|
|
}
|
|
proc cridlist {events} {
|
|
set flag 0
|
|
foreach ev $events {
|
|
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 "<tr><th>Events</th><td>"
|
|
cridlist [split [$event get szEventToRecord] |]
|
|
if {[$event get szRecordedProgCrid] ne ""} {
|
|
puts "<tr><th>Recorded events<br>(Skip List)</th><td>"
|
|
cridlist [split [$event get szRecordedProgCrid] |]
|
|
puts "</td></tr>"
|
|
}
|
|
puts "</td></tr>"
|
|
puts "</table>"
|
|
|