X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/36da77056776b6a84470fe7a3665077943f846b9..2dffed32b8ca244087eab7d03638ed5766f96042:/scripts/task_server.pl

diff --git a/scripts/task_server.pl b/scripts/task_server.pl
index 5854a5197..1ac7e3126 100755
--- a/scripts/task_server.pl
+++ b/scripts/task_server.pl
@@ -123,7 +123,16 @@ sub gd_run {
     }
 
     my $seconds = 60 - (localtime)[0];
-    sleep($seconds < 30 ? $seconds + 60 : $seconds);
+    if (!eval {
+      local $SIG{'ALRM'} = sub {
+        $::lxdebug->message(0, "Got woken up by SIGALRM") if $lx_office_conf{task_server}->{debug};
+        die "Alarm!\n"
+      };
+      sleep($seconds < 30 ? $seconds + 60 : $seconds);
+      1;
+    }) {
+      die $@ unless $@ eq "Alarm!\n";
+    }
   }
 }