better return type for http client functions
added helper features
This commit is contained in:
@@ -59,17 +59,17 @@ feature -- Authentication
|
|||||||
Result := session.auth_type_id
|
Result := session.auth_type_id
|
||||||
end
|
end
|
||||||
|
|
||||||
username: detachable READABLE_STRING_8
|
username: detachable READABLE_STRING_32
|
||||||
do
|
do
|
||||||
Result := session.username
|
Result := session.username
|
||||||
end
|
end
|
||||||
|
|
||||||
password: detachable READABLE_STRING_8
|
password: detachable READABLE_STRING_32
|
||||||
do
|
do
|
||||||
Result := session.password
|
Result := session.password
|
||||||
end
|
end
|
||||||
|
|
||||||
credentials: detachable READABLE_STRING_8
|
credentials: detachable READABLE_STRING_32
|
||||||
do
|
do
|
||||||
Result := session.credentials
|
Result := session.credentials
|
||||||
end
|
end
|
||||||
|
|||||||
@@ -8,7 +8,8 @@ class
|
|||||||
HTTP_CLIENT_REQUEST_CONTEXT
|
HTTP_CLIENT_REQUEST_CONTEXT
|
||||||
|
|
||||||
create
|
create
|
||||||
make
|
make,
|
||||||
|
make_with_credentials_required
|
||||||
|
|
||||||
feature {NONE} -- Initialization
|
feature {NONE} -- Initialization
|
||||||
|
|
||||||
@@ -19,6 +20,12 @@ feature {NONE} -- Initialization
|
|||||||
create form_data_parameters.make (10)
|
create form_data_parameters.make (10)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
make_with_credentials_required
|
||||||
|
do
|
||||||
|
make
|
||||||
|
set_credentials_required (True)
|
||||||
|
end
|
||||||
|
|
||||||
feature -- Settings
|
feature -- Settings
|
||||||
|
|
||||||
credentials_required: BOOLEAN
|
credentials_required: BOOLEAN
|
||||||
@@ -40,6 +47,16 @@ feature -- Status report
|
|||||||
|
|
||||||
feature -- Element change
|
feature -- Element change
|
||||||
|
|
||||||
|
add_query_parameter (k: READABLE_STRING_8; v: READABLE_STRING_32)
|
||||||
|
do
|
||||||
|
query_parameters.force (v, k)
|
||||||
|
end
|
||||||
|
|
||||||
|
add_form_data_parameter (k: READABLE_STRING_8; v: READABLE_STRING_32)
|
||||||
|
do
|
||||||
|
form_data_parameters.force (v, k)
|
||||||
|
end
|
||||||
|
|
||||||
set_credentials_required (b: BOOLEAN)
|
set_credentials_required (b: BOOLEAN)
|
||||||
do
|
do
|
||||||
credentials_required := b
|
credentials_required := b
|
||||||
|
|||||||
@@ -92,12 +92,17 @@ feature -- Authentication
|
|||||||
-- See {HTTP_CLIENT_CONSTANTS}.Auth_type_*
|
-- See {HTTP_CLIENT_CONSTANTS}.Auth_type_*
|
||||||
|
|
||||||
username,
|
username,
|
||||||
password: detachable READABLE_STRING_8
|
password: detachable READABLE_STRING_32
|
||||||
|
|
||||||
credentials: detachable READABLE_STRING_8
|
credentials: detachable READABLE_STRING_32
|
||||||
|
|
||||||
feature -- Change
|
feature -- Change
|
||||||
|
|
||||||
|
set_base_url (u: like base_url)
|
||||||
|
do
|
||||||
|
base_url := u
|
||||||
|
end
|
||||||
|
|
||||||
set_timeout (n: like timeout)
|
set_timeout (n: like timeout)
|
||||||
do
|
do
|
||||||
timeout := n
|
timeout := n
|
||||||
@@ -113,6 +118,11 @@ feature -- Change
|
|||||||
headers.force (v, k)
|
headers.force (v, k)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
remove_header (k: READABLE_STRING_8)
|
||||||
|
do
|
||||||
|
headers.prune (k)
|
||||||
|
end
|
||||||
|
|
||||||
set_credentials (u: like username; p: like password)
|
set_credentials (u: like username; p: like password)
|
||||||
do
|
do
|
||||||
username := u
|
username := u
|
||||||
|
|||||||
Reference in New Issue
Block a user