From fa9905d8bdb663837aa8169a3a7e0590b27a8fd6 Mon Sep 17 00:00:00 2001 From: hummypkg Date: Wed, 1 Feb 2012 21:02:43 +0000 Subject: [PATCH] replace glob with readdir in some cases. Move paste button to clipboard git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@711 2a923420-c742-0410-a762-8d5b09965624 --- var/mongoose/cgi-bin/browse.jim | 11 +---- var/mongoose/cgi-bin/browse/browse.js | 49 ++++++++++++----------- var/mongoose/cgi-bin/browse/clipboard.jim | 1 + var/mongoose/cgi-bin/dedup.jim | 7 +--- 4 files changed, 31 insertions(+), 37 deletions(-) diff --git a/var/mongoose/cgi-bin/browse.jim b/var/mongoose/cgi-bin/browse.jim index 19a82f7..9862dbb 100755 --- a/var/mongoose/cgi-bin/browse.jim +++ b/var/mongoose/cgi-bin/browse.jim @@ -249,12 +249,6 @@ if {$parent ne ""} { " } -# Strip double slashes -regsub -all -- {\/+} "$dir/*" "/" dir - -# Escape square brackets (for glob) -regsub -all {([\\[])} $dir {\\\1} dir - proc s_time {a b} { set ad [file isdirectory $a] set bd [file isdirectory $b] @@ -277,13 +271,13 @@ proc s_time {a b} { return 0 } -set files [glob -nocomplain $dir] +set files [readdir -nocomplain $dir] switch $order { 1 { set files [lsort -command s_time $files] } default { set files [lsort $files] } } -foreach file $files { entry $file } +foreach file $files { entry "$dir/$file" } puts "Select all | none" @@ -326,7 +320,6 @@ puts "
" puts { - " + puts "" puts "" } add { diff --git a/var/mongoose/cgi-bin/dedup.jim b/var/mongoose/cgi-bin/dedup.jim index 2812469..13e7199 100755 --- a/var/mongoose/cgi-bin/dedup.jim +++ b/var/mongoose/cgi-bin/dedup.jim @@ -13,8 +13,6 @@ cgi_input set dir [cgi_get dir "/media/My Video"] set doit [cgi_get doit 0] -# Strip double slashes - header puts "
@@ -28,11 +26,10 @@ puts "
" -regsub -all -- {\/+} "$dir/*" "/" sdir - set seen {} -foreach file [lsort [glob -nocomplain "$sdir"]] { +foreach file [readdir $dir] { + set file "$dir/$file" if {[file extension $file] ne ".hmt"} { continue } altrow set ts [ts fetch $file 1]