#!/usr/bin/perl
################################################################################
#
# File:         $RCSfile: display.cgi,v $
# Revision:     $Revision: 1.1 $
# Description:  Displays an email message
# Author:       Andrew@DeFaria.com
# Created:      Fri Nov 29 14:17:21  2002
# Modified:     $Date: 2013/06/12 14:05:47 $
# Language:     perl
#
# (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
#
################################################################################
use strict;
use warnings;

use FindBin;
local $0 = $FindBin::Script;

use lib "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/../../lib";

use MAPS;
use MAPSWeb;

use CGI qw/:standard *table/;
use CGI::Carp "fatalsToBrowser";

use MIME::Parser;
use MIME::Base64;
use MIME::Words qw(:all);

my $userid = cookie('MAPSUser');
my $sender = param('sender');

# CGI will replace '+' with ' ', which many mailers are starting to do,
# so add it back
$sender =~ s/ /\+/;

my $msg_date   = param('msg_date');
my $table_name = 'message';

sub ParseEmail(@) {
  my (@header) = @_;

  my %header;

  # First output the header information. Note we'll skip uninteresting stuff
  for (@header) {
    last if ($_ eq '' || $_ eq "\cM");

    # Escape "<" and ">"
    s/\</\&lt\;/;
    s/\>/\&gt\;/;

    if (/^from:\s*(.*)/i) {
      $header{From} = $1;
    } elsif (/^subject:\s*(.*)/i) {
      $header{Subject} = $1;
    } elsif (/^date:\s*(.*)/i) {
      $header{date} = $1;
    } elsif (/^To:\s*(.*)/i) {
      $header{to} = $1;
    } elsif (/^Content-Transfer-Encoding: base64/) {
      $header{base64} = 1;
    } # if
  } # for

  return %header;
} # ParseEmail

sub Body($) {
  my ($date) = @_;

  # Find unique message using $date
  my ($err, $msg) = FindEmail(
    userid    => $userid,
    sender    => $sender,
    timestamp => $date,
  );

  my $rec = GetEmail;

  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($rec->{data});

  my %header = ParseEmail @{($entity->header)[0]};

  print p . "\n";
    print start_table ({-align        => "center",
                        -id           => $table_name,
                        -border       => 0,
                        -cellspacing  => 0,
                        -cellpadding  => 0,
                        -width        => "100%"});
    print start_table ({-align        => "center",
                        -bgcolor      => 'steelblue',
                        #-bgcolor      => "#d4d0c8",
                        -border       => 0,
                        -cellspacing  => 2,
                        -cellpadding  => 2,
                        -width        => "100%"}) . "\n";
    print "<tbody><tr><td>\n";
    print start_table ({-align        => "center",
                        -border       => 0,
                        -cellspacing  => 0,
                        -cellpadding  => 2,
                        -bgcolor      => 'black',
                        #-bgcolor      => "#ece9d8",
                        -width        => "100%"}) . "\n";

    for (keys (%header)) {
      next if /base64/;

      my $str = decode_mimewords($header{$_});

      print Tr ([
        th ({-align    => 'right',
             -bgcolor  => 'steelblue',
             -style    => 'color: white',
             #-bgcolor  => "#ece9d8",
             -width    => "8%"}, ucfirst "$_:") . "\n" .
        td ({-bgcolor  => 'white'}, $str)
      ]);
    } # for

    print end_table;
    print "</td></tr>";
    print end_table;

  print start_table ({-align        => 'center',
                      -bgcolor      => 'steelblue',
                      -border       => 0,
                      -cellspacing  => 0,
                      -cellpadding  => 2,
                      -width        => "100%"}) . "\n";
  print "<tbody><tr><td>\n";
  print start_table ({-align        => "center",
                      -border       => 0,
                      -cellspacing  => 0,
                      -cellpadding  => 2,
                      -bgcolor      => 'white',
                      -width        => "100%"}) . "\n";
  print "<tbody><tr><td>\n";

  my @parts = $entity->parts;

  if (scalar @parts == 0) {
    if ($entity->{mail_inet_head}{mail_hdr_hash}{'Content-Transfer-Encoding'} and
        ${$entity->{mail_inet_head}{mail_hdr_hash}{'Content-Transfer-Encoding'}[0]} =~ /base64/) {
      print $entity->{ME_Bodyhandle}{MBS_Data};
    } else {
      print '<pre>';
      print $entity->print_body;
      print '</pre>';
    } # if
  } else {
    for my $part ($entity->parts) {
      # We assume here that if this part is multipart/alternative then
      # there exists at least one part that is text/html and we favor
      # that (since we're outputing to a web page anyway...
      if ($part->mime_type eq 'multipart/alternative') {
        for my $subpart ($part->parts) {
          if ($subpart->mime_type eq 'text/html') {
            # 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->bodyhandle->print;
            } else {
              print $subpart->print_body;
            } # if
            last;
          } elsif ($subpart->mime_type eq 'multipart/related') {
            # This is stupid - multipart/related? When it's really just HTML?!?
            $subpart->print_body;
            last;
          } # if
        } # for
      } elsif ($part->mime_type eq 'multipart/related') {
        # Sometimes parts are 'multipart/relative'...
        $part->print_body;
      } else {
        if ($part->mime_type =~ /text/) {
          my $encoding = '';

          $encoding = ${$part->{mail_inet_head}{mail_hdr_hash}{'Content-Transfer-Encoding'}[0]}
            if $part->{mail_inet_head}{mail_hdr_hash}{'Content-Transfer-Encoding'};

          if ($encoding =~ /base64/) {
            $part->bodyhandle->print();
          } else {
            print '<pre>';
            print $part->print_body;
            print '</pre>';
          } # if
        } # if
      } # if
    } # for
  } # if

  print "</td></tr>\n";
  print end_table;
  print "</td></tr>\n";
  print end_table;
  print end_table;
} # Body

$userid = Heading(
  'getcookie',
  '',
  "Email message from $sender",
  "Email message from $sender",
  '',
  $table_name,
);

$userid //= $ENV{USER};

SetContext($userid);
NavigationBar($userid);

Body($msg_date);

Footing($table_name);