From 0dc0e521ea541e810af80d4fd828dc6755d9fd01 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 2 Sep 2014 15:25:35 +0200
Subject: [PATCH] TaskServer: $::form->error und ::end_of_request() handhaben

---
 scripts/task_server.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/scripts/task_server.pl b/scripts/task_server.pl
index 9330cc2fa..b1baef42e 100755
--- a/scripts/task_server.pl
+++ b/scripts/task_server.pl
@@ -88,6 +88,8 @@ sub per_job_initialization {
 
   $::form->{login} = $lx_office_conf{task_server}->{login};
   $::instance_conf->init;
+
+  $::form->{__ERROR_HANDLER} = sub { die @_ };
 }
 
 sub drop_privileges {
@@ -223,6 +225,17 @@ sub gd_run {
   }
 }
 
+sub end_of_request {
+  $main::lxdebug->show_backtrace();
+  die <<EOF;
+Job called ::end_of_request()!
+
+This usually indicates success but should not be used by background jobs. A
+backtrace has been logged. Please tell the job author to have a look at it.
+EOF
+
+}
+
 chdir $exe_dir;
 
 mkdir SL::System::TaskServer::PID_BASE() if !-d SL::System::TaskServer::PID_BASE();
-- 
2.20.1