[- $args = shift @param; @folders = @{ $args->{folders} }; @attachments = @{ &EMU::get_var('attachments_array') }; $quote = defined($EMU::userdb{'options.quoted_reply'}) ? $EMU::userdb{'options.quoted_reply'} : 1; my @headerinfo = &EMU::get_header_array(); @headerorder = @{ $headerinfo[0] }; %headerdata = %{ $headerinfo[1] }; # We want From and To always visible (even if blank) $headerdata{'From'} ||= ''; $headerdata{'To'} ||= ''; if (!&EMU::get_var('full_header')) { # These are the basic headers @headerorder = qw/From To Cc Date Subject/; my %newdata = map { $_ => undef } @headerorder; foreach (keys %headerdata) { my $k = $_; $k =~ s/^\s+//; $k =~ s/\s+$//; $newdata{$k} = $headerdata{$_} if (exists($newdata{$k})); } %headerdata = %newdata; } @headerorder = grep { defined($headerdata{$_}) } @headerorder; $message = &EMU::get_var('message'); @msglist = &EMU::msg_quickjump($message, $EMU::folder); # First, reformat our data foreach my $m (@msglist) { ($sender, $subject, $msgid) = $m =~ /^(.{10})(.{15})(.*)/; push (@messages, { msgid => $msgid, sender => $sender, subject => $subject }); } # Second, mark important data for (my $i=0; $i<@messages; $i++) { if ($messages[$i]->{msgid} eq $message) { $messages[$i]->{selected} = 'selected'; $previous = $messages[$i-1]->{msgid} if ($i > 0 && ref($messages[$i-1]) && exists($messages[$i-1]->{msgid})); $next = $messages[$i+1]->{msgid} if (ref($messages[$i+1]) && exists($messages[$i+1]->{msgid})); last; } } # Setup MHTML parsing $mhtml_bgcolor = &EMU::get_var('mhtml_bgcolor'); $mhtml_background = &EMU::get_var('mhtml_background'); $theme = $args->{theme}; -] [+ $EMU::c{publisher_name} +] - Read Message [# Open Header #] [- &Execute("$args->{DOCROOT}/header.html", $args) -] [# Close Header #]
 
[# Open Toolbar #] [- &Execute("$args->{DOCROOT}/toolbar.html", $args) -] [# Close Toolbar #]
Current Folder: [+ $EMU::folder +] | Read Message
[$ if ($previous) $] < Previous Message |  [$ endif $] [$ if (@messages) $] [$ else $]   [$ endif $] [$ if ($next) $]  | Next Message >  [$ endif $]
[$ if ($EMU::folder ne 'Search Results') $] [$ endif $]
 
[$ if (&EMU::get_status()) $]
[+ &EMU::get_status() +]
 
[$ endif $]
[$ foreach $h (@headerorder) $] [- $data = $headerdata{$h} || ' '; $h =~ s/^\s+|\s+$//g; if ($EMU::msg{"MSG_Header$h"}) { $h = $EMU::msg{"MSG_Header$h"}; } else { $h = "$h:"; } -] [$ endforeach $] [$ if (@attachments) $] [$ endif $]
[+ $h +]  [+ $data +]
Attachments:  [$ foreach $a (@attachments) $] [$ if ($a->{content_type} =~ /msword/i) $] [+ $a->{name} +]
[$ else $] {target} +] class=blue> [+ $a->{name} +]
[$ endif $] [$ endforeach $]
Show full message header
Printer-Friendly Version
 
[$ if (&EMU::get_var('inline_html')) $] [+ &EMU::get_var('inline_html_value') +]




[$ endif $]
[+ &EMU::get_var('the_message') +][+ &EMU::get_var('prologue') +]
[$ if ($EMU::folder ne 'Search Results') $] [$ endif $]