From: David Bremner Date: Sat, 30 Aug 2008 13:38:40 +0000 (-0300) Subject: remove debugging statements X-Git-Tag: 0.4~14 X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=16d96b8f2a438a2a64c555c6541bb8e469dc88a1;p=ikiwiki.git remove debugging statements --- diff --git a/IkiWiki/Plugin/mailbox.pm b/IkiWiki/Plugin/mailbox.pm index c8b244d00..6f19d44a7 100644 --- a/IkiWiki/Plugin/mailbox.pm +++ b/IkiWiki/Plugin/mailbox.pm @@ -142,19 +142,15 @@ sub format_message(@){ 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(UNLINK=>0); + my $tmpfile=File::Temp->new(); + binmode $tmpfile,':utf8'; print $tmpfile $_->body(); - my $msgid=$_->header('Message-ID'); - debug("checking $msgid part $partcount ".$allowed_attachments); my $allowed=pagespec_match($dest, $allowed_attachments, file=>$tmpfile); - debug("pagespec_return= ". $allowed); - debug("magic= ".File::MimeInfo::Magic::magic($tmpfile)); - debug("default= ".File::MimeInfo::Magic::default($tmpfile)); if (!$allowed) { - debug("clobbering attachment"); + debug("clobbering attachment $partcount"); $_->content_type_set('text/plain'); $_->body_set("[ omitting part $partcount: $allowed ]");