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 (executable)
--- 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";