884e17b3a7
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@188 2a923420-c742-0410-a762-8d5b09965624
54 lines
1.5 KiB
Plaintext
Executable File
54 lines
1.5 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
puts "Content-Type: text/html"
|
|
puts ""
|
|
|
|
#puts "<img style=\"vertical-align: middle\" src=/images/745_1_11_Video_1REC.png><span style=\"vertical-align: middle\">Recording one thing</span>"
|
|
#puts "<img style=\"vertical-align: middle\" src=/images/745_1_11_Video_1REC.png><span style=\"vertical-align: middle\">Recording another thing</span>"
|
|
#puts "<img style=\"vertical-align: middle\" src=/images/745_1_10_Video_2Live.png><span style=\"vertical-align: middle\">Watching something else</span>"
|
|
|
|
if {[catch {set pid [exec pgrep humaxtv]}]} { exit }
|
|
|
|
if {[catch {set data [exec lsof -p $pid | grep Video | fgrep .ts]} ]} {
|
|
exit
|
|
}
|
|
|
|
set lines [split $data "\n"]
|
|
foreach line $lines {
|
|
regsub -all -- {[[:space:]]+} $line " " line
|
|
set fields [split $line " "]
|
|
set name [lindex [split $line "/"] end]
|
|
set size($name) [lindex $fields 6]
|
|
set seen($name) 0
|
|
}
|
|
|
|
sleep 2
|
|
|
|
set data [exec lsof -p $pid | grep Video | fgrep .ts]
|
|
regsub -all -- {[[:space:]]+} $line " " line
|
|
set lines [split $data "\n"]
|
|
foreach line $lines {
|
|
regsub -all -- {[[:space:]]+} $line " " line
|
|
set fields [split $line " "]
|
|
set name [lindex [split $line "/"] end]
|
|
set size2 [lindex $fields 6]
|
|
|
|
if { $size2 > $size($name) && $seen($name) < 1 } {
|
|
set mode "Recording"
|
|
set icon "745_1_11_Video_1REC.png"
|
|
} else {
|
|
set mode "Watching"
|
|
set icon "745_1_10_Video_2Live.png"
|
|
}
|
|
|
|
incr seen($name)
|
|
|
|
lappend output "<img class=va src=/images/$icon><span class=va>
|
|
$mode $name</span><br>"
|
|
}
|
|
|
|
if {[llength $output]} {
|
|
puts [join $output " "]
|
|
}
|
|
|