locales.pl: update auf mobile_webpages

[mfinanz.git] / SL / BackgroundJob / Test.pm

diff --git a/SL/BackgroundJob/Test.pm b/SL/BackgroundJob/Test.pm
index f79a1b586f1467b25ec1e572da2949e65cd85f51..a70b7a3c52fba0ce45bbb503e4fe6fe2f3366f0a 100644 (file)
--- a/SL/BackgroundJob/Test.pm
+++ b/SL/BackgroundJob/Test.pm
@@ -4,11 +4,17 @@ use strict;
 
 use parent qw(SL::BackgroundJob::Base);
 
 
 use parent qw(SL::BackgroundJob::Base);
 

+use SL::System::TaskServer;
+

 sub run {
 sub run {

-  my $self   = shift;
-  my $db_obj = shift;
+  my ($self, $db_obj) = @_;
+  my $data            = $db_obj->data_as_hash;
+
+  $::lxdebug->message(0, "Test job ID " . $db_obj->id . " is being executed on node " . SL::System::TaskServer::node_id() . ".");
+
+  die "Oh cruel world: " . $data->{exception} if $data->{exception};

 
 

-  $::lxdebug->message(0, "Test job is being executed.");
+  return exists $data->{result} ? $data->{result} : 1;

 }
 
 1;
 }
 
 1;