Ticket #91: crypt.patch

=== lib/Plagger/Cache.pm
==================================================================
--- lib/Plagger/Cache.pm        (revision 25125)
+++ lib/Plagger/Cache.pm        (local)
@@ -30,6 +30,13 @@
     }, $class;
 }
 
+sub base { $_[0]->{base} }
+
+sub path_to {
+    my($self, @path) = @_;
+    File::Spec->catfile($self->{base}, @path);
+}
+
 sub get {
     my $self = shift;
 
=== lib/Plagger/Plugin/Subscription/Bloglines.pm
==================================================================
--- lib/Plagger/Plugin/Subscription/Bloglines.pm        (revision 25125)
+++ lib/Plagger/Plugin/Subscription/Bloglines.pm        (local)
@@ -5,6 +5,8 @@
 our $VERSION = '0.10';
 use WebService::Bloglines;
 
+sub encrypt_config { 'password' }
+
 sub register {
     my($self, $context) = @_;
 
=== lib/Plagger/Plugin.pm
==================================================================
--- lib/Plagger/Plugin.pm       (revision 25125)
+++ lib/Plagger/Plugin.pm       (local)
@@ -4,6 +4,7 @@
 
 __PACKAGE__->mk_accessors( qw(conf rule rule_hook cache) );
 
+use Plagger::Crypt;
 use Plagger::Rule;
 use Plagger::Rules;
 
@@ -22,6 +23,7 @@
 
 sub init {
     my $self = shift;
+
     if (my $rule = $self->{rule}) {
         $rule = [ $rule ] if ref($rule) eq 'HASH';
         my $op = $self->{rule_op};
@@ -29,8 +31,23 @@
     } else {
         $self->{rule} = Plagger::Rule->new({ module => 'Always' });
     }
+
+    if (my $params = $self->encrypt_config) {
+        $params = [ $params ] unless ref $params;
+
+        for my $key (@$params) {
+            my $config = $self->conf;
+            # support foo/bar/baz
+            while ($key =~ s!^(\w+)/!!) {
+                $config = $config->{$1};
+            }
+            warn $config->{$key} = Plagger::Crypt->decrypt($config->{$key});
+        }
+    }
 }
 
+sub encrypt_config { }
+
 sub conf { $_[0]->{conf} }
 sub rule { $_[0]->{rule} }
 
=== lib/Plagger/Crypt/Base64.pm
==================================================================
--- lib/Plagger/Crypt/Base64.pm (revision 25125)
+++ lib/Plagger/Crypt/Base64.pm (local)
@@ -0,0 +1,18 @@
+package Plagger::Crypt::Base64;
+use strict;
+use MIME::Base64 ();
+
+sub id { 'base64' }
+
+sub decrypt {
+    my($self, $text) = @_;
+    MIME::Base64::decode($text);
+}
+
+sub encrypt {
+    my($self, $text) = @_;
+    MIME::Base64::encode($text, '');
+}
+
+1;
+

Property changes on: lib/Plagger/Crypt/Base64.pm
___________________________________________________________________
Name: svn:keywords
 +Id Revision

=== lib/Plagger/Crypt/Blowfish.pm
==================================================================
--- lib/Plagger/Crypt/Blowfish.pm       (revision 25125)
+++ lib/Plagger/Crypt/Blowfish.pm       (local)
@@ -0,0 +1,53 @@
+package Plagger::Crypt::Blowfish;
+use strict;
+use Crypt::CBC;
+
+sub id { 'Blowfish' }
+
+sub cipher {
+    my $self = shift;
+
+    my $key = $self->read_key;
+    return Crypt::CBC->new({
+        key     => $key,
+        cipher  => 'Blowfish',
+        padding => 'null',
+    });
+}
+
+sub read_key {
+    my $self = shift;
+
+    my $context = Plagger->context;
+    my $path    = $context->cache->path_to("Blowfish.key");
+
+    open my $fh, $path or $context->error("$path: $!");
+    chomp(my $key = <$fh>);
+    close $fh;
+
+    $key;
+}
+
+sub generate_key {
+    my($self, $key) = @_;
+
+    my $context = Plagger->context;
+    my $path    = $context->cache->path_to("Blowfish.key");
+
+    open my $fh, ">", $path or $context->error("$path: $!");
+    print $fh $key;
+    close $fh;
+}
+
+sub decrypt {
+    my($self, $text) = @_;
+    $self->cipher->decrypt_hex($text);
+}
+
+sub encrypt {
+    my($self, $text) = @_;
+    $self->cipher->encrypt_hex($text);
+}
+
+1;
+

Property changes on: lib/Plagger/Crypt/Blowfish.pm
___________________________________________________________________
Name: svn:keywords
 +Id Revision

=== lib/Plagger/Crypt.pm
==================================================================
--- lib/Plagger/Crypt.pm        (revision 25125)
+++ lib/Plagger/Crypt.pm        (local)
@@ -0,0 +1,27 @@
+package Plagger::Crypt;
+use strict;
+use Module::Pluggable::Fast
+    search => [ qw/Plagger::Crypt/ ],
+    require => 1;
+
+my %handlers = map { $_->id => $_ } __PACKAGE__->plugins;
+my $re = "^(" . join("|", map $_->id, __PACKAGE__->plugins) . ")::";
+
+sub decrypt {
+    my($class, $ciphertext, @args) = @_;
+
+    if ($ciphertext =~ s!$re!!) {
+        my $handler = $handlers{$1};
+        my @param = split /::/, $ciphertext;
+        return $handler->decrypt(@param, @args);
+    }
+
+    return $ciphertext; # just plain text
+}
+
+sub encrypt {
+    my($class, $plaintext, $driver, @param) = @_;
+
+}
+
+1;

Property changes on: lib/Plagger/Crypt.pm
___________________________________________________________________
Name: svn:keywords
 +Id Revision