97 lines
1.7 KiB
Plaintext
97 lines
1.7 KiB
Plaintext
note
|
|
description: "Objects that describe a cookie. When returning Cookie objects, the server should only omit an optional field if it is incapable of providing the information."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
SE_COOKIE
|
|
|
|
create
|
|
default_create, make_with_values
|
|
|
|
feature -- Initialization
|
|
|
|
make_with_values (a_name: STRING_32; a_value: STRING_32; a_path: STRING_32; a_domain: STRING_32)
|
|
do
|
|
set_name (a_name)
|
|
set_path (a_path)
|
|
set_value (a_value)
|
|
set_domain (a_domain)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
name: detachable STRING_32
|
|
--The name of the cookie.
|
|
|
|
value: detachable STRING_32
|
|
-- The cookie value.
|
|
|
|
path: detachable STRING_32
|
|
--(Optional) The cookie path
|
|
|
|
domain: detachable STRING_32
|
|
--(Optional) The domain the cookie is visible to.
|
|
|
|
is_secure: BOOLEAN
|
|
--(Optional) Whether the cookie is a secure cookie
|
|
|
|
expiry: NATURAL_32
|
|
-- (Optional) When the cookie expires, specified in seconds since midnight, January 1, 1970 UTC.1
|
|
|
|
feature -- Change Element
|
|
|
|
set_name (a_name: STRING_32)
|
|
do
|
|
name := a_name
|
|
ensure
|
|
assigned_name: name ~ a_name
|
|
end
|
|
|
|
set_value (a_value: STRING_32)
|
|
do
|
|
value := a_value
|
|
ensure
|
|
assigned_value: value ~ a_value
|
|
end
|
|
|
|
set_path (a_path: STRING_32)
|
|
do
|
|
path := a_path
|
|
ensure
|
|
assigned_path: path ~ a_path
|
|
end
|
|
|
|
set_domain (a_domain: STRING_32)
|
|
do
|
|
domain := a_domain
|
|
ensure
|
|
assigned_domain: domain ~ a_domain
|
|
end
|
|
|
|
secure
|
|
-- set the cookie as secure
|
|
do
|
|
is_secure := True
|
|
ensure
|
|
is_secure: is_secure
|
|
end
|
|
|
|
insecure
|
|
-- set the cookie as insecure
|
|
do
|
|
is_secure := False
|
|
ensure
|
|
is_not_secure: not is_secure
|
|
end
|
|
|
|
set_expiry (an_expiry: NATURAL)
|
|
do
|
|
expiry := an_expiry
|
|
ensure
|
|
assigned_expiry: expiry ~ an_expiry
|
|
end
|
|
|
|
end
|