Task-Server: vor Schlafen aufräumen

Dabei werden unter Anderem potenziell noch laufende Transaktionen
beendet und zumindest das Standard-DBH (nicht das von Rose)
geschlossen. Dadurch sollten alle Locks, die durch die Jobs
evtl. entstanden sind, wieder aufgelöst worden sein.

diff --git a/scripts/task_server.pl b/scripts/task_server.pl
index d515e33..661c19a 100755 (executable)
--- a/scripts/task_server.pl
+++ b/scripts/task_server.pl
@@ -82,6 +82,20 @@ sub initialize_kivitendo {
   $::form->{__ERROR_HANDLER} = sub { die @_ };
 }
 
+sub cleanup_kivitendo {
+  eval { SL::DB::Auth->new->db->dbh->rollback; };
+  eval { SL::DB::BackgroundJob->new->db->dbh->rollback; };
+
+  $::auth->save_session;
+  $::auth->expire_sessions;
+  $::auth->reset;
+
+  $::form     = undef;
+  $::myconfig = ();
+  $::request  = undef;
+  Form::disconnect_standard_dbh;
+}
+
 sub drop_privileges {
   my $user = $lx_office_conf{task_server}->{run_as};
   return unless $user;
@@ -199,6 +213,8 @@ sub gd_run {
       notify_on_failure(exception => $error);
     }
 
+    cleanup_kivitendo();
+
     debug("Sleeping");
 
     my $seconds = 60 - (localtime)[0];