fix #4392: keep empty user bl/wl in database

since our cluster sync does currently not handle vanishing rows.
So by keeping the empty entries, they get properly synced to the
other nodes.

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>
Tested-by: Stefan Sterz <s.sterz@proxmox.com>

diff --git a/src/PMG/Quarantine.pm b/src/PMG/Quarantine.pm
index d3d0640fca4a4fe9a5b557ed24adc29ab5dc24a9..bd231e496bbac62f230de4b27801ca31731f0221 100644 (file)
--- a/src/PMG/Quarantine.pm
+++ b/src/PMG/Quarantine.pm
@@ -71,16 +71,15 @@ sub add_to_blackwhite {
        }
 
        my $queries = "DELETE FROM UserPrefs WHERE pmail = $qu AND (Name = 'WL' OR Name = 'BL');";
-       if (scalar(keys %{$list->{WL}})) {
-           $queries .=
-           "INSERT INTO UserPrefs (PMail, Name, Data, MTime) " .
-           "VALUES ($qu, 'WL', $wlist, EXTRACT (EPOCH FROM now())::INTEGER);";
-       }
-       if (scalar(keys %{$list->{BL}})) {
-           $queries .=
-           "INSERT INTO UserPrefs (PMail, Name, Data, MTime) " .
-           "VALUES ($qu, 'BL', $blist, EXTRACT (EPOCH FROM now())::INTEGER);";
-       }
+
+       $queries .=
+       "INSERT INTO UserPrefs (PMail, Name, Data, MTime) " .
+       "VALUES ($qu, 'WL', $wlist, EXTRACT (EPOCH FROM now())::INTEGER);";
+
+       $queries .=
+       "INSERT INTO UserPrefs (PMail, Name, Data, MTime) " .
+       "VALUES ($qu, 'BL', $blist, EXTRACT (EPOCH FROM now())::INTEGER);";
+
        $dbh->do($queries);
     }