#!/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 " " puts " " if {[llength $tvdb] && [llength $idata]} { puts "" } if {[$ts flag "Guidance"] > 0} { puts " " } if {[$ts flag "GGuidance"] > 0} { puts " " } puts " " lassign [$ts dlnaloc] url if {$url ne ""} { puts "" } puts " " eval_plugins browsetsfile puts " " if {[$ts get bookmarks]} { puts " " } 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[$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]
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
DLNA URL $url
Files " set fileset [$ts fileset] puts -nonewline "" puts -nonewline "[llength $fileset] file" if {[llength $fileset] != 1} { puts -nonewline "s" } puts -nonewline " in set." puts "" puts "
Flags [$ts get flags]
Bookmarks [$ts get bookmarks] @ [join [lmap i [$ts bookmarks 1] { clock format $i -format "%T" }] ", "]
" puts "" puts { } exit } # Otherwise, for a general file. puts "
File $file
Size $sz
Info Loading...
" set url "/browse/ffmpeg.jim?file=[cgi_quote_url $file]" puts { }