+$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);
 
+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;