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 ("Hello FCGI Eiffel Application
%N")
fcgi.put_string ("Request number " + nb.out + "
%N")
fcgi.put_string ("Environment variables%N")
print_environment_variables (fcgi.updated_environ_variables)
fcgi.put_string ("
")
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 ("%N")
Result.append ("" + a_title + "")
Result.append ("%N")
end
footer: STRING
do
Result := "%N%N"
end
print_environment_variables (vars: HASH_TABLE [STRING, STRING])
local
do
from
vars.start
until
vars.after
loop
fcgi.put_string ("" + vars.key_for_iteration + " = " + vars.item_for_iteration + "%N")
vars.forth
end
end
feature {NONE} -- Implementation
initialize
do
create fcgi.make
end
fcgi: FCGI
end