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
+$ExitCode: we will succeed if we did --store even if --submit fails
[PerlMail.git]
/
perlmail-submit
diff --git
a/perlmail-submit
b/perlmail-submit
index
9976014
..
8025a78
100755
(executable)
--- a/
perlmail-submit
+++ b/
perlmail-submit
@@
-15,6
+15,10
@@
use IO::Handle;
use POSIX qw(mktime);
use Fcntl qw(:flock);
use POSIX qw(mktime);
use Fcntl qw(:flock);
+my $ExitCode;
+END {
+ exit $ExitCode if defined $ExitCode;
+ }
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";
@@
-73,6
+77,7
@@
sub store
." values (".join(",",map("?",keys(%row))).")");
$prep->execute(values(%row));
print $prep->{"mysql_insertid"}."\n";
." values (".join(",",map("?",keys(%row))).")");
$prep->execute(values(%row));
print $prep->{"mysql_insertid"}."\n";
+ $ExitCode=0; # we will succeed even if --submit fails
}
my $submitonce_run=0;
}
my $submitonce_run=0;