diff --git a/CONTROL/control b/CONTROL/control index 65d32a5..9c3d915 100644 --- a/CONTROL/control +++ b/CONTROL/control @@ -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) diff --git a/webif/plugin/sweeper/auto.hook b/webif/plugin/sweeper/auto.hook index 4d92b32..d90f623 100644 --- a/webif/plugin/sweeper/auto.hook +++ b/webif/plugin/sweeper/auto.hook @@ -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] }