PMG/API2/Cluster.pm: complete cluster create, run as background task

[pmg-api.git] / PMG / DBTools.pm

diff --git a/PMG/DBTools.pm b/PMG/DBTools.pm
index 9637f3a361f50ca6a2f21c7e72ed158163ff481e..a035f28ea6a9e38a95466323571e87f71f390421 100644 (file)
--- a/PMG/DBTools.pm
+++ b/PMG/DBTools.pm
@@ -1035,4 +1035,40 @@ sub init_ruledb {
     cond_create_std_actions ($ruledb);
 }
 
+sub init_masterdb {
+    my ($lcid, $database) = @_;
+
+    die "got unexpected cid for new master" if !$lcid;
+
+    my $dbh;
+
+    eval {
+       $dbh = open_ruledb($database);
+
+       $dbh->begin_work;
+
+       print STDERR "update quarantine database\n";
+       $dbh->do ("UPDATE CMailStore SET CID = $lcid WHERE CID = 0;" .
+                 "UPDATE CMSReceivers SET CMailStore_CID = $lcid WHERE CMailStore_CID = 0;");
+
+       print STDERR "update statistic database\n";
+       $dbh->do ("UPDATE CStatistic SET CID = $lcid WHERE CID = 0;" .
+                 "UPDATE CReceivers SET CStatistic_CID = $lcid WHERE CStatistic_CID = 0;");
+
+       print STDERR "update greylist database\n";
+       $dbh->do ("UPDATE CGreylist SET CID = $lcid WHERE CID = 0;");
+
+       $dbh->commit;
+    };
+    my $err = $@;
+
+    if ($dbh) {
+       $dbh->rollback if $err;
+       $dbh->disconnect();
+    }
+
+    die $err if $err;
+}
+
+
 1;