hummypkg/webif
5
3
Fork 4
Code Issues Pull Requests Releases 1 Activity

finish recursive handling

Browse Source 
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1358 2a923420-c742-0410-a762-8d5b09965624
This commit is contained in:
hummypkg 2013-01-18 19:24:50 +00:00
parent f550931f71
commit d649456cfe
2 changed files with 30 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
var/mongoose/cgi-bin/browse/browse.js
View File

@ -553,10 +553,18 @@ var dmenuclick = function(action, el, pos)
flagdir(file, 'autoshrink', iconset, results, el); flagdir(file, 'autoshrink', iconset, results, el);
break; break;
case 'shrinkr':
flagdir(file, 'autoshrinkr', iconset, results, el);
break;
case 'decrypt': case 'decrypt':
flagdir(file, 'autodecrypt', iconset, results, el); flagdir(file, 'autodecrypt', iconset, results, el);
break; break;
case 'decryptr':
flagdir(file, 'autodecryptr', iconset, results, el);
break;
case 'resetnew': case 'resetnew':
var url = '/cgi-bin/browse/resetnew.jim?dir=' + file; var url = '/cgi-bin/browse/resetnew.jim?dir=' + file;
$.get(url, function() { window.location.reload(true); }); $.get(url, function() { window.location.reload(true); });

32
var/mongoose/lib/bin/auto
View File

@ -3,6 +3,8 @@
source /mod/webif/lib/setup source /mod/webif/lib/setup
require lock system.class ts.class tdelete require lock system.class ts.class tdelete
set testing 0
proc dsc {} { proc dsc {} {
lassign [system diskspace] x x perc lassign [system diskspace] x x perc
if {$perc > 90} { if {$perc > 90} {
@ -47,9 +49,12 @@ proc bindir {file binroot} {
} }
proc dedup {dir} { proc dedup {dir} {
#puts "DEDUP: \[$dir]" if {$::testing} {
puts [exec /mod/webif/html/dedup/dedup -yes $dir] puts "DEDUP: \[$dir]"
exec /mod/webif/html/dedup/dedup -yes $dir } else {
puts [exec /mod/webif/html/dedup/dedup -yes $dir]
exec /mod/webif/html/dedup/dedup -yes $dir
}
} }
proc do_shrink {ts} { proc do_shrink {ts} {
@ -223,32 +228,39 @@ proc entries {dir callback} {
proc shrink {dir} { proc shrink {dir} {
puts "SHRINK: \[$dir]" puts "SHRINK: \[$dir]"
entries $dir do_shrink if {!$::testing} { entries $dir do_shrink }
} }
proc decrypt {dir} { proc decrypt {dir} {
puts "DECRYPT: \[$dir]" puts "DECRYPT: \[$dir]"
entries $dir do_decrypt if {!$::testing} { entries $dir do_decrypt }
} }
proc mpg {dir} { proc mpg {dir} {
puts "MPG: \[$dir]" puts "MPG: \[$dir]"
entries $dir do_mpg if {!$::testing} { entries $dir do_mpg }
} }
proc scan {dir attr} {{indent 0}} { proc scan {dir attr {force 0}} {{indent 0}} {
incr indent 2 incr indent 2
#puts "[string repeat " " $indent]\[$dir]" if {$::testing} { puts "[string repeat " " $indent]\[$dir]" }
if {[string match {\[*} $dir]} continue if {[string match {\[*} $dir]} continue
dsc dsc
if {[file exists "$dir/.auto$attr"]} { $attr $dir }
# Recursion
if {[file exists "$dir/.auto${attr}r"]} {
if {$::testing} { puts "[string repeat " " $indent] (R)" }
set force 1
}
if {$force || [file exists "$dir/.auto$attr"]} { $attr $dir }
foreach entry [readdir -nocomplain $dir] { foreach entry [readdir -nocomplain $dir] {
if {[file isdirectory "$dir/$entry"]} { if {[file isdirectory "$dir/$entry"]} {
scan "$dir/$entry" $attr scan "$dir/$entry" $attr $force
} }
} }