Revision 7c60c242
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| SL/DB/BackgroundJob.pm | ||
|---|---|---|
| 5 | 5 |
use DateTime::Event::Cron; |
| 6 | 6 |
use English qw(-no_match_vars); |
| 7 | 7 |
|
| 8 |
require SL::DB::MetaSetup::BackgroundJob; |
|
| 9 |
require SL::DB::Manager::BackgroundJob; |
|
| 10 |
|
|
| 11 |
require SL::DB::BackgroundJobHistory; |
|
| 8 |
use SL::DB::MetaSetup::BackgroundJob; |
|
| 9 |
use SL::DB::Manager::BackgroundJob; |
|
| 12 | 10 |
|
| 13 | 11 |
use SL::System::Process; |
| 14 | 12 |
|
| ... | ... | |
| 36 | 34 |
my $run_at = DateTime->now_local; |
| 37 | 35 |
my $history; |
| 38 | 36 |
|
| 37 |
require SL::DB::BackgroundJobHistory; |
|
| 38 |
|
|
| 39 | 39 |
my $ok = eval {
|
| 40 | 40 |
eval "require $package" or die $@; |
| 41 | 41 |
my $result = $package->new->run($self); |
Auch abrufbar als: Unified diff
kein use SL::DB::Object in SL::DB::Object