aboutsummaryrefslogtreecommitdiffstats
path: root/lib/CatDap/Controller
diff options
context:
space:
mode:
authorMichael Scherer <misc@mageia.org>2010-11-24 23:03:07 +0000
committerMichael Scherer <misc@mageia.org>2010-11-24 23:03:07 +0000
commite54671ded0cd8db9f6d339c6098f74c7c6e486b0 (patch)
treea64da6a4f8cb2fab2448d9acbebec28a2f9eb50f /lib/CatDap/Controller
parent2c147a3a8a8a066b6b5d7b3f318c836790dbe317 (diff)
downloadidentity-e54671ded0cd8db9f6d339c6098f74c7c6e486b0.tar
identity-e54671ded0cd8db9f6d339c6098f74c7c6e486b0.tar.gz
identity-e54671ded0cd8db9f6d339c6098f74c7c6e486b0.tar.bz2
identity-e54671ded0cd8db9f6d339c6098f74c7c6e486b0.tar.xz
identity-e54671ded0cd8db9f6d339c6098f74c7c6e486b0.zip
- factorise the code who deal with ip ( so we can change it at one place for ipv6 support )
Diffstat (limited to 'lib/CatDap/Controller')
-rw-r--r--lib/CatDap/Controller/user.pm12
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/CatDap/Controller/user.pm b/lib/CatDap/Controller/user.pm
index 439f86e..1172346 100644
--- a/lib/CatDap/Controller/user.pm
+++ b/lib/CatDap/Controller/user.pm
@@ -55,7 +55,7 @@ sub auto : Private {
my $mesg;
my $dn;
my @errors;
- my $keyprefix = sprintf("%02x%02x%02x",split /\./,$c->req->address);
+ my $keyprefix = $self->get_keyprefix($c);
if (! defined $c->user or not $c->req->cookie('key')) {
if (not $c->req->param('password')) {
push @errors,$c->loc('Your session has expired');
@@ -112,6 +112,10 @@ sub auto : Private {
}
+sub get_keyprefix : Private {
+ my ( $self, $c ) = @_;
+ return sprintf("%02x%02x%02x",split /\./,$c->req->address);
+}
=head2 index
=cut
@@ -286,7 +290,7 @@ sub password : Local {
} else {
# re-encrypt the new password and forward to user view
- my $keyprefix = sprintf("%02x%02x%02x",split /\./,$c->req->address);
+ my $keyprefix = $self->get_keyprefix($c);
my $key = $c->req->cookie('key')->value;
$cipher = Crypt::CBC->new( -key => $keyprefix . $key,
-cipher => 'Blowfish'
@@ -314,7 +318,7 @@ sub firstlogin : Local {
$c->res->redirect('/user');
}
# cache password for next request with form data
- my $keyprefix = sprintf("%02x%02x%02x",split /\./,$c->req->address);
+ my $keyprefix = $self->get_keyprefix($c);
my $key = Data::UUID->new->create_str();
$cipher = Crypt::CBC->new( -key => $keyprefix . $key,
-cipher => 'Blowfish'
@@ -331,7 +335,7 @@ sub firstlogin : Local {
}
#Re-authenticate user
- my $keyprefix = sprintf("%02x%02x%02x",split /\./,$c->req->address);
+ my $keyprefix = $self->get_keyprefix($c);
my $key = $c->req->cookie('key')->value;
$cipher = Crypt::CBC->new( -key => $keyprefix . $key,
-cipher => 'Blowfish'