],
);
DBI()->do("alter table $DB_table add index (retries,id)");
+ DBI()->do("alter table $DB_table add index (time,retries)");
print "done.\n";
exit 0;
}
{
my($cond)=@_;
- my $sth=DBI()->prepare("select message from $DB_table $cond order by id");
+ my $sth=DBI()->prepare("select message from $DB_table $cond order by id"
+# ." limit 4001,999999" # FIXME
+ );
$sth->execute();
while (my $row=$sth->fetchrow_hashref()) {
print $row->{"message"},"\n";