135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some debugging for dotcloud

Browse Source
This commit is contained in:
Oliver Gorwits
2012-01-18 22:53:22 +00:00
parent a612068143
commit beed2e4115
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Netdisco/lib/Netdisco/Web/AuthN.pm
View File

@@ -15,6 +15,8 @@ hook 'before' => sub {
request->path_info('/'); request->path_info('/');
} }
} }
# use Data::Dumper;
# Dancer::Logger:core( Dumper request );
}; };
post '/login' => sub { post '/login' => sub {
@@ -24,6 +26,7 @@ post '/login' => sub {
my $sum = Digest::MD5::md5_hex(param('password')); my $sum = Digest::MD5::md5_hex(param('password'));
if ($sum and $sum eq $user->password) { if ($sum and $sum eq $user->password) {
session(user => $user->username); session(user => $user->username);
# session(host => request->header('x-forwarded-for'));
# redirect param('path') || '/'; FIXME requested_path? # redirect param('path') || '/'; FIXME requested_path?
redirect uri_for('/'); redirect uri_for('/');
return; return;