% if ( $selected_part->isa('MIME::Entity') ) { % my $type = $selected_part->mime_type; % if ( $type =~ /^text/ ) { %#

  <P CLASS="pre"><% encode_entities( $selected_part->bodyhandle->as_string ) %></P>
%   } else { # show a download link
%     my $url = $fsurl . "view/cust_msg_part.html?$custmsgnum+$selected_index";
  <A HREF="<% $url %>">
    <DIV STYLE="display: inline-block; padding: 4px; border: 2px solid #00c">
%     if ( $type =~ /^image\/\w+$/ ) {
      <IMG SRC="<% $url %>">
%     } else {
      <FONT SIZE="+1">Download <% $partnames[$selected_index] %></FONT>
%     }
  </A>
%   }
% } elsif ($selected_part->isa('MIME::Head')) {
  <P CLASS="pre"><% encode_entities( $cust_msg->header ) %></P>
% }
</DIV>

<& /elements/footer.html &>
<%init>

my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied" unless $curuser->access_right('View email logs');

my ($custmsgnum) = $cgi->keywords;
$custmsgnum =~ /^(\d+)$/ or die "illegal custmsgnum";
my $cust_msg = qsearchs('cust_msg', { 'custmsgnum' => $custmsgnum });
my $date = '';
$date = time2str('%Y-%m-%d %T', $cust_msg->_date) if ( $cust_msg->_date );
my $env_to = join('</TD></TR><TR><TD></TD><TD>', split(',', $cust_msg->env_to));

my %label = (
  'sent'   => 'Sent:',
  'failed' => 'Attempted: ',
  'prepared' => 'Not sent',
);

my $partname = sub {
  my %friendly_name = ( 'text/plain' => 'Text', 'text/html' => 'HTML' );
  my $part = shift;
  $part->head->recommended_filename
  || $friendly_name{$part->mime_type}
  || $part->mime_type;
};

my @parts = $cust_msg->parts;
my @partnames = map { &{$partname}($_) } @parts;
push @parts, $cust_msg->entity->head;
push @partnames, mt('Header');

my $selected_part;
my $selected_index = 0;
if ( $cgi->param('part') =~ /^(\d+)$/ ) {
  $selected_index = $1 if $1 < scalar(@parts);
}
$selected_part = $parts[$selected_index];
$cgi->delete('part'); # for self_url

</%init>

From:	<% $cust_msg->env_from %>
To:	<% $env_to %>
<% $label{$cust_msg->status} %>	<% $date %>
Error:	<% encode_entities($cust_msg->error) %>