forked from hummypkg/webif
eace5c5260
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@502 2a923420-c742-0410-a762-8d5b09965624
291 lines
6.4 KiB
Plaintext
Executable File
291 lines
6.4 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/var/mongoose/lib/setup
|
|
require ts.class pretty_size system.class
|
|
|
|
puts "Content-Type: text/html"
|
|
puts ""
|
|
|
|
set ignore {.nts .thm .hmt .hmi}
|
|
set include {.ts .avi .mpg .mpeg .wmv .mkv .mp3 .mp4 .mov}
|
|
|
|
cgi_input
|
|
#cgi_dump
|
|
|
|
#set env(REQUEST_URI) ''
|
|
#set _cgi(dir) "/media/My Video/Chuggington"
|
|
|
|
proc directory {file bfile} {
|
|
regsub -all " +" $bfile "" tbfile
|
|
puts "<div class=va>"
|
|
puts "<a href=$::env(REQUEST_URI)?dir=[cgi_quote_url $file]>"
|
|
puts "<img border=0 class=va id=\"img$tbfile\"
|
|
src=/images/711_1_09_Media_Folder.png>"
|
|
puts "$bfile</a><span class=filesize id=\"$tbfile\">
|
|
</span></div>"
|
|
}
|
|
|
|
proc entry {file} {{i 0}} {
|
|
set bfile [file tail $file]
|
|
if {[string index $bfile 0] == "\025"} {
|
|
set bfile [string range $bfile 1 end]
|
|
}
|
|
if [file isdirectory "$file"] {
|
|
directory $file $bfile
|
|
continue
|
|
}
|
|
set ext [file extension $file]
|
|
if {$ext in $::ignore || $ext ni $::include} { continue }
|
|
|
|
file stat $file st
|
|
set sz [pretty_size $st(size)]
|
|
|
|
set base [file rootname $file]
|
|
|
|
if {$ext eq ".ts" && [file exists "${base}.nts"]} {
|
|
set type ts
|
|
set ts [ts fetch $file 1]
|
|
set img Video_TS
|
|
} else {
|
|
set type gen
|
|
set ts 0
|
|
set img Video_Other
|
|
}
|
|
|
|
puts "
|
|
<div class=\"va bf\" id=[incr i]>
|
|
<a class=bf file=\"$file\" type=$type href=#>
|
|
"
|
|
|
|
set new 0
|
|
if {$type eq "ts"} {
|
|
if {[$ts flag "New"] > 0} { set new 1 }
|
|
} else {
|
|
if {![file exists "[file rootname $file].hmi"]} { set new 1 }
|
|
}
|
|
|
|
if {$new} { append img _New }
|
|
|
|
puts "<img class=va border=0 src=/img/$img.png>"
|
|
|
|
puts "
|
|
$bfile
|
|
</a>
|
|
"
|
|
|
|
# Size
|
|
puts "<span class=filesize> ($sz) </span>"
|
|
|
|
# Icons
|
|
|
|
set locked 0
|
|
set encd 0
|
|
set odencd 0
|
|
set def unknown
|
|
set bx 0
|
|
if {$type eq "ts"} {
|
|
# HD / SD
|
|
if {[$ts get definition] eq "HD"} {
|
|
set def HD
|
|
set img "172_1_00_HD"
|
|
} else {
|
|
set def SD
|
|
set img "172_1_26_SD"
|
|
}
|
|
puts "<img class=va src=/images/$img.png height=21>"
|
|
|
|
# Locked
|
|
if {[$ts flag "Locked"] > 0} {
|
|
set locked 1
|
|
puts "<img class=va src=/images/178_1_00_Icon_Lock.png
|
|
height=21>"
|
|
}
|
|
|
|
# Encrypted
|
|
if {[$ts flag "Encrypted"] > 0} {
|
|
set encd 1
|
|
puts "<img class=va
|
|
src=/images/749_1_26_Video_Encryption.png
|
|
height=21>"
|
|
}
|
|
if {[$ts flag "ODEncrypted"] > 0} {
|
|
set odencd 1
|
|
}
|
|
|
|
# Guidance
|
|
if {[$ts flag "Guidance"] > 0} {
|
|
puts "<img class=va
|
|
src=/images/174_1_26_GuidancePolicy.png
|
|
height=21>"
|
|
}
|
|
|
|
set bx [$ts get bookmarks]
|
|
}
|
|
|
|
# Opt+ button
|
|
|
|
puts "
|
|
<a href=#>
|
|
<img class=\"opt va\" border=0 width=45 type=$type did=$i
|
|
locked=$locked encd=$encd def=$def new=$new bx=$bx
|
|
odencd=$odencd
|
|
src=/images/181_1_00_Help5_OPT_Plus.png>
|
|
</a>
|
|
<div class=\"results blood\" style=\"margin: 0 0 0 5em\"></div>
|
|
"
|
|
puts "</div>"
|
|
}
|
|
|
|
set dir [cgi_get dir [system mediaroot]]
|
|
|
|
######################################################################
|
|
# Render web page
|
|
|
|
header
|
|
|
|
puts {
|
|
<link href=/css/jquery.contextMenu.css rel=stylesheet type=text/css />
|
|
<script type="text/javascript" src="/js/jquery.contextMenu.js"></script>
|
|
|
|
<ul id=optmenu class=contextMenu>
|
|
<li class=delete><a href=#delete>Delete</a></li>
|
|
<li><a href=#lock>Toggle Lock</a></li>
|
|
<li><a href=#enc>Toggle Enc</a></li>
|
|
<li><a href=#new>Toggle New</a></li>
|
|
<li><a href=#rename>Rename</a></li>
|
|
<li><a href=#download>Download</a></li>
|
|
}
|
|
if {[system model] eq "HDR"} {
|
|
puts { <li class="separator"><a href=#decrypt>Decrypt</a></li> }
|
|
}
|
|
if {[file exists /mod/bin/nicesplice]} {
|
|
puts { <li class="cut separator"><a href=#crop>Crop</a></li> }
|
|
}
|
|
puts {
|
|
</ul>
|
|
|
|
<div id=renameform title="Rename media file" style="display: none">
|
|
<form id=renameform_form>
|
|
<input type=hidden name="renameorig" id="renameorig" value="">
|
|
<input type=hidden name="titleorig" id="titleorig" value="">
|
|
<table border=0>
|
|
<tr>
|
|
<th>
|
|
<label for="rename">
|
|
<b>New Filename</b>
|
|
</label>
|
|
</th>
|
|
<td>
|
|
<input type=text name="rename" id="rename"
|
|
value="" size=70 maxlength=255
|
|
class="text ui-widget-content ui-corner-all">
|
|
</td>
|
|
</tr>
|
|
<tr style="display: none" class=tstype>
|
|
<th>
|
|
<label for="renametitle" style="padding-top: 0.5em">
|
|
<b>New EPG Title</b>
|
|
</label>
|
|
</th>
|
|
<td>
|
|
<input type=text name="renametitle" id="renametitle"
|
|
value="" size=70 maxlength=48
|
|
class="text ui-widget-content ui-corner-all">
|
|
</td>
|
|
</tr>
|
|
<tr style="display: none" class=tstype>
|
|
<td colspan=2 id=synopsis style="font-style: italic"></td>
|
|
</tr>
|
|
</table>
|
|
</form>
|
|
</div>
|
|
|
|
<div id=savestreamform title="Save streamed content"
|
|
style="display: none">
|
|
<div class=pre id=savestream_detail></div>
|
|
<form id=savestream_form>
|
|
}
|
|
puts "<input type=hidden name=dir value=\"$dir\">"
|
|
puts {
|
|
<table border=0>
|
|
<tr>
|
|
<th>
|
|
<label for="savestream_name">
|
|
<b>Filename</b>
|
|
</label>
|
|
</th>
|
|
<td>
|
|
<input type=text name="savestream_name"
|
|
id="savestream_name"
|
|
value="" size=70 maxlength=255
|
|
class="text ui-widget-content ui-corner-all">
|
|
<img id=savestream_spin src=/img/loading.gif>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
</form>
|
|
</div>
|
|
|
|
<div id=dialogue></div>
|
|
<div id=confirm title="Confirmation Required"></div>
|
|
|
|
<script type=text/javascript src=/cgi-bin/browse/browse.js></script>
|
|
}
|
|
|
|
puts "<span style=\"display:none\" id=dir>$dir</span>"
|
|
|
|
# Breadcrumb path
|
|
puts "
|
|
<fieldset style=\"margin: 1em\">
|
|
<legend style=\"font-size: 1.5em; padding: 0 0.5em 0.5em 0.5em;\">
|
|
"
|
|
set stub ""
|
|
foreach part [split $dir /] {
|
|
if {$stub eq "/"} { set name $part } else { set name "/$part" }
|
|
append stub $name
|
|
puts "<a href=$env(REQUEST_URI)?dir=[cgi_quote_url $stub]>$name</a>
|
|
}
|
|
puts "<span class=filesize id=dirsize></span>"
|
|
puts "</legend>"
|
|
|
|
# Parent directory
|
|
set parent [join [lrange [split $dir /] 0 end-1] /]
|
|
if {$parent ne ""} {
|
|
puts "
|
|
<div class=va>
|
|
<a href=$env(REQUEST_URI)?dir=[cgi_quote_url $parent]>
|
|
<img border=0 src=/images/711_3_09_Media_Folder_UP.png class=va>
|
|
\[parent directory\]</a>
|
|
</div>
|
|
"
|
|
}
|
|
|
|
# Strip double slashes
|
|
regsub -all -- {\/+} "$dir/*" "/" dir
|
|
|
|
foreach file [lsort [glob -nocomplain "$dir"]] {
|
|
entry $file
|
|
}
|
|
|
|
puts "</fieldset>"
|
|
|
|
# De-duplicate
|
|
|
|
puts {
|
|
<small><button id=dedup>De-duplicate/tidy this folder</button></small>
|
|
}
|
|
|
|
# Streamer file
|
|
|
|
if {[file exists /mnt/hd3/Streamer_down_file]} {
|
|
puts {
|
|
<small><button id=save_stream file=/mnt/hd3/Streamer_down_file>
|
|
Save last streamed content (e.g. iPlayer/YouTube)
|
|
</button></small>
|
|
}
|
|
}
|
|
|
|
footer
|
|
|