From 4852e8e36159fb7f27fd4cf3de95bb308ea7dec2 Mon Sep 17 00:00:00 2001
From: Yusuke Wada <yusuke@kamawada.com>
Date: Thu, 23 Feb 2012 00:29:47 +0900
Subject: [PATCH] fixed for redirect.

---
 lib/Dropdown/Root.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lib/Dropdown/Root.pm b/lib/Dropdown/Root.pm
index 50175c6..ec1d11b 100644
--- a/lib/Dropdown/Root.pm
+++ b/lib/Dropdown/Root.pm
@@ -25,19 +25,17 @@ sub login {
 sub callback {
     my $self = shift;
     my $dropbox = $self->app->dropbox;
-    $dropbox->access_token($self->session('access_token'));
-    $dropbox->access_secret($self->session('access_secret'));
     $dropbox->auth or die $dropbox->error;
     $self->session( access_token => $dropbox->access_token );
     $self->session( access_secret => $dropbox->access_secret );
-    $self->redirect_to('/dropbox/');
+    $self->redirect_to( $self->req->url->base . '/dropbox/');
 }
 
 sub logout {
     my $self = shift;
     $self->session( access_token => undef );
     $self->session( access_secret => undef );
-    $self->redirect_to('/');
+    $self->redirect_to( $self->req->url->base );
 }
 
 1;