Compare commits

...

7 Commits

3 changed files with 34 additions and 10 deletions

View File

@ -1,9 +1,9 @@
Package: sweeper
Priority: optional
Section: misc
Version: 2.2.3
Version: 2.2.6
Architecture: mipsel
Maintainer: af123@hummypkg.org.uk
Depends: webif(>=1.4.2-10),jim-cgi(>=0.7-2)
Description: Sweeper is a package for managing recordings in a variety of ways using custom rules [Improve HTML escape]
Description: Sweeper is a package for managing recordings in a variety of ways using custom rules
Tags: http://hummy.tv/forum/threads/5138/

View File

@ -503,13 +503,21 @@ proc ::sweeper::size {ts size folder} {
}
proc ::sweeper::age {ts age folder} {
set recage $(([clock seconds] - [$ts get end]) / 3600)
if {[$ts get end] < [$ts get start]} {
set recage 0
} else {
set recage $(([clock seconds] - [$ts get end]) / 3600)
}
log " ... Recording age: $recage" 2
return [::sweeper::intcomp $recage $age]
}
proc ::sweeper::wage {ts age folder} {
set recage $(([clock seconds] - [$ts lastmod]) / 3600)
if {[$ts lastmod] < [$ts get start]} {
set recage 0
} else {
set recage $(([clock seconds] - [$ts lastmod]) / 3600)
}
log " ... Watched age: $recage" 2
return [::sweeper::intcomp $recage $age]
}
@ -815,6 +823,20 @@ proc ::sweeper::action_setguidance {ts cmd arg folder} {
return 0
}
proc ::sweeper::action_setsynopsis {ts cmd arg folder} {
if {$folder} {
::sweeper::folder_apply [$ts dir] \
::sweeper::action_setsynopsis $cmd $arg 0
return 0
}
set arg [::sweeper::expand $ts $arg [$ts get synopsis]]
log "Setting synopsis for [$ts get file] to $arg" 0
if {!$::sweeper::dryrun} {
$ts setsynopsis $arg
}
return 0
}
proc ::sweeper::action_lock {ts cmd arg folder} {
if {$folder} {
::sweeper::folder_apply [$ts dir] \
@ -1155,7 +1177,6 @@ proc ::sweeper::apply_rules {dir rules {depth 0} {seen {}}} {
proc ::sweeper::apply {dir cf} {
if {[catch {set fp [open $cf r]} msg]} {
log "Error opening sweeper ruleset ($cf), $msg" 0
return
}
@ -1212,8 +1233,5 @@ proc ::sweeper::rundir {dir} {
}
}
if {[file exists $::sweeper::cf]} {
::auto::register sweeper 700
::auto::register_flag sweeper sweeper
}
::auto::register sweeper 700
::auto::register_flag sweeper sweeper

View File

@ -327,6 +327,12 @@ var schema = {
desc: 'Set recording guidance to...',
continues: true
},
setsynopsis: {
'class': 'all',
argtype: 'string',
desc: 'Set recording synopsis to...',
continues: true
},
lock: {
'class': 'all',
argtype: 'none',