indexing
description: "Class which returns the name the user entered, in upper case."
date: "$Date$"
revision: "$Revision$"
class
SAMPLE
inherit
CGI_INTERFACE
create
make
feature -- Access
Debug_mode: BOOLEAN is True
-- Should exception trace be displayed in case a crash occurs?
return_message: HTML_PAGE
-- Message which is sent back to the browser.
feature -- Basic Operations
execute is
-- Perform form entries processing, and send back the answer
-- to the browser.
do
if field_defined ("name") then
create return_message.make
-- Add the and tags.
return_message.add_html_code ("<HEAD><TITLE>EiffelWEB Example")
-- Display the name entered in the body of the page.
return_message.add_html_code ("Hello " + text_field_value ("name") +
"
You have just processed a web form using EiffelWEB!
")
end
response_header.generate_text_header
response_header.send_to_browser
response_header.Output.put_string (return_message.out)
rescue
io.error.putstring ("crash in `compute' from DOWNLOAD_INTERACTION%N")
end
end -- class SAMPLE