note description: "Error Handling" legal: "See notice at end of class." status: "See notice at end of class." date: "$Date$" revision: "$Revision$" class CGI_ERROR_HANDLING inherit CGI_IN_AND_OUT EXCEPTIONS export {NONE} all end feature -- Basic Operations handle_exception -- General exception hanlding. local msg: detachable STRING l_trace: detachable STRING do msg := raised_error if msg = Void then msg := "" end l_trace := exception_trace if l_trace /= Void then response_header.send_trace (msg + l_trace) else response_header.send_trace (msg) end end raise_error(msg: STRING) -- Raise an error. require message_exists: msg /= Void do raised_error := msg handle_exception ensure exists: raised_error /= Void end feature {CGI_ERROR_HANDLING} -- Access raised_error: detachable STRING; -- Error explicitely raised by developer code. 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 CGI_ERROR_HANDLING