improve status

git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@929 2a923420-c742-0410-a762-8d5b09965624
This commit is contained in:
hummypkg 2012-04-18 22:46:21 +00:00
parent b45fe08fe2
commit 3b8863a4b4
3 changed files with 21 additions and 6 deletions

View File

@ -1,7 +1,7 @@
Package: webif
Priority: optional
Section: web
Version: 0.9.5-3
Version: 0.9.6
Architecture: mipsel
Maintainer: af123@hummypkg.org.uk
Depends: webif-channelicons,mongoose(>=3.0-7),jim(>=0.73-1),jim-oo,jim-sqlite3(>=0.73),jim-cgi(>=0.5),service-control(>=1.2),busybox(>=1.19.3-1),lsof,epg(>=1.0.9),hmt(>=1.1.6),ssmtp,anacron,trm,openssl-command,nicesplice,id3v2,file,rsvsync(>=1.0.1)

View File

@ -22,10 +22,14 @@ proc get_data {} {
foreach line [split $data "\n"] {
regsub -all -- {[[:space:]]+} $line " " line
set name [file rootname [file tail $line]]
if {[dict exists $ret $name]} {
set ret($name) -1
} else {
set size [lindex [split $line " "] 6]
set ret($name) $size
}
}
}
return $ret
}
@ -40,7 +44,12 @@ if {[llength $data]} {
foreach name [array names ndata] {
if {![dict exists $seen $name]} { set seen($name) 0 }
if {![dict exists $data $name]} { set data($name) 0 }
if {$ndata($name) > $data($name) && $seen($name) < 1} {
if {$ndata($name) == -1} {
incr rec
incr play
set mode "Chase Playing"
set icon "745_1_11_Video_3REC_Live.png"
} elseif {$ndata($name) > $data($name) && $seen($name) < 1} {
incr rec
set mode "Recording"
set icon "745_1_11_Video_1REC.png"
@ -53,7 +62,7 @@ if {[llength $data]} {
incr seen($name)
lappend output "<img class=va src=/images/$icon><span class=va>
$mode&nbsp;$name</span>"
$mode&nbsp;<i>$name</i></span>"
}
}
@ -85,10 +94,16 @@ if {![system instandby] && $play < 1} {
lappend output "[epg channelicon $name 30 \
{vertical-align: middle; padding: 0 4px 0 2px}]
<span class=va> Watching $lcn: $name $prog</span>"
<span class=va> Watching <i>$lcn: $name $prog</i></span>"
}
}
if {[system instandby]} {
lappend output "<img class=va width=28 style=\"padding: 0 4px\"
src=/img/standby.png>
<span class=va>System is in standby.</span>"
}
if {[llength $output]} {
puts [join $output "<br>"]
}

Binary file not shown.

After

Width:  |  Height:  |  Size: 64 KiB