initial MIME handling

diff --git a/IkiWiki/Plugin/mailbox.pm b/IkiWiki/Plugin/mailbox.pm
index 2a2320aec5a9ec679534043250ebf6a2678dd8d9..8f501ea40021e3ae6b76dcdb275cd9441b5261c1 100644 (file)
--- a/IkiWiki/Plugin/mailbox.pm
+++ b/IkiWiki/Plugin/mailbox.pm
@@ -4,10 +4,13 @@
 # Copyright (c) 2008 David Bremner <bremner@unb.ca>
 # This file is distributed under the Artistic License/GPL2+
 
 # Copyright (c) 2008 David Bremner <bremner@unb.ca>
 # This file is distributed under the Artistic License/GPL2+
 

+use Email::MIME;
+package Email::MIMEFolder;
+use base 'Email::Folder';
+sub bless_message { return  Email::MIME->new($_[1]) };
+

 package IkiWiki::Plugin::mailbox;
 
 package IkiWiki::Plugin::mailbox;
 

-use warnings;
-use strict;

 use IkiWiki 2.00;
 use Email::Folder;
 use Email::Thread;
 use IkiWiki 2.00;
 use Email::Folder;
 use Email::Thread;


@@ -26,7 +29,6 @@ sub scan(@){
        my %params=@_;
        my $page=$params{page};
 
        my %params=@_;
        my $page=$params{page};
 

-       debug('calling scan');

        push @{$metaheaders{$page}}, 
               '<link rel="stylesheet" href="mailbox.css" type="text/css"/>'
 }
        push @{$metaheaders{$page}}, 
               '<link rel="stylesheet" href="mailbox.css" type="text/css"/>'
 }


@@ -58,7 +60,7 @@ sub format_mailbox(@){
     my %params=@_;
     my $path=$params{path} || error("path parameter mandatory");
 
     my %params=@_;
     my $path=$params{path} || error("path parameter mandatory");
 

-    my $folder=Email::Folder->new($path) || error("mailbox could not be opened");
+    my $folder=Email::MIMEFolder->new($path) || error("mailbox could not be opened");

     my $threader=new Email::Thread($folder->messages);
 
     $threader->thread();
     my $threader=new Email::Thread($folder->messages);
 
     $threader->thread();


@@ -111,15 +113,21 @@ sub format_message(@){
     
     my $template= 
        template("email.tmpl") || error gettext("missing template");
     
     my $template= 
        template("email.tmpl") || error gettext("missing template");

-    
+
+    my $output="";
+

     my @names = grep  {m/$keep_headers/;}  ($message->header_names);
     my @headers=map { make_pair($message,$_) } @names;
     
 
     $template->param(HEADERS=>[@headers]);
     my @names = grep  {m/$keep_headers/;}  ($message->header_names);
     my @headers=map { make_pair($message,$_) } @names;
     
 
     $template->param(HEADERS=>[@headers]);

-    $template->param(body=>format_body($message->body));

 
 

-    my $output=$template->output();
+
+    my $body= join("\n", map { $_->body }  $message->parts);
+
+    $template->param(body=>format_body($body));
+
+    $output .= $template->output();

     return $output;
 }
 
     return $output;
 }
 

diff --git a/README b/README
index 0712e3474b336d763344f57def904119f839e4de..572197b7d29723ca5cd0e2a34363760c4e635872 100644 (file)
--- a/README
+++ b/README
@@ -3,4 +3,5 @@ Required perl modules (only top level dependencies are listed)
 
 Email::Folder
 Email::Thread
 
 Email::Folder
 Email::Thread

+Email::Mime

 CGI (distributed with perl 5.10.0; maybe before?)
\ No newline at end of file
 CGI (distributed with perl 5.10.0; maybe before?)
\ No newline at end of file