/library/server/fcgi/tests/application_root.e

http://github.com/jocelyn/EiffelWebReloaded · Specman e · 80 lines · 64 code · 15 blank · 1 comment · 0 complexity · dcc2b6e0dc4133c4bdb0860b9ec90180 MD5 · raw file 

    

  1. note

    2. 

  2. 	description : "Objects that ..."

    3. 

  3. 	author      : "$Author$"

    4. 

  4. 	date        : "$Date$"

    5. 

  5. 	revision    : "$Revision$"

    6. 

  6. 

    7. 

  7. class

    8. 

  8. 	APPLICATION_ROOT

    9. 

  9. 

    10. 

  10. create

    11. 

  11. 	make

    12. 

  12. 

    13. 

  13. feature {NONE} -- Initialization

    14. 

  14. 

    15. 

  15. 	make

    16. 

  16. 			-- Initialize `Current'.

    17. 

  17. 		local

    18. 

  18. 			res: INTEGER

    19. 

  19. 			nb: INTEGER

    20. 

  20. 		do

    21. 

  21. 			initialize

    22. 

  22. 			from

    23. 

  23. 				res := fcgi.fcgi_listen

    24. 

  24. 			until

    25. 

  25. 				res < 0

    26. 

  26. 			loop

    27. 

  27. 				nb := nb + 1

    28. 

  28. 				fcgi.put_string (header ("FCGI Eiffel Application"))

    29. 

  29. 

    30. 

  30. 				fcgi.put_string ("<h1>Hello FCGI Eiffel Application</h1>%N")

    31. 

  31. 				fcgi.put_string ("Request number " + nb.out + "<br/>%N")

    32. 

  32. 

    33. 

  33. 				fcgi.put_string ("<ul>Environment variables%N")

    34. 

  34. 				print_environment_variables (fcgi.updated_environ_variables)

    35. 

  35. 				fcgi.put_string ("</ul>")

    36. 

  36. 				fcgi.put_string (footer)

    37. 

  37. 

    38. 

  38. 				res := fcgi.fcgi_listen

    39. 

  39. 			end

    40. 

  40. 		end

    41. 

  41. 

    42. 

  42. feature -- Access

    43. 

  43. 

    44. 

  44. 	header (a_title: STRING): STRING

    45. 

  45. 		do

    46. 

  46. 			Result := "Content-type: text/html%R%N"

    47. 

  47. 			Result.append ("%R%N")

    48. 

  48. 			Result.append ("<html>%N")

    49. 

  49. 			Result.append ("<head><title>" + a_title + "</title></head>")

    50. 

  50. 			Result.append ("<body>%N")

    51. 

  51. 		end

    52. 

  52. 

    53. 

  53. 	footer: STRING

    54. 

  54. 		do

    55. 

  55. 			Result := "</body>%N</html>%N"

    56. 

  56. 		end

    57. 

  57. 

    58. 

  58. 	print_environment_variables (vars: HASH_TABLE [STRING, STRING])

    59. 

  59. 		local

    60. 

  60. 		do

    61. 

  61. 			from

    62. 

  62. 				vars.start

    63. 

  63. 			until

    64. 

  64. 				vars.after

    65. 

  65. 			loop

    66. 

  66. 				fcgi.put_string ("<li><strong>" + vars.key_for_iteration + "</strong> = " + vars.item_for_iteration + "</li>%N")

    67. 

  67. 				vars.forth

    68. 

  68. 			end

    69. 

  69. 		end

    70. 

  70. 

    71. 

  71. feature {NONE} -- Implementation

    72. 

  72. 

    73. 

  73. 	initialize

    74. 

  74. 		do

    75. 

  75. 			create fcgi.make

    76. 

  76. 		end

    77. 

  77. 

    78. 

  78. 	fcgi: FCGI

    79. 

  79. 

    80. 

  80. end
    81.