- prevent false mail fallback to =lacemail-submit-failed if we stored it
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";
." 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