#!/usr/bin/perl 
#===============================================================================
#
#         FILE:  hash_passwords.pl
#
#        USAGE:  ./hash_passwords.pl 
#
#  DESCRIPTION:  
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Marcus Ramberg (MRAMBERG), <mramberg@cpan.org>
#      COMPANY:  Nordaaker Ltd
#      VERSION:  1.0
#      CREATED:  06/27/2008 22:59:39 CEST
#     REVISION:  ---
#===============================================================================
=head1 NAME

hash_passwords.pl - hash plain text passwords

=head1 AUTHOR

Marcus Ramberg (MRAMBERG), <mramberg@cpan.org>

=cut

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";
use MojoMojo;

my $users=MojoMojo->model('DBIC::Person')->search;
my $first=$users->first;
die "First password is 40 chars. Probably already converted" if length($first->pass) == 40;
$users->reset;
while (my $user=$users->next) {
    $user->pass($user->get_column('pass'));
    $user->update;
}
print $users->count() ." users updated.\n";