X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fdisplay.cgi;h=0a0cfcd9ca38fbecc7ffff3232a7c942373d0fbd;hb=88c9cb9f6ed80dd31981b083593b1746695083b9;hp=65be9b21d24568d9dfe332f1c948e6b1c4944d63;hpb=4f37839bc9faacb57d9bce9196d916595f14b114;p=clearscm.git

diff --git a/maps/bin/display.cgi b/maps/bin/display.cgi
index 65be9b2..0a0cfcd 100755
--- a/maps/bin/display.cgi
+++ b/maps/bin/display.cgi
@@ -84,6 +84,8 @@ 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);
 
@@ -170,7 +172,7 @@ sub Body($) {
             # There should be an easier way to get this but I couldn't find one.
             my $encoding = ${$subpart->{mail_inet_head}{mail_hdr_hash}{'Content-Transfer-Encoding'}[0]};
             if ($encoding =~ /base64/) {
-              $subpart->bodayhandle->print;
+              $subpart->bodyhandle->print;
             } else {
               print $subpart->print_body;
             } # if