add wage
This commit is contained in:
parent
9d5603f1e3
commit
17ed75c684
@ -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/
|
||||||
|
@ -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]
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user