close #2075: do not insert empty WL/BL

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

diff --git a/PMG/Quarantine.pm b/PMG/Quarantine.pm
index c0455abe682b782e9174e43f0cd871400173d83d..77af8cc2cc519b5a1d1c866913d634ea5422f5d4 100644 (file)
--- a/PMG/Quarantine.pm
+++ b/PMG/Quarantine.pm
@@ -69,12 +69,18 @@ sub add_to_blackwhite {
                if length($blist) > $maxlen;
        }
 
-       $dbh->do(
-           "DELETE FROM UserPrefs WHERE pmail = $qu AND (Name = 'WL' OR Name = 'BL');" .
+       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, 'BL', $blist, EXTRACT (EPOCH FROM now()));" .
+           "VALUES ($qu, 'WL', $wlist, EXTRACT (EPOCH FROM now()));";
+       }
+       if (scalar(keys %{$list->{BL}})) {
+           $queries .=
            "INSERT INTO UserPrefs (PMail, Name, Data, MTime) " .
-           "VALUES ($qu, 'WL', $wlist, EXTRACT (EPOCH FROM now()));");
+           "VALUES ($qu, 'BL', $blist, EXTRACT (EPOCH FROM now()));";
+       }
+       $dbh->do($queries);
     }
 
     my $values =  [ keys %{$list->{$name}} ];