44 lines
692 B
Plaintext
44 lines
692 B
Plaintext
note
|
|
description: "[
|
|
application service
|
|
]"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
EWF_DEBUG_SERVER
|
|
|
|
inherit
|
|
WSF_LAUNCHABLE_SERVICE
|
|
redefine
|
|
initialize
|
|
end
|
|
|
|
APPLICATION_LAUNCHER
|
|
|
|
create
|
|
make_and_launch
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
initialize
|
|
-- Initialize current service.
|
|
do
|
|
Precursor
|
|
-- set_service_option ("verbose", True)
|
|
set_service_option ("port", 9090)
|
|
-- set_service_option ("base", "/www-debug/debug_service.fcgi/")
|
|
end
|
|
|
|
execute (req: WSF_REQUEST; res: WSF_RESPONSE)
|
|
local
|
|
dbg: WSF_DEBUG_HANDLER
|
|
do
|
|
res.put_error ("DEBUG" + req.request_uri + "%N")
|
|
create dbg.make
|
|
dbg.execute_starts_with ("", req, res)
|
|
end
|
|
|
|
end
|
|
|