X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-submit;h=69c14f932d92c885dead317c355d8a8648394f0b;hp=cc76cca9453db6d407c9e7ed3a5398a961c68d90;hb=7e7de2cd791ebdfd30bfc7ba0c29c96a177855f9;hpb=61092e868f2245891e6000543fbc1ed1cbe36f0d

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