From: short <>
Date: Fri, 11 Oct 2002 12:54:15 +0000 (+0000)
Subject: +$ExitCode: we will succeed if we did --store even if --submit fails
X-Git-Tag: bp_lace~90
X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=6e1cbd3c27c9eaa880b4af037e2b91d2678de1a7;ds=sidebyside

+$ExitCode: we will succeed if we did --store even if --submit fails
 - prevent false mail fallback to =lacemail-submit-failed if we stored it
---

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;