#!/mod/bin/jimsh package require cgi source /mod/webif/lib/setup require pretty_size progressbar plugin httpheader set file [cgi_get file] set type [cgi_get type] if {$file == 0} exit set sz [pretty_size [file size $file]] if {$type eq "ts"} { require epg.class ts.class set ts [ts fetch $file] # Causes other series information to be automatically populated set epname [$ts episode_name] set series [$ts series_name] set tvdb [$ts get tvdb_series] set idata [$ts get tvdb_data] puts "
Title | " if {[file exists "[file rootname $file].thm"]} { puts "" } if {[dict exists $idata thumb]} { puts " " } puts "[$ts get title] |
---|---|
Synopsis | [$ts get synopsis] |
Episode | " puts "[$ts epstr] - $epname ($series)" if {[llength $tvdb]} { puts "" } puts " |
TheTVDB | "
set sid [$tvdb get seriesid]
puts "View on
"
if {[[settings] tvdb_debug]} {
puts " | "
puts "
View database($sid)"
}
puts "
Found episode using [$ts get tvdb_method]
$idata(overview)
"
if {[[settings] tvdb_debug]} {
puts "
[$tvdb get _phrases]
[lrange [$tvdb get _smatches] 0 8]
"
}
puts "
| Guidance | [$ts get guidance] |
General Guidance | [$ts get guidance] |
Definition | " if {[$ts flag Radio]} { puts "" } else { if {[$ts get definition] eq "HD"} { puts "" } else { puts "" } } puts " |
Channel | [epg channelicon [$ts get channel_name] 50 "vertical-align: middle"] [$ts get channel_num] - [$ts get channel_name] |
Start Time | " puts [clock format [$ts get start] -format "%c %Z"] puts "(Scheduled: [ clock format [$ts get schedstart] -format "%c %Z"])" puts " |
End Time | " puts [clock format [$ts get end] -format "%c %Z"] puts "(Scheduled: [clock format \ [expr [$ts get schedstart] + [$ts get scheddur]] \ -format "%c %Z"])" puts " |
Duration | [$ts duration] minute(s). (Scheduled: [expr [$ts get scheddur] / 60]) |
Status | [$ts get status] |
Resumes | [expr [$ts get resume] / 60] minutes into recording. [progressbar $([$ts get resume] * 100 / [$ts duration 1])] |
Size | $sz | " lassign [$ts dlnaloc] url if {$url ne ""} { puts "
DLNA URL | $url | " } puts "
Files |
"
set fileset [$ts fileset]
puts -nonewline ""
puts -nonewline "[llength $fileset] file"
if {[llength $fileset] != 1} { puts -nonewline "s" }
puts -nonewline " in set."
puts "
|
Flags | [$ts get flags] |
Bookmarks | [$ts get bookmarks] @ [join [lmap i [$ts bookmarks 1] { clock format $i -format "%T" }] ", "] |
File | $file |
---|---|
Size | $sz |
Info | Loading... |