From 68708cd2430d4da548673fd612c891413448fddf Mon Sep 17 00:00:00 2001
From: Stefan Kangas <skangas@skangas.se>
Date: Mon, 14 Mar 2011 20:54:51 +0100
Subject: Send password with credentials mail

---
 lib/Fripost/Prompt.pm                |  2 +-
 lib/Fripost/Schema/Result/Mailbox.pm | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+), 1 deletion(-)

(limited to 'lib/Fripost')

diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm
index 03c5fc4..b41f806 100755
--- a/lib/Fripost/Prompt.pm
+++ b/lib/Fripost/Prompt.pm
@@ -82,7 +82,7 @@ sub prompt_password {
         );
         say "Using password: $password";    
     }
-    return smd5($password);
+    return $password;
 }
 
 =head1 AUTHOR
diff --git a/lib/Fripost/Schema/Result/Mailbox.pm b/lib/Fripost/Schema/Result/Mailbox.pm
index f12e1f7..48d81fb 100644
--- a/lib/Fripost/Schema/Result/Mailbox.pm
+++ b/lib/Fripost/Schema/Result/Mailbox.pm
@@ -6,6 +6,8 @@ use strict;
 
 use base qw/DBIx::Class::Core/;
 
+use Fripost::Password;
+
 # mysql> describe mailbox;
 # +-------------+--------------+------+-----+---------------------+-------+
 # | Field       | Type         | Null | Key | Default             | Extra |
@@ -32,6 +34,22 @@ __PACKAGE__->add_columns(
 
 __PACKAGE__->set_primary_key('username');
 
+=head2 store_column
+
+override store_column to encrypt the password when stored
+
+=cut 
+
+sub store_column {
+    my ($self, $col, $val) = @_;
+    
+    if ($col eq 'password') {
+        $val = smd5($val);
+    }
+    
+    return $self->next::method($col,$val);
+}
+
 =head1 NAME
 
 Fripost::Schema::Result::Mailbox - 
-- 
cgit v1.2.3