+sub action_execute_class {
+ my ($self) = @_;
+
+ my $result;
+
+ my $ok = eval {
+ die "no class name given in parameter 'class'" if !$::form->{class} || ($::form->{class} =~ m{[^a-z0-9]}i);
+ die "invalid class" if ! -f "SL/BackgroundJob/" . $::form->{class} . ".pm";
+
+ my $package = "SL::BackgroundJob::" . $::form->{class};
+
+ eval "require $package" or die $@;
+ my $job = SL::DB::BackgroundJob->new(data => $::form->{data});
+ $job->data(decode_json($::form->{json_data})) if $::form->{json_data};
+ $result = $package->new->run($job);
+
+ 1;
+ };
+
+ my $reply = {
+ status => $ok ? 'succeeded' : 'failed',
+ result => $ok ? $result : $@,
+ };
+
+ $self->render(\to_json($reply), { type => 'json' });
+}
+