From 6e1cbd3c27c9eaa880b4af037e2b91d2678de1a7 Mon Sep 17 00:00:00 2001
From: short <>
Date: Fri, 11 Oct 2002 12:54:15 +0000
Subject: [PATCH] +$ExitCode: we will succeed if we did --store even if
 --submit fails  - prevent false mail fallback to =lacemail-submit-failed if
 we stored it

---
 perlmail-submit | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/perlmail-submit b/perlmail-submit
index 9976014..8025a78 100755
--- a/perlmail-submit
+++ b/perlmail-submit
@@ -15,6 +15,10 @@ use IO::Handle;
 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";
@@ -73,6 +77,7 @@ sub store
 			." 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;
-- 
1.8.3.1