is_https should not rely on REQUEST_SCHEME which may still be "http" for SSL connection.
This commit is contained in:
@@ -125,9 +125,7 @@ feature {NONE} -- Initialization
|
|||||||
end
|
end
|
||||||
|
|
||||||
--| HTTPS support
|
--| HTTPS support
|
||||||
if attached meta_string_variable ("REQUEST_SCHEME") as l_scheme and then not l_scheme.is_empty then
|
if attached meta_string_variable ("HTTPS") as l_https and then not l_https.is_empty then
|
||||||
is_https := l_scheme.is_case_insensitive_equal_general ("https")
|
|
||||||
elseif attached execution_environment.item ("HTTPS") as l_https and then not l_https.is_empty then
|
|
||||||
is_https := l_https.is_case_insensitive_equal_general ("on")
|
is_https := l_https.is_case_insensitive_equal_general ("on")
|
||||||
or else l_https.is_case_insensitive_equal_general ("yes")
|
or else l_https.is_case_insensitive_equal_general ("yes")
|
||||||
or else l_https.is_case_insensitive_equal_general ("true")
|
or else l_https.is_case_insensitive_equal_general ("true")
|
||||||
@@ -179,8 +177,8 @@ feature -- Destroy
|
|||||||
feature -- Status report
|
feature -- Status report
|
||||||
|
|
||||||
is_https: BOOLEAN
|
is_https: BOOLEAN
|
||||||
-- Is https scheme or protocol?
|
-- Is https connection?
|
||||||
--| based on REQUEST_SCHEME, or environment variable HTTPS=on
|
--| based on meta variable HTTPS=on .
|
||||||
|
|
||||||
debug_output: STRING_8
|
debug_output: STRING_8
|
||||||
do
|
do
|
||||||
|
|||||||
Reference in New Issue
Block a user