forked from hummypkg/sweeper
added age
This commit is contained in:
parent
4540ae4fd9
commit
df18688606
@ -1,7 +1,7 @@
|
||||
Package: sweeper
|
||||
Priority: optional
|
||||
Section: misc
|
||||
Version: 1.0.8-4
|
||||
Version: 1.0.9
|
||||
Architecture: mipsel
|
||||
Maintainer: af123@hummypkg.org.uk
|
||||
Depends: webif(>=1.0.6-7)
|
||||
|
@ -81,6 +81,12 @@ proc ::sweeper::size {ts size} {
|
||||
return [::sweeper::intcomp [$ts size] $size]
|
||||
}
|
||||
|
||||
proc ::sweeper::age {ts age} {
|
||||
set recage $(([clock seconds] - [$ts get end]) / 3600)
|
||||
log " ... Recording age: $recage" 2
|
||||
return [::sweeper::intcomp $recage $age]
|
||||
}
|
||||
|
||||
proc ::sweeper::definition {ts def} {
|
||||
return [::sweeper::strcontains [$ts get definition] $def]
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user