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
$Socket_timeout: 15->600
[PerlMail.git]
/
perlmail-submit
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 $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";
my $DB_table="LaceMail_folder";
my $DBI_database="short";
my $DBI_user="short";
@@
-140,7
+140,7
@@
sub submit
sub pending
{
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";
$sth->execute();
while (my $row=$sth->fetchrow_hashref()) {
print $row->{"message"},"\n";