Sanity check Recording end and Last modified fields
This commit is contained in:
parent
cdcd83653e
commit
806918c131
|
@ -1,7 +1,7 @@
|
||||||
Package: sweeper
|
Package: sweeper
|
||||||
Priority: optional
|
Priority: optional
|
||||||
Section: misc
|
Section: misc
|
||||||
Version: 2.2.5-2
|
Version: 2.2.6
|
||||||
Architecture: mipsel
|
Architecture: mipsel
|
||||||
Maintainer: af123@hummypkg.org.uk
|
Maintainer: af123@hummypkg.org.uk
|
||||||
Depends: webif(>=1.4.2-10),jim-cgi(>=0.7-2)
|
Depends: webif(>=1.4.2-10),jim-cgi(>=0.7-2)
|
||||||
|
|
|
@ -503,13 +503,21 @@ proc ::sweeper::size {ts size folder} {
|
||||||
}
|
}
|
||||||
|
|
||||||
proc ::sweeper::age {ts age 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
|
log " ... Recording age: $recage" 2
|
||||||
return [::sweeper::intcomp $recage $age]
|
return [::sweeper::intcomp $recage $age]
|
||||||
}
|
}
|
||||||
|
|
||||||
proc ::sweeper::wage {ts age folder} {
|
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
|
log " ... Watched age: $recage" 2
|
||||||
return [::sweeper::intcomp $recage $age]
|
return [::sweeper::intcomp $recage $age]
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue