From: short <>
Date: Sat, 10 Dec 2005 09:45:35 +0000 (+0000)
Subject: Update prebuilt indexes to match even the 'clean' operation.
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=7e7de2cd791ebdfd30bfc7ba0c29c96a177855f9;ds=sidebyside

Update prebuilt indexes to match even the 'clean' operation.
Provide disabled template for possible selection for too large "pending"s.
---

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