add wage
This commit is contained in:
parent
9d5603f1e3
commit
17ed75c684
@ -1,9 +1,9 @@
|
||||
Package: sweeper
|
||||
Priority: optional
|
||||
Section: misc
|
||||
Version: 1.0.9-3
|
||||
Version: 1.0.10
|
||||
Architecture: mipsel
|
||||
Maintainer: af123@hummypkg.org.uk
|
||||
Depends: webif(>=1.0.9)
|
||||
Description: Automatically manage single recording files. [Fix for spurious Invalid TS File messages]
|
||||
Depends: webif(>=1.0.13-2)
|
||||
Description: Automatically manage single recording files. [Add 'wage' condition]
|
||||
Tags: http://hummy.tv/forum/threads/3843/
|
||||
|
@ -87,6 +87,12 @@ proc ::sweeper::age {ts age} {
|
||||
return [::sweeper::intcomp $recage $age]
|
||||
}
|
||||
|
||||
proc ::sweeper::wage {ts age} {
|
||||
set recage $(([clock seconds] - [$ts lastmod]) / 3600)
|
||||
log " ... Watched 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