svn commit: r235737 - user/des/fbce/lib/FBCE/Schema/Result

[Dag-Erling Smorgrav]

Author: des
Date: Mon May 21 19:53:22 2012
New Revision: 235737
URL: http://svn.freebsd.org/changeset/base/235737

Log:
  Replace MD5 with SHA-1

Modified:
  user/des/fbce/lib/FBCE/Schema/Result/Person.pm

Modified: user/des/fbce/lib/FBCE/Schema/Result/Person.pm
==============================================================================
--- user/des/fbce/lib/FBCE/Schema/Result/Person.pm	Mon May 21 19:28:59 2012	(r235736)
+++ user/des/fbce/lib/FBCE/Schema/Result/Person.pm	Mon May 21 19:53:22 2012	(r235737)
@@ -216,7 +216,7 @@ use Digest::MD5 qw(md5_hex);
 sub set_password($$) {
     my ($self, $password) = @_;
 
-    my $csh = new Crypt::SaltedHash(algorithm => 'MD5');
+    my $csh = new Crypt::SaltedHash(algorithm => 'SHA-1');
     $csh->add($password);
     $self->set_column(password => $csh->generate());
     $self->update()