123 lines
2.4 KiB
Plaintext
123 lines
2.4 KiB
Plaintext
|
|
class HTTP_RESPONSE
|
|
|
|
inherit
|
|
|
|
HTTP_CONSTANTS
|
|
|
|
create
|
|
|
|
make
|
|
|
|
feature -- response header fields
|
|
|
|
status_code: STRING
|
|
-- status
|
|
|
|
content_length_data : STRING
|
|
-- length
|
|
|
|
set_content_length (new_content_length: STRING)
|
|
require
|
|
not_void: new_content_length /= Void
|
|
do
|
|
content_length_data := new_content_length
|
|
end
|
|
|
|
set_status_code (new_status_code: STRING)
|
|
require
|
|
not_void: new_status_code /= Void
|
|
do
|
|
status_code := new_status_code
|
|
end
|
|
|
|
reason_phrase: STRING
|
|
-- message, if any
|
|
|
|
set_reason_phrase (new_reason_phrase: STRING)
|
|
require
|
|
not_void: new_reason_phrase /= Void
|
|
do
|
|
reason_phrase := new_reason_phrase
|
|
end
|
|
|
|
content_type_data: STRING
|
|
-- type of content in this reply (eg. text/html)
|
|
|
|
set_content_type (new_content_type: STRING)
|
|
require
|
|
not_void: new_content_type /= Void
|
|
do
|
|
content_type_data := new_content_type
|
|
end
|
|
|
|
feature -- creation
|
|
|
|
make
|
|
do
|
|
-- set default values for the reply
|
|
status_code := ok
|
|
reason_phrase := ok_message
|
|
content_type_data := text_html
|
|
end
|
|
|
|
feature -- access these to send a reply
|
|
|
|
|
|
reply_header: STRING
|
|
-- header
|
|
do
|
|
Result := http_version_1_1.twin
|
|
Result.extend (' ')
|
|
Result.append (status_code)
|
|
Result.extend (' ')
|
|
Result.append (reason_phrase)
|
|
Result.append (crlf)
|
|
Result.append (Server_datails)
|
|
Result.append (crlf)
|
|
Result.append (Content_type + ": ")
|
|
Result.append (content_type_data)
|
|
Result.append (crlf)
|
|
Result.append (Content_length + ": ")
|
|
Result.append (content_length_data)
|
|
Result.append (crlf)
|
|
Result.append (crlf)
|
|
-- TODO: could add the size of data being sent here and
|
|
-- then keep the connection alive
|
|
end
|
|
|
|
reply_header_continue: STRING
|
|
-- header
|
|
do
|
|
Result :=http_version_1_1.twin
|
|
Result.extend (' ')
|
|
Result.append (status_code)
|
|
Result.extend (' ')
|
|
Result.append (continue_message)
|
|
Result.append (crlf)
|
|
Result.append (crlf)
|
|
-- TODO: could add the size of data being sent here and
|
|
-- then keep the connection alive
|
|
end
|
|
|
|
|
|
reply_text: STRING
|
|
-- reply text
|
|
|
|
set_reply_text (new_text: STRING)
|
|
-- text could be Void
|
|
do
|
|
reply_text := new_text
|
|
end
|
|
|
|
append_reply_text (more_text: STRING)
|
|
-- add more text to the reply
|
|
require
|
|
reply_text /= Void
|
|
more_text /= Void
|
|
do
|
|
reply_text.append (more_text)
|
|
end
|
|
|
|
end
|