forked from hummypkg/webif
fa9905d8bd
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@711 2a923420-c742-0410-a762-8d5b09965624
120 lines
2.6 KiB
Plaintext
Executable File
120 lines
2.6 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/var/mongoose/lib/setup
|
|
require clipboard.class ts.class
|
|
|
|
puts "Content-Type: text/html; no-cache"
|
|
puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
|
|
puts "Pragma: nocache"
|
|
puts ""
|
|
|
|
cgi_input 1
|
|
#cgi_dump
|
|
|
|
set cb [[clipboard new {path "/tmp/webif-browse.cb"}] load]
|
|
|
|
set action [cgi_get act list]
|
|
|
|
switch $action {
|
|
list {
|
|
if {![$cb size]} {
|
|
puts "<i>Clipboard is empty</i>"
|
|
break
|
|
}
|
|
puts "<div class=cliplist>"
|
|
foreach file [$cb get items] {
|
|
set img "page_white_copy"
|
|
if {[$file get action] eq "cut"} {
|
|
set img "cut"
|
|
}
|
|
set path [$file get path]
|
|
set xpath [cgi_quote_html $path]
|
|
puts "<span title=\"$xpath\" alt=\"$xpath\">"
|
|
puts "<img src=/img/context/$img.png>"
|
|
set dfile [file tail $path]
|
|
if {[string length $dfile] > 25} {
|
|
set dfile "[string range $dfile 0 22]..."
|
|
}
|
|
if {[file isdirectory $path]} {
|
|
puts "<img height=16
|
|
src=/images/711_1_09_Media_Folder.png>"
|
|
}
|
|
puts [cgi_quote_html $dfile]
|
|
puts "<a class=clipdel href=# alt=\"Remove\" title=\"Remove\"
|
|
path=\"[cgi_quote_url $path]\">
|
|
<img border=0 src=/img/close.png height=16></a>"
|
|
puts "</span>"
|
|
}
|
|
puts "</div>"
|
|
puts "<button id=paste>Paste to current folder</button>"
|
|
puts "<button id=clipclear>Empty clipboard</button>"
|
|
}
|
|
add {
|
|
if {[set path [cgi_get path]] eq "0"} {
|
|
puts "No path."
|
|
exit
|
|
}
|
|
set dir [cgi_unquote_input [cgi_get dir]]
|
|
set mode [cgi_get mode copy]
|
|
foreach p $path {
|
|
set p [cgi_unquote_input $p]
|
|
if {$dir ne "0" && ![string match "$dir/*" $p]} {
|
|
puts "$p not in directory<br>"
|
|
continue
|
|
}
|
|
if {![$cb present $p]} {
|
|
$cb add $mode $p
|
|
puts "Added $p for $mode<br>"
|
|
}
|
|
}
|
|
$cb save
|
|
}
|
|
remove {
|
|
$cb remove [cgi_unquote_input [cgi_get path]]
|
|
$cb save
|
|
}
|
|
clear {
|
|
$cb clear
|
|
$cb save
|
|
}
|
|
paste {
|
|
set dir [cgi_unquote_input [cgi_get dir]]
|
|
foreach item [$cb get items] {
|
|
set path [$item get path]
|
|
set file [file tail $path]
|
|
set mode [$item get action]
|
|
|
|
puts "Pasting $file"
|
|
|
|
if {[file isdirectory $path]} {
|
|
# Directory
|
|
if {$mode eq "cut"} {
|
|
catch {file rename $path "$dir/$file"}
|
|
} else {
|
|
catch {puts [exec /mod/bin/busybox/cp -r \
|
|
$path $dir]}
|
|
}
|
|
} else {
|
|
set root [file rootname $path]
|
|
# Protect special characters in root.
|
|
# In particular [] characters which are used a lot
|
|
# for torrent names.
|
|
regsub -all {([\\["$])} $root {\\\1} root
|
|
foreach f [glob -nocomplain "${root}.*"] {
|
|
if {$mode eq "cut"} {
|
|
catch {file rename $f \
|
|
"$dir/[file tail $f]"}
|
|
} else {
|
|
catch {file copy $f \
|
|
"$dir/[file tail $f]"}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
$cb clear
|
|
$cb save
|
|
}
|
|
}
|
|
|