diff --git a/library/server/wsf/src/wsf_request.e b/library/server/wsf/src/wsf_request.e index 6e4469b9..e4a26bfe 100644 --- a/library/server/wsf/src/wsf_request.e +++ b/library/server/wsf/src/wsf_request.e @@ -18,10 +18,10 @@ note --| to keep value attached to the request About https support: `is_https' indicates if the request is made through an https connection or not. - + ]" - date: "$Date$" - revision: "$Revision$" + date: "$Date: 2014-05-14 16:52:42 +0200 (mer., 14 mai 2014) $" + revision: "$Revision: 95057 $" class WSF_REQUEST @@ -91,14 +91,14 @@ feature {NONE} -- Initialization init_mime_handlers req := wgi_request - --| Content-Length + --| Content-Length if attached content_length as s and then s.is_natural_64 then content_length_value := s.to_natural_64 else content_length_value := 0 end - -- Content-Type + --| Content-Type s8 := req.content_type if s8 /= Void then create content_type.make_from_string (s8) @@ -106,18 +106,11 @@ feature {NONE} -- Initialization content_type := Void end - --| Request Methods + --| Request Methods request_method := req.request_method - --| PATH_INFO - percent_encoded_path_info := req.path_info - path_info := url_decoded_string (req.path_info) - - --| PATH_TRANSLATED - s8 := req.path_translated - if s8 /= Void then - path_translated := url_decoded_string (s8) - end + --| PATH_INFO + unicode_path_info := url_decoded_string (req.path_info) --| Here one can set its own environment entries if needed if meta_variable ({WSF_META_NAMES}.request_time) = Void then @@ -136,7 +129,7 @@ feature {NONE} -- Initialization --| so, let's be flexible, and accepts other variants of "on" else check is_not_https: is_https = False end - end + end end wgi_request: WGI_REQUEST @@ -165,10 +158,9 @@ feature -- Destroy internal_url_base := Void form_parameters_table.wipe_out mime_handlers := Void - path_info := empty_string_32 + unicode_path_info := empty_string_32 path_parameters_source := Void path_parameters_table := Void - path_translated := Void raw_input_data := Void raw_input_data_recorded := False request_method := empty_string_8 @@ -832,8 +824,13 @@ feature -- Access: CGI meta parameters - 1.1 -- Non decoded PATH_INFO value from CGI. -- See `path_info' for the related percent decoded value. --| This value should be used by component dealing only with ASCII path + obsolete + "Use directly `path_info' which is not decoded [June/2014]" + do + Result := path_info + end - path_info: READABLE_STRING_32 + path_info: READABLE_STRING_8 -- The PATH_INFO metavariable specifies a path to be interpreted -- by the CGI script. It identifies the resource or sub-resource -- to be returned by the CGI script, and it is derived from the @@ -861,10 +858,15 @@ feature -- Access: CGI meta parameters - 1.1 -- The PATH_INFO value is case-sensitive, and the server MUST -- preserve the case of the PATH_INFO element of the URI when -- making it available to scripts. - -- - -- See `percent_encoded_path_info' to get the original non decoded path info. + do + Result := wgi_request.path_info + end - path_translated: detachable READABLE_STRING_32 + unicode_path_info: READABLE_STRING_32 + -- Percent decoded version of `path_info' + -- See `path_info' to get the original non decoded path info. + + path_translated: detachable READABLE_STRING_8 -- PATH_TRANSLATED is derived by taking any path-info component -- of the wgi_request URI (see section 6.1.6), decoding it (see -- section 3.1), parsing it as a URI in its own right, and @@ -907,6 +909,18 @@ feature -- Access: CGI meta parameters - 1.1 -- -- Servers SHOULD provide this metavariable to scripts if and -- only if the wgi_request URI includes a path-info component. + do + Result := wgi_request.path_translated + end + + unicode_path_translated: detachable READABLE_STRING_32 + -- Percent decoded version of `path_translated' + -- See `path_translated' to get the original non decoded path info. + do + if attached path_translated as s then + Result := url_decoded_string (s) + end + end query_string: READABLE_STRING_8 -- A URL-encoded string; the part of the Script-URI. (See @@ -1823,7 +1837,7 @@ feature -- URL Utility elseif spos > 0 then i := spos end - spos := l_rq_uri.substring_index (percent_encoded_path_info, i) + spos := l_rq_uri.substring_index (path_info, i) if spos > 0 then l_base_url := l_rq_uri.substring (1, spos - 1) else