From 0a9d2085295f1765b3684c76c821aeb543503559 Mon Sep 17 00:00:00 2001 From: Colin Adams Date: Tue, 6 Aug 2013 13:51:43 +0100 Subject: [PATCH] New routines added to WSF_REQUEST to support ploicy-driven framework --- library/server/wsf/src/wsf_request.e | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/library/server/wsf/src/wsf_request.e b/library/server/wsf/src/wsf_request.e index 33887bda..572d5a28 100644 --- a/library/server/wsf/src/wsf_request.e +++ b/library/server/wsf/src/wsf_request.e @@ -311,18 +311,44 @@ feature -- Helper Result := request_method.is_case_insensitive_equal (m.as_string_8) 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 Current a POST request method? do Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_post) 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 Current a GET request method? do Result := request_method.is_case_insensitive_equal ({HTTP_REQUEST_METHODS}.method_get) 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 -- Does client accepts content_type for the response? --| Based on header "Accept:" that can be for instance