$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";