now with rot13!

diff --git a/IkiWiki/Plugin/mailbox.pm b/IkiWiki/Plugin/mailbox.pm
index 75a64d61b2fcd001a716a07ef26867cf86dac0af..20738842541c7463ffde21cabbb2a5f04682d7d6 100644 (file)
--- a/IkiWiki/Plugin/mailbox.pm
+++ b/IkiWiki/Plugin/mailbox.pm
@@ -118,11 +118,20 @@ sub format_thread(@){
 sub sanitize_address($$){
     my $hdrname=shift;
     my $val=shift;
 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 ($hdrname =~ qr/From|To|Reply-To|CC/){
        my @addrs=Email::Address->parse($val);
        foreach my $addr (@addrs){

-           $addr->address("DELETED");
+           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);
     }
        }
        $val=join(",",map {$_->format;} @addrs);
     }

diff --git a/test/test.setup b/test/test.setup
index 82b725e3006d803f3fa47a87e8ef6f46e2363c6b..8d2d32683e6c051505a31fb32dde1c9d7a947c84 100644 (file)
--- a/test/test.setup
+++ b/test/test.setup
@@ -204,4 +204,5 @@ use IkiWiki::Setup::Standard {
        # For use with the attachment plugin, a program that returns
        # nonzero if its standard input contains an virus.
        #virus_checker => "clamdscan -",
        # For use with the attachment plugin, a program that returns
        # nonzero if its standard input contains an virus.
        #virus_checker => "clamdscan -",

+           mailbox_obfuscation_strategy=>"rot13"

 }
 }