X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4aa438985bc3b8d48c1350fe729c1ee25548b613..48412a8f9845627180a9689d74cdd30a9f7c803b:/scripts/task_server.pl

diff --git a/scripts/task_server.pl b/scripts/task_server.pl
index f11859b2b..299be69c6 100755
--- a/scripts/task_server.pl
+++ b/scripts/task_server.pl
@@ -25,6 +25,7 @@ use SL::Auth;
 use SL::DBUpgrade2;
 use SL::DB::AuthClient;
 use SL::DB::BackgroundJob;
+use SL::System::Process;
 use SL::BackgroundJob::ALL;
 use SL::Form;
 use SL::Helper::DateTime;
@@ -331,6 +332,11 @@ sub gd_run {
 
     clean_before_sleeping();
 
+    if (SL::System::Process::memory_usage_is_too_high()) {
+      debug("Memory usage too high - exiting.");
+      return;
+    }
+
     my $seconds = 60 - (localtime)[0];
     if (!eval {
       $SIG{'ALRM'} = sub {