summaryrefslogtreecommitdiff
path: root/templates/webmail/readmail.html.ep
diff options
context:
space:
mode:
Diffstat (limited to 'templates/webmail/readmail.html.ep')
-rw-r--r--templates/webmail/readmail.html.ep89
1 files changed, 1 insertions, 88 deletions
diff --git a/templates/webmail/readmail.html.ep b/templates/webmail/readmail.html.ep
index e1f299d..5bdc27e 100644
--- a/templates/webmail/readmail.html.ep
+++ b/templates/webmail/readmail.html.ep
@@ -1,98 +1,11 @@
% layout 'mainlayout';
-% my $mail_fmt = begin
-% my ($category, $value) = @_;
-% if (ref $value eq 'ARRAY' && $value->@*) {
- <dt> <%= uc l $category %> </dt>
-% for ($value->@*) {
- <dd>
-%= $_->{display_name} ? qq("$_->{display_name}" <$_->{address}>) : "$_->{address}"
- </dd>
-% }
-% }
-% end
-
-
-% my $format_mail = begin
-% my ($msg) = @_;
-% my $body = $msg->{body};
-% my $content_type = to_mime_type $msg->{head}{mime};
-
- <div clas="jwm-mail">
-
- <dl class="jwm-mail-header">
- <dt> <%= uc l 'subject' %> </dt>
- <dd> <%= $msg->{head}{subject} %> </dd>
-%= $mail_fmt->(from => $msg->{head}{from})
-%= $mail_fmt->(to => $msg->{head}{to})
-%= $mail_fmt->(cc => $msg->{head}{cc})
-%= $mail_fmt->(bcc => $msg->{head}{bcc})
- <dt> <%= uc l 'date' %> </dt>
- <dd> <%= $msg->{head}{date} %> </dd>
- <dt> <%= uc l 'content-type' %> </dt>
- <dd> <%= $content_type %> </dd>
- </dl>
-
-% if ($content_type eq 'multipart/alternative') {
-% my $end;
-% for (reverse $body->{parts}->@*) {
-% if (!$end) {
- <div class="jwm-mail-body <%= to_mime_type($_->{head}) eq 'text/plain' ? 'jwm-mail-body-text-plain' : '' %>" >
-% my $x = mime_render(to_mime_type($_->{head}), $_->{body});
-%== $x;
- </div>
-% $end = 1 if $x;
-% }
-% else {
- <details class="jwm-mail-body <%= to_mime_type($_->{head}) eq 'text/plain' ? 'jwm-mail-body-text-plain' : '' %>" >
- <summary>
-%= to_mime_type $_->{head}
- </summary>
-%== mime_render(to_mime_type($_->{head}), $_->{body})
- </details>
-% }
-% }
-% }
-% elsif ($msg->{head}{mime}{content_maintype} eq 'multipart') {
-% for ($body->{parts}->@*) {
-% if ( !$_->{head}{content_disposition}
-% || lc $_->{head}{content_disposition} eq 'none'
-% || lc $_->{head}{content_disposition} eq 'inline') {
- <div class="jwm-mail-body <%= to_mime_type($_->{head}) eq 'text/plain' ? 'jwm-mail-body-text-plain' : '' %>" >
-%== mime_render(to_mime_type($_->{head}), $_->{body}) // "Can not render mime-part of type <code>$_->{head}{content_maintype}/$_->{head}{content_subtype}</code>."
- </div>
-% }
-% elsif (lc $_->{head}{content_disposition} eq 'attachment') {
- <p>
- Attachment <%= $_->{head}{filename} %> of type
-%= to_mime_type $_->{head}
- </p>
-% }
-% else {
-% die "unknown Content-Disposition '$_->{head}{content_disposition}'"
-% }
-% }
-% }
-% elsif ($msg->{head}{mime}{content_maintype} eq 'message') {
-% die "not implemented" unless $msg->{head}{mime}{content_subtype} eq 'rfc822';
- <p>not implemented</p>
-% }
-% else {
- <div class="jwm-mail-body <%= $content_type eq 'text/plain' ? 'jwm-mail-body-text-plain' : '' %>" >
-%== mime_render($content_type, $body) // $content_type
- </div>
-% }
-
- </div>
-% end
-
-
<div class="jwm-base">
<h1>Read Mail</h1>
-%= $format_mail->($msg)
+%= $c->render_mail->format_mail($msg)
<nav>
<a href="javascript:history.back()" class="pure-button">