hummypkg
/
sweeper
4
0
Fork 1
Code Issues Pull Requests Releases Wiki Activity

Sanity check Recording end and Last modified fields

This commit is contained in:
prpr 2023-07-01 01:53:33 +01:00
parent cdcd83653e
commit 806918c131
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CONTROL/control
View File

@ -1,7 +1,7 @@
Package: sweeper
Priority: optional
Section: misc
Version: 2.2.5-2
Version: 2.2.6
Architecture: mipsel
Maintainer: af123@hummypkg.org.uk
Depends: webif(>=1.4.2-10),jim-cgi(>=0.7-2)

12
webif/plugin/sweeper/auto.hook
View File

@ -503,13 +503,21 @@ proc ::sweeper::size {ts size folder} {
}
proc ::sweeper::age {ts age folder} {
set recage $(([clock seconds] - [$ts get end]) / 3600)
if {[$ts get end] < [$ts get start]} {
set recage 0
} else {
set recage $(([clock seconds] - [$ts get end]) / 3600)
}
log " ... Recording age: $recage" 2
return [::sweeper::intcomp $recage $age]
}
proc ::sweeper::wage {ts age folder} {
set recage $(([clock seconds] - [$ts lastmod]) / 3600)
if {[$ts lastmod] < [$ts get start]} {
set recage 0
} else {
set recage $(([clock seconds] - [$ts lastmod]) / 3600)
}
log " ... Watched age: $recage" 2
return [::sweeper::intcomp $recage $age]
}