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

diff --git a/maps/bin/display.cgi b/maps/bin/display.cgi
index 55d31f8..0a0cfcd 100755
--- a/maps/bin/display.cgi
+++ b/maps/bin/display.cgi
@@ -19,6 +19,7 @@ use FindBin;
 local $0 = $FindBin::Script;
 
 use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use MAPS;
 use MAPSWeb;
@@ -83,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);
 
@@ -169,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