From c844e4026669bb365f68f79c4b6195ff675c0d80 Mon Sep 17 00:00:00 2001
From: Andrew DeFaria <Andrew@DeFaria.com>
Date: Tue, 6 Jul 2021 12:48:11 -0700
Subject: [PATCH] Fixed up display.cgi and a small change to MAPS.pm

---
 maps/bin/display.cgi | 3 +++
 maps/lib/MAPS.pm     | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/maps/bin/display.cgi b/maps/bin/display.cgi
index 14c2553..533ecae 100755
--- a/maps/bin/display.cgi
+++ b/maps/bin/display.cgi
@@ -79,7 +79,10 @@ sub Body($) {
 
   my $parser = MIME::Parser->new();
 
+  # For some strange reason MIME::Parser has started having some problems
+  # with writing out tmp files...
   $parser->output_to_core(1);
+  $parser->tmp_to_core(1);
 
   my $entity = $parser->parse_data ($message);
 
diff --git a/maps/lib/MAPS.pm b/maps/lib/MAPS.pm
index b1df123..72594c2 100644
--- a/maps/lib/MAPS.pm
+++ b/maps/lib/MAPS.pm
@@ -1937,10 +1937,10 @@ sub Whitelist ($$;$$) {
   # Now call MAPSDeliver
   my $status = system "$FindBin::Bin/MAPSDeliver $userid /tmp/MAPSMessage.$$";
 
-  unlink "/tmp/MAPSMessage.$$";
-
   if ($status == 0) {
     Logmsg("whitelist", $sender, "Delivered message");
+  
+    unlink "/tmp/MAPSMessage.$$";
   } else { 
     Error("Unable to deliver message - is MAPSDeliver setgid? - $!");
   } # if
-- 
2.17.1