af123/webif
1
0
Fork 0
forked from hummypkg/webif
Code Issues Pull Requests Releases Wiki Activity

fixes

Browse Source 
git-svn-id: file:///root/webif/svn/pkg/webif/trunk@2324 2a923420-c742-0410-a762-8d5b09965624
This commit is contained in:
hummypkg 2015-02-07 21:22:59 +00:00
parent b9e6ad6881
commit 8334746a5c
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
webif/lib/bin/auto
View File

@ -532,7 +532,7 @@ proc expire {dir} {
log "EXPIRE: \[$dir]" 2
# type 0 keep {} days 2 keepnew 0
set ax [{dir expiry} $dir]
set ax [dir expiry $dir]
log " $ax" 2
if {![string is integer -strict $ax(keep)]} { set ax(keep) 0 }
if {![string is integer -strict $ax(days)]} { set ax(days) 0 }
@ -618,7 +618,7 @@ proc scan_run {dir flag callback} {
}
}
proc scan {dir attr {force 0} {recurse 1}} {{indent 0}} {
proc xscan {dir attr {force 0} {recurse 1}} {{indent 0}} {
global dustbin
incr indent 2
@ -657,7 +657,7 @@ proc scan {dir attr {force 0} {recurse 1}} {{indent 0}} {
foreach entry [readdir -nocomplain $dir] {
if {$recurse && [file isdirectory "$dir/$entry"]} {
scan "$dir/$entry" $attr $force
xscan "$dir/$entry" $attr $force
}
}
@ -696,7 +696,7 @@ proc scansingle {dirs} {
log "Encountered special directory."
break
}
scan $dir $arg $sup 0
xscan $dir $arg $sup 0
log "$arg scan completed in [elapsed $st] seconds."
}
}
@ -716,7 +716,7 @@ if {[lindex $argv 0] eq "-single"} {
log "$arg scan starting."
set processed_files {}
runplugin "pre${arg}scan"
scan $root $arg
xscan $root $arg
runplugin "post${arg}scan" processed_files
log "$arg scan completed in [elapsed $st] seconds."
}
@ -726,7 +726,7 @@ if {[lindex $argv 0] eq "-single"} {
log "$arg scan starting."
set processed_files {}
runplugin "pre${arg}scan"
scan $root $arg
xscan $root $arg
runplugin "post${arg}scan" processed_files
log "$arg scan completed in [elapsed $st] seconds."
}

6
webif/lib/bin/resetnew
View File

@ -3,7 +3,7 @@
source /mod/webif/lib/setup
require system.class ts.class
proc scan {dir} {
proc xscan {dir} {
puts "Resetting unwatched count on $dir..."
file stat "$dir/" st
if {$st(dev) != $::rootdev} { return }
@ -12,7 +12,7 @@ proc scan {dir} {
foreach entry [readdir -nocomplain $dir] {
if {[file isdirectory "$dir/$entry"]} {
scan "$dir/$entry"
xscan "$dir/$entry"
}
}
}
@ -21,5 +21,5 @@ set root [system mediaroot]
file stat "$root/" rootstat
set rootdev $rootstat(dev)
scan $root
xscan $root