Task-Server: Exceptions als Warnung loggen, nicht als Debugmeldung

diff --git a/scripts/task_server.pl b/scripts/task_server.pl
index 299be69c6f29018ad523ac1b7558ce9949988a17..c9494c8e0d55fa1be71623453c630ef54f9122c8 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;
 
     if (!$ok) {
       my $error = $EVAL_ERROR;

-      debug("Exception during execution: ${error}");
+      $::lxdebug->message(LXDebug::WARN(), "Exception during execution: ${error}");

       notify_on_failure(exception => $error);
     }
 
       notify_on_failure(exception => $error);
     }
 


@@ -309,7 +309,7 @@ sub run_once_for_all_clients {
 
     if (!$ok) {
       my $error = $EVAL_ERROR;
 
     if (!$ok) {
       my $error = $EVAL_ERROR;

-      debug("Exception during execution: ${error}");
+      $::lxdebug->message(LXDebug::WARN(), "Exception during execution: ${error}");

       notify_on_failure(exception => $error);
     }
 
       notify_on_failure(exception => $error);
     }