Fixed --pending: forgot 'state'->'retries' transition
my $Lock_pathname="/tmp/LaceMail.lock";
my $PeerAddr="dejhome.dyn.jankratochvil.net.:852";
-my $Socket_timeout=15;
+my $Socket_timeout=600; # 15sec is NOT enough!
my $DB_table="LaceMail_folder";
my $DBI_database="short";
my $DBI_user="short";
sub pending
{
- my $sth=$DBI->prepare("select message from $DB_table where state='pending' order by id");
+ my $sth=$DBI->prepare("select message from $DB_table where retries is not null order by id");
$sth->execute();
while (my $row=$sth->fetchrow_hashref()) {
print $row->{"message"},"\n";