recognize proxy's HTTP_X_FORWARDED_PROTO

Fixes #871
PerlDancer · May 13, 2013 · cc3cd10 · cc3cd10
1 parent d16628b
commit cc3cd10
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/CHANGES b/CHANGES
@@ -4,6 +4,7 @@ Revision history for Dancer
     [ ENHANCEMENTS ]
     * GH #919: 'dancer' script exits with code 255 if application 
         name is invalid. (ppisar)
+    * GH #871: now recognize HTTP_X_FORWARDED_PROTO. (mlbarrow)
 
     [ DOCUMENTATION ]
     * GH #922: Add example of request parameters. (Gabor Szabo)

diff --git a/lib/Dancer/Request.pm b/lib/Dancer/Request.pm
@@ -72,6 +72,7 @@ sub scheme                {
     if (setting('behind_proxy')) {
         $scheme = $_[0]->env->{'X_FORWARDED_PROTOCOL'}
                || $_[0]->env->{'HTTP_X_FORWARDED_PROTOCOL'}
+               || $_[0]->env->{'HTTP_X_FORWARDED_PROTO'}
                || $_[0]->env->{'HTTP_FORWARDED_PROTO'}
                || ""
     }