# This file is distributed under the Artistic License/GPL2+
use Email::MIME;
+use Email::MIME::Modifier;
package Email::MIMEFolder;
use base 'Email::Folder';
sub bless_message { return Email::MIME->new($_[1]) };
use IkiWiki 2.00;
use Email::Thread;
use CGI 'escapeHTML';
-use Data::Dumper;
-
-
+use File::Temp qw/tempfile/;
+use File::MimeInfo::Magic;
+use Date::Parse;
+use Email::Address;
my %metaheaders;
hook(type => "preprocess", id => "mailbox", call => \&preprocess);
hook(type => "scan", id => "mailbox", call => \&scan);
hook(type => "pagetemplate", id=>"mailbox", call => \&pagetemplate);
+ hook(type => "htmlize",id=>"mbox",call => \&mbox_htmlize);
+ IkiWiki::loadplugin("filecheck");
} # }}}
sub scan(@){
my %params=@_;
my $page=$params{page};
+
+ my $linktext=$config{url}.'/mailbox.css';
push @{$metaheaders{$page}},
- '<link rel="stylesheet" href="mailbox.css" type="text/css"/>'
+ '<link rel="stylesheet" href="'.$linktext.'" type="text/css"/>'
}
sub preprocess (@) { #{{{
} # }}}
+sub mbox_htmlize(@){
+ my %params=@_;
+
+ my $path=$config{srcdir} . '/' . $params{page}.".mbox";
+ return format_mailbox(path=>$path,type=>'Mbox',destpage=>$params{page});
+}
### The guts of the plugin
### parameters
$threader->thread();
- return join "\n", map { format_thread(thread=>$_) } $threader->rootset;
+ my @roots= sort { str2time($a->header('Date')) <=>
+ str2time($b->header('Date'))} ($threader->rootset);
+
+ return join "\n", map { format_thread(%params,thread=>$_) } @roots;
+
}
sub format_thread(@){
my $output="";
if ($thread->message) {
- $output .= format_message(message=>$thread->message);
+ $output .= format_message(%params,message=>$thread->message);
} else {
$output .= sprintf gettext("Message %s not available"), $thread->messageid;
}
if ($thread->child){
$output .= '<div class="emailthreadindent">' .
- format_thread(thread=>$thread->child).
+ format_thread(%params,thread=>$thread->child).
'</div>';
}
if ($thread->next){
- $output .= format_thread(thread=>$thread->next);
+ $output .= format_thread(%params,thread=>$thread->next);
}
return $output;
}
+sub sanitize_address($$){
+ my $hdrname=shift;
+ my $val=shift;
+ my $strategy= $config{mailbox_obfuscation_strategy} || "delete";
+
+ return $val if ($strategy eq "none");
+
+ if ($hdrname =~ qr/From|To|Reply-To|CC/){
+ my @addrs=Email::Address->parse($val);
+ foreach my $addr (@addrs){
+ if ($strategy eq "rot13"){
+ my $orig=$addr->address;
+ $orig =~ y/A-Za-z/N-ZA-Mn-za-m/;
+ $addr->address($orig);
+ } else {
+ $addr->address(gettext("address deleted"));
+ }
+ }
+ $val=join(",",map {$_->format;} @addrs);
+ }
+ return $val;
+ }
+
sub make_pair($$){
my $message=shift;
my $name=shift;
- my $val=$message->header($_);
-
+ my $val=$message->header($name);
+
+ $val = sanitize_address($name,$val);
+
$val = escapeHTML($val);
my $hash={'HEADERNAME'=>$name,'VAL'=>$val};
my $message=$params{message} ||
error gettext("missing parameter"). "message";
+
+ my $dest=$params{destpage} ||
+ error gettext("missing parameter"). "destpage";
+
my $keep_headers=$params{headers} || qr/^(subject|from|date)[:]?$/i;
my $template=
my $output="";
my @names = grep {m/$keep_headers/;} ($message->header_names);
+
my @headers=map { make_pair($message,$_) } @names;
+
$template->param(HEADERS=>[@headers]);
+ my $allowed_attachments=$params{allowed_attachments} ||
+ "maxsize(100kb) and mimetype(text/plain)";
+
+ my @parts=$message->parts;
+
+ my $partcount=1;
+ foreach(@parts){
+ #this sucks. But someone would need to modify filecheck to
+ #accept a blob of content. Or maybe hacking with IO::Scalar
+ my $tmpfile=File::Temp->new();
+
+ binmode $tmpfile,':utf8';
+ print $tmpfile $_->body();
- my $body= join("\n", map { $_->body } $message->parts);
+ my $allowed=pagespec_match($dest, $allowed_attachments, file=>$tmpfile);
+
+ if (!$allowed) {
+ debug("clobbering attachment $partcount");
+ $_->content_type_set('text/plain');
+ $_->body_set("[ omitting part $partcount: $allowed ]");
+
+ }
+ $partcount++;
+ }
+ my $body= join("\n", map { $_->body } @parts);
$template->param(body=>format_body($body));
my $destpage=$params{destpage};
my $template=$params{template};
+
+ if ($page =~ /.*comments/ && defined($config{mailbox_copyright})){
+ $template->param(COPYRIGHT=>$config{mailbox_copyright});
+ }
+
if (exists $metaheaders{$page} && $template->query(name => "meta")) {
# avoid duplicate meta lines
my %seen;