forked from hummypkg/webif
09e71400a2
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@585 2a923420-c742-0410-a762-8d5b09965624
135 lines
2.6 KiB
Plaintext
Executable File
135 lines
2.6 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/var/mongoose/lib/pretty_size
|
|
|
|
puts "Content-Type: text/html"
|
|
puts ""
|
|
|
|
cgi_input
|
|
#cgi_dump
|
|
|
|
#set _cgi(file) "/media/My Video/Dangermouse/Series 1/01_rogue_robots.avi"
|
|
|
|
if {![dict exists $_cgi file]} { exit }
|
|
|
|
set file [dict get $_cgi file]
|
|
set type [dict get $_cgi type]
|
|
|
|
file stat $file st
|
|
set sz [pretty_size $st(size)]
|
|
|
|
if {$type eq "ts"} {
|
|
source /mod/var/mongoose/lib/epg.class
|
|
source /mod/var/mongoose/lib/ts.class
|
|
|
|
set ts [ts fetch $file]
|
|
|
|
puts "
|
|
<table class=keyval>
|
|
<tr>
|
|
<th>Title</th>
|
|
<td>[$ts get title]</td>
|
|
</tr><tr>
|
|
<th>Synopsis</th>
|
|
<td>[$ts get synopsis]</td>
|
|
</tr><tr>
|
|
"
|
|
|
|
if {[$ts flag "Guidance"] > 0} {
|
|
puts "
|
|
<th>Guidance</th>
|
|
<td><img class=va
|
|
src=/images/174_1_26_GuidancePolicy.png height=21>
|
|
[$ts get guidance]
|
|
</td>
|
|
</tr><tr>
|
|
"
|
|
}
|
|
|
|
puts "
|
|
<th>Definition</th>
|
|
<td>
|
|
"
|
|
if {[$ts get definition] eq "HD"} {
|
|
puts "<img class=va src=/images/172_1_00_HD.png height=21>"
|
|
} else {
|
|
puts "<img class=va src=/images/172_1_26_SD.png height=21>"
|
|
}
|
|
puts "</td>
|
|
</tr><tr>
|
|
<th>Channel</th>
|
|
<td>[epg channelicon [$ts get channel_name] 50 "vertical-align: middle"]
|
|
[$ts get channel_num] - [$ts get channel_name]</td>
|
|
</tr><tr>
|
|
<th>Start Time</th>
|
|
<td>"
|
|
puts [clock format [$ts get start] -format "%c %Z"]
|
|
puts "<font class=also>(Scheduled: [
|
|
clock format [$ts get schedstart] -format "%c %Z"])</font>"
|
|
puts "</td>
|
|
</tr><tr>
|
|
<th>End Time</th>
|
|
<td>"
|
|
puts [clock format [$ts get end] -format "%c %Z"]
|
|
puts "<font class=also>(Scheduled: [clock format \
|
|
[expr [$ts get schedstart] + [$ts get scheddur]] \
|
|
-format "%c %Z"])</font>"
|
|
puts "</td>
|
|
</tr><tr>
|
|
<th>Duration</th>
|
|
<td>[$ts duration] minute(s).
|
|
<font class=also>(Scheduled: [expr [$ts get scheddur] / 60])
|
|
</font></td>
|
|
</tr><tr>
|
|
<th>Size</th>
|
|
<td>$sz</td>
|
|
"
|
|
set dlna [$ts dlnaloc]
|
|
lassign $dlna url
|
|
if {[llength $dlna]} {
|
|
puts "</tr><tr><th>DLNA URL</th>
|
|
<td><a href=\"$url\">$url</a></td>"
|
|
}
|
|
puts "
|
|
</tr><tr>
|
|
<th>Flags</th>
|
|
<td>[$ts get flags]
|
|
"
|
|
if {[$ts get bookmarks]} {
|
|
puts " \[Bookmarks: [$ts get bookmarks]\]"
|
|
}
|
|
|
|
puts "</tr>"
|
|
puts "</table>"
|
|
exit
|
|
}
|
|
|
|
# Otherwise, for a general file.
|
|
|
|
puts "
|
|
<table class=keyval>
|
|
<tr>
|
|
<th>File</th>
|
|
<td>$file</td>
|
|
</tr><tr>
|
|
<th>Size</th>
|
|
<td>$sz</td>
|
|
</tr><tr>
|
|
<th>Info</th>
|
|
<td class=pre id=ffmpeg>
|
|
<img src=/img/loading.gif><i>Loading...</i>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
"
|
|
|
|
set url "/cgi-bin/browse/ffmpeg.jim?file=[cgi_quote_url $file]"
|
|
puts { <script type="text/javascript"> }
|
|
puts "var url = \"$url\";"
|
|
puts {
|
|
$('#ffmpeg').load(url);
|
|
</script>
|
|
}
|
|
|