note
description: "Class which returns the name the user entered, in upper case."
legal: "See notice at end of class."
status: "See notice at end of class."
date: "$Date$"
revision: "$Revision$"
class
SAMPLE
inherit
CGI_INTERFACE
create
make
feature -- Access
Debug_mode: BOOLEAN = True
-- Should exception trace be displayed in case a crash occurs?
feature -- Basic Operations
execute
-- Perform form entries processing, and send back the answer
-- to the browser.
local
return_message: HTML_PAGE
do
create return_message.make
if field_defined ("name") then
-- 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
note
copyright: "Copyright (c) 1984-2006, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[
Eiffel Software
356 Storke Road, Goleta, CA 93117 USA
Telephone 805-685-1006, Fax 805-685-6869
Website http://www.eiffel.com
Customer support http://support.eiffel.com
]"
end -- class SAMPLE