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

Improved HTTP_AUTHORIZATION

Browse Source
This commit is contained in:
Jocelyn Fiat
2012-12-14 15:51:34 +01:00
parent 4612fdb5de
commit 8e31950285
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
library/server/authentication/http_authorization/src/http_authorization.e
View File

@@ -24,8 +24,9 @@ feature {NONE} -- Initialization
t, s: STRING_8 t, s: STRING_8
u,p: READABLE_STRING_8 u,p: READABLE_STRING_8
do do
if attached a_http_authorization as l_auth then if a_http_authorization /= Void then
s := l_auth.as_string_8 s := a_http_authorization.as_string_8
create http_authorization.make_from_string (s)
if not s.is_empty then if not s.is_empty then
i := 1 i := 1
if s[i] = ' ' then if s[i] = ' ' then
@@ -55,6 +56,8 @@ feature {NONE} -- Initialization
end end
end end
end end
else
http_authorization := Void
end end
end end
@@ -73,7 +76,7 @@ feature {NONE} -- Initialization
t.left_adjust; t.right_adjust t.left_adjust; t.right_adjust
type := t type := t
if t.same_string ("basic") then if t.same_string ("basic") then
http_authorization := "Basic " + (create {BASE64}).encoded_string (u + ":" + p) create http_authorization.make_from_string ("Basic " + (create {BASE64}).encoded_string (u + ":" + p))
else else
to_implement ("HTTP Authorization %""+ t +"%", not yet implemented") to_implement ("HTTP Authorization %""+ t +"%", not yet implemented")
end end
@@ -87,7 +90,7 @@ feature -- Access
password: detachable READABLE_STRING_32 password: detachable READABLE_STRING_32
http_authorization: detachable READABLE_STRING_32 http_authorization: detachable IMMUTABLE_STRING_8
end end