This commit is contained in:
hummypkg 2014-05-19 20:36:08 +00:00
parent 9d5603f1e3
commit 17ed75c684
2 changed files with 9 additions and 3 deletions

View File

@ -1,9 +1,9 @@
Package: sweeper Package: sweeper
Priority: optional Priority: optional
Section: misc Section: misc
Version: 1.0.9-3 Version: 1.0.10
Architecture: mipsel Architecture: mipsel
Maintainer: af123@hummypkg.org.uk Maintainer: af123@hummypkg.org.uk
Depends: webif(>=1.0.9) Depends: webif(>=1.0.13-2)
Description: Automatically manage single recording files. [Fix for spurious Invalid TS File messages] Description: Automatically manage single recording files. [Add 'wage' condition]
Tags: http://hummy.tv/forum/threads/3843/ Tags: http://hummy.tv/forum/threads/3843/

View File

@ -87,6 +87,12 @@ proc ::sweeper::age {ts age} {
return [::sweeper::intcomp $recage $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} { proc ::sweeper::definition {ts def} {
return [::sweeper::strcontains [$ts get definition] $def] return [::sweeper::strcontains [$ts get definition] $def]
} }