forked from hummypkg/webif
86 lines
1.9 KiB
Plaintext
86 lines
1.9 KiB
Plaintext
|
#!/mod/bin/jimsh
|
||
|
|
|
||
|
|
package require cgi
|
||
|
|
source /mod/webif/lib/setup
|
||
|
|
require epg.class
|
||
|
|
|
||
|
|
proc eventtab {type title} {
|
||
|
|
set events [rsv list $type]
|
||
|
|
if {[set num [llength $events]] <= 0} return
|
||
|
|
|
||
|
|
puts "<li data-role=list-divider>$title ($num)</li>\n";
|
||
|
|
|
||
|
|
foreach event $events {
|
||
|
|
set name [$event name]
|
||
|
|
set rsvicon [$event icon]
|
||
|
|
set RKIcon [$event RKIcon]
|
||
|
|
|
||
|
|
set icons ""
|
||
|
|
if {$type eq "pending"} {
|
||
|
|
switch [$event get action] {
|
||
|
|
0 { set icon "add" }
|
||
|
|
1 { set icon "close" }
|
||
|
|
2 { set icon "ar" }
|
||
|
|
3 { set icon "pad" }
|
||
|
|
4 { set icon "folder" }
|
||
|
|
}
|
||
|
|
append icons "<img src=/img/$icon.png height=30>"
|
||
|
|
}
|
||
|
|
if {$rsvicon ne ""} {
|
||
|
|
append icons "<img src='/images/$rsvicon' height=20>"
|
||
|
|
}
|
||
|
|
if {$RKIcon ne ""} {
|
||
|
|
append icons "<img src='/images/$RKIcon' height=20>"
|
||
|
|
}
|
||
|
|
|
||
|
|
set s [$event get nsttime]
|
||
|
|
set d [$event get nduration]
|
||
|
|
set e $($s + $d)
|
||
|
|
set n [clock seconds]
|
||
|
|
|
||
|
|
set recording 0
|
||
|
|
if {$d > 0 && $n > $s && $n < $e} {
|
||
|
|
set recording 1
|
||
|
|
}
|
||
|
|
|
||
|
|
set last "[clock format $s -format {%a %d %b %Y %H:%M %Z}]"
|
||
|
|
if {$n > $e && [$event get ersvtype] <= 3} {
|
||
|
|
set ds "--- -- --- ---- --:--"
|
||
|
|
set dur "--:--:--<br>
|
||
|
|
<span class=blood>(Last: $last)</span>"
|
||
|
|
} else {
|
||
|
|
set ds $last
|
||
|
|
set dur "[clock format [$event get nduration] \
|
||
|
|
-format %T]"
|
||
|
|
}
|
||
|
|
puts "
|
||
|
|
<li><a data-rel=dialog data-transition=slidedown
|
||
|
|
href=schedule_d.jim?table=$type&slot=[$event get ulslot]>
|
||
|
|
[epg channelicon [$event channel_name] 80]
|
||
|
|
<h3>$icons $name</h3>
|
||
|
|
<p>
|
||
|
|
$ds $dur
|
||
|
|
</p>
|
||
|
|
";
|
||
|
|
if {$recording} {
|
||
|
|
set perc $(($n - $s) * 100 / $d)
|
||
|
|
puts "<p class=va>
|
||
|
|
<img class=va src=/images/745_1_11_Video_1REC.png>
|
||
|
|
[progressbar $perc]
|
||
|
|
</p>
|
||
|
|
"
|
||
|
|
}
|
||
|
|
puts "</a></li>";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
mheader
|
||
|
|
|
||
|
|
puts "<ul data-role=listview data-filter=true>"
|
||
|
|
eventtab "pending" "Pending Events"
|
||
|
|
eventtab "TBL_RESERVATION" "Active Events"
|
||
|
|
puts "</ul>"
|
||
|
|
|
||
|
|
mfooter
|
||
|
|
|