git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2b4b345
)
Fixed --clean: "retries" was not checked!
author
short
<>
Fri, 11 Oct 2002 14:02:22 +0000
(14:02 +0000)
committer
short
<>
Fri, 11 Oct 2002 14:02:22 +0000
(14:02 +0000)
perlmail-submit
patch
|
blob
|
history
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")
$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";
$sth->execute();
if (!$print) {
print $sth->rows()."\n";