X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-submit;h=9976014a21c711fba026b0dd4978a9d5e2c65990;hp=2901153700e7d1fc56ca3791c8b9391be9573ed5;hb=02d67bd115b03e0cc7e9e76a2362050909fce6e0;hpb=b68782d3f8bca18eb93a2abf167541986decedfc

diff --git a/perlmail-submit b/perlmail-submit
index 2901153..9976014 100755
--- 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";