forked from hummypkg/webif
119 lines
2.4 KiB
Plaintext
119 lines
2.4 KiB
Plaintext
|
#!/mod/bin/jimsh
|
||
|
|
|
||
|
|
package require cgi
|
||
|
|
source /mod/webif/lib/setup
|
||
|
|
require epg.class
|
||
|
|
|
||
|
|
cgi_input
|
||
|
|
|
||
|
|
set table [cgi_get table TBL_RESERVATION]
|
||
|
|
set slot [cgi_get slot 0]
|
||
|
|
set event [rsv slot $table $slot]
|
||
|
|
|
||
|
|
mheader
|
||
|
|
|
||
|
|
puts "
|
||
|
|
|
||
|
|
<div data-role=header data-theme=b>
|
||
|
|
<h1>Scheduled Event</h1>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div data-role=content>
|
||
|
|
"
|
||
|
|
|
||
|
|
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 get nsttime]
|
||
|
|
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>
|
||
|
|
<img border=0 src=/images/421_1_00_CH_Title_2R_Arrow.png
|
||
|
|
height=14>
|
||
|
|
[$event get szCRID]
|
||
|
|
</td></tr>"
|
||
|
|
}
|
||
|
|
puts "<tr><th>Events</th><td>"
|
||
|
|
set flag 0
|
||
|
|
foreach ev [split [$event get szEventToRecord] "|"] {
|
||
|
|
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 "<img border=0 src=/images/421_1_00_CH_Title_2R_Arrow.png
|
||
|
|
height=14>$ev"
|
||
|
|
}
|
||
|
|
puts "</td></tr>"
|
||
|
|
puts "<tr><th>Accepted</th><td>"
|
||
|
|
if {[$event get aulEventToRecordInfo] ne ""} {
|
||
|
|
puts "Yes"
|
||
|
|
}
|
||
|
|
puts "</td></tr>"
|
||
|
|
puts "</table>"
|
||
|
|
|
||
|
|
# Buttons
|
||
|
|
puts "<a href=# data-theme=b id=delevent data-role=button
|
||
|
|
tab=$table slot=$slot>Cancel Event</a>"
|
||
|
|
puts "<a href=# data-role=button data-theme=a id=close data-rel=back>Close</a>"
|
||
|
|
|
||
|
|
epg cleanup
|
||
|
|
|
||
|
|
mfooter
|
||
|
|
|