mirrors/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New routines added to WSF_REQUEST to support ploicy-driven framework

Browse Source
This commit is contained in:
Colin Adams
2013-08-06 13:51:43 +01:00
parent 8ab6dba1c8
commit 0a9d208529
1 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
library/server/wsf/src/wsf_request.e
View File

@@ -311,18 +311,44 @@ feature -- Helper
Result := request_method.is_case_insensitive_equal (m.as_string_8) Result := request_method.is_case_insensitive_equal (m.as_string_8)
end end
is_put_request_method: BOOLEAN
-- Is Current a PUT request method?
do
Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_put)
end
is_post_request_method: BOOLEAN is_post_request_method: BOOLEAN
-- Is Current a POST request method? -- Is Current a POST request method?
do do
Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_post) Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_post)
end end
is_delete_request_method: BOOLEAN
-- Is Current a DELETE request method?
do
Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_delete)
end
is_get_request_method: BOOLEAN is_get_request_method: BOOLEAN
-- Is Current a GET request method? -- Is Current a GET request method?
do do
Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_get) Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_get)
end end
is_get_head_request_method: BOOLEAN
-- Is Current a GET or a HEAD request method?
do
Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_get) or
request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_head)
end
is_put_post_request_method: BOOLEAN
-- Is Current a PUT or a POST request method?
do
Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_put) or
request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_post)
end
is_content_type_accepted (a_content_type: READABLE_STRING_GENERAL): BOOLEAN is_content_type_accepted (a_content_type: READABLE_STRING_GENERAL): BOOLEAN
-- Does client accepts content_type for the response? -- Does client accepts content_type for the response?
--| Based on header "Accept:" that can be for instance --| Based on header "Accept:" that can be for instance