From: Andrew DeFaria <Andrew@DeFaria.com>
Date: Tue, 6 Jul 2021 19:48:11 +0000 (-0700)
Subject: Fixed up display.cgi and a small change to MAPS.pm
X-Git-Url: https://defaria.com/gitweb/?a=commitdiff_plain;h=c844e4026669bb365f68f79c4b6195ff675c0d80;p=clearscm.git

Fixed up display.cgi and a small change to MAPS.pm
---

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