From beed2e4115b8fbd6c325e5e54d1b32d649301cfb Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Wed, 18 Jan 2012 22:53:22 +0000
Subject: [PATCH] some debugging for dotcloud

---
 Netdisco/lib/Netdisco/Web/AuthN.pm | 3 +++
 1 file changed, 3 insertions(+)

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