X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FBackgroundJob.pm;h=b567d364e8bcdaf4c8e7c7dc993288c235e78566;hb=17384c044b465c262772eb9737ea298069c4d826;hp=1a9c869221224cbeb13b0767d44773d3b5b8f3a7;hpb=aba17eb108de08afb421ca3be47c5ce4b0d2be44;p=kivitendo-erp.git diff --git a/SL/DB/BackgroundJob.pm b/SL/DB/BackgroundJob.pm index 1a9c86922..b567d364e 100644 --- a/SL/DB/BackgroundJob.pm +++ b/SL/DB/BackgroundJob.pm @@ -5,13 +5,13 @@ use strict; use DateTime::Event::Cron; use English qw(-no_match_vars); -require SL::DB::MetaSetup::BackgroundJob; -require SL::DB::Manager::BackgroundJob; - -require SL::DB::BackgroundJobHistory; +use SL::DB::MetaSetup::BackgroundJob; +use SL::DB::Manager::BackgroundJob; use SL::System::Process; +__PACKAGE__->meta->initialize; + __PACKAGE__->before_save('_before_save_set_next_run_at'); sub _before_save_set_next_run_at { @@ -36,6 +36,8 @@ sub run { my $run_at = DateTime->now_local; my $history; + require SL::DB::BackgroundJobHistory; + my $ok = eval { eval "require $package" or die $@; my $result = $package->new->run($self); @@ -43,7 +45,7 @@ sub run { $history = SL::DB::BackgroundJobHistory ->new(package_name => $self->package_name, run_at => $run_at, - status => 'success', + status => SL::DB::BackgroundJobHistory::SUCCESS(), result => $result, data => $self->data); $history->save; @@ -56,7 +58,7 @@ sub run { $history = SL::DB::BackgroundJobHistory ->new(package_name => $self->package_name, run_at => $run_at, - status => 'failure', + status => SL::DB::BackgroundJobHistory::FAILURE(), error_col => $error, data => $self->data); $history->save; @@ -83,6 +85,8 @@ sub set_data { my $data = YAML::Load($self->data); $data->{$_} = $data{$_} for keys %data; $self->data(YAML::Dump($data)); + + $self; } sub validate {