Revision a16a7068
Von Moritz Bunkus vor mehr als 12 Jahren hinzugefügt
| SL/DB/Manager/BackgroundJob.pm | ||
|---|---|---|
|
use SL::DB::Helper::Manager;
|
||
|
use base qw(SL::DB::Helper::Manager);
|
||
|
|
||
|
use SL::DB::Helper::Sorted;
|
||
|
|
||
|
sub object_class { 'SL::DB::BackgroundJob' }
|
||
|
|
||
|
__PACKAGE__->make_manager_methods;
|
||
|
|
||
|
sub _sort_spec {
|
||
|
return ( default => [ 'next_run_at', 1 ],
|
||
|
columns => { SIMPLE => 'ALL' } );
|
||
|
}
|
||
|
|
||
|
sub cleanup {
|
||
|
my $class = shift;
|
||
|
$class->delete_all(where => [ and => [ type => 'once', last_run_at => { lt => DateTime->now_local->subtract(days => '1') } ] ]);
|
||
Auch abrufbar als: Unified diff
BackgroundJob-Manager sortierbar machen