From 7e7de2cd791ebdfd30bfc7ba0c29c96a177855f9 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sat, 10 Dec 2005 09:45:35 +0000
Subject: [PATCH 1/1] Update prebuilt indexes to match even the 'clean'
 operation. Provide disabled template for possible selection for too large
 "pending"s.

---
 perlmail-submit | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/perlmail-submit b/perlmail-submit
index cc76cca..69c14f9 100755
--- a/perlmail-submit
+++ b/perlmail-submit
@@ -78,6 +78,7 @@ sub initdb
 					],
 			);
 	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;
 }
@@ -176,7 +177,9 @@ sub print_messages
 {
 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";
-- 
1.8.3.1