79 lines
1.5 KiB
Plaintext
79 lines
1.5 KiB
Plaintext
note
|
|
description : "Objects that ..."
|
|
author : "$Author$"
|
|
date : "$Date$"
|
|
revision : "$Revision$"
|
|
|
|
class
|
|
APPLICATION_ROOT
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make
|
|
-- Initialize `Current'.
|
|
local
|
|
res: INTEGER
|
|
nb: INTEGER
|
|
do
|
|
initialize
|
|
from
|
|
res := fcgi.fcgi_listen
|
|
until
|
|
res < 0
|
|
loop
|
|
nb := nb + 1
|
|
fcgi.put_string (header ("FCGI Eiffel Application"))
|
|
|
|
fcgi.put_string ("<h1>Hello FCGI Eiffel Application</h1>%N")
|
|
fcgi.put_string ("Request number " + nb.out + "<br/>%N")
|
|
|
|
fcgi.put_string ("<ul>Environment variables%N")
|
|
print_environment_variables (fcgi.updated_environ_variables)
|
|
fcgi.put_string ("</ul>")
|
|
fcgi.put_string (footer)
|
|
|
|
res := fcgi.fcgi_listen
|
|
end
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
header (a_title: STRING): STRING
|
|
do
|
|
Result := "Content-type: text/html%R%N"
|
|
Result.append ("%R%N")
|
|
Result.append ("<html>%N")
|
|
Result.append ("<head><title>" + a_title + "</title></head>")
|
|
Result.append ("<body>%N")
|
|
end
|
|
|
|
footer: STRING
|
|
do
|
|
Result := "</body>%N</html>%N"
|
|
end
|
|
|
|
print_environment_variables (vars: TABLE_ITERABLE [READABLE_STRING_8, READABLE_STRING_GENERAL])
|
|
local
|
|
utf: UTF_CONVERTER
|
|
do
|
|
across
|
|
vars as ic
|
|
loop
|
|
fcgi.put_string ("<li><strong>" + utf.utf_32_string_to_utf_8_string_8 (ic.key.as_string_8) + "</strong> = " + ic.item + "</li>%N")
|
|
end
|
|
end
|
|
|
|
feature {NONE} -- Implementation
|
|
|
|
initialize
|
|
do
|
|
create fcgi.make
|
|
end
|
|
|
|
fcgi: FCGI
|
|
|
|
end
|