44 lines
814 B
Plaintext
44 lines
814 B
Plaintext
note
|
|
description : "simple application root class"
|
|
date : "$Date$"
|
|
revision : "$Revision$"
|
|
|
|
class
|
|
SERVICE_FILE
|
|
|
|
inherit
|
|
DEFAULT_SERVICE
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make
|
|
-- Run application.
|
|
do
|
|
make_and_launch
|
|
end
|
|
|
|
execute (req: WSF_REQUEST; res: WSF_RESPONSE)
|
|
local
|
|
l_file : RAW_FILE
|
|
message : STRING
|
|
h : WSF_HEADER
|
|
do
|
|
create l_file.make_open_read ("home.html")
|
|
l_file.read_stream (l_file.count)
|
|
message := l_file.last_string
|
|
l_file.close
|
|
|
|
-- To send a response we need to setup, the status code and
|
|
-- the response headers.
|
|
create h.make
|
|
h.put_content_type_text_html
|
|
h.put_content_length (l_file.count)
|
|
res.set_status_code ({HTTP_STATUS_CODE}.ok)
|
|
res.write_header_text (h.string)
|
|
res.write_string (message)
|
|
end
|
|
end
|