From: short <>
Date: Fri, 11 Oct 2002 14:02:22 +0000 (+0000)
Subject: Fixed --clean: "retries" was not checked!
X-Git-Tag: bp_lace~88
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=9e7012c1852765a259847fc94a7009d088b2e2c3

Fixed --clean: "retries" was not checked!
---

diff --git a/perlmail-submit b/perlmail-submit
index 43d3fdc..782bb4d 100755
--- 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";