$Socket_timeout: 15->600

Fixed --pending: forgot 'state'->'retries' transition

diff --git a/perlmail-submit b/perlmail-submit
index 2901153..9976014 100755 (executable)
--- a/perlmail-submit
+++ b/perlmail-submit
@@ -18,7 +18,7 @@ use Fcntl qw(:flock);
 
 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";
@@ -140,7 +140,7 @@ sub submit
 
 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";