dnsbl_whitelist: +smtp.tiscali.cz

[PerlMail.git] / perlmail-submit

diff --git a/perlmail-submit b/perlmail-submit
index 43d3fdc..782bb4d 100755 (executable)
--- a/perlmail-submit
+++ b/perlmail-submit
@@ -177,7 +177,7 @@ my($keyword,$interval)=@_;
        $sec+=$1 while s/(\d+)s//g;
        die "Interval parse error; left \"$_\", parsed: $interval" if $_ ne "";
        $sth=$DBI->prepare(($print ? "select id" : "delete")
-                       ." from $DB_table where time<from_unixtime(unix_timestamp()-$sec)");
+                       ." from $DB_table where retries is null and time<from_unixtime(unix_timestamp()-$sec)");
        $sth->execute();
        if (!$print) {
                print $sth->rows()."\n";