Merge branch '2020-helper-number' into master

[mfinanz.git] / scripts / task_server.pl

diff --git a/scripts/task_server.pl b/scripts/task_server.pl
index 7236deaf6f9fd1d41b9e3f811c4c52c0219d0b99..3d2814928055a0e4f1c13395561766b52fa4f92f 100755 (executable)
--- a/scripts/task_server.pl
+++ b/scripts/task_server.pl
@@ -263,7 +263,7 @@ sub run_single_job_for_all_clients {
 
     if (!$ok) {
       my $error = $EVAL_ERROR;
-      debug("Exception during execution: ${error}");
+      $::lxdebug->message(LXDebug::WARN(), "Exception during execution: ${error}");
       notify_on_failure(exception => $error);
     }
 
@@ -309,7 +309,7 @@ sub run_once_for_all_clients {
 
     if (!$ok) {
       my $error = $EVAL_ERROR;
-      debug("Exception during execution: ${error}");
+      $::lxdebug->message(LXDebug::WARN(), "Exception during execution: ${error}");
       notify_on_failure(exception => $error);
     }
 
@@ -322,6 +322,7 @@ sub gd_run {
     run_single_job_for_all_clients();
     return;
   }
+  $::lxdebug->message(LXDebug::INFO(), "The task server for node " . SL::System::TaskServer::node_id() . " is up and running.");
 
   while (1) {
     $SIG{'ALRM'} = 'IGNORE';
@@ -333,6 +334,7 @@ sub gd_run {
     clean_before_sleeping();
 
     if (SL::System::Process::memory_usage_is_too_high()) {
+      debug("Memory usage too high - exiting.");
       return;
     }