diff --git a/CONTROL/control b/CONTROL/control index 6301992..7f90fab 100644 --- a/CONTROL/control +++ b/CONTROL/control @@ -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/ diff --git a/webif/plugin/sweeper/auto.hook b/webif/plugin/sweeper/auto.hook index 1fa60ad..41b2a58 100644 --- a/webif/plugin/sweeper/auto.hook +++ b/webif/plugin/sweeper/auto.hook @@ -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] }