git://git.jankratochvil.net
/
PerlMail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed &User::Utmp::USER_PROCESS FC5 incompatiblity.
[PerlMail.git]
/
perlmail-submit
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 (retries,id)");
+ DBI()->do("alter table $DB_table add index (time,retries)");
print "done.\n";
exit 0;
}
print "done.\n";
exit 0;
}
@@
-176,7
+177,9
@@
sub print_messages
{
my($cond)=@_;
{
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";
$sth->execute();
while (my $row=$sth->fetchrow_hashref()) {
print $row->{"message"},"\n";