Initial Import Rest on CMS.

.gitignore

@@ -0,0 +1,2 @@
+EIFGENs
+*.swp

Readme.txt

@@ -0,0 +1,42 @@
+CMS Hyperemedia API and Adaptive Web Design
+============================================
+
+
+A content management system is not a simple domain.
+This example shows how to build a basic Hypermedia API for a CMS using HTML5 and progressive enhacement.
+The idea is based on an existing Eiffel CMS, the goal is learn the domain and create a new modular CMS.
+
+Persistence
+============
+The current solution uses MySQL and only handle the nodes concept.
+
+
+Authentication/Authorization
+============================
+Basic Auth.
+
+
+API features
+============
+
+There is no session.
+
+The root uri:
+	shows Navigation and the possiblity to add a New Node (only for loggedin users).
+	shows a predefined number of nodes the `n' most recent nodes.
+
+Guest users will be able to list all the nodes and view a particular node.
+Logged in users (There is only one user: admin)
+Logged users are able to 
+Add a new node
+Edit an existing node
+Edit a node title
+Edit a node summary
+Edit a node content
+Delete a node
+
+
+References
+
+1:  http://codeartisan.blogspot.se/2012/07/using-html-as-media-type-for-your-api.html
+2:  https://github.com/gustafnk/combining-html-hypermedia-apis-and-adaptive-web-design

api/launcher/any/application_launcher.e

@@ -0,0 +1,24 @@
+note
+	description: "[
+				Effective class for APPLICATION_LAUNCHER_I
+
+				You can put modification in this class
+			]"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	APPLICATION_LAUNCHER
+
+inherit
+	APPLICATION_LAUNCHER_I
+
+feature -- Custom
+
+	is_console_output_supported: BOOLEAN
+		do
+			Result := False
+		end
+
+end
+

api/launcher/any/application_launcher_i.e

@@ -0,0 +1,102 @@
+note
+	description: "[
+			Specific application launcher
+
+			DO NOT EDIT THIS CLASS
+
+			you can customize APPLICATION_LAUNCHER
+		]"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+deferred class
+	APPLICATION_LAUNCHER_I
+
+inherit
+
+	SHARED_EXECUTION_ENVIRONMENT
+
+feature -- Execution
+
+	launch (a_service: WSF_SERVICE; opts: detachable WSF_SERVICE_LAUNCHER_OPTIONS)
+		local
+--			nature: like launcher_nature
+		do
+--			nature := launcher_nature
+--			if nature = Void or else nature = nature_nino then
+--				launch_nino (a_service, opts)
+--			elseif nature = nature_cgi then
+--				launch_cgi (a_service, opts)
+--			elseif nature = nature_libfcgi then
+				launch_libfcgi (a_service, opts)
+--			else
+--				-- bye bye
+--				(create {EXCEPTIONS}).die (-1)
+--			end
+		end
+
+feature {NONE} -- Access
+
+	launcher_nature: detachable READABLE_STRING_8
+			-- Initialize the launcher nature
+			-- either cgi, libfcgi, or nino.
+			--| We could extend with more connector if needed.
+			--| and we could use WSF_DEFAULT_SERVICE_LAUNCHER to configure this at compilation time.
+		local
+			p: PATH
+			ext: detachable READABLE_STRING_32
+		do
+			create p.make_from_string (execution_environment.arguments.command_name)
+			if attached p.entry as l_entry then
+				ext := l_entry.extension
+			end
+			if ext /= Void then
+				if ext.same_string (nature_nino) then
+					Result := nature_nino
+				end
+				if ext.same_string (nature_cgi) then
+					Result := nature_cgi
+				end
+				if ext.same_string (nature_libfcgi) or else ext.same_string ("fcgi") then
+					Result := nature_libfcgi
+				end
+			end
+		end
+
+feature {NONE} -- nino		
+
+	nature_nino: STRING = "nino"
+
+	launch_nino (a_service: WSF_SERVICE; opts: detachable WSF_SERVICE_LAUNCHER_OPTIONS)
+		local
+			launcher: WSF_NINO_SERVICE_LAUNCHER
+		do
+			create launcher.make_and_launch (a_service, opts)
+		end
+
+feature {NONE} -- cgi
+
+	nature_cgi: STRING = "cgi"
+
+	launch_cgi (a_service: WSF_SERVICE; opts: detachable WSF_SERVICE_LAUNCHER_OPTIONS)
+		local
+			launcher: WSF_CGI_SERVICE_LAUNCHER
+		do
+			create launcher.make_and_launch (a_service, opts)
+		end
+
+feature {NONE} -- libfcgi
+
+	nature_libfcgi: STRING = "libfcgi"
+
+	launch_libfcgi (a_service: WSF_SERVICE; opts: detachable WSF_SERVICE_LAUNCHER_OPTIONS)
+		local
+			launcher: WSF_LIBFCGI_SERVICE_LAUNCHER
+		do
+			create launcher.make_and_launch (a_service, opts)
+		end
+
+
+end
+
+

api/launcher/default/application_launcher.e

@@ -0,0 +1,54 @@
+note
+	description: "[
+				Effective class for APPLICATION_LAUNCHER_I
+
+				You can put modification in this class
+			]"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	APPLICATION_LAUNCHER
+
+inherit
+	APPLICATION_LAUNCHER_I
+
+	SHARED_EXECUTION_ENVIRONMENT
+
+
+feature -- Status Report
+
+	is_console_output_supported: BOOLEAN
+		do
+			Result := launcher_nature = nature_nino
+		end
+
+	feature {NONE} -- Initialization
+
+	launcher_nature: detachable READABLE_STRING_8
+			-- Initialize the launcher nature
+			-- either cgi, libfcgi, or nino.
+			--| We could extend with more connector if needed.
+			--| and we could use WSF_DEFAULT_SERVICE_LAUNCHER to configure this at compilation time.
+		local
+			p: PATH
+			ext: detachable READABLE_STRING_32
+		do
+			create p.make_from_string (execution_environment.arguments.command_name)
+			if attached p.entry as l_entry then
+				ext := l_entry.extension
+			end
+			if ext /= Void then
+				if ext.same_string (nature_nino) then
+					Result := nature_nino
+				end
+			end
+		end
+
+feature {NONE} -- nino		
+
+	nature_nino: STRING = "nino"
+
+
+end
+

api/launcher/default/application_launcher_i.e

@@ -0,0 +1,26 @@
+note
+	description: "[
+			Specific application launcher
+
+			DO NOT EDIT THIS CLASS
+
+			you can customize APPLICATION_LAUNCHER
+		]"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+deferred class
+	APPLICATION_LAUNCHER_I
+
+feature -- Execution
+
+	launch (a_service: WSF_SERVICE; opts: detachable WSF_SERVICE_LAUNCHER_OPTIONS)
+		local
+			launcher: WSF_SERVICE_LAUNCHER
+		do
+			create {WSF_DEFAULT_SERVICE_LAUNCHER} launcher.make_and_launch (a_service, opts)
+		end
+
+end
+
+

api/roc.ini

@@ -0,0 +1,2 @@
+port=7070
+#verbose=true

api/roc_api.ecf

@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-13-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-13-0 http://www.eiffel.com/developers/xml/configuration-1-13-0.xsd" name="roc_api" uuid="8B2873E9-8E2A-4490-8B6C-1122B579FD1D" library_target="roc_api">
+	<target name="common" abstract="true">
+		<file_rule>
+			<exclude>/EIFGENs$</exclude>
+			<exclude>/CVS$</exclude>
+			<exclude>/.svn$</exclude>
+		</file_rule>
+		<option warning="true" full_class_checking="false" is_attached_by_default="true" void_safety="all" syntax="transitional">
+			<debug name="esa" enabled="true"/>
+			<assertions precondition="true" postcondition="true" check="true" invariant="true" loop="true" supplier_precondition="true"/>
+		</option>
+		<setting name="console_application" value="true"/>
+		<setting name="exception_trace" value="true"/>
+		<setting name="concurrency" value="thread"/>
+		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
+		<library name="conneg" location="$ISE_LIBRARY\contrib\library\network\protocol\content_negotiation\conneg-safe.ecf"/>
+		<library name="crypto" location="$ISE_LIBRARY\unstable\library\text\encryption\crypto\crypto-safe.ecf"/>
+		<library name="persistence" location="..\persistence\persistence.ecf" readonly="false"/>
+		<library name="encoder" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\text\encoder\encoder-safe.ecf"/>
+		<library name="http" location="$ISE_LIBRARY\contrib\library\network\protocol\http\http-safe.ecf"/>
+		<library name="http_authorization" location="$ISE_LIBRARY\contrib\library\network\authentication\http_authorization\http_authorization-safe.ecf" readonly="false"/>
+		<library name="json" location="$ISE_LIBRARY\contrib\library\text\parser\json\library\json-safe.ecf" readonly="false"/>
+		<library name="layout" location="..\layout\layout.ecf"/>
+		<library name="logging" location="$ISE_LIBRARY\library\runtime\logging\logging-safe.ecf"/>
+		<library name="net" location="$ISE_LIBRARY\library\net\net-safe.ecf"/>
+		<library name="process" location="$ISE_LIBRARY\library\process\process-safe.ecf"/>
+		<library name="smarty" location="$ISE_LIBRARY\contrib\library\text\template\smarty\smarty-safe.ecf" readonly="false"/>
+		<library name="wsf" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\wsf-safe.ecf"/>
+		<library name="wsf_extension" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\wsf_extension-safe.ecf" readonly="false"/>
+	</target>
+	<target name="roc_api_any" extends="common">
+		<root class="ROC_SERVER" feature="make_and_launch"/>
+		<library name="cgi" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\connector\cgi-safe.ecf"/>
+		<library name="libfcgi" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\connector\libfcgi-safe.ecf"/>
+		<library name="nino" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\connector\nino-safe.ecf"/>
+		<cluster name="launcher" location=".\launcher\any\" recursive="true"/>
+		<cluster name="src" location=".\src\" recursive="true"/>
+	</target>
+	<target name="roc_api_nino" extends="common">
+		<root class="ROC_SERVER" feature="make_and_launch"/>
+		<library name="default_nino" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\default\nino-safe.ecf"/>
+		<cluster name="launcher" location=".\launcher\default\" recursive="true"/>
+		<cluster name="src" location=".\src\" recursive="true"/>
+	</target>
+	<target name="roc_api_cgi" extends="common">
+		<root class="ROC_SERVER" feature="make_and_launch"/>
+		<library name="default_cgi" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\default\cgi-safe.ecf"/>
+		<cluster name="launcher" location=".\launcher\default\" recursive="true"/>
+		<cluster name="src" location=".\src\" recursive="true"/>
+	</target>
+	<target name="roc_api_libfcgi" extends="common">
+		<root class="ROC_SERVER" feature="make_and_launch"/>
+		<library name="cgi" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\connector\cgi-safe.ecf"/>
+		<library name="default_libfcgi" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\default\libfcgi-safe.ecf"/>
+		<library name="libfcgi" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\connector\libfcgi-safe.ecf"/>
+		<library name="nino" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\connector\nino-safe.ecf" readonly="false"/>
+		<library name="wgi_nino" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\ewsgi\connectors\nino\nino-safe.ecf"/>
+		<cluster name="launcher" location=".\launcher\any\" recursive="true"/>
+		<cluster name="src" location=".\src\" recursive="true"/>
+	</target>
+
+<!--	<target name="roc_api_test" extends="common">
+		<root class="APPLICATION_TEST" feature="make"/>
+		<library name="default_nino" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\wsf\default\nino-safe.ecf"/>
+		<library name="ewsgi" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\ewsgi\ewsgi-safe.ecf" readonly="false">
+			<option>
+				<assertions precondition="true" postcondition="true" check="true" supplier_precondition="true"/>
+			</option>
+		</library>
+		<library name="http_client" location="$ISE_LIBRARY\contrib\library\network\http_client\http_client-safe.ecf"/>
+		<library name="testing" location="$ISE_LIBRARY\library\testing\testing-safe.ecf"/>
+		<library name="thread" location="$ISE_LIBRARY\library\thread\thread-safe.ecf"/>
+		<library name="wgi_nino" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\ewsgi\connectors\nino\nino-safe.ecf"/>
+		<cluster name="launcher" location=".\launcher\default\" recursive="true"/>
+		<cluster name="src" location="src\" recursive="true"/>
+		<cluster name="test" location="test\" recursive="true"/>
+	</target>
+-->	
+	<target name="roc_api" extends="roc_api_nino">
+	</target>
+</system>

api/site/config/application_configuration.json

@@ -0,0 +1,32 @@
+{
+	"database": {
+		"datasource": {
+			"driver": "SQL Server",
+			"environment": "test"
+		},
+		"environments": {
+			"test": {
+                "connection_string":"Server=JVELILLA\\SQLEXPRESS;Database=example;Uid=sa;Pwd=Eiffel1405;TrustedConnection=Yes"
+			},
+			"development": {
+				"connection_string":"Server=sql.ise;Database=ESA_DB_TEST;Uid=eiffel2;Pwd=eiffel2;"
+				 },
+			"production": {
+				"connection_string":"Server=SQLSERVER;Database=LIVE_DATABASE;Uid=XXX;Pwd=YYY;"
+			}
+		}
+	},
+	"smtp": {
+		"server": "localhost"
+		},
+	"logger": { 
+			"level":"debug",
+			"backup_count":"4"
+		},
+	"server": { 
+			"mode":"web"
+		}
+			
+}
+
+	

api/site/www/static/css/dashboard.css

@@ -0,0 +1,357 @@
+/*
+ * Base structure
+ */
+
+/* Move down content because we have a fixed navbar that is 36px tall on small screen */
+body {
+	padding-top: 40px;
+}
+/* On large screen, we give it more space and the navbar is 30px tall. */
+@media (min-width: 768px) {
+	body {
+		padding-top: 45px;
+	}
+}
+
+
+/*
+ * Global add-ons
+ */
+
+h1 {
+	margin-top: initial;
+	margin-bottom: 5px;
+}
+
+h2.sub-header{
+	margin-top: 1px;
+	margin-bottom: 1px;
+	border-bottom: 1px solid #eee;
+}
+
+
+.container .jumbotron {
+	padding: 10px;
+	text-align: center;
+}
+
+
+/*
+ * Sidebar
+ */
+
+/* Hide for mobile, show later */
+.sidebar {
+	display: none;
+}
+@media (min-width: 768px) {
+	.sidebar {
+		position: fixed;
+		top: 0;
+		left: 0;
+		bottom: 0;
+		z-index: 1000;
+		display: block;
+		padding: 70px 20px 20px;
+		background-color: #f5f5f5;
+		border-right: 1px solid #eee;
+	}
+}
+
+/* Sidebar navigation */
+.nav-sidebar {
+	margin-left: -20px;
+	margin-right: -21px; /* 20px padding + 1px border */
+	margin-bottom: 20px;
+}
+.nav-sidebar > li > a {
+	padding-left: 20px;
+	padding-right: 20px;
+}
+.nav-sidebar > .active > a {
+	color: #fff;
+	background-color: #428bca;
+}
+
+
+/*
+ * Main content
+ */
+
+.main {
+	padding: 3px;
+}
+@media (min-width: 768px) {
+	.main {
+		padding-left: 15px;
+		padding-right: 15px;
+	}
+}
+.main .page-header {
+	margin-top: 0;
+}
+
+
+/*
+ * Placeholder dashboard ideas
+ */
+
+.placeholders {
+	margin-bottom: 30px;
+	text-align: center;
+}
+.placeholders h4 {
+	margin-bottom: 0;
+}
+.placeholder {
+	margin-bottom: 20px;
+}
+.placeholder img {
+	border-radius: 50%;
+}
+
+.navbar-default {
+	background-color:#194573;
+	border-color: #400040;
+}
+.navbar-default .navbar-brand {
+	color: #ffffff;
+}
+.navbar-default .navbar-brand:hover, .navbar-default .navbar-brand:focus {
+	color: #ffffff;
+}
+.navbar-default .navbar-text {
+	color: #ffffff;
+}
+.navbar-default .navbar-nav > li > a {
+	color: #ffffff;
+}
+.navbar-default .navbar-nav > li > a:hover, .navbar-default .navbar-nav > li > a:focus {
+	color: #ffffff;
+}
+.navbar-default .navbar-nav > .active > a, .navbar-default .navbar-nav > .active > a:hover, .navbar-default .navbar-nav > .active > a:focus {
+	color: #ffffff;
+	background-color: #400040;
+}
+.navbar-default .navbar-nav > .open > a, .navbar-default .navbar-nav > .open > a:hover, .navbar-default .navbar-nav > .open > a:focus {
+	color: #ffffff;
+	background-color: #400040;
+}
+.navbar-default .navbar-toggle {
+	border-color: #400040;
+}
+.navbar-default .navbar-toggle:hover, .navbar-default .navbar-toggle:focus {
+	background-color: #400040;
+}
+.navbar-default .navbar-toggle .icon-bar {
+	background-color: #ffffff;
+}
+.navbar-default .navbar-collapse,
+.navbar-default .navbar-form {
+	border-color: #ffffff;
+}
+.navbar-default .navbar-link {
+	color: #ffffff;
+}
+.navbar-default .navbar-link:hover {
+	color: #ffffff;
+}
+
+@media (max-width: 767px) {
+	.navbar-default .navbar-nav .open .dropdown-menu > li > a {
+		color: #ffffff;
+	}
+	.navbar-default .navbar-nav .open .dropdown-menu > li > a:hover, .navbar-default .navbar-nav .open .dropdown-menu > li > a:focus {
+		color: #ffffff;
+	}
+	.navbar-default .navbar-nav .open .dropdown-menu > .active > a, .navbar-default .navbar-nav .open .dropdown-menu > .active > a:hover, .navbar-default .navbar-nav .open .dropdown-menu > .active > a:focus {
+		color: #ffffff;
+		background-color: #400040;
+	}
+}
+
+.navbar-nav > li > a {padding-top:5px !important; padding-bottom:5px !important;}
+.navbar {min-height:30px !important}
+
+.navbar-brand {
+	float: left;
+	padding: 15px;
+	padding-top: 5px;
+	padding-right: 15px;
+	padding-bottom: 5px;
+	padding-left: 15px;
+	font-size: 18px;
+	line-height: 18px;
+	height: 30px;
+}
+
+
+/* Tooltips */
+.blue-tooltip + .tooltip > .tooltip-inner {background-color: #FF;}
+.blue-tooltip + .tooltip > .tooltip-arrow { border-bottom-color:#FF; }
+
+
+.tooltip.top .tooltip-arrow {
+	bottom: 0;
+	left: 50%;
+	margin-left: -5px;
+	border-top-color: #000000;
+	border-width: 5px 5px 0;
+}
+.tooltip-inner {
+	text-align: left;
+	color: #000;
+	background: #fff;
+	border: solid 1px #000000;
+	max-width: 450px
+}
+
+.tooltip.bottom .tooltip-arrow {
+	top: 0;
+	left: 50%;
+	margin-left: -5px;
+	border-bottom-color: #000000;
+	border-width: 0 5px 5px;
+}
+
+/* pre */
+pre {
+	word-wrap: code;
+	white-space: pre-wrap;
+	background-color:white;
+}
+
+
+/* Container -Fluid */
+.container-fluid {
+	padding: 0 2px;
+}
+@media (min-width: 768px) {
+	.container-fluid {
+		padding: 0 5px;
+	}
+}
+
+.container-fluid .row {
+	margin: 0px;
+}
+
+.row-padding {
+	margin-top: 25px;
+	margin-bottom: 25px;
+}
+
+/* Width for the text field to enter a bug report number in the reports page.
+ * We put a maximum width to override the width value coming from `form-control'. */
+.form-bug-number-entry {
+	max-width: 100px;
+}
+
+/* Default width for the entries in a table like layout. */
+.form-inline .form-control {
+	width: 95%;
+}
+
+.form-inline .checkbox {
+	font-weight: initial;
+	vertical-align: top;
+}
+
+/* Note that there is also a class called label. */
+label {
+	padding-right: 5px;
+}
+
+.label {
+	padding: 0px;
+	padding-right: 5px;
+}
+
+.label-primary-api-default {
+	display: inline-block;
+	width: 105px;
+	text-align: left;
+	background: #fff;
+	color: #000;
+	font-size: 100%;
+	text-align: right;
+}
+
+
+.label-primary-api-interactions {
+	display: inline-block;
+	padding-right: 5px;
+	text-align: left;
+	color: #000;
+	font-size: 100%;
+}
+
+
+pre {
+	padding: 1.5px;
+	display: block;
+	margin: 0 0 10px;
+	font-size: 12px;
+	font-family: monospace;
+	line-height: 1.428571429;
+	word-break: break-word;
+	word-wrap: break-word;
+	color: #333;
+	border: 0px; 
+	border-radius: 4px;
+}
+
+
+/* No padding, so that nested columns are always properly aligned. */
+.col-xs-1,.col-sm-1,.col-md-1,.col-lg-1,.col-xs-2,.col-sm-2,.col-md-2,.col-lg-2,.col-xs-3,.col-sm-3,.col-md-3,.col-lg-3,.col-xs-4,.col-sm-4,.col-md-4,.col-lg-4,.col-xs-5,.col-sm-5,.col-md-5,.col-lg-5,.col-xs-6,.col-sm-6,.col-md-6,.col-lg-6,.col-xs-7,.col-sm-7,.col-md-7,.col-lg-7,.col-xs-8,.col-sm-8,.col-md-8,.col-lg-8,.col-xs-9,.col-sm-9,.col-md-9,.col-lg-9,.col-xs-10,.col-sm-10,.col-md-10,.col-lg-10,.col-xs-11,.col-sm-11,.col-md-11,.col-lg-11,.col-xs-12,.col-sm-12,.col-md-12,.col-lg-12 {
+	padding-left: 0px;
+	padding-right: 0px;
+}
+
+.table>thead>tr>th,.table>tbody>tr>th,.table>tfoot>tr>th,.table>thead>tr>td,.table>tbody>tr>td,.table>tfoot>tr>td {
+	padding:2px;
+	vertical-align: middle;
+}
+
+.form-control{
+	height:inherit;
+	padding: 1px 2px;
+	margin: 1px;
+}
+
+.btn {
+	padding: 1px 12px;
+	margin: 1px;
+	min-width: 100px;
+}
+
+.dropdown-toggle, .login {
+	cursor: pointer;
+}
+
+.pager {
+	margin:10px 0;
+}
+
+.pager li>a,.pager li>span {
+	padding:1px 12px;
+	border-radius:8px;
+}
+
+.well {
+	padding: 9px;
+	margin-bottom: 10px;
+	min-height: 44px;
+}
+
+.panel-heading {
+	background-color: #ddeaf2 !important;
+}
+
+.private-panel-border {
+	border: solid 1px #DBA458 !important;
+}
+
+.private-panel {
+	background-color: #f2eadd !important;
+}

api/site/www/static/js/roc.js

@@ -0,0 +1,108 @@
+/*
+ * EWF CMS javascript based on JQuery
+ */
+
+/**
+ * Override jQuery.fn.init to guard against XSS attacks.
+ *
+ * See http://bugs.jquery.com/ticket/9521
+ */
+
+(function () {
+  var jquery_init = jQuery.fn.init;
+  jQuery.fn.init = function (selector, context, rootjQuery) {
+    // If the string contains a "#" before a "<", treat it as invalid HTML.
+    if (selector && typeof selector === 'string') {
+      var hash_position = selector.indexOf('#');
+      if (hash_position >= 0) {
+        var bracket_position = selector.indexOf('<');
+        if (bracket_position > hash_position) {
+          throw 'Syntax error, unrecognized expression: ' + selector;
+        }
+      }
+    }
+    return jquery_init.call(this, selector, context, rootjQuery);
+  };
+  jQuery.fn.init.prototype = jquery_init.prototype;
+})();
+
+
+var ROC = ROC || { };
+
+$('body').on('click',"a[rel='node']",function(e){
+
+  e.preventDefault();
+  /*
+  if uncomment the above line, html5 nonsupported browers won't change the url but will display the ajax content;
+  if commented, html5 nonsupported browers will reload the page to the specified link.
+  */
+
+  //get the link location that was clicked
+  pageurl = $(this).attr('href');
+
+  spinner = "<span class='loading'><h3>Loading content..</h3><img src='/static/images/ajax-loader.gif' alt='loading...' class='spinner'></span>";  
+  //to get the ajax content and display in div with class 'main'
+  $.ajax({url:pageurl+'?rel=node',success: function(data){
+  $('.main').html(data);
+  }});
+
+  //to change the browser URL to the given link location
+  //if(pageurl!=window.location){
+  //window.history.pushState({path:pageurl},'',pageurl);
+  //}
+  //stop refreshing to the page given in
+  return false;
+});
+
+$('body').on('click',"a[rel='register']",function(e){
+
+  e.preventDefault();
+  /*
+  if uncomment the above line, html5 nonsupported browers won't change the url but will display the ajax content;
+  if commented, html5 nonsupported browers will reload the page to the specified link.
+  */
+
+  //get the link location that was clicked
+  pageurl = $(this).attr('href');
+
+  spinner = "<span class='loading'><h3>Loading content..</h3><img src='/static/images/ajax-loader.gif' alt='loading...' class='spinner'></span>";  
+  //to get the ajax content and display in div with class 'main'
+  $.ajax({url:pageurl+'?rel=node',success: function(data){
+  $('.main').html(data);
+  }});
+
+  //to change the browser URL to the given link location
+  //if(pageurl!=window.location){
+  //window.history.pushState({path:pageurl},'',pageurl);
+  //}
+  //stop refreshing to the page given in
+  return false;
+});
+
+
+
+$("a[rel='node']").click(function(e){
+	e.preventDefault();
+	/*
+	if uncomment the above line, html5 nonsupported browers won't change the url but will display the ajax content;
+	if commented, html5 nonsupported browers will reload the page to the specified link.
+	*/
+
+	//get the link location that was clicked
+	pageurl = $(this).attr('href');
+
+	spinner = "<span class='loading'><h3>Loading content..</h3><img src='/static/images/ajax-loader.gif' alt='loading...' class='spinner'></span>";  
+	//to get the ajax content and display in div with class 'main'
+	$.ajax({url:pageurl+'?rel=node',success: function(data){
+	$('.main').html(data);
+	}});
+
+	//to change the browser URL to the given link location
+	//if(pageurl!=window.location){
+	//window.history.pushState({path:pageurl},'',pageurl);
+	//}
+	//stop refreshing to the page given in
+	return false;
+});
+
+

api/site/www/template/html/layout2.tpl

@@ -0,0 +1,40 @@
+<!DOCTYPE html>
+<html lang="en">
+<head>
+	{include file="master2/head.tpl"/}
+</head>
+<body>
+	
+		<!-- Site Navigation -->
+	{include file="master2/site_navigation.tpl"/}	
+	
+	<!--<header class="main-navi">
+		{include file="master2/header.tpl"/}	
+	</header> -->
+
+	<div class="container">
+		<hr>
+		<div class="row">
+			<main class="main">
+				{include file="master2/content.tpl"/}		
+			</main>
+		</div>
+	</div>
+
+	<div id="footer">
+		<footer class="site-footer">
+			{include file="master2/footer.tpl"/}			
+		</footer>
+	</div>
+
+	{if condition="$web"}	
+		{include file="master2/optional_enhancement_js.tpl"/}
+	{/if}
+
+	{if condition="$html"}	
+		{include file="master2/optional_enhancement_js.tpl"/}
+	{/if}
+	
+</body>
+
+</html>

api/site/www/template/html/master2/content.tpl

@@ -0,0 +1,11 @@
+
+<div itemscope itemtype="http://schema.org/ItemList">
+  <h2 itemprop="name">Top most recent nodes</h2><br>
+  <meta itemprop="itemListOrder" content="Descending" />
+
+	{foreach from="$nodes" item="item"}
+	<div class="page-header">
+	    <h3><span itemprop="itemListElement"><a href="{$host/}/node/{$item.id/}" rel="node"><strong>{$item.title/}</strong></a></span> <small>{$item.summary/} - {$item.publication_date_output/} </small></h3>
+	</div>
+	{/foreach}
+</div>

api/site/www/template/html/master2/error.tpl

@@ -0,0 +1,18 @@
+<h3> Error: {$code/} </h3>
+
+{assign name="status400" value="400"/}
+{assign name="status404" value="404"/}
+{assign name="status500" value="500"/}
+
+{if condition="$code ~ $status500"}
+	<p>Internal server error,  for the request <strong>{$request/}</string>  </p>
+{/if}
+
+
+{if condition="$code ~ $status404"}
+	<p>  Resourse not found,  for the request <strong>{$request/}</string>  </p>
+{/if}
+
+{if condition="$code ~ $status400"}
+	<p> Bad request, the request <strong>{$request/}</string> is not valid</p>
+{/if}	

api/site/www/template/html/master2/footer.tpl

@@ -0,0 +1,7 @@
+	<small>
+		<center>
+			<p class="text-muted"><a href="#" target="_blank" class="info">API Documentation </a>&nbsp;&nbsp;&nbsp;
+			<a href="#" target="_blank" class="info">Questions? Comments? Let us know! </a></p>
+			<p>© Copyright 2014 Eiffel Software -- <a href="#" target="_blank" class="info">Privacy Policy</a>
+		</center>
+	</small>

api/site/www/template/html/master2/head.tpl

@@ -0,0 +1,10 @@
+<meta charset="utf-8">
+<link rel="icon" href="{$host/}/static/images/favicon.ico">
+<title>Eiffel RESTonCMS</title>
+{if condition="$web"}	
+	{include file="master2/optional_styling_css.tpl"/}
+{/if}	
+{if condition="$html"}	
+	{include file="master2/optional_styling_css.tpl"/}
+{/if}	
+

api/site/www/template/html/master2/header.tpl

@@ -0,0 +1,2 @@
+	<h1>RESTonCMS</h1>
+	<p>Tagline</p>				

api/site/www/template/html/master2/logoff.tpl

@@ -0,0 +1,5 @@
+<p>You have successfully signed out</p>
+
+You may want to return
+
+Press this neat little button:<a href="{$host/}/">Take Me Home </a>

api/site/www/template/html/master2/main_navigation.tpl

@@ -0,0 +1,5 @@
+	<!--<ul>
+		<li class="main-navi-item"><a href="">Nav1</a></li>
+		<li><a href="">Nav2</a></li>
+	</ul>
+	-->

api/site/www/template/html/master2/optional_enhancement_js.tpl

@@ -0,0 +1,5 @@
+<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+<script src="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/js/bootstrap.min.js"></script>
+{if condition="$web"}	
+	<script src="{$host/}/static/js/roc.js"></script>
+{/if}

api/site/www/template/html/master2/optional_styling_css.tpl

@@ -0,0 +1,9 @@
+{if condition="$html"}
+	<link rel="stylesheet" href="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css">
+	<link rel="stylesheet" href="http://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap-theme.min.css">
+	<link rel="stylesheet" href="http://getbootstrap.com/assets/css/docs.min.css">
+{/if}
+{if condition="$web"}
+	<link rel="stylesheet" href="{$host/}/static/css/bootstrap.css">
+	<link rel="stylesheet" href="{$host/}/static/css/dashboard.css">
+{/if}

api/site/www/template/html/master2/site_navigation.tpl

@@ -0,0 +1,25 @@
+<nav id="" class="navbar navbar-default navbar-inverse navbar-fixed-top" role="navigation">
+	  <div class="container">
+	  	<div class="navbar-header">
+	  	      <a class="navbar-brand" href="{$host/}" rel="home">Rest on CMS</a>
+	  	</div>	
+
+		 <div class="collapse navbar-collapse" id="navbarCollapse">
+	         <ul class="nav navbar-nav">
+	        	<li class="ListOfNodes"><a title="Nodes" href="{$host/}/nodes" rel="node">List of Nodes</a></li>
+		        
+	      		{if isset="$user"}
+		      		<li><a title="Node" href="{$host/}/node" rel="node">New Node</a></li>
+					<li><a title="Logoff" href="{$host/}/logoff" rel="logoff">Logoff</a></li>
+				{/if}	
+				{unless isset="$user"}
+					<li><a title="Login" href="{$host/}/login" rel="login">Login</a></li>
+					<li><a title="Register" href="{$host/}/user" rel="register">Register</a></li>
+				{/unless}
+	      	</ul>
+	     </div>
+	  </div>   
+</nav>
+
+
+   

api/site/www/template/html/modules/navigation.tpl

@@ -0,0 +1,8 @@
+{if isset="$user"}
+	<a title="Logoff" class="" href="{$host/}/logoff">Logoff</a>
+{/if}	
+{unless isset="$user"}
+	<a title="Login" class="" href="{$host/}/login">Login</a>
+	<a title="Register" class="" href="{$host/}/Register">Register</a>
+{/unless}
+<a title="Nodes" class="" href="{$host/}/nodes">List of Nodes</a>	

api/site/www/template/html/modules/node.tpl

@@ -0,0 +1,174 @@
+{if condition="html"}
+  <!DOCTYPE html>
+  <html lang="en">
+  <head>
+    {include file="master2/head.tpl"/}
+  </head>
+  <body>
+{/if}
+
+{unless condition="$web"} 
+    <!-- Site Navigation -->
+  {include file="master2/site_navigation.tpl"/} 
+{/unless}
+
+
+{if condition="html"}
+
+<div class="container">
+    <hr>
+    <div class="row">
+      <main class="main">
+{/if}
+
+
+<div class="bs-docs-example">
+    {if condition="$web"}
+      <ul id="myTab" class="nav nav-tabs" role="tablist">
+        <li class=""><a href="#view" role="tab" data-toggle="tab">View</a></li>
+        <li class="active"><a href="#edit" role="tab" data-toggle="tab">Edit</a></li>
+        <li class=""><a href="#delete" role="tab" data-toggle="tab">Delete</a></li>
+      </ul>
+     {/if}
+     {if condition="$html"}
+      <ul id="myTab" class="nav nav-tabs" role="tablist">
+        <li class=""><a href="#view" role="tab" data-toggle="tab">View</a></li>
+        <li class="active"><a href="#edit" role="tab" data-toggle="tab">Edit</a></li>
+        <li class=""><a href="#delete" role="tab" data-toggle="tab">Delete</a></li>
+      </ul>
+     {/if}  
+    <div id="myTabContent" class="tab-content">
+      <div class="tab-pane" id="view">
+          {if isset="$node"}
+          <hr>
+          <div class="container-fluid">
+            <div class="row" itemscope itemtype="http://schema.org/Article">
+              <div class="row"> 
+                <div class="col-sm-6 col-md-4 col-lg-3"><h1><span itemprop="name">{$node.title/}</span></h1></div>
+              </div>  
+              <div class="row">
+                <div class="col-sm-6 col-md-4 col-lg-3"><span itemprop="text">{$node.content/}<span></div> 
+              </div>
+            </div>
+          </div>  
+          {/if}
+      </div>
+      
+      <div class="tab-pane fade active in" id="edit">
+          {if isset="$user"}
+          <hr>
+          <div class="container-fluid">
+            <div class="col-xs-12" itemscope itemtype="http://schema.org/Article">
+            {if isset="$node"}
+              <form class="form-inline well" action="{$host/}/node/{$node.id/}" itemprop="url" method="POST">
+              <input type="hidden" name="method" value="PUT"> 
+            {/if}
+            {unless isset="$node"}
+              <form class="form-inline well" action="{$host/}/node" itemprop="url" method="POST">
+            {/unless/}
+                  <fieldset>
+                    <legend>Edit Node</legend>
+                    <div class="span3">
+                      <p>Add or Edit a Node</p>
+                    </div>
+
+                    <div class="row">
+                      <div class="col-xs-1">
+                        {if isset="$node"}
+                          <label><span itemprop="name"><a href="{$host/}/node/{$node.id/}/title" rel="node">Title:</a></span></label>
+                        {/if}
+                        {unless isset="$node"}    
+                          <label><span itemprop="name">Title:</span> </label>
+                        {/unless} 
+                      </div>
+                      <div class="col-xs-7">
+                              <input id="title" type="text" class="form-control" name="title" placeholder="Title" required value="{$node.title/}"/>
+                        </div>
+                    </div>
+
+                    <div class="row">
+                      <div class="col-xs-1">
+                        {if isset="$node"}
+                          <label> <span itemprop="description"><a href="{$host/}/node/{$node.id/}/content" rel="node">Summary:</a></span></label>
+                        {/if}
+                        {unless isset="$node"}
+                          <label> <span itemprop="description">Summary:</span></label>
+                        {/unless} 
+                      </div>
+                      <div class="col-xs-7">
+                              <textarea id="summary" rows="3" class="form-control" cols="100" name="summary" placeholder="Node summary" required>{$node.summary/}</textarea>  
+                        </div>
+                    </div>
+
+                    <div class="row">
+                      <div class="col-xs-1">
+                        {if isset="$node"}
+                          <label> <span itemprop="text"><a href="{$host/}/node/{$node.id/}/content" rel="node">Content</a></span>   </label>
+                        {/if}
+                        {unless isset="$node"}
+                          <label> <span itemprop="text">Content:</span>   </label>
+                        {/unless} 
+                      </div>
+                      <div class="col-xs-7">
+                              <textarea id="content" rows="25" cols="100" class="form-control" name="content" placeholder="Node content" required>{$node.content/}</textarea>     
+                        </div>
+                    </div>
+
+                     <div>
+                        <label>
+                            <span>&nbsp;</span> 
+                            <input type="Submit" value="Send" /> 
+                        </label>
+                    </div>    
+                  </fieldset>
+              </form>
+          </div>    
+          {/if}                  
+      </div>  
+    </div>    
+      <div class="tab-pane" id="delete">
+          {if isset="$user"}
+          <hr>
+          <div class="container-fluid">
+      
+          {if isset="$node"}
+            <form action="{$host/}/node/{$node.id/}" method="POST" class="">
+              <input type="hidden" name="method" value="DELETE">
+              <fieldset>
+                <legend>Delete Node</legend>
+
+                <div>
+                      <label>
+                          <span>&nbsp;</span> 
+                          <input type="Submit" value="Delete" /> 
+                      </label>
+                </div>
+              </fieldset>     
+            </form> 
+            {/if}
+          </div>
+         {/if}   
+      </div>   
+    </div>
+</div>
+
+{if condition="html"}
+      </main>
+    </div>
+  </div>
+{/if}
+
+
+{if condition="html"}
+  <div id="footer">
+      <footer class="site-footer">
+        {include file="master2/footer.tpl"/}      
+      </footer>
+    </div>
+
+
+      {include file="master2/optional_enhancement_js.tpl"/}
+    
+  </body>
+  </html>
+{/if}                  

api/site/www/template/html/modules/node_content.tpl

@@ -0,0 +1,70 @@
+{if condition="html"}
+	<!DOCTYPE html>
+	<html lang="en">
+	<head>
+		{include file="master2/head.tpl"/}
+	</head>
+	<body>
+{/if}
+
+{unless condition="$web"}	
+		<!-- Site Navigation -->
+	{include file="master2/site_navigation.tpl"/}	
+{/unless}
+
+{if condition="html"}
+
+<div class="container">
+		<hr>
+		<div class="row">
+			<main class="main">
+{/if}
+
+
+<div class="container-fluid">
+	<div class="col-xs-12" itemscope itemtype="http://schema.org/Article">
+		<form class="form-inline well"  action="{$host/}/node/{$id/}/content" method="POST" class="">
+			<input type="hidden" name="method" value="PUT">	
+			<fieldset>
+				<legend>Edit Node Content</legend>
+
+					<div class="row">
+						<div class="col-xs-1">
+							<label> <span itemprop="text">Content:</span>   </label>
+						</div>
+						<div class="col-xs-7">
+					        	<textarea id="content" rows="25" cols="100" class="form-control" name="content" placeholder="Node content" required>{$content/}</textarea>			
+					   	</div>
+					</div>
+
+			   <div>
+				    <label>
+				        <span>&nbsp;</span> 
+				        <input type="Submit" value="Update" /> 
+				    </label>
+				</div>    
+			</fieldset>      
+		</form> 
+	</div>
+</div>
+{if condition="html"}
+
+			</main>
+		</div>
+	</div>
+{/if}
+
+
+{if condition="html"}
+	<div id="footer">
+			<footer class="site-footer">
+				{include file="master2/footer.tpl"/}			
+			</footer>
+		</div>
+
+
+			{include file="master2/optional_enhancement_js.tpl"/}
+		
+	</body>
+	</html>
+{/if}	             			              

api/site/www/template/html/modules/node_summary.tpl

@@ -0,0 +1,71 @@
+{if condition="html"}
+	<!DOCTYPE html>
+	<html lang="en">
+	<head>
+		{include file="master2/head.tpl"/}
+	</head>
+	<body>
+{/if}
+
+
+	{unless condition="$web"}	
+		<!-- Site Navigation -->
+		{include file="master2/site_navigation.tpl"/}	
+	{/unless}
+
+{if condition="html"}
+
+<div class="container">
+		<hr>
+		<div class="row">
+			<main class="main">
+{/if}
+
+	<div class="container-fluid">
+		<div class="col-xs-12" itemscope itemtype="http://schema.org/Article">
+			<form class="form-inline well" action="{$host/}/node/{$id/}/summary" method="POST">
+				<input type="hidden" name="method" value="PUT">	
+				<fieldset>
+					<legend>Edit Node Summary</legend>
+
+					<div class="row">
+						<div class="col-xs-1">
+							<label> <span itemprop="text">Summary:</span>   </label>
+						</div>
+						<div class="col-xs-7">
+					        	<textarea id="summary" rows="3" cols="80" name="summary" placeholder="Node summary" required>{$summary/}</textarea>	
+					   	</div>
+					</div>
+		
+				   <div>
+					    <label>
+					        <span>&nbsp;</span> 
+					        <input type="Submit" value="Send" /> 
+					    </label>
+					</div>    
+				</fieldset>      
+			</form>
+		</div>
+	</div>	 
+
+{if condition="html"}
+
+			</main>
+		</div>
+	</div>
+{/if}
+
+
+{if condition="html"}
+	<div id="footer">
+			<footer class="site-footer">
+				{include file="master2/footer.tpl"/}			
+			</footer>
+		</div>
+
+
+			{include file="master2/optional_enhancement_js.tpl"/}
+		
+	</body>
+	</html>
+{/if}	             	              

api/site/www/template/html/modules/node_title.tpl

@@ -0,0 +1,70 @@
+{if condition="html"}
+	<!DOCTYPE html>
+	<html lang="en">
+	<head>
+		{include file="master2/head.tpl"/}
+	</head>
+	<body>
+{/if}
+
+	{unless condition="$web"}	
+		<!-- Site Navigation -->
+		{include file="master2/site_navigation.tpl"/}	
+	{/unless}
+
+
+{if condition="html"}
+
+<div class="container">
+		<hr>
+		<div class="row">
+			<main class="main">
+{/if}
+
+<div class="container-fluid">
+	<div class="col-xs-12" itemscope itemtype="http://schema.org/Article">
+		<form class="form-inline well" action="{$host/}/node/{$id/}/title" method="POST">
+			<input type="hidden" name="method" value="PUT">		
+			<fieldset>
+				<legend>Edit Node Title</legend>
+
+				<div class="row">
+					<div class="col-xs-1">
+						<label> <span itemprop="text">Title:</span>   </label>
+					</div>
+					<div class="col-xs-7">
+				       	<input id="title" type="text" name="title" placeholder="Title" required value="{$title/}"/>
+				   	</div>
+				</div>
+
+			   <div>
+				    <label>
+				        <span>&nbsp;</span> 
+				        <input type="Submit" value="Send" /> 
+				    </label>
+				</div>    
+			</fieldset>      
+		</form>
+	</div>
+</div>		
+{if condition="html"}
+
+			</main>
+		</div>
+	</div>
+{/if}
+
+
+{if condition="html"}
+	<div id="footer">
+			<footer class="site-footer">
+				{include file="master2/footer.tpl"/}			
+			</footer>
+		</div>
+
+
+			{include file="master2/optional_enhancement_js.tpl"/}
+		
+	</body>
+	</html>
+{/if}	             

api/site/www/template/html/modules/nodes.tpl

@@ -0,0 +1,52 @@
+{if condition="html"}
+	<!DOCTYPE html>
+	<html lang="en">
+	<head>
+		{include file="master2/head.tpl"/}
+	</head>
+	<body>
+{/if}
+	
+{unless condition="$web"}	
+		<!-- Site Navigation -->
+	{include file="master2/site_navigation.tpl"/}	
+{/unless}
+
+{if condition="html"}
+
+<div class="container">
+		<hr>
+		<div class="row">
+			<main class="main">
+{/if}
+				<div itemscope itemtype="http://schema.org/ItemList">
+				  <h2 itemprop="name">List nodes</h2><br>	
+				  <meta itemprop="itemListOrder" content="Descending" />
+
+					{foreach from="$nodes" item="item"}
+					<div class="page-header">
+					    <h3><span itemprop="itemListElement"><a href="{$host/}/node/{$item.id/}" rel="node"><strong>{$item.title/}</strong></a></span> <small>{$item.summary/} -{$item.publication_date_output/} </small></h3>
+					</div>
+					{/foreach}
+				</div>
+
+{if condition="html"}
+			</main>
+		</div>
+	</div>
+{/if}
+
+
+{if condition="html"}
+	<div id="footer">
+			<footer class="site-footer">
+				{include file="master2/footer.tpl"/}			
+			</footer>
+		</div>
+
+
+			{include file="master2/optional_enhancement_js.tpl"/}
+		
+	</body>
+	</html>
+{/if}

api/site/www/template/html/modules/register.tpl

@@ -0,0 +1,100 @@
+{if condition="html"}
+	<!DOCTYPE html>
+	<html lang="en">
+	<head>
+		{include file="master2/head.tpl"/}
+	</head>
+	<body>
+{/if}
+
+
+{unless condition="$web"} 
+    <!-- Site Navigation -->
+  {include file="master2/site_navigation.tpl"/} 
+{/unless}
+
+{if condition="html"}
+
+<div class="container">
+		<hr>
+		<div class="row">
+			<main class="main">
+{/if}
+
+
+<div class="container-fluid">
+    <div class="col-xs-12" itemscope itemtype="http://schema.org/Person">	
+		<form class="form-inline well" action="{$host/}/user" data-rel="user-register" method="POST" >
+			<fieldset>
+				<legend>Register</legend>
+				<div class="span3">
+                    <p>Register new user</p>
+                </div>
+
+				<div class="row">
+                     <div class="col-xs-2">
+                        <label><span itemprop="name">Username:</span> </label>
+                      </div>  
+                      <div class="col-xs-7">
+					       <input id="username" type="text" name="username" placeholder="Username" required/>
+					  </div>
+				 </div>
+	
+				<div class="row" itemscope itemtype="http://schema.org/Text">
+                    <div class="col-xs-2">
+				       <label><span itemprop="accessCode">Password:</span> </label>
+				    </div>  
+				    <div class="col-xs-7">
+					    <input id="password" type="password" name="password" placeholder="Password" required/>
+				    </div>
+				</div>
+
+				<div class="row" itemscope itemtype="http://schema.org/Text">
+                    <div class="col-xs-2">
+                        <label><span itemprop="accessCode">Re-type Password:</span> </label>
+				     </div>   
+				     <div class="col-xs-7">
+					   	<input id="check_password" type="password" name="check_password" placeholder="Password" required/>
+					</div>
+				</div>
+
+				<div class="row">
+                    <div class="col-xs-2">
+				       <label><span itemprop="email">Email:</span> </label>
+				    </div>   
+				    <div class="col-xs-7">
+					    <input id="email" type="email" name="email" placeholder="Email" required/>
+				    </div>
+				s</div>
+				
+			   <div>
+				    <label>
+				        <span>&nbsp;</span> 
+				        <input type="Submit" value="Send" /> 
+				    </label>
+				</div>    
+			</fieldset>      
+		</form>
+	</div>
+</div>
+
+{if condition="html"}
+			</main>
+		</div>
+	</div>
+{/if}
+
+
+{if condition="html"}
+	<div id="footer">
+			<footer class="site-footer">
+				{include file="master2/footer.tpl"/}			
+			</footer>
+		</div>
+
+
+			{include file="master2/optional_enhancement_js.tpl"/}
+		
+	</body>
+	</html>
+{/if}		               

api/src/configuration/application_constants.e

@@ -0,0 +1,19 @@
+note
+	description: "Summary description for {ESA_APPLICATION_CONSTANTS}."
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	APPLICATION_CONSTANTS
+
+feature -- Access
+
+	major: INTEGER = 0
+	minor: INTEGER = 1
+	built: STRING = "0001"
+
+	version: STRING
+		do
+			Result := major.out + "." + minor.out + "." + built
+		end
+end

api/src/configuration/configuration_factory.e

@@ -0,0 +1,70 @@
+note
+	description: "API configuration factory"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	CONFIGURATION_FACTORY
+
+inherit
+
+	SHARED_EXECUTION_ENVIRONMENT
+
+	SHARED_ERROR
+
+feature -- Factory
+
+	roc_config (a_dir: detachable STRING): ROC_CONFIG
+		local
+			l_layout: APPLICATION_LAYOUT
+			l_email_service: ROC_EMAIL_SERVICE
+			l_database: DATABASE_CONNECTION
+			l_api_service: ROC_API_SERVICE
+			l_retried: BOOLEAN
+		do
+			if not l_retried then
+				if attached a_dir then
+					create l_layout.make_with_path (create {PATH}.make_from_string (a_dir))
+				else
+					create l_layout.make_default
+				end
+				log.write_information (generator + ".roc_config " + l_layout.path.name.out)
+
+				create l_email_service.make ((create {JSON_CONFIGURATION}).new_smtp_configuration(l_layout.application_config_path))
+
+				if attached (create {JSON_CONFIGURATION}).new_database_configuration (l_layout.application_config_path) as l_database_config then
+					create {DATABASE_CONNECTION_MYSQL} l_database.login_with_schema ("cms", "root", "")
+					create l_api_service.make_with_database (l_database)
+					create Result.make (l_database, l_api_service, l_email_service, l_layout)
+					if (create {ROC_JSON_CONFIGURATION}).is_web_mode(l_layout.application_config_path) then
+						Result.mark_web
+					elseif (create {ROC_JSON_CONFIGURATION}).is_html_mode(l_layout.application_config_path) then
+						Result.mark_html
+					end
+					set_successful
+				else
+					create {DATABASE_CONNECTION_NULL} l_database.make_common
+					create l_api_service.make_with_database (l_database)
+					create Result.make (l_database, l_api_service, l_email_service, l_layout)
+					set_last_error ("Database Connections", generator + ".roc_config")
+					log.write_error (generator + ".roc_config Error database connection" )
+				end
+			else
+				if attached a_dir then
+					create l_layout.make_with_path (create {PATH}.make_from_string (a_dir))
+				else
+					create l_layout.make_default
+				end
+				create l_email_service.make ((create {JSON_CONFIGURATION}).new_smtp_configuration(l_layout.application_config_path))
+
+				create {DATABASE_CONNECTION_NULL} l_database.make_common
+				create l_api_service.make_with_database (l_database)
+				create Result.make (l_database, l_api_service, l_email_service, l_layout)
+			end
+		rescue
+			set_last_error_from_exception ("Database Connection execution")
+			log.write_critical (generator + ".roc_config Database Connection execution exceptions")
+			l_retried := True
+			retry
+		end
+end

api/src/configuration/roc_json_configuration.e

@@ -0,0 +1,51 @@
+note
+	description: "Summary description for {ROC_JSON_CONFIGURATION}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	ROC_JSON_CONFIGURATION
+
+inherit
+
+	JSON_CONFIGURATION
+
+feature -- Access
+
+	is_html_mode (a_path: PATH): BOOLEAN
+			-- Is the server running on web mode?
+		local
+			l_parser: JSON_PARSER
+		do
+			if attached json_file_from (a_path) as json_file then
+			 l_parser := new_json_parser (json_file)
+			 if  attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
+			     attached {JSON_OBJECT} jv.item ("server") as l_server and then
+			     attached {JSON_STRING} l_server.item ("mode") as l_mode then
+			     Result :=  l_mode.item.is_case_insensitive_equal_general ("html")
+			 end
+			end
+		end
+
+
+
+	is_web_mode (a_path: PATH): BOOLEAN
+			-- Is the server running on web mode?
+		local
+			l_parser: JSON_PARSER
+		do
+			if attached json_file_from (a_path) as json_file then
+			 l_parser := new_json_parser (json_file)
+			 if  attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
+			     attached {JSON_OBJECT} jv.item ("server") as l_server and then
+			     attached {JSON_STRING} l_server.item ("mode") as l_mode then
+			     Result :=  l_mode.item.is_case_insensitive_equal_general ("web")
+			 end
+			end
+		end
+
+
+
+
+
+end

api/src/representation/common/template_shared.e

@@ -0,0 +1,29 @@
+note
+	description: "Template shared common features to all the templates"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+deferred class
+	TEMPLATE_SHARED
+
+inherit
+
+    ROC_TEMPLATE_PAGE
+
+feature --
+
+	add_host (a_host: READABLE_STRING_GENERAL)
+			-- Add value `a_host' to `host'
+		do
+			template.add_value (a_host, "host")
+		end
+
+
+	add_user (a_user: detachable ANY)
+			-- Add value `a_host' to `host'
+		do
+			if attached a_user then
+				template.add_value (a_user,"user")
+			end
+		end
+end

api/src/representation/roc_response.e

@@ -0,0 +1,143 @@
+note
+	description: "Summary description for {ROC_RESPONSE}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	ROC_RESPONSE
+
+inherit
+
+	APP_HANDLER
+
+	TEMPLATE_SHARED
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_request: WSF_REQUEST; a_template: READABLE_STRING_32)
+		do
+			request := a_request
+			-- Set template to HTML
+			set_template_folder (html_path)
+				-- Build Common Template
+			set_template_file_name (a_template)
+					-- Process the current tempate.
+			set_value (a_request.absolute_script_url (""), "host")
+			if attached current_user_name (request) as l_user then
+				set_value (l_user, "user")
+			end
+		end
+
+feature -- Access
+
+	request: WSF_REQUEST
+
+feature -- Access
+
+	values: STRING_TABLE [detachable ANY]
+		do
+			Result := template.values
+		end
+
+	value (a_key: READABLE_STRING_GENERAL): detachable ANY
+		do
+			Result := template.values.item (a_key)
+		end
+
+feature -- Element change
+
+	set_value (a_value: detachable ANY; a_key: READABLE_STRING_GENERAL)
+		do
+			template.add_value (a_value, a_key)
+		end
+
+
+feature -- Output
+
+	send_to (res: WSF_RESPONSE)
+		do
+			process
+			if attached representation as l_output then
+				new_response (res, l_output, {HTTP_STATUS_CODE}.ok)
+			end
+		end
+
+	new_response_redirect (req: WSF_REQUEST; res: WSF_RESPONSE; a_location: READABLE_STRING_32)
+			-- Redirect to `a_location'
+		local
+			h: HTTP_HEADER
+		do
+			create h.make
+			h.put_content_type_text_html
+			h.put_current_date
+			h.put_location (a_location)
+			res.set_status_code ({HTTP_STATUS_CODE}.see_other)
+			res.put_header_text (h.string)
+		end
+
+	new_response_authenticate (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Handle forbidden.
+		local
+			h: HTTP_HEADER
+		do
+			create h.make
+			h.put_content_type_text_html
+			h.put_current_date
+			h.put_header_key_value ({HTTP_HEADER_NAMES}.header_www_authenticate, "Basic realm=%"CMS-User%"")
+			res.set_status_code ({HTTP_STATUS_CODE}.unauthorized)
+			res.put_header_text (h.string)
+		end
+
+	new_response_denied (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Handle forbidden.
+		local
+			h: HTTP_HEADER
+		do
+			process
+			create h.make
+			if attached representation as l_output then
+				h.put_content_length (l_output.count)
+			end
+
+			h.put_content_type_text_html
+			h.put_current_date
+			res.set_status_code ({HTTP_STATUS_CODE}.unauthorized)
+			res.put_header_text (h.string)
+			if attached representation as l_output then
+				res.put_string (l_output)
+			end
+		end
+
+
+	new_response_unauthorized (req: WSF_REQUEST; res: WSF_RESPONSE)
+		local
+			h: HTTP_HEADER
+			output: STRING
+		do
+			create h.make
+			h.put_content_type_text_html
+			h.put_current_date
+			res.set_status_code ({HTTP_STATUS_CODE}.forbidden)
+			res.put_header_text (h.string)
+		end
+
+
+feature {NONE} -- Implemenation
+
+	new_response (res: WSF_RESPONSE; output: STRING; status_code: INTEGER)
+		local
+			h: HTTP_HEADER
+		do
+			create h.make
+			h.put_content_type_text_html
+			h.put_content_length (output.count)
+			h.put_current_date
+			res.set_status_code (status_code)
+			res.put_header_text (h.string)
+			res.put_string (output)
+		end
+
+end

api/src/representation/roc_template_page.e

@@ -0,0 +1,76 @@
+note
+	description: "Abstract template class"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+deferred class
+	ROC_TEMPLATE_PAGE
+
+inherit
+
+	SHARED_TEMPLATE_CONTEXT
+
+	SHARED_LOGGER
+
+	ARGUMENTS
+
+feature -- Status
+
+	representation: detachable STRING
+			-- String representation, if any.
+
+	set_template_folder (v: PATH)
+			-- Set template folder to `v'.
+		do
+			template_context.set_template_folder (v)
+		end
+
+	set_template_file_name (v: STRING)
+			-- Set  `template' to `v'.
+		do
+			create template.make_from_file (v)
+		end
+
+	set_template (v: like template)
+			-- Set `template' to `v'.
+		do
+			template := v
+		end
+
+	template: TEMPLATE_FILE
+
+	layout: APPLICATION_LAYOUT
+		local
+			l_env: EXECUTION_ENVIRONMENT
+		once
+			create l_env
+			if attached separate_character_option_value ('d') as l_dir  then
+				create Result.make_with_path (create {PATH}.make_from_string (l_dir))
+			else
+				create Result.make_default
+			end
+		end
+
+	html_path: PATH
+			-- Html template paths.
+		do
+			Result := layout.template_path.extended ("html")
+		end
+
+feature -- Process
+
+	process
+			-- Process the current template.
+		do
+			template_context.enable_verbose
+			template.analyze
+			template.get_output
+
+			if attached template.output as l_output then
+				representation := l_output
+				debug
+					log.write_debug (generator + ".make " +  l_output)
+				end
+			end
+		end
+end

api/src/roc_abstract_api.e

@@ -0,0 +1,119 @@
+note
+	description: "Abstract API service"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+deferred class
+	ROC_ABSTRACT_API
+
+inherit
+	WSF_ROUTED_SKELETON_SERVICE
+		undefine
+			requires_proxy
+		redefine
+			execute_default
+		end
+
+	WSF_NO_PROXY_POLICY
+
+	WSF_URI_HELPER_FOR_ROUTED_SERVICE
+
+	WSF_URI_TEMPLATE_HELPER_FOR_ROUTED_SERVICE
+
+	SHARED_CONNEG_HELPER
+
+	SHARED_LOGGER
+
+feature {NONE} -- Initialization
+
+	make (a_esa_config: ROC_CONFIG; a_server: ROC_SERVER)
+		do
+			roc_config := a_esa_config
+			server := a_server
+			initialize_router
+		end
+
+feature -- ESA
+
+	roc_config: ROC_CONFIG
+		-- Configuration
+
+	server: ROC_SERVER
+		-- Server
+
+feature -- Router setup
+
+	setup_router
+			-- Setup `router'
+		deferred
+		end
+
+	layout: APPLICATION_LAYOUT
+		do
+			Result := roc_config.layout
+		end
+
+feature -- Access
+
+	handle_debug (req: WSF_REQUEST; res: WSF_RESPONSE)
+		local
+			s: STRING_8
+			h: HTTP_HEADER
+		do
+			if req.is_get_request_method then
+				s := "debug"
+				create h.make_with_count (1)
+				h.put_content_type_text_html
+				h.put_content_length (s.count)
+				res.put_header_lines (h)
+				res.put_string (s)
+			else
+				create s.make (30_000)
+				across
+					req.form_parameters as c
+				loop
+					s.append (c.item.url_encoded_name)
+					s.append ("=")
+					s.append (c.item.string_representation)
+					s.append ("<br/>")
+				end
+				if s.is_empty then
+					req.read_input_data_into (s)
+				end
+				create h.make_with_count (1)
+				h.put_content_type_text_html
+				h.put_content_length (s.count)
+				res.put_header_lines (h)
+				res.put_string (s)
+			end
+		end
+
+feature -- Handler
+
+	not_yet_implemented_uri_template_handler (msg: READABLE_STRING_8): WSF_URI_TEMPLATE_HANDLER
+		do
+			create {WSF_URI_TEMPLATE_AGENT_HANDLER} Result.make (agent not_yet_implemented(?, ?, msg))
+		end
+
+	not_yet_implemented (req: WSF_REQUEST; res: WSF_RESPONSE; msg: detachable READABLE_STRING_8)
+		local
+			m: WSF_NOT_IMPLEMENTED_RESPONSE
+		do
+			create m.make (req)
+			if msg /= Void then
+				m.set_body (msg)
+			end
+			res.send (m)
+		end
+
+
+feature -- Default Execution
+
+	execute_default (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Dispatch requests without a matching handler.
+		local
+		do
+
+		end
+
+end

api/src/roc_config.e

@@ -0,0 +1,87 @@
+note
+	description: "Eiffel Suppor API configuration"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	ROC_CONFIG
+
+inherit
+
+	SHARED_ERROR
+
+
+create
+	make
+
+feature -- Initialization
+
+	make (a_database: DATABASE_CONNECTION; a_api_service: ROC_API_SERVICE; a_email_service: ROC_EMAIL_SERVICE; a_layout: APPLICATION_LAYOUT )
+			-- Create an object with defaults.
+		do
+			database := a_database
+			api_service := a_api_service
+			email_service := a_email_service
+			layout := a_layout
+			mark_api
+		ensure
+			database_set: database = a_database
+			api_service_set: api_service = a_api_service
+			email_service_set: email_service = a_email_service
+			layout_set: layout = a_layout
+		end
+
+feature -- Access
+
+	is_successful: BOOLEAN
+			-- Is the configuration successful?
+		do
+			Result := successful
+		end
+
+	is_api: BOOLEAN
+		-- Is the server running on server mode API
+
+	is_web: BOOLEAN
+		-- Is the server running on server mode API
+
+	is_html: BOOLEAN
+		-- Is the server running on html mode API	
+
+	database: DATABASE_CONNECTION
+			-- Database connection.
+
+	api_service: ROC_API_SERVICE
+			-- Support API.
+
+	email_service: ROC_EMAIL_SERVICE
+			-- Email service.
+
+	layout: APPLICATION_LAYOUT
+			-- Api layout.		
+
+	mark_api
+			-- Set server mode to api.
+		do
+			is_api := True
+			is_html := False
+			is_web := False
+		end
+
+	mark_web
+			-- Set server mode to web.
+		do
+			is_web := True
+			is_api := False
+			is_html := False
+		end
+
+	mark_html
+			-- Set server mode to web.
+		do
+			is_html := True
+			is_api := False
+			is_web := False
+		end
+
+end

api/src/roc_server.e

@@ -0,0 +1,216 @@
+note
+	description: "[
+		application service
+	]"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	ROC_SERVER
+
+inherit
+
+	WSF_LAUNCHABLE_SERVICE
+		rename
+			make_and_launch as make_and_launch_service
+		redefine
+			initialize
+		end
+
+	WSF_FILTERED_SERVICE
+
+	WSF_FILTER
+		rename
+			execute as execute_filter
+		end
+
+	SHARED_EXECUTION_ENVIRONMENT
+		export
+			{NONE} all
+		end
+
+	APPLICATION_CONSTANTS
+
+	REFACTORING_HELPER
+
+	ARGUMENTS
+
+create
+	make_and_launch
+
+feature {NONE} -- Initialization
+
+	make_and_launch
+		do
+			setup_config
+			create launcher
+			make_and_launch_service
+		end
+
+	initialize
+			-- Initialize current service.
+		do
+			Precursor
+			service_options := create {WSF_SERVICE_LAUNCHER_OPTIONS_FROM_INI}.make_from_file ("roc.ini")
+			initialize_filter
+		end
+
+feature {NONE} -- Launch operation
+
+	launcher: APPLICATION_LAUNCHER
+
+	launch (a_service: WSF_SERVICE; opts: detachable WSF_SERVICE_LAUNCHER_OPTIONS)
+		local
+			l_retry: BOOLEAN
+			l_message: STRING
+		do
+			if not l_retry then
+				launcher.launch (a_service, opts)
+			else
+					-- error hanling.
+				create l_message.make (1024)
+				if attached ((create {EXCEPTION_MANAGER}).last_exception) as l_exception then
+					if attached l_exception.description as l_description then
+						l_message.append (l_description.as_string_32)
+						l_message.append ("%N%N")
+					elseif attached l_exception.trace as l_trace then
+						l_message.append (l_trace)
+						l_message.append ("%N%N")
+					else
+						l_message.append (l_exception.out)
+						l_message.append ("%N%N")
+					end
+				else
+					l_message.append ("The application crash without available information")
+					l_message.append ("%N%N")
+				end
+				roc_config.email_service.send_shutdown_email (l_message)
+				roc_config.log.write_emergency (generator + ".launch %N" + l_message)
+			end
+		rescue
+			l_retry :=  True
+			retry
+		end
+
+feature {ROC_ABSTRACT_API} -- Services		
+
+	api_service: ROC_REST_API
+			-- rest api.
+		local
+			s: like internal_api_service
+		do
+			s := internal_api_service
+			if s = Void then
+				create s.make (roc_config, Current)
+				internal_api_service := s
+			end
+			Result := s
+		end
+
+feature {NONE} -- Internal
+
+	internal_api_service: detachable like api_service
+
+feature -- ESA Configuraion
+
+	roc_config: ROC_CONFIG
+		-- Configuration.
+
+ 	setup_config
+ 			-- Configure API.
+ 		local
+ 			l_configuration_factory: CONFIGURATION_FACTORY
+ 		do
+ 			create l_configuration_factory
+ 			roc_config := l_configuration_factory.roc_config (separate_character_option_value ('d'))
+			if attached l_configuration_factory.last_error as l_error then
+				roc_config.set_last_error_from_handler (l_error)
+			else
+				roc_config.set_successful
+			end
+		end
+
+feature -- Execute Filter
+
+	execute_filter (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute the filter.
+		do
+
+			res.put_header_line ("Date: " + (create {HTTP_DATE}.make_now_utc).string)
+
+			res.put_header_line ("ROCServer: " + version)
+			api_service.execute (req, res)
+		end
+
+feature -- Filters
+
+	create_filter
+			-- Create `filter'.
+		local
+			f, l_filter: detachable WSF_FILTER
+			fh: WSF_CUSTOM_HEADER_FILTER
+		do
+			l_filter := Void
+
+				-- Header
+			create fh.make (1)
+			fh.set_next (l_filter)
+			fh.custom_header.put_header ("X-ROCServer: " + version)
+			l_filter := fh
+
+				-- Cors
+			create {WSF_CORS_FILTER}f
+			f.set_next (l_filter)
+			l_filter := f
+
+
+				-- Maintenance
+			create {WSF_MAINTENANCE_FILTER} f
+			f.set_next (l_filter)
+			l_filter := f
+
+			if launcher.is_console_output_supported then
+					-- Logging for nino
+				create {WSF_LOGGING_FILTER} f.make_with_output (io.output)
+				f.set_next (l_filter)
+				l_filter := f
+			end
+			 	-- CORS Authentication
+			create {CORS_FILTER} f
+			f.set_next (l_filter)
+			l_filter := f
+
+				-- Logger Filter
+			create {LOGGER_FILTER} f.make (roc_config)
+			f.set_next (l_filter)
+			l_filter := f
+
+			 	-- Error Filter
+			create {ERROR_FILTER} f.make (roc_config)
+			f.set_next (l_filter)
+			l_filter := f
+
+			 	-- Authentication
+			create {AUTHENTICATION_FILTER} f.make (roc_config)
+			f.set_next (l_filter)
+			l_filter := f
+
+			filter := l_filter
+		end
+
+	setup_filter
+			-- Setup `filter'.
+		local
+			f: WSF_FILTER
+		do
+			from
+				f := filter
+			until
+				not attached f.next as l_next
+			loop
+				f := l_next
+			end
+			f.set_next (Current)
+		end
+
+end

api/src/service/filter/authentication_filter.e

@@ -0,0 +1,56 @@
+note
+	description: "Authentication filter."
+	author: "Olivier Ligot"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	AUTHENTICATION_FILTER
+
+inherit
+	WSF_URI_TEMPLATE_HANDLER
+
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+	WSF_FILTER
+
+
+
+create
+	make
+
+feature -- Basic operations
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute the filter
+		local
+			l_auth: HTTP_AUTHORIZATION
+		do
+			log.write_debug (generator + ".execute " )
+			create l_auth.make (req.http_authorization)
+			if attached req.raw_header_data as l_raw_data then
+			   log.write_debug (generator + ".execute " + l_raw_data )
+			end
+				-- A valid user
+			if (attached l_auth.type as l_auth_type and then l_auth_type.is_case_insensitive_equal ("basic")) and then
+				attached l_auth.login as l_auth_login and then attached l_auth.password as l_auth_password then
+				if api_service.login_valid (l_auth_login, l_auth_password) then
+					req.set_execution_variable ("user", create {CMS_USER}.make (l_auth_login))
+					execute_next (req, res)
+				else
+					log.write_error (generator + ".execute login_valid failed for: " + l_auth_login )
+					execute_next (req, res)
+				end
+			else
+				log.write_error (generator + ".execute Not valid")
+				execute_next (req, res)
+			end
+		end
+
+note
+	copyright: "2011-2012, Olivier Ligot, Jocelyn Fiat and others"
+	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
+
+end

api/src/service/filter/cors_filter.e

@@ -0,0 +1,27 @@
+note
+	description: "CORS filter"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	CORS_FILTER
+
+inherit
+	WSF_FILTER
+
+feature -- Basic operations
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute the filter.
+		local
+			l_header: HTTP_HEADER
+		do
+			create l_header.make
+--			l_header.add_header_key_value ("Access-Control-Allow-Origin", "localhost")
+			l_header.add_header_key_value ("Access-Control-Allow-Headers", "*")
+			l_header.add_header_key_value ("Access-Control-Allow-Methods", "*")
+			l_header.add_header_key_value ("Access-Control-Allow-Credentials", "true")
+			res.put_header_lines (l_header)
+			execute_next (req, res)
+		end
+end

api/src/service/filter/error_filter.e

@@ -0,0 +1,42 @@
+note
+	description: "Error filter"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	ERROR_FILTER
+
+inherit
+	WSF_URI_TEMPLATE_HANDLER
+
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+	WSF_FILTER
+
+
+
+create
+	make
+
+feature -- Basic operations
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute the filter
+
+		do
+			if roc_config.is_successful and then roc_config.api_service.successful then
+				log.write_information (generator + ".execute")
+				execute_next (req, res)
+			else
+				-- send internal server error.
+			end
+		end
+
+
+note
+	copyright: "2011-2012, Olivier Ligot, Jocelyn Fiat and others"
+	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
+
+end

api/src/service/filter/logger_filter.e

@@ -0,0 +1,54 @@
+note
+	description: "Logger filter"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	LOGGER_FILTER
+
+
+inherit
+	WSF_URI_TEMPLATE_HANDLER
+
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+	WSF_FILTER
+
+create
+	make
+
+feature -- Basic operations
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute the filter.
+		local
+			s: STRING_8
+		do
+			log.write_debug (generator + ".execute")
+			create s.make (2048)
+			if attached req.content_type as l_type then
+				s.append ("[length=")
+				s.append_natural_64 (req.content_length_value)
+				s.append_character (']')
+				s.append_character (' ')
+				s.append (l_type.debug_output)
+				s.append_character ('%N')
+			end
+
+			append_iterable_to ("Path parameters", req.path_parameters, s)
+			append_iterable_to ("Query parameters", req.query_parameters, s)
+			append_iterable_to ("Form parameters", req.form_parameters, s)
+
+			if not s.is_empty then
+				log.write_debug (generator + ".execute" + s)
+			end
+			execute_next (req, res)
+		end
+
+
+note
+	copyright: "2011-2012, Olivier Ligot, Jocelyn Fiat and others"
+	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
+end

api/src/service/handler/app_abstract_handler.e

@@ -0,0 +1,48 @@
+note
+	description: "Abstrat Eiffel Support API Handler."
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+deferred class
+	APP_ABSTRACT_HANDLER
+
+inherit
+	WSF_HANDLER
+
+	APP_HANDLER
+
+	SHARED_CONNEG_HELPER
+
+feature -- Change
+
+	set_esa_config (a_esa_config: like roc_config)
+			-- Set `roc_config' to `a_esa_condig'.
+		do
+			roc_config := a_esa_config
+		ensure
+			esa_config_set: roc_config = a_esa_config
+		end
+
+feature -- Access
+
+	roc_config: ROC_CONFIG
+		-- Configuration.
+
+	api_service: ROC_API_SERVICE
+			-- api Service.
+		do
+			Result := roc_config.api_service
+		end
+
+	email_service: ROC_EMAIL_SERVICE
+			-- Email Service.
+		do
+			Result := roc_config.email_service
+		end
+
+	is_web: BOOLEAN
+		do
+			Result := roc_config.is_web
+		end
+
+end

api/src/service/handler/app_handler.e

@@ -0,0 +1,98 @@
+note
+	description: "Summary description for {ESA_HANDLER}."
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	APP_HANDLER
+
+inherit
+
+	SHARED_LOGGER
+
+feature -- User
+
+	current_user_name (req: WSF_REQUEST): detachable READABLE_STRING_32
+			-- Current user name or Void in case of Guest users.
+		note
+			EIS: "src=eiffel:?class=AUTHENTICATION_FILTER&feature=execute"
+		do
+			if attached {CMS_USER} current_user (req) as l_user then
+				Result := l_user.name
+			end
+		end
+
+	current_user (req: WSF_REQUEST): detachable CMS_USER
+			-- Current user or Void in case of Guest user.
+		note
+			EIS: "eiffel:?class=AUTHENTICATION_FILTER&feature=execute"
+		do
+			if attached {CMS_USER} req.execution_variable ("user") as l_user then
+				Result := l_user
+			end
+		end
+
+feature -- Media Type
+
+	current_media_type (req: WSF_REQUEST): detachable READABLE_STRING_32
+			-- Current media type or Void if it's not acceptable.
+		do
+			if attached {STRING} req.execution_variable ("media_type") as l_type then
+				Result := l_type
+			end
+		end
+
+feature -- Absolute Host
+
+	absolute_host (req: WSF_REQUEST; a_path:STRING): STRING
+		do
+			Result := req.absolute_script_url (a_path)
+			if Result.last_index_of ('/', Result.count) = Result.count then
+				Result.remove_tail (1)
+			end
+			log.write_debug (generator + ".absolute_host " + Result )
+		end
+
+feature -- Compression
+
+	current_compression (req: WSF_REQUEST): detachable READABLE_STRING_32
+			-- Current compression encoding or Void if it's not acceptable.
+		do
+			if attached {STRING} req.execution_variable ("compression") as l_encoding then
+				Result := l_encoding
+			end
+		end
+
+feature {NONE} -- Implementations
+
+		append_iterable_to (a_title: READABLE_STRING_8; it: detachable ITERABLE [WSF_VALUE]; s: STRING_8)
+			local
+				n: INTEGER
+			do
+				if it /= Void then
+					across it as c loop
+						n := n + 1
+					end
+					if n > 0 then
+						s.append (a_title)
+						s.append_character (':')
+						s.append_character ('%N')
+						across
+							it as c
+						loop
+							s.append ("  - ")
+							s.append (c.item.url_encoded_name)
+							s.append_character (' ')
+							s.append_character ('{')
+							s.append (c.item.generating_type)
+							s.append_character ('}')
+							s.append_character ('=')
+							s.append (c.item.debug_output.as_string_8)
+							s.append_character ('%N')
+						end
+					end
+				end
+			end
+
+
+end

api/src/service/handler/navigation_handler.e

@@ -0,0 +1,57 @@
+note
+	description: "Summary description for {NAVIGATION_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NAVIGATION_HANDLER
+inherit
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: ROC_RESPONSE
+		do
+			create l_page.make (req, "modules/navigation.tpl")
+			l_page.send_to (res)
+		end
+end

api/src/service/handler/node_content_handler.e

@@ -0,0 +1,189 @@
+note
+	description: "Summary description for {NEW_CONTENT_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_CONTENT_HANDLER
+
+inherit
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+					-- Existing node
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						create l_page.make (req, "modules/node_content.tpl")
+						l_page.set_value (l_node.content, "content")
+						l_page.set_value (l_id.value, "id")
+						l_page.set_value (roc_config.is_web, "web")
+						l_page.set_value (roc_config.is_html, "html")
+						l_page.send_to (res)
+					else
+						do_error (req, res, l_id)
+					end
+				else
+						-- Todo extract method
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						if attached {WSF_STRING} req.form_parameter ("method") as l_method then
+							if l_method.is_case_insensitive_equal ("PUT") then
+								do_put (req, res)
+							else
+								create l_page.make (req, "master2/error.tpl")
+								l_page.set_value ("500", "code")
+								l_page.set_value (req.absolute_script_url (req.path_info), "request")
+								l_page.send_to (res)
+							end
+						end
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						u_node := extract_data_form (req)
+						u_node.set_id (l_id.integer_value)
+						api_service.update_node_content (u_node.id, u_node.content)
+						(create {ROC_RESPONSE}.make (req, "")).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+			l_page: ROC_RESPONSE
+		do
+			create l_page.make (req, "master2/error.tpl")
+			if a_id.is_integer then
+				-- resource not found
+				l_page.set_value ("404", "code")
+			else
+				-- bad request
+				l_page.set_value ("400", "code")
+			end
+			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+			l_page.send_to(res)
+		end
+
+
+feature -- {NONE} Form data
+
+
+	extract_data_form (req: WSF_REQUEST): CMS_NODE
+			-- Extract request form data and build a object
+			-- Node
+		do
+			create Result.make ("", "", "")
+			if attached {WSF_STRING}req.form_parameter ("content") as l_content then
+				Result.set_content (l_content.value)
+			end
+		end
+
+end

api/src/service/handler/node_handler.e

@@ -0,0 +1,221 @@
+note
+	description: "Summary description for {NODE_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_HANDLER
+
+inherit
+
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put,
+			do_delete
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: ROC_RESPONSE
+		do
+				-- Existing node
+			if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+				if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+					create l_page.make (req, "modules/node.tpl")
+					l_page.set_value (l_node, "node")
+					l_page.set_value (roc_config.is_web, "web")
+					l_page.set_value (roc_config.is_html, "html")
+					l_page.send_to (res)
+				else
+					do_error (req, res, l_id)
+				end
+			else
+					-- Factory
+				new_node (req, res)
+			end
+		end
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						if attached {WSF_STRING} req.form_parameter ("method") as l_method then
+							if l_method.is_case_insensitive_equal ("DELETE") then
+								do_delete (req, res)
+							elseif l_method.is_case_insensitive_equal ("PUT") then
+								do_put (req, res)
+							else
+								create l_page.make (req, "master2/error.tpl")
+								l_page.set_value ("500", "code")
+								l_page.set_value (req.absolute_script_url (req.path_info), "request")
+								l_page.send_to (res)
+							end
+						end
+					else
+						do_error (req, res, l_id)
+					end
+				else
+						-- New node
+					api_service.new_node (extract_data_form (req))
+					(create {ROC_RESPONSE}.make (req, "")).new_response_redirect (req, res, req.absolute_script_url (""))
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						u_node := extract_data_form (req)
+						u_node.set_id (l_id.integer_value)
+						api_service.update_node (u_node)
+						(create {ROC_RESPONSE}.make (req, "")).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					-- Internal server error
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+
+		end
+
+	do_delete (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						api_service.delete_node (l_id.integer_value)
+						(create {ROC_RESPONSE}.make (req, "")).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					-- Internal server error
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+			l_page: ROC_RESPONSE
+		do
+			create l_page.make (req, "master2/error.tpl")
+			if a_id.is_integer then
+					-- resource not found
+				l_page.set_value ("404", "code")
+			else
+					-- bad request
+				l_page.set_value ("400", "code")
+			end
+			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+			l_page.send_to (res)
+		end
+
+feature {NONE} -- Node
+
+	new_node (req: WSF_REQUEST; res: WSF_RESPONSE)
+		local
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+				create l_page.make (req, "modules/node.tpl")
+				l_page.set_value (roc_config.is_web, "web")
+				l_page.set_value (roc_config.is_html, "html")
+
+				l_page.send_to (res)
+			else
+				(create {ROC_RESPONSE}.make (req, "")).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- {NONE} Form data
+
+	extract_data_form (req: WSF_REQUEST): CMS_NODE
+			-- Extract request form data and build a object
+			-- Node
+		do
+			create Result.make ("", "", "")
+			if attached {WSF_STRING} req.form_parameter ("title") as l_title then
+				Result.set_title (l_title.value)
+			end
+			if attached {WSF_STRING} req.form_parameter ("summary") as l_summary then
+				Result.set_summary (l_summary.value)
+			end
+			if attached {WSF_STRING} req.form_parameter ("content") as l_content then
+				Result.set_content (l_content.value)
+			end
+		end
+
+end

api/src/service/handler/node_summary_handler.e

@@ -0,0 +1,198 @@
+note
+	description: "Summary description for {NODE_SUMMARY_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_SUMMARY_HANDLER
+
+inherit
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+					-- Existing node
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						create l_page.make (req, "modules/node_summary.tpl")
+						l_page.set_value (l_node.summary, "summary")
+						l_page.set_value (roc_config.is_web, "web")
+						l_page.set_value (roc_config.is_html, "html")
+						l_page.set_value (l_id.value, "id")
+						l_page.send_to (res)
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						if attached {WSF_STRING} req.form_parameter ("method") as l_method then
+							if l_method.is_case_insensitive_equal ("PUT") then
+								do_put (req, res)
+							else
+								create l_page.make (req, "master2/error.tpl")
+								l_page.set_value ("500", "code")
+								l_page.set_value (req.absolute_script_url (req.path_info), "request")
+								l_page.send_to (res)
+							end
+						end
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						u_node := extract_data_form (req)
+						u_node.set_id (l_id.integer_value)
+						api_service.update_node_summary (u_node.id, u_node.summary)
+						(create {ROC_RESPONSE}.make (req, "")).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+			l_page: ROC_RESPONSE
+		do
+			create l_page.make (req, "master2/error.tpl")
+			if a_id.is_integer then
+				-- resource not found
+				l_page.set_value ("404", "code")
+			else
+				-- bad request
+				l_page.set_value ("400", "code")
+			end
+			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+			l_page.send_to(res)
+		end
+
+feature {NONE} -- Node
+
+	new_node (req: WSF_REQUEST; res: WSF_RESPONSE)
+		local
+			l_page: ROC_RESPONSE
+		do
+			create l_page.make (req, "modules/node.tpl")
+			l_page.send_to (res)
+		end
+
+feature -- {NONE} Form data
+
+
+	extract_data_form (req: WSF_REQUEST): CMS_NODE
+			-- Extract request form data and build a object
+			-- Node
+		do
+			create Result.make ("", "", "")
+			if attached {WSF_STRING}req.form_parameter ("summary") as l_summary then
+				Result.set_summary (l_summary.value)
+			end
+		end
+
+end

api/src/service/handler/node_title_handler.e

@@ -0,0 +1,198 @@
+note
+	description: "Summary description for {NODE_TITLE_HANDLER}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_TITLE_HANDLER
+
+inherit
+
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) as l_user then
+					-- Existing node
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						create l_page.make (req, "modules/node_title.tpl")
+						l_page.set_value (l_node.title, "title")
+						l_page.set_value (l_id.value, "id")
+						l_page.set_value (roc_config.is_web, "web")
+						l_page.set_value (roc_config.is_html, "html")
+						l_page.send_to (res)
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) as l_user then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						if attached {WSF_STRING} req.form_parameter ("method") as l_method then
+							if l_method.is_case_insensitive_equal ("PUT") then
+								do_put (req, res)
+							else
+								create l_page.make (req, "master2/error.tpl")
+								l_page.set_value ("500", "code")
+								l_page.set_value (req.absolute_script_url (req.path_info), "request")
+								l_page.send_to (res)
+							end
+						end
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req)  then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						u_node := extract_data_form (req)
+						u_node.set_id (l_id.integer_value)
+						api_service.update_node_title (u_node.id, u_node.title)
+						(create {ROC_RESPONSE}.make (req, "")).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					create l_page.make (req, "master2/error.tpl")
+					l_page.set_value ("500", "code")
+					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+					l_page.send_to (res)
+				end
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+			l_page: ROC_RESPONSE
+		do
+			create l_page.make (req, "master2/error.tpl")
+			if a_id.is_integer then
+					-- resource not found
+				l_page.set_value ("404", "code")
+			else
+					-- bad request
+				l_page.set_value ("400", "code")
+			end
+			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+			l_page.send_to (res)
+		end
+
+feature {NONE} -- Node
+
+	new_node (req: WSF_REQUEST; res: WSF_RESPONSE)
+		local
+			l_page: ROC_RESPONSE
+		do
+			create l_page.make (req, "modules/node.tpl")
+			l_page.send_to (res)
+		end
+
+feature -- {NONE} Form data
+
+	extract_data_form (req: WSF_REQUEST): CMS_NODE
+			-- Extract request form data and build a object
+			-- Node
+		do
+			create Result.make ("", "", "")
+			if attached {WSF_STRING} req.form_parameter ("title") as l_title then
+				Result.set_title (l_title.value)
+			end
+		end
+
+end

api/src/service/handler/nodes_handler.e

@@ -0,0 +1,62 @@
+note
+	description: "Summary description for {NODES_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODES_HANDLER
+
+inherit
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: ROC_RESPONSE
+		do
+
+			create l_page.make (req, "modules/nodes.tpl")
+			l_page.set_value (api_service.nodes, "nodes")
+			l_page.set_value (roc_config.is_web, "web")
+			l_page.set_value (roc_config.is_html, "html")
+			l_page.send_to (res)
+		end
+end

api/src/service/handler/roc_login_handler.e

@@ -0,0 +1,63 @@
+note
+	description: "Handle Login using Basic Authentication"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	ROC_LOGIN_HANDLER
+
+inherit
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_FILTER
+
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler.
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler.
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		do
+			if attached {STRING_32} current_user_name (req) as l_user then
+				(create {ROC_RESPONSE}.make(req,"")).new_response_redirect (req, res, req.absolute_script_url(""))
+			else
+				(create {ROC_RESPONSE}.make(req,"")).new_response_authenticate (req, res)
+			end
+		end
+
+
+
+end

api/src/service/handler/roc_logoff_handler.e

@@ -0,0 +1,59 @@
+note
+	description: "Handle Logoff for Basic Authentication"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	ROC_LOGOFF_HANDLER
+
+inherit
+
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler.
+		do
+			execute_methods (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler.
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		do
+				log.write_information(generator + ".do_get Processing logoff")
+			if attached req.query_parameter ("prompt") as l_prompt then
+				(create {ROC_RESPONSE}.make(req,"")).new_response_unauthorized (req, res)
+			else
+				(create {ROC_RESPONSE}.make(req,"master2/logoff.tpl")).new_response_denied (req, res)
+			end
+		end
+
+end

api/src/service/handler/roc_root_handler.e

@@ -0,0 +1,63 @@
+note
+	description: "ROOT_HANDLER."
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	ROC_ROOT_HANDLER
+
+inherit
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: ROC_RESPONSE
+		do
+
+			create l_page.make (req, "layout2.tpl")
+			l_page.set_value (api_service.recent_nodes (5), "nodes")
+			l_page.set_value (is_web, "web")
+			l_page.set_value (roc_config.is_html, "html")
+			l_page.send_to (res)
+		end
+
+end

api/src/service/handler/user_handler.e

@@ -0,0 +1,163 @@
+note
+	description: "Summary description for {USER_HANDLER}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	USER_HANDLER
+
+inherit
+
+	APP_ABSTRACT_HANDLER
+		rename
+			set_esa_config as make
+		end
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put,
+			do_delete
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: ROC_RESPONSE
+		do
+				-- Existing node
+			create l_page.make (req, "modules/register.tpl")
+			l_page.set_value (roc_config.is_web, "web")
+			l_page.set_value (roc_config.is_html, "html")
+			l_page.send_to (res)
+		end
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: ROC_RESPONSE
+		do
+				-- New user
+			api_service.new_user (extract_data_form (req))
+			if api_service.successful then
+				(create {ROC_RESPONSE}.make (req, "")).new_response_redirect (req, res, req.absolute_script_url (""))
+			else
+
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+		do
+		end
+
+	do_delete (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		do
+		end
+
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+			l_page: ROC_RESPONSE
+		do
+			create l_page.make (req, "master2/error.tpl")
+			if a_id.is_integer then
+					-- resource not found
+				l_page.set_value ("404", "code")
+			else
+					-- bad request
+				l_page.set_value ("400", "code")
+			end
+			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+			l_page.send_to (res)
+		end
+
+feature {NONE} -- Node
+
+	new_node (req: WSF_REQUEST; res: WSF_RESPONSE)
+		local
+			l_page: ROC_RESPONSE
+		do
+			if attached current_user_name (req) then
+				create l_page.make (req, "modules/node.tpl")
+				l_page.send_to (res)
+			else
+				(create {ROC_RESPONSE}.make (req, "")).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- {NONE} Form data
+
+	extract_data_form (req: WSF_REQUEST): CMS_USER
+			-- Extract request form data and build a object
+			-- user
+		do
+			create Result.make ("")
+			if attached {WSF_STRING} req.form_parameter ("username") as l_username then
+				Result.set_name (l_username)
+			end
+			if
+				attached {WSF_STRING} req.form_parameter ("password") as l_password and then
+				attached {WSF_STRING} req.form_parameter ("check_password") as l_check_password and then
+				l_password.value.is_case_insensitive_equal (l_check_password.value)
+			then
+				Result.set_password (l_password)
+			end
+			if attached {WSF_STRING} req.form_parameter ("email") as l_email then
+				Result.set_email (l_email)
+			end
+		end
+
+end

api/src/service/roc_api_service.e

@@ -0,0 +1,168 @@
+note
+	description: "API Service facade to the underlying business logic"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	ROC_API_SERVICE
+
+inherit
+
+	SHARED_ERROR
+
+
+create make_with_database
+
+
+feature -- Initialize
+
+	make_with_database (a_connection: DATABASE_CONNECTION)
+			-- Create the API service
+		require
+			is_connected: a_connection.is_connected
+		do
+			log.write_information (generator+".make_with_database is database connected?  "+ a_connection.is_connected.out )
+			create node_provider.make (a_connection)
+			create user_provider.make (a_connection)
+			post_node_provider_execution
+			post_user_provider_execution
+		end
+
+feature -- Access
+
+	login_valid (l_auth_login, l_auth_password: READABLE_STRING_32): BOOLEAN
+		local
+			l_security: SECURITY_PROVIDER
+		do
+			if attached user_provider.user_salt (l_auth_login) as l_hash then
+				if attached user_provider.user_by_name (l_auth_login) as l_user then
+					create l_security
+					if
+						attached l_user.password as l_password and then
+					   	l_security.password_hash (l_auth_password, l_hash).is_case_insensitive_equal (l_password)
+					then
+						Result := True
+					else
+						log.write_information (generator + ".login_valid User: wrong username or password" )
+					end
+				else
+					log.write_information (generator + ".login_valid User:" + l_auth_login + "does not exist" )
+				end
+			end
+			post_user_provider_execution
+		end
+
+	nodes: LIST[CMS_NODE]
+			-- List of nodes.
+		do
+			create {ARRAYED_LIST[CMS_NODE]} Result.make (0)
+			across node_provider.nodes as c loop
+				Result.force (c.item)
+			end
+			post_node_provider_execution
+		end
+
+	recent_nodes (a_rows: INTEGER): LIST[CMS_NODE]
+			-- List of the `a_rows' most recent nodes.
+		do
+			create {ARRAYED_LIST[CMS_NODE]} Result.make (0)
+			across node_provider.recent_nodes (0,a_rows) as c loop
+				Result.force (c.item)
+			end
+			post_node_provider_execution
+		end
+
+	node (a_id: INTEGER_64): detachable CMS_NODE
+			--
+		do
+			Result :=  node_provider.node (a_id)
+			post_node_provider_execution
+		end
+
+
+feature -- Node
+
+	new_node (a_node: CMS_NODE)
+			-- Add a new node
+		do
+			node_provider.new_node (a_node)
+			post_node_provider_execution
+		end
+
+	delete_node (a_id: INTEGER_64)
+		do
+			node_provider.delete_node (a_id)
+			post_node_provider_execution
+		end
+
+	update_node (a_node: CMS_NODE)
+		do
+			node_provider.update_node (a_node)
+			post_node_provider_execution
+		end
+
+	update_node_title (a_id: INTEGER_64; a_title: READABLE_STRING_32)
+		do
+			node_provider.update_node_title (a_id, a_title)
+			post_node_provider_execution
+		end
+
+	update_node_summary (a_id: INTEGER_64; a_summary: READABLE_STRING_32)
+		do
+			node_provider.update_node_summary (a_id, a_summary)
+			post_node_provider_execution
+		end
+
+	update_node_content (a_id: INTEGER_64; a_content: READABLE_STRING_32)
+		do
+			node_provider.update_node_content (a_id, a_content)
+			post_node_provider_execution
+		end
+
+
+feature -- User
+
+	new_user (a_user: CMS_USER)
+			-- Add a new user `a_user'.
+		do
+			if
+				attached a_user.password as l_password and then
+				attached a_user.email as l_email
+			then
+				user_provider.new_user (a_user.name, l_password, l_email)
+			else
+				-- set error
+			end
+		end
+
+feature {NONE} -- Post process
+
+	post_node_provider_execution
+		do
+			if node_provider.successful then
+				set_successful
+			else
+				if attached node_provider.last_error then
+					set_last_error_from_handler (node_provider.last_error)
+				end
+			end
+		end
+
+	post_user_provider_execution
+		do
+			if user_provider.successful then
+				set_successful
+			else
+				if attached user_provider.last_error then
+					set_last_error_from_handler (user_provider.last_error)
+				end
+			end
+		end
+
+	node_provider: NODE_DATA_PROVIDER
+			-- Node Data provider.
+
+	user_provider: USER_DATA_PROVIDER
+			-- User Data provider.
+
+end

api/src/service/roc_email_service.e

@@ -0,0 +1,127 @@
+note
+	description: "Provides email access"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	ROC_EMAIL_SERVICE
+
+inherit
+
+	SHARED_ERROR
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_smtp_server: READABLE_STRING_32)
+			-- Create an instance of {ESA_EMAIL_SERVICE} with an smtp_server `a_smtp_server'.
+			-- Using "noreplies@eiffel.com" as admin email.
+		local
+			l_address_factory: INET_ADDRESS_FACTORY
+		do
+					-- Get local host name needed in creation of SMTP_PROTOCOL.
+			create l_address_factory
+			create smtp_protocol.make (a_smtp_server, l_address_factory.create_localhost.host_name)
+			set_successful
+		end
+
+	admin_email: IMMUTABLE_STRING_8
+			-- Administrator email.
+		once
+			Result := "noreplies@eiffel.com"
+		end
+
+	webmaster_email: IMMUTABLE_STRING_8
+			-- Webmaster email.
+		once
+			Result := "webmaster@eiffel.com"
+		end
+
+	smtp_protocol: SMTP_PROTOCOL
+			-- SMTP protocol.
+
+feature -- Basic Operations
+
+	send_template_email (a_to, a_token, a_host: STRING)
+			-- Send successful registration message containing activation code `a_token' to `a_to'.
+		require
+			attached_to: a_to /= Void
+			attached_token: a_token /= Void
+			attached_host: a_host /= Void
+		local
+			l_content: STRING
+			l_url: URL_ENCODER
+ 			l_path: PATH
+			l_html: HTML_ENCODER
+			l_email: EMAIL
+		do
+			if successful then
+				log.write_information (generator + ".send_post_registration_email to [" + a_to + "]" )
+				create l_path.make_current
+				create l_url
+				create l_html
+				create l_content.make (1024)
+				l_content.append ("Thank you for registering at CMS.%N%NTo complete your registration, please click on this link to activate your account:%N%N")
+				l_content.append (a_host)
+				l_content.append ("/activation?code=")
+				l_content.append (l_url.encoded_string (a_token))
+				l_content.append ("&email=")
+				l_content.append (l_url.encoded_string (a_to))
+				l_content.append ("%N%NOnce there, please enter the following information and then click the Activate Account, button.%N%N")
+				l_content.append ("Your e-mail: ")
+				l_content.append (l_html.encoded_string (a_to))
+				l_content.append ("%N%NYour activation code: ")
+				l_content.append (l_html.encoded_string(a_token))
+				l_content.append ("%N%NThank you for joining us.%N%N CMS team.")
+				l_content.append (Disclaimer)
+					-- Create our message.
+				create l_email.make_with_entry (admin_email, a_to)
+				l_email.set_message (l_content)
+				l_email.add_header_entry ({EMAIL_CONSTANTS}.H_subject, "CMS Site: Account Activation")
+				send_email (l_email)
+			end
+		end
+
+	send_shutdown_email (a_message: READABLE_STRING_GENERAL)
+			-- Send email shutdown cause by an unexpected condition.
+		local
+			l_email: EMAIL
+			l_content: STRING
+		do
+			create l_email.make_with_entry (admin_email, webmaster_email)
+			create l_content.make (2048)
+			l_content.append (a_message.as_string_32)
+			l_email.set_message (l_content)
+			l_email.add_header_entry ({EMAIL_CONSTANTS}.H_subject, "ROC API exception")
+			send_email (l_email)
+		end
+
+feature {NONE} -- Implementation
+
+	send_email (a_email: EMAIL)
+			-- Send the email represented by `a_email'.
+		local
+			l_retried: BOOLEAN
+		do
+			if not l_retried then
+				log.write_information (generator + ".send_email Process send email.")
+				smtp_protocol.initiate_protocol
+				smtp_protocol.transfer (a_email)
+				smtp_protocol.close_protocol
+				log.write_information (generator + ".send_email Email sent.")
+				set_successful
+			else
+				log.write_error (generator + ".send_email Email not send" + last_error_message )
+			end
+		rescue
+			set_last_error_from_exception (generator + ".send_email")
+			l_retried := True
+			retry
+		end
+
+	Disclaimer: STRING = "This email is generated automatically, and the address is not monitored for responses. If you try contacting us by using %"reply%", you will not receive an answer."
+		-- Email not monitored disclaimer.
+
+end

api/src/service/roc_rest_api.e

@@ -0,0 +1,185 @@
+note
+	description: "[
+				REST API configuration
+				We manage URI and Uri templates using Routers. They are used to delegate calls (to the corresponing handlers) based on a URI template. 
+				We define a Rooter and attach handlers to it.
+	]"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	ROC_REST_API
+
+inherit
+
+	ROC_ABSTRACT_API
+
+create
+	make
+
+feature -- Initialization
+
+	setup_router
+			-- Setup `router'.
+		local
+			fhdl: WSF_FILE_SYSTEM_HANDLER
+		do
+			configure_api_root
+			configure_api_node
+			configure_api_navigation
+			configure_api_login
+			configure_api_nodes
+			configure_api_node_title
+			configure_api_node_summary
+			configure_api_node_content
+			configure_api_logoff
+			configure_api_register
+
+
+			create fhdl.make_hidden_with_path (layout.www_path)
+			fhdl.disable_index
+			fhdl.set_not_found_handler (agent  (ia_uri: READABLE_STRING_8; ia_req: WSF_REQUEST; ia_res: WSF_RESPONSE)
+				do
+					execute_default (ia_req, ia_res)
+				end)
+			router.handle_with_request_methods ("/", fhdl, router.methods_GET)
+		end
+
+feature -- Configure Resources Routes
+
+	configure_api_root
+		local
+			l_root_handler:ROC_ROOT_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_root_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			router.handle_with_request_methods ("/", l_root_handler, l_methods)
+		end
+
+	configure_api_node
+		local
+			l_report_handler: NODE_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/node", l_report_handler, l_methods)
+
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			l_methods.enable_delete
+			router.handle_with_request_methods ("/node/{id}", l_report_handler, l_methods)
+		end
+
+	configure_api_navigation
+		local
+			l_report_handler: NAVIGATION_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			router.handle_with_request_methods ("/navigation", l_report_handler, l_methods)
+		end
+
+	configure_api_login
+		local
+			l_report_handler: ROC_LOGIN_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			router.handle_with_request_methods ("/login", l_report_handler, l_methods)
+		end
+
+	configure_api_logoff
+		local
+			l_report_handler: ROC_LOGOFF_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			router.handle_with_request_methods ("/logoff", l_report_handler, l_methods)
+		end
+
+
+	configure_api_nodes
+		local
+			l_report_handler: NODES_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			router.handle_with_request_methods ("/nodes", l_report_handler, l_methods)
+		end
+
+
+	configure_api_node_summary
+		local
+			l_report_handler: NODE_SUMMARY_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/node/{id}/summary", l_report_handler, l_methods)
+		end
+
+
+	configure_api_node_title
+		local
+			l_report_handler: NODE_TITLE_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/node/{id}/title", l_report_handler, l_methods)
+		end
+
+
+	configure_api_node_content
+		local
+			l_report_handler: NODE_CONTENT_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/node/{id}/content", l_report_handler, l_methods)
+		end
+
+
+	configure_api_register
+		local
+			l_report_handler: USER_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (roc_config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/user", l_report_handler, l_methods)
+		end
+
+
+
+end

api/src/service/shared_conneg_helper.e

@@ -0,0 +1,48 @@
+note
+	description: "Conneg Helper"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	SHARED_CONNEG_HELPER
+
+
+feature -- Access
+
+	conneg (req: WSF_REQUEST): SERVER_CONTENT_NEGOTIATION
+			-- Content negotiatior for all requests.
+		once
+			create Result.make ({HTTP_MIME_TYPES}.text_html, "en", "UTF-8", "identity")
+		end
+
+	mime_types_supported (req: WSF_REQUEST): LIST [STRING]
+			-- All values for Accept header that `Current' can serve.
+		do
+			create {ARRAYED_LIST [STRING]} Result.make_from_array (<<{HTTP_MIME_TYPES}.text_html, "application/vnd.collection+json">>)
+			Result.compare_objects
+		ensure
+			mime_types_supported_includes_default: Result.has (conneg (req).default_media_type)
+		end
+
+	media_type_variants (req: WSF_REQUEST): HTTP_ACCEPT_MEDIA_TYPE_VARIANTS
+			-- Media type negotiation.
+		do
+			Result := conneg (req).media_type_preference (mime_types_supported (req), req.http_accept)
+		end
+
+	compression_supported (req: WSF_REQUEST): LIST [STRING]
+			-- All values for Accept-Encofing header that `Current' can serve.
+		do
+				create {ARRAYED_LIST [STRING]} Result.make_from_array (<<"identity","deflate">>)
+				Result.compare_objects
+		ensure
+				compression_supported_includes_default: Result.has (conneg (req).default_encoding)
+		end
+
+	compression_variants (req: WSF_REQUEST): HTTP_ACCEPT_ENCODING_VARIANTS
+			-- Compression negotiation.
+		do
+			Result := conneg (req).encoding_preference (compression_supported (req), req.http_accept_encoding)
+		end
+
+end

api/src/validator/roc_input_validator.e

@@ -0,0 +1,58 @@
+note
+	description: "Provide input validation"
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+deferred class
+	ROC_INPUT_VALIDATOR
+
+feature -- Basic Operations
+
+	input_from (a_request: ITERABLE [WSF_VALUE])
+			-- Update current object using parameters extracted from QUERY_STRING.
+			-- If there are errors they are set to the errors parameter.
+		do
+			if attached {STRING_TABLE[WSF_VALUE]} a_request as l_table_request then
+				validate (l_table_request)
+			end
+		end
+
+feature -- Validation
+
+	validate (a_request: STRING_TABLE [WSF_VALUE])
+			-- Validate input for control `a_request'.
+		deferred
+		end
+
+
+feature -- Access
+
+	acceptable_query_parameters: ARRAY[STRING]
+			-- The parameters are optionals, more parameters is a bad request, the order is not important.
+		deferred
+		end
+
+feature -- Errors
+
+	errors: STRING_TABLE[READABLE_STRING_32]
+			-- Hash table with errors and descriptions.	
+
+	has_error: BOOLEAN
+			-- Has errors the last request?
+		do
+			Result := not errors.is_empty
+		end
+
+	error_message: STRING
+			-- String representation.
+		do
+			create Result.make_empty
+			across errors as c loop
+				Result.append (c.item)
+				Result.append ("%N")
+			end
+		end
+
+
+
+end -- class EFA_INPUT_VALIDATOR

layout/Readme.md

@@ -0,0 +1,13 @@
+Layout Library
+==============
+
+Define a generic layout to be re-used by different applications.
+
+site/
+	  doc/
+	  logs/
+      www/
+      	  assets
+      	  template
+      	  theme
+      config/  

layout/layout.ecf

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-13-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-13-0 http://www.eiffel.com/developers/xml/configuration-1-13-0.xsd" name="layout" uuid="7AE9E48B-5A15-43F8-B99A-04F4185DED6B" library_target="layout">
+	<target name="layout">
+		<root all_classes="true"/>
+		<option warning="true">
+			<assertions precondition="true" postcondition="true" check="true" invariant="true" loop="true" supplier_precondition="true"/>
+		</option>
+		<setting name="console_application" value="true"/>
+		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
+		<library name="json" location="$ISE_LIBRARY\contrib\library\text\parser\json\library\json-safe.ecf" readonly="false"/>
+		<library name="logging" location="$ISE_LIBRARY\library\runtime\logging\logging-safe.ecf"/>
+		<library name="thread" location="$ISE_LIBRARY\library\thread\thread-safe.ecf"/>
+		<cluster name="src" location=".\src\" recursive="true">
+			<file_rule>
+				<exclude>/EIFGENs$</exclude>
+				<exclude>/CVS$</exclude>
+				<exclude>/.svn$</exclude>
+			</file_rule>
+		</cluster>
+	</target>
+</system>

layout/src/application_layout.e

@@ -0,0 +1,80 @@
+note
+	description: "[API Layout, to provide paths(config, application, log, documentation, www, html cj)]"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	APPLICATION_LAYOUT
+
+create
+	make_default,
+	make_with_path
+
+feature {NONE} -- Initialization
+
+	make_default
+			-- Create a default layout based on current working directory.
+		local
+			p: PATH
+		do
+			create p.make_current
+			p := p.extended ("site")
+			make_with_path (p)
+		end
+
+	make_with_path (p: PATH)
+			-- Create a layour based on a path `p'.
+		do
+			path := p.absolute_path.canonical_path
+		end
+
+feature -- Access
+
+	path: PATH
+
+feature -- Access: internal
+
+	config_path: PATH
+			-- Configuration file path.
+		once
+			Result := path.extended ("config")
+		end
+
+	application_config_path: PATH
+			-- Database Configuration file path.
+		once
+			Result := config_path.extended ("application_configuration.json")
+		end
+
+	logs_path: PATH
+			-- Directory for logs.
+		once
+			Result := path.extended ("logs")
+		end
+
+	documentation_path: PATH
+			-- Directory for API documentation.
+		once
+			Result := path.extended ("doc")
+		end
+
+	www_path: PATH
+			-- Directory for www.
+		once
+			Result := path.extended ("www")
+		end
+
+	assets_path: PATH
+			-- Directory for public assets.
+			-- css, images, js.
+		once
+			Result := path.extended ("www").extended ("assets")
+		end
+
+	template_path: PATH
+			-- Directory for templates (HTML, etc).
+		once
+			Result := www_path.extended ("template")
+		end
+
+end

layout/src/configuration/database_configuration.e

@@ -0,0 +1,39 @@
+note
+	description: "Object that represent Database configuration settings"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATABASE_CONFIGURATION
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_driver: READABLE_STRING_32; a_connection: READABLE_STRING_32)
+			-- Create a database configuration setting: `driver' with `a_driver',
+			-- `database_string' with `a_connection'.
+		do
+			driver := a_driver
+			database_string := a_connection
+		ensure
+			driver_set: driver = a_driver
+			server_set: database_string = a_connection
+		end
+
+feature -- Access
+
+	driver: READABLE_STRING_32
+		--Database driver.
+
+	database_string: READABLE_STRING_32
+		-- Database connection.	
+
+	connection_string: READABLE_STRING_32
+			-- Connection string
+		do
+			Result := "Driver={"+driver+"};" + database_string;
+		end
+
+end

layout/src/configuration/json_configuration.e

@@ -0,0 +1,100 @@
+note
+	description: "Provide access to json configuration"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	JSON_CONFIGURATION
+
+feature -- Application Configuration
+
+	new_smtp_configuration (a_path: PATH): READABLE_STRING_32
+			-- Build a new database configuration.
+		local
+			l_parser: JSON_PARSER
+		do
+			Result := ""
+			if attached json_file_from (a_path) as json_file then
+			 l_parser := new_json_parser (json_file)
+			 if  attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
+			     attached {JSON_OBJECT} jv.item ("smtp") as l_smtp and then
+			     attached {JSON_STRING} l_smtp.item ("server") as l_server then
+			     Result := l_server.item
+			 end
+			end
+		end
+
+	new_database_configuration (a_path: PATH): detachable DATABASE_CONFIGURATION
+			-- Build a new database configuration.
+		local
+			l_parser: JSON_PARSER
+		do
+			if attached json_file_from (a_path) as json_file then
+			 l_parser := new_json_parser (json_file)
+			 if  attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
+			     attached {JSON_OBJECT} jv.item ("database") as l_database and then
+			     attached {JSON_OBJECT} l_database.item ("datasource") as l_datasource and then
+			     attached {JSON_STRING} l_datasource.item ("driver") as l_driver and then
+			     attached {JSON_STRING} l_datasource.item ("environment") as l_envrionment and then
+			     attached {JSON_OBJECT} l_database.item ("environments") as l_environments and then
+				 attached {JSON_OBJECT} l_environments.item (l_envrionment.item) as l_environment_selected and then
+				 attached {JSON_STRING} l_environment_selected.item ("connection_string") as l_connection_string then
+				create Result.make (l_driver.item, l_connection_string.unescaped_string_8)
+			 end
+			end
+		end
+
+
+	new_logger_level_configuration (a_path: PATH): READABLE_STRING_32
+			-- Retrieve a new logger level configuration.
+			-- By default, level is set to `DEBUG'.
+		local
+			l_parser: JSON_PARSER
+		do
+			Result := "DEBUG"
+			if attached json_file_from (a_path) as json_file then
+			 l_parser := new_json_parser (json_file)
+			 if  attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
+			     attached {JSON_OBJECT} jv.item ("logger") as l_logger and then
+			     attached {JSON_STRING} l_logger.item ("level") as l_level then
+			     Result := l_level.item
+			 end
+			end
+		end
+
+	new_database_configuration_test (a_path: PATH): detachable DATABASE_CONFIGURATION
+			-- Build a new database configuration for testing purposes.
+		local
+			l_parser: JSON_PARSER
+		do
+			if attached json_file_from (a_path) as json_file then
+			 l_parser := new_json_parser (json_file)
+			 if  attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
+			     attached {JSON_OBJECT} jv.item ("database") as l_database and then
+			     attached {JSON_OBJECT} l_database.item ("datasource") as l_datasource and then
+			     attached {JSON_STRING} l_datasource.item ("driver") as l_driver and then
+			     attached {JSON_STRING} l_datasource.item ("environment") as l_envrionment and then
+			     attached {JSON_STRING} l_datasource.item ("trusted") as l_trusted and then
+			     attached {JSON_OBJECT} l_database.item ("environments") as l_environments and then
+				 attached {JSON_OBJECT} l_environments.item ("test") as l_environment_selected and then
+				 attached {JSON_STRING} l_environment_selected.item ("connection_string") as l_connection_string and then
+				 attached {JSON_STRING} l_environment_selected.item ("name") as l_name then
+				create Result.make (l_driver.item, l_connection_string.unescaped_string_8)
+			 end
+			end
+		end
+
+
+feature {NONE} -- JSON
+
+	json_file_from (a_fn: PATH): detachable STRING
+		do
+			Result := (create {JSON_FILE_READER}).read_json_from (a_fn.name.out)
+		end
+
+	new_json_parser (a_string: STRING): JSON_PARSER
+		do
+			create Result.make_parser (a_string)
+		end
+
+end

layout/src/configuration/logger_configuration.e

@@ -0,0 +1,80 @@
+note
+	description: "Object that represent Logger configuration settings"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	LOGGER_CONFIGURATION
+
+inherit
+	LOG_PRIORITY_CONSTANTS
+		rename
+			default_create as log_default_create
+		end
+	ANY
+		redefine
+			default_create
+		select
+			default_create
+		end
+
+create
+	default_create
+
+feature -- Initialization
+
+	default_create
+			-- Initialize a Logger Instance configuration with default values
+			-- backups = `4' and level = `DEBUG'.
+		do
+			backup_count := 4
+			level := Log_debug
+		ensure then
+			backup_count_set: backup_count = 4
+			level_set: level = Log_debug
+		end
+
+feature -- Access
+
+	backup_count: NATURAL
+			-- Max number of backup files.
+			-- When 0, no backup files are created, and the log file is simply truncated when it becomes larger than `max_file_size'.
+			-- When non-zero, the value specifies the maximum number of backup files.
+
+	level: INTEGER
+		-- Logger level.
+
+feature -- Element Change
+
+	set_backup_count (a_backup: NATURAL)
+			-- Set backup_count to `a_backup'.
+		do
+			backup_count := a_backup
+		ensure
+			backup_count_set: backup_count = a_backup
+		end
+
+	set_level (a_level: READABLE_STRING_GENERAL)
+			-- Set a level  based on `a_level'.
+		do
+			if a_level.is_case_insensitive_equal (emerg_str)  then
+				level := log_emergency
+			elseif a_level.is_case_insensitive_equal (alert_str)  then
+				level := log_alert
+			elseif a_level.is_case_insensitive_equal (crit_str)  then
+				level := log_critical
+			elseif a_level.is_case_insensitive_equal (error_str)  then
+				level := log_error
+			elseif a_level.is_case_insensitive_equal (warn_str)  then
+				level := log_warning
+			elseif a_level.is_case_insensitive_equal (notic_str)  then
+				level := log_notice
+			elseif a_level.is_case_insensitive_equal (info_str)  then
+				level := log_information
+			elseif a_level.is_case_insensitive_equal (debug_str)  then
+				level := log_debug
+			else
+				level := 0
+			end
+		end
+end

layout/src/error/error_handler.e

@@ -0,0 +1,51 @@
+note
+	description: "Object handling error information"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	ERROR_HANDLER
+
+create
+	make
+
+feature -- Initialization
+
+	make (a_error_message: READABLE_STRING_32; a_error_location: READABLE_STRING_32)
+			-- Create an object error, set `error_message' to `a_error_message'
+			-- set `error_location' to `a_error_location'.
+		do
+			set_error_message (a_error_message)
+			set_error_location (a_error_location)
+		ensure
+			error_message_set:  error_message = a_error_message
+			error_location_set: error_location = a_error_location
+		end
+
+feature -- Access
+
+	error_message: READABLE_STRING_32
+			-- Message.
+
+	error_location: READABLE_STRING_32
+			-- Code to represent an error.
+
+feature -- Change Element
+
+	set_error_message (a_message: like error_message)
+			-- Set error_message with `a_message'.
+		do
+			error_message := a_message
+		ensure
+			message_set: error_message = a_message
+		end
+
+	set_error_location (a_location: READABLE_STRING_32)
+			-- Set error_location with `a_location'.
+		do
+			error_location := a_location
+		ensure
+			error_location_set: error_location = a_location
+		end
+
+end

layout/src/error/shared_error.e

@@ -0,0 +1,105 @@
+note
+	description: "Provides error information"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	SHARED_ERROR
+
+inherit
+
+	SHARED_LOGGER
+
+feature -- Access
+
+	last_error: detachable ERROR_HANDLER
+			-- Object represent last error.
+
+	last_error_message: READABLE_STRING_32
+			-- Last error string representation.
+		do
+			if attached last_error as ll_error then
+				Result := ll_error.error_message
+			else
+				Result := ""
+			end
+		end
+
+feature -- Status Report
+
+	successful: BOOLEAN
+			-- Was last operation successful?
+			-- If not, `last_error' must be set.
+
+feature -- Element Settings
+
+	set_last_error_from_exception (a_location: STRING)
+			-- Initialize instance from last exception.
+			-- Don't show too much internal details (e.g. stack trace).
+			-- We really don't want this to fail since it is called from rescue clauses.
+		require
+			attached_location: a_location /= Void
+		local
+			l_exceptions: EXCEPTIONS
+			l_message: STRING
+			l_tag: detachable STRING
+			l_retried: BOOLEAN
+		do
+			if not l_retried then
+				create l_exceptions
+				create l_message.make (256)
+				l_tag := l_exceptions.tag_name
+				if l_tag /= Void then
+					l_message.append ("The following exception was raised: ")
+					l_message.append (l_tag)
+				else
+					l_message.append ("An unknown exception was raised.")
+				end
+				set_last_error (l_message, a_location)
+				log.write_critical (generator + ".set_last_error_from_exception " + l_message)
+			else
+				set_last_error ("Generic error", "")
+				log.write_critical (generator + ".set_last_error_from_exception Generic Error")
+			end
+		rescue
+			l_retried := True
+			retry
+		end
+
+	set_last_error (a_message, a_location: STRING)
+			-- Set `last_error_message' with `a_message',
+			-- `last_error_location' with `a_location' and
+			-- `successful' to `False'.
+		require
+			attached_message: a_message /= Void
+			attached_location: a_location /= Void
+		do
+			create last_error.make (a_message, a_location)
+			log.write_critical (generator + ".set_last_error " + a_message)
+			successful := False
+		ensure
+			last_error_set: attached last_error
+			failed: not successful
+		end
+
+	set_last_error_from_handler (a_error: detachable ERROR_HANDLER)
+			-- Set `last_error' with `a_error'.
+		do
+			last_error := a_error
+			successful := False
+		ensure
+			last_error_set: attached last_error
+			failed: not successful
+		end
+
+	set_successful
+			-- Reset `last_error_message' and `last_error_location' and
+			-- set `successful' to `True'.
+		do
+			last_error := Void
+			successful := True
+		ensure
+			last_error__reset: last_error = Void
+			successful: successful
+		end
+end

layout/src/logger/logging_facility.e

@@ -0,0 +1,137 @@
+note
+	description: "Wrapper class providing synchronize logging access."
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	LOGGING_FACILITY
+
+create
+	make
+
+feature -- Initialization
+
+	make
+		do
+			create logging.make
+		end
+
+feature -- Access
+
+	logging:  LOG_LOGGING_FACILITY
+
+
+	register_log_writer (a_log_writer: LOG_WRITER)
+			-- -- Register the non-default log writer `a_log_writer'.
+		do
+			logging.register_log_writer (a_log_writer)
+		end
+
+feature -- Output
+
+
+	write_alert (msg: STRING)
+			-- Write `msg' to the log writers as an alert.
+		local
+			l_retry: BOOLEAN
+		do
+			if not l_retry then
+				logging.write_alert (msg)
+			end
+		rescue
+			l_retry := True
+			retry
+		end
+
+	write_critical (msg: STRING)
+			-- Write `msg' to the log writers as an critical
+		local
+			l_retry: BOOLEAN
+		do
+			if not l_retry then
+				logging.write_critical (msg)
+			end
+		rescue
+			l_retry := True
+			retry
+		end
+
+	write_debug (msg: STRING)
+			-- Write `msg' to the log writers as an debug.
+		local
+			l_retry: BOOLEAN
+		do
+			if not l_retry then
+				logging.write_debug (msg)
+			end
+		rescue
+			l_retry := True
+			retry
+
+		end
+
+	write_emergency (msg: STRING)
+			-- Write `msg' to the log writers as an emergency.
+		local
+			l_retry: BOOLEAN
+		do
+			if not l_retry then
+				logging.write_emergency (msg)
+			end
+		rescue
+			l_retry := True
+			retry
+		end
+
+	write_error (msg: STRING)
+			-- Write `msg' to the log writers as an error.
+		local
+			l_retry: BOOLEAN
+		do
+			if not l_retry then
+				logging.write_error (msg)
+			end
+		rescue
+			l_retry := True
+			retry
+		end
+
+	write_information (msg: STRING)
+			-- Write `msg' to the log writers as an information.
+		local
+			l_retry: BOOLEAN
+		do
+			if not l_retry then
+				logging.write_information (msg)
+			end
+		rescue
+			l_retry := True
+			retry
+		end
+
+	write_notice (msg: STRING)
+			-- Write `msg' to the log writers as an notice.
+		local
+			l_retry: BOOLEAN
+		do
+			if not l_retry then
+				logging.write_notice (msg)
+			end
+		rescue
+			l_retry := True
+			retry
+		end
+
+	write_warning (msg: STRING)
+			-- Write `msg' to the log writers as an warning.
+		local
+			l_retry: BOOLEAN
+		do
+			if not l_retry then
+				logging.write_warning (msg)
+			end
+		rescue
+			l_retry := True
+			retry
+		end
+end

layout/src/logger/shared_logger.e

@@ -0,0 +1,109 @@
+note
+	description: "Provides logger information"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	SHARED_LOGGER
+
+inherit
+	LOG_PRIORITY_CONSTANTS
+
+	ARGUMENTS
+
+feature -- Logger
+
+
+	log: LOGGING_FACILITY
+			-- New `log' (once per process)
+            -- that could be shared between threads
+            -- without reinitializing it.
+		local
+			l_log_writer: LOG_ROLLING_WRITER_FILE
+			l_environment: EXECUTION_ENVIRONMENT
+			l_path: PATH
+			l_logger_config: LOGGER_CONFIGURATION
+		once ("PROCESS")
+					--| Initialize the logging facility
+			create Result.make
+			create l_environment
+			if attached separate_character_option_value ('d') as l_dir then
+				l_path := create {PATH}.make_from_string (l_dir)
+				create l_log_writer.make_at_location (l_path.extended ("..").appended ("\api.log"))
+			else
+				l_path := create {PATH}.make_current
+				create l_log_writer.make_at_location (l_path.extended("api.log"))
+			end
+			l_log_writer.set_max_file_size ({NATURAL_64}1024*1204)
+			if attached separate_character_option_value ('d') as l_dir then
+				l_logger_config := new_logger_level_configuration (l_path.extended("config").extended ("application_configuration.json"))
+			else
+				l_logger_config := new_logger_level_configuration (l_path.extended ("site").extended("config").extended ("application_configuration.json"))
+			end
+			l_log_writer.set_max_backup_count (l_logger_config.backup_count)
+			set_logger_level (l_log_writer, l_logger_config.level)
+			log.register_log_writer (l_log_writer)
+
+					--| Write an informational message
+			Result.write_information ("The application is starting up...")
+		end
+
+feature {NONE} -- JSON
+
+	set_logger_level (a_log_writer: LOG_ROLLING_WRITER_FILE; a_priority: INTEGER)
+			-- Setup the logger level based on `a_priority'
+		do
+			if a_priority = log_debug then
+				a_log_writer.enable_debug_log_level
+			elseif a_priority = Log_emergency then
+				a_log_writer.enable_emergency_log_level
+			elseif a_priority = Log_alert then
+				a_log_writer.enable_alert_log_level
+			elseif a_priority = Log_critical then
+				a_log_writer.enable_critical_log_level
+			elseif a_priority = Log_error then
+				a_log_writer.enable_error_log_level
+			elseif a_priority = Log_warning then
+				a_log_writer.enable_warning_log_level
+			elseif a_priority = Log_notice then
+				a_log_writer.enable_notice_log_level
+			elseif a_priority = Log_information then
+				a_log_writer.enable_information_log_level
+			else
+				a_log_writer.enable_unkno_log_level
+			end
+		end
+
+	new_logger_level_configuration (a_path: PATH): LOGGER_CONFIGURATION
+			-- Retrieve a new logger level configuration.
+			-- By default, level is set to `DEBUG'.
+		local
+			l_parser: JSON_PARSER
+		do
+			create Result
+			if attached json_file_from (a_path) as json_file then
+			 l_parser := new_json_parser (json_file)
+			 if  attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
+			     attached {JSON_OBJECT} jv.item ("logger") as l_logger and then
+			     attached {JSON_STRING} l_logger.item ("backup_count") as l_count and then
+			     attached {JSON_STRING} l_logger.item ("level") as l_level then
+			     Result.set_level (l_level.item)
+			     if l_count.item.is_natural then
+			     	Result.set_backup_count (l_count.item.to_natural)
+			     end
+			 end
+			end
+		end
+
+
+	json_file_from (a_fn: PATH): detachable STRING
+		do
+			Result := (create {JSON_FILE_READER}).read_json_from (a_fn.name.out)
+		end
+
+	new_json_parser (a_string: STRING): JSON_PARSER
+		do
+			create Result.make_parser (a_string)
+		end
+
+end

persistence/persistence.ecf

@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-13-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-13-0 http://www.eiffel.com/developers/xml/configuration-1-13-0.xsd" name="persistance" uuid="DC757CBD-D8C4-44D6-A07F-C1148D8D233E" library_target="persistance">
+	<target name="persistance">
+		<root all_classes="true"/>
+		<option warning="true" void_safety="all">
+			<assertions precondition="true" postcondition="true" check="true" invariant="true" loop="true" supplier_precondition="true"/>
+		</option>
+		<setting name="console_application" value="true"/>
+		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
+		<library name="crypto" location="$ISE_LIBRARY\unstable\library\text\encryption\crypto\crypto-safe.ecf"/>
+		<library name="encoder" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\text\encoder\encoder-safe.ecf"/>
+		<library name="json" location="$ISE_LIBRARY\contrib\library\text\parser\json\library\json-safe.ecf" readonly="false"/>
+		<library name="layout" location="..\layout\layout.ecf"/>
+		<library name="logging" location="$ISE_LIBRARY\library\runtime\logging\logging-safe.ecf"/>
+		<library name="mysql" location="$ISE_LIBRARY\library\store\dbms\rdbms\mysql\mysql-safe.ecf"/>
+		<library name="store" location="$ISE_LIBRARY\library\store\store-safe.ecf" readonly="false"/>
+		<library name="thread" location="$ISE_LIBRARY\library\thread\thread-safe.ecf"/>
+		<library name="time" location="$ISE_LIBRARY\library\time\time-safe.ecf"/>
+		<cluster name="persistance" location=".\src\" recursive="true">
+			<file_rule>
+				<exclude>/EIFGENs$</exclude>
+				<exclude>/CVS$</exclude>
+				<exclude>/.svn$</exclude>
+			</file_rule>
+		</cluster>
+	</target>
+</system>

persistence/scripts/Readme.txt

@@ -0,0 +1 @@
+Added Stored Procedures

persistence/scripts/create_database.sql

@@ -0,0 +1,105 @@
+SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS, UNIQUE_CHECKS=0;
+SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0;
+SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='TRADITIONAL,ALLOW_INVALID_DATES';
+
+-- -----------------------------------------------------
+-- Schema cms
+-- -----------------------------------------------------
+CREATE SCHEMA IF NOT EXISTS `cms` DEFAULT CHARACTER SET latin1 ;
+USE `cms` ;
+
+-- -----------------------------------------------------
+-- Table `cms`.`nodes`
+-- -----------------------------------------------------
+CREATE TABLE IF NOT EXISTS `cms`.`nodes` (
+  `id` SMALLINT(5) UNSIGNED NOT NULL AUTO_INCREMENT,
+  `publication_date` DATE NOT NULL,
+  `creation_date` DATE NOT NULL,
+  `modification_date` DATE NOT NULL,
+  `title` VARCHAR(255) NOT NULL,
+  `summary` TEXT NOT NULL,
+  `content` MEDIUMTEXT NOT NULL,
+  PRIMARY KEY (`id`))
+ENGINE = InnoDB
+AUTO_INCREMENT = 1
+DEFAULT CHARACTER SET = latin1;
+
+
+-- -----------------------------------------------------
+-- Table `cms`.`roles`
+-- -----------------------------------------------------
+CREATE TABLE IF NOT EXISTS `cms`.`roles` (
+  `id` INT(10) UNSIGNED NOT NULL AUTO_INCREMENT,
+  `role` VARCHAR(100) NOT NULL,
+  PRIMARY KEY (`id`),
+  UNIQUE INDEX `role` (`role` ASC))
+ENGINE = InnoDB
+AUTO_INCREMENT = 1
+DEFAULT CHARACTER SET = latin1;
+
+
+-- -----------------------------------------------------
+-- Table `cms`.`users`
+-- -----------------------------------------------------
+CREATE TABLE IF NOT EXISTS `cms`.`users` (
+  `id` INT(10) UNSIGNED NOT NULL AUTO_INCREMENT,
+  `username` VARCHAR(100) NOT NULL,
+  `password` VARCHAR(100) NOT NULL,
+  `salt` VARCHAR(100) NOT NULL,
+  `email` VARCHAR(250) NOT NULL,
+  PRIMARY KEY (`id`),
+  UNIQUE INDEX `username` (`username` ASC))
+ENGINE = InnoDB
+AUTO_INCREMENT = 1
+DEFAULT CHARACTER SET = latin1;
+
+
+-- -----------------------------------------------------
+-- Table `cms`.`users_nodes`
+-- -----------------------------------------------------
+CREATE TABLE IF NOT EXISTS `cms`.`users_nodes` (
+  `users_id` INT(10) UNSIGNED NOT NULL,
+  `nodes_id` SMALLINT(5) UNSIGNED NOT NULL,
+  PRIMARY KEY (`users_id`, `nodes_id`),
+  INDEX `fk_users_has_nodes_nodes1_idx` (`nodes_id` ASC),
+  INDEX `fk_users_has_nodes_users_idx` (`users_id` ASC),
+  CONSTRAINT `fk_users_has_nodes_nodes1`
+    FOREIGN KEY (`nodes_id`)
+    REFERENCES `cms`.`nodes` (`id`)
+    ON DELETE NO ACTION
+    ON UPDATE NO ACTION,
+  CONSTRAINT `fk_users_has_nodes_users`
+    FOREIGN KEY (`users_id`)
+    REFERENCES `cms`.`users` (`id`)
+    ON DELETE NO ACTION
+    ON UPDATE NO ACTION)
+ENGINE = InnoDB
+DEFAULT CHARACTER SET = latin1;
+
+
+-- -----------------------------------------------------
+-- Table `cms`.`users_roles`
+-- -----------------------------------------------------
+CREATE TABLE IF NOT EXISTS `cms`.`users_roles` (
+  `users_id` INT(10) UNSIGNED NOT NULL,
+  `roles_id` INT(10) UNSIGNED NOT NULL,
+  PRIMARY KEY (`users_id`, `roles_id`),
+  INDEX `fk_users_has_roles_roles1_idx` (`roles_id` ASC),
+  INDEX `fk_users_has_roles_users1_idx` (`users_id` ASC),
+  CONSTRAINT `fk_users_has_roles_roles1`
+    FOREIGN KEY (`roles_id`)
+    REFERENCES `cms`.`roles` (`id`)
+    ON DELETE NO ACTION
+    ON UPDATE NO ACTION,
+  CONSTRAINT `fk_users_has_roles_users1`
+    FOREIGN KEY (`users_id`)
+    REFERENCES `cms`.`users` (`id`)
+    ON DELETE NO ACTION
+    ON UPDATE NO ACTION)
+ENGINE = InnoDB
+DEFAULT CHARACTER SET = latin1;
+
+
+SET SQL_MODE=@OLD_SQL_MODE;
+SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS;
+SET UNIQUE_CHECKS=@OLD_UNIQUE_CHECKS;

persistence/scripts/tables.sql

@@ -0,0 +1,14 @@
+DROP TABLE IF EXISTS nodes;
+
+CREATE TABLE nodes
+(
+	id smallint unsigned NOT NULL auto_increment,
+	publication_date date NOT NULL,  #When the article was published
+	creation_date  date  NOT NULL, #When the article was created
+	modification_date  date  NOT NULL, #When the article was updated
+	title varchar(255) NOT NULL, #Full title of the article
+	summary text NOT NULL, #A short summary of the articule
+	content mediumtext NOT NULL,  #The HTML content of the article
+
+	PRIMARY KEY (ID)
+);

persistence/src/cms_storage.e

@@ -0,0 +1,231 @@
+
+note
+	description : "[ 
+				CMS interface to storage
+			]"
+	date        : "$Date$"
+	revision    : "$Revision$"
+
+deferred class
+	CMS_STORAGE
+
+inherit
+
+	SHARED_ERROR
+
+feature {NONE} -- Initialization
+
+	initialize
+		do
+		end
+
+feature -- Access: user
+
+	has_user: BOOLEAN
+			-- Has any user?
+		deferred
+		end
+
+	all_users: LIST [CMS_USER]
+		deferred
+		end
+
+	user_by_id (a_id: like {CMS_USER}.id): detachable CMS_USER
+		require
+			a_id > 0
+		deferred
+		ensure
+			same_id: Result /= Void implies Result.id = a_id
+			no_password: Result /= Void implies Result.password = Void
+		end
+
+	user_by_name (a_name: like {CMS_USER}.name): detachable CMS_USER
+		require
+			 a_name /= Void and then not a_name.is_empty
+		deferred
+		ensure
+			no_password: Result /= Void implies Result.password = Void
+		end
+
+	user_by_email (a_email: like {CMS_USER}.email): detachable CMS_USER
+		deferred
+		ensure
+			no_password: Result /= Void implies Result.password = Void
+		end
+
+	is_valid_credential (u, p: READABLE_STRING_32): BOOLEAN
+		deferred
+		end
+
+feature -- Change: user
+
+	save_user (a_user: CMS_USER)
+		deferred
+		ensure
+			a_user_password_is_encoded: a_user.password = Void
+		end
+
+feature -- Access: roles and permissions
+
+--	user_has_permission (u: detachable CMS_USER; s: detachable READABLE_STRING_8): BOOLEAN
+--			-- Anonymous or user `u' has permission for `s' ?
+--			--| `s' could be "create page",	
+--		do
+--			if s = Void then
+--				Result := True
+--			elseif u = Void then
+--				Result := user_role_has_permission (anonymous_user_role, s)
+--			else
+--				Result := user_role_has_permission (authenticated_user_role, s)
+--				if not Result and attached u.roles as l_roles then
+--					across
+--						l_roles as r
+--					until
+--						Result
+--					loop
+--						if attached user_role_by_id (r.item) as ur then
+--							Result := user_role_has_permission (ur, s)
+--						end
+--					end
+--				end
+--			end
+--		end
+
+--	anonymous_user_role: CMS_USER_ROLE
+--		do
+--			if attached user_role_by_id (1) as l_anonymous then
+--				Result := l_anonymous
+--			else
+--				create Result.make ("anonymous")
+--			end
+--		end
+
+--	authenticated_user_role: CMS_USER_ROLE
+--		do
+--			if attached user_role_by_id (2) as l_authenticated then
+--				Result := l_authenticated
+--			else
+--				create Result.make ("authenticated")
+--			end
+--		end
+
+--	user_role_has_permission (a_role: CMS_USER_ROLE; s: READABLE_STRING_8): BOOLEAN
+--		do
+--			Result := a_role.has_permission (s)
+--		end
+
+--	user_role_by_id (a_id: like {CMS_USER_ROLE}.id): detachable CMS_USER_ROLE
+--		deferred
+--		end
+
+--	user_roles: LIST [CMS_USER_ROLE]
+--		deferred
+--		end
+
+feature -- Change: roles and permissions		
+
+--	save_user_role (a_user_role: CMS_USER_ROLE)
+--		deferred
+--		end
+
+feature -- Email		
+
+--	save_email (a_email: NOTIFICATION_EMAIL)
+--		deferred
+--		end
+
+--feature -- Log
+
+--	recent_logs (a_lower: INTEGER; a_count: INTEGER): LIST [CMS_LOG]
+--		deferred
+--		end
+
+--	log (a_id: like {CMS_LOG}.id): detachable CMS_LOG
+--		require
+--			a_id > 0
+--		deferred
+--		end
+
+--	save_log (a_log: CMS_LOG)
+--		deferred
+--		end
+
+feature -- Access: Node
+
+	recent_nodes (a_lower: INTEGER; a_count: INTEGER): LIST [CMS_NODE]
+		deferred
+		end
+
+	node (a_id: INTEGER_64): detachable CMS_NODE
+			-- Retrieve node by id `a_id', if any.
+		require
+			a_id > 0
+		deferred
+		end
+
+
+feature -- Change: Node
+
+	save_node (a_node: CMS_NODE)
+			-- Save node `a_node'.
+		deferred
+		end
+
+
+	delete_node (a_id: INTEGER_64)
+			-- Remove node by id `a_id'.
+		require
+			valid_id: a_id > 0
+		deferred
+		end
+
+	update_node (a_node: CMS_NODE)
+			-- Update node content `a_node'.
+		require
+			valid_id: a_node.id > 0
+		deferred
+		end
+
+	update_node_title (a_id: INTEGER_64; a_title: READABLE_STRING_32)
+			-- Update node title to `a_title', node identified by id `a_id'.
+		require
+			valid_id: a_id > 0
+		deferred
+		end
+
+	update_node_summary (a_id: INTEGER_64; a_summary: READABLE_STRING_32)
+			-- Update node summary to `a_summary', node identified by id `a_id'.
+		require
+			valid_id: a_id > 0
+		deferred
+		end
+
+	update_node_content (a_id: INTEGER_64; a_content: READABLE_STRING_32)
+			-- Update node content to `a_content', node identified by id `a_id'.
+		require
+			valid_id: a_id > 0
+		deferred
+		end
+
+
+
+
+
+--feature -- Misc
+
+--	set_custom_value (a_name: READABLE_STRING_8; a_value: attached like custom_value; a_type: READABLE_STRING_8)
+--			-- Save data `a_name:a_value' for type `a_type'
+--		deferred
+--		end
+
+--	custom_value (a_name: READABLE_STRING_8; a_type: READABLE_STRING_8): detachable TABLE_ITERABLE [READABLE_STRING_8, STRING_8]
+--			-- Data for name `a_name' and type `a_type'.
+--		deferred
+--		end
+
+--	custom_value_names_where (a_where_key, a_where_value: READABLE_STRING_8; a_type: READABLE_STRING_8): detachable LIST [READABLE_STRING_8]
+--			-- Names where custom value has item `a_where_key' same as `a_where_value' for  type `a_type'.
+--		deferred
+--		end
+
+end

persistence/src/cms_storage_mysql.e

@@ -0,0 +1,217 @@
+note
+	description: "Summary description for {CMS_STORAGE_MYSQL}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	CMS_STORAGE_MYSQL
+
+inherit
+
+	CMS_STORAGE
+	REFACTORING_HELPER
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_connection: DATABASE_CONNECTION)
+			--
+		require
+			is_connected: a_connection.is_connected
+		do
+			log.write_information (generator+".make_with_database is database connected?  "+ a_connection.is_connected.out )
+			create node_provider.make (a_connection)
+			create user_provider.make (a_connection)
+			post_node_provider_execution
+			post_user_provider_execution
+		end
+
+
+feature -- Access: user
+
+	has_user: BOOLEAN
+			-- Has any user?
+		do
+			to_implement("Not implemented!!!")
+		end
+
+
+	all_users: LIST [CMS_USER]
+		do
+			to_implement("Not implemented!!!")
+			create {ARRAYED_LIST[CMS_USER]} Result.make (0)
+		end
+
+	user_by_id (a_id: like {CMS_USER}.id): detachable CMS_USER
+		do
+			Result := user_provider.user (a_id)
+			post_user_provider_execution
+		end
+
+	user_by_name (a_name: like {CMS_USER}.name): detachable CMS_USER
+		do
+			Result := user_provider.user_by_name (a_name)
+			post_user_provider_execution
+		end
+
+	user_by_email (a_email: like {CMS_USER}.email): detachable CMS_USER
+		do
+			Result := user_provider.user_by_email (a_email)
+			post_user_provider_execution
+		end
+
+	is_valid_credential (l_auth_login, l_auth_password: READABLE_STRING_32): BOOLEAN
+		local
+			l_security: SECURITY_PROVIDER
+		do
+			if attached user_provider.user_salt (l_auth_login) as l_hash then
+				if attached user_provider.user_by_name (l_auth_login) as l_user then
+					create l_security
+					if
+						attached l_user.password as l_password and then
+					   	l_security.password_hash (l_auth_password, l_hash).is_case_insensitive_equal (l_password)
+					then
+						Result := True
+					else
+						log.write_information (generator + ".login_valid User: wrong username or password" )
+					end
+				else
+					log.write_information (generator + ".login_valid User:" + l_auth_login + "does not exist" )
+				end
+			end
+			post_user_provider_execution
+		end
+
+feature -- Change: user
+
+	save_user (a_user: CMS_USER)
+			-- Add a new user `a_user'.
+		do
+			if
+				attached a_user.password as l_password and then
+				attached a_user.email as l_email
+			then
+				user_provider.new_user (a_user.name, l_password, l_email)
+			else
+				-- set error
+			end
+		end
+
+feature -- Access: node
+
+	nodes: LIST[CMS_NODE]
+			-- List of nodes.
+		do
+			create {ARRAYED_LIST[CMS_NODE]} Result.make (0)
+			across node_provider.nodes as c loop
+				Result.force (c.item)
+			end
+			post_node_provider_execution
+		end
+
+	recent_nodes (a_lower: INTEGER; a_count: INTEGER): LIST [CMS_NODE]
+			-- List of the `a_count' most recent nodes, starting from `a_lower'.
+		do
+			create {ARRAYED_LIST[CMS_NODE]} Result.make (0)
+			across node_provider.recent_nodes (a_lower,a_count) as c loop
+				Result.force (c.item)
+			end
+			post_node_provider_execution
+		end
+
+	node (a_id: INTEGER_64): detachable CMS_NODE
+			--
+		do
+			Result :=  node_provider.node (a_id)
+			post_node_provider_execution
+		end
+
+
+feature -- Node
+
+	save_node (a_node: CMS_NODE)
+			-- Add a new node
+		do
+			node_provider.new_node (a_node)
+			post_node_provider_execution
+		end
+
+	delete_node (a_id: INTEGER_64)
+		do
+			node_provider.delete_node (a_id)
+			post_node_provider_execution
+		end
+
+	update_node (a_node: CMS_NODE)
+		do
+			node_provider.update_node (a_node)
+			post_node_provider_execution
+		end
+
+	update_node_title (a_id: INTEGER_64; a_title: READABLE_STRING_32)
+		do
+			node_provider.update_node_title (a_id, a_title)
+			post_node_provider_execution
+		end
+
+	update_node_summary (a_id: INTEGER_64; a_summary: READABLE_STRING_32)
+		do
+			node_provider.update_node_summary (a_id, a_summary)
+			post_node_provider_execution
+		end
+
+	update_node_content (a_id: INTEGER_64; a_content: READABLE_STRING_32)
+		do
+			node_provider.update_node_content (a_id, a_content)
+			post_node_provider_execution
+		end
+
+
+feature -- User
+
+	new_user (a_user: CMS_USER)
+			-- Add a new user `a_user'.
+		do
+			if
+				attached a_user.password as l_password and then
+				attached a_user.email as l_email
+			then
+				user_provider.new_user (a_user.name, l_password, l_email)
+			else
+				-- set error
+			end
+		end
+
+feature {NONE} -- Post process
+
+	post_node_provider_execution
+		do
+			if node_provider.successful then
+				set_successful
+			else
+				if attached node_provider.last_error then
+					set_last_error_from_handler (node_provider.last_error)
+				end
+			end
+		end
+
+	post_user_provider_execution
+		do
+			if user_provider.successful then
+				set_successful
+			else
+				if attached user_provider.last_error then
+					set_last_error_from_handler (user_provider.last_error)
+				end
+			end
+		end
+
+	node_provider: NODE_DATA_PROVIDER
+			-- Node Data provider.
+
+	user_provider: USER_DATA_PROVIDER
+			-- User Data provider.
+
+end

persistence/src/database/data_parameters_names.e

@@ -0,0 +1,132 @@
+note
+	description: "Stored procedures paramters names"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATA_PARAMETERS_NAMES
+
+feature -- Access
+
+	Contactid_param: STRING = "ContactID"
+
+	Username_param: STRING =  "Username"
+
+	Submitter_username_param: STRING = "SubmitterUsername"
+
+	Responsibleid_param: STRING =  "ResponsibleID"
+
+	Email_param: STRING = "Email"
+
+	Synopsis_param: STRING = "Synopsis"
+
+	Openonly_param: STRING = "OpenOnly"
+
+	Number_param: STRING = "Number"
+
+	Categoryid_param: STRING = "CategoryID"
+
+	Category_synopsis_param: STRING = "CategorySynopsis"
+
+	Statusid_param: STRING = "StatusID"
+
+	Private_param: STRING = "Private"
+
+	Priorityid_param: STRING = "PriorityID"
+
+	Severityid_param: STRING = "SeverityID"
+
+	Searchtext_param: STRING = "SearchText"
+
+	Searchsynopsis_param: STRING = "SearchSynopsis"
+
+	Searchdescription_param: STRING = "SearchDescription"
+
+	Reportid_param: STRING = "ReportID"
+
+	Interactionid_param: STRING = "InteractionID"
+
+	Attachmentid_param: STRING = "AttachmentID"
+
+	Fieldtitle_param: STRING = "FieldTitle"
+
+	Passwordhash_param: STRING = "PasswordHash"
+
+	Registrationtoken_param: STRING = "RegistrationToken"
+
+	Answerhash_param: STRING = "AnswerHash"
+
+	Classid_param: STRING = "Classid"
+
+	Confidential_param: STRING = "Confidential"
+
+	Release_param: STRING = "Release"
+
+	Environment_param: STRING = "Environment"
+
+	Description_param: STRING = "Description"
+
+	Toreproduce_param: STRING = "ToReproduce"
+
+	Content_param: STRING = "Content"
+
+	Alreadyexists_param: STRING = "AlreadyExists"
+
+	Firstname_param: STRING = "FirstName"
+
+	Lastname_param: STRING = "LastName"
+
+	Responsible_param: STRING = "Responsible"
+
+	Responsible_firstname_param: STRING = "ResponsibleFirstName"
+
+	Responsible_lastname_param: STRING = "ResponsibleLastName"
+
+	Length_param: STRING = "Length"
+
+	Filename_param: STRING = "Filename"
+
+	Position_param: STRING = "Position"
+
+	Address_param: STRING = "Address"
+
+	City_param: STRING = "City"
+
+	Country_param: STRING = "Country"
+
+	Region_param: STRING = "Region"
+
+	Code_param: STRING = "Code"
+
+	Tel_param: STRING = "Tel"
+
+	Fax_param: STRING = "Fax"
+
+	Name_param: STRING = "Name"
+
+	Url_param: STRING = "URL"
+
+	Token_param: STRING = "Token"
+
+	Filter_param: STRING = "Filter"
+
+feature -- Login
+
+	Passwordsalt_param: STRING = "PasswordSalt"
+
+	Answersalt_param: STRING = "AnswerSalt"
+
+	Questionid_param: STRING = "QuestionID"
+
+
+feature -- Download Parameter Names
+
+	Subject_param: STRING = "Subject"
+
+	Notes_param: STRING = "Notes"
+
+	Platform_param: STRING = "Platform"
+
+	Newsletter_param: STRING = "Newsletter"
+
+end

persistence/src/database/database_config.e

@@ -0,0 +1,29 @@
+note
+	description: "Database configuration"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+deferred class
+	DATABASE_CONFIG
+
+feature -- Database access
+
+	hostname: STRING = ""
+			-- Database hostname.
+
+	username: STRING = ""
+			-- Database username.
+
+	password: STRING = ""
+			-- Database password.
+
+	database_name: STRING = "EiffelDB"
+			-- Database name.
+
+	is_keep_connection: BOOLEAN
+			-- Keep Connection to database?
+		do
+			Result := True
+		end
+
+end

persistence/src/database/database_connection.e

@@ -0,0 +1,103 @@
+note
+	description: "Abstract class to handle a database connection"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+deferred class
+	DATABASE_CONNECTION
+
+inherit
+
+	DATABASE_CONFIG
+
+	SHARED_ERROR
+
+feature {NONE} -- Initialization
+
+	make_common
+			-- Create a database handler with common settings.
+		deferred
+		ensure
+			db_application_not_void: db_application /= Void
+			db_control_not_void: db_control /= Void
+		end
+
+	make_basic ( a_database_name: STRING)
+			-- Create a database handler with common settings and
+ 			-- set database_name with `a_database_name'.
+		require
+			database_name_not_void: a_database_name /= Void
+			database_name_not_empty: not a_database_name.is_empty
+		deferred
+		ensure
+			db_application_not_void: db_application /= Void
+			db_control_not_void: db_control /= Void
+		end
+
+	make (a_username: STRING; a_password: STRING; a_hostname: STRING; a_database_name: STRING; connection: BOOLEAN)
+
+			-- Create a database handler with user `a_username', password `a_password',
+			-- host `a_hostname', database_name `a_database_name', and keep_connection `connection'.
+		require
+			username_not_void: a_username /= Void
+			username_not_empty: not a_username.is_empty
+			password_not_void: a_password /= Void
+			hostname_not_void: a_hostname /= Void
+			hotname_not_empty: not a_hostname.is_empty
+			database_name_not_void: a_database_name /= Void
+			database_name_not_empty: not a_database_name.is_empty
+		deferred
+		ensure
+			db_application_not_void: db_application /= Void
+			db_control_not_void: db_control /= Void
+		end
+
+	login_with_connection_string (a_connection_string: STRING)
+			-- Login with `a_connection_string'
+			-- and immediately connect to database.
+		deferred
+		ensure
+			db_application_not_void: db_application /= Void
+			db_control_not_void: db_control /= Void
+		end
+
+feature -- Database Setup
+
+	db_application: DATABASE_APPL [DATABASE]
+			-- Database application.
+
+	db_control: DB_CONTROL
+			-- Database control.
+
+	keep_connection: BOOLEAN
+			-- Keep connection alive?
+
+feature -- Conection
+
+	connect
+			-- Connect to the database.
+		require else
+			db_control_not_void: db_control /= Void
+		do
+			if not is_connected then
+				db_control.connect
+			end
+		end
+
+	disconnect
+			-- Disconnect from the database.
+		require else
+			db_control_not_void: db_control /= Void
+		do
+			db_control.disconnect
+		end
+
+	is_connected: BOOLEAN
+			-- True if connected to the database.
+		require else
+			db_control_not_void: db_control /= Void
+		do
+			Result := db_control.is_connected
+		end
+
+end

persistence/src/database/database_connection_mysql.e

@@ -0,0 +1,137 @@
+note
+	description: "Object that handle a database connection for ODBC"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATABASE_CONNECTION_MYSQL
+
+inherit
+
+	DATABASE_CONNECTION
+		redefine
+			db_application
+		end
+
+create
+	make, make_common, make_basic, login_with_connection_string, login_with_schema
+
+feature -- Initialization
+
+	make_common
+			-- Create a database handler for MYSQL with common settings.
+		local
+			l_retried: BOOLEAN
+		do
+			create db_application.login (username, password)
+
+			if not l_retried then
+				db_application.set_hostname (hostname)
+				db_application.set_data_source (database_name)
+				db_application.set_base
+				create db_control.make
+				keep_connection := is_keep_connection
+				if keep_connection then
+					connect
+				end
+				set_successful
+			else
+				create db_control.make
+			end
+		rescue
+			create db_control.make
+			set_last_error_from_exception ("Connection execution")
+			log.write_critical (generator + ".make_common:" + last_error_message)
+			if is_connected then
+				disconnect
+			end
+			l_retried := True
+			retry
+		end
+
+	make_basic (a_database_name: STRING)
+			-- Create a database handler and
+			-- set database_name to `a_database_name'.
+		local
+			l_retried: BOOLEAN
+		do
+			create db_application.login (username, password)
+
+			if not l_retried then
+				db_application.set_hostname (hostname)
+				db_application.set_data_source (a_database_name)
+				db_application.set_base
+				create db_control.make
+				keep_connection := is_keep_connection
+				if keep_connection then
+					connect
+				end
+				set_successful
+			else
+				create db_control.make
+			end
+		rescue
+			create db_control.make
+			set_last_error_from_exception ("Connection execution")
+			log.write_critical (generator + ".make_common:" + last_error_message)
+			if is_connected then
+				disconnect
+			end
+			l_retried := True
+			retry
+		end
+
+	make (a_username: STRING; a_password: STRING; a_hostname: STRING; a_database_name: STRING; connection: BOOLEAN)
+
+			-- Create a database handler for ODBC and set `username' to `a_username',
+			-- `password' to `a_password'
+			-- `database_name' to `a_database_name'
+			-- `connection' to `a_connection'
+		do
+			create db_application.login (a_username, a_password)
+			db_application.set_hostname (a_hostname)
+			db_application.set_data_source (a_database_name)
+			db_application.set_base
+			create db_control.make
+			keep_connection := connection
+			if keep_connection then
+				connect
+			end
+		end
+
+	login_with_connection_string (a_string: STRING)
+			-- Login with `a_connection_string'and immediately connect to database.
+		do
+			log.write_debug (generator +".login_with_connection_string")
+			create db_application.login_with_connection_string (a_string)
+			db_application.set_base
+			create db_control.make
+			log.write_debug (generator +".login_with_connection_string, is_keep_connection? "+ is_keep_connection.out )
+			keep_connection := is_keep_connection
+			if keep_connection then
+				connect
+				if not db_control.is_ok then
+					log.write_critical (generator +".login_with_connection_string:"+ db_control.error_code.out )
+					log.write_critical (generator +".login_with_connection_string:"+ db_control.error_message_32 )
+				end
+				log.write_debug (generator +".login_with_connection_string, After connect, is_connected? "+ is_connected.out)
+			end
+		end
+
+	login_with_schema (a_schema: STRING; a_username: STRING; a_password: STRING)
+			-- Login with `a_connection_string'and immediately connect to database.
+		do
+			create db_application
+			db_application.set_application (a_schema)
+			db_application.login_and_connect (a_username, a_password)
+			db_application.set_base
+			create db_control.make
+			keep_connection := is_keep_connection
+		end
+
+feature -- Databse Connection
+
+	db_application: DATABASE_APPL [MYSQL]
+			-- Database application.
+
+end

persistence/src/database/database_connection_null.e

@@ -0,0 +1,67 @@
+note
+	description: "Null object to meet Void Safe."
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATABASE_CONNECTION_NULL
+
+inherit
+
+	DATABASE_CONNECTION
+		redefine
+			db_application,
+			is_connected
+		end
+
+create
+	make, make_common, make_basic
+
+feature -- Initialization
+
+	make_common
+			-- Create a database handler for ODBC with common settings.
+		do
+			create db_application.login (username, password)
+			db_application.set_hostname (hostname)
+			db_application.set_data_source (database_name)
+			db_application.set_base
+			create db_control.make
+		end
+
+	make (a_username: STRING; a_password: STRING; a_hostname: STRING; a_database_name: STRING; connection: BOOLEAN)
+
+			-- Create a database handler for ODBC.
+		do
+			make_common
+		end
+
+	make_basic (a_database_name: STRING)
+
+			-- Create a database handler for ODBC.
+		do
+			make_common
+		end
+
+
+	login_with_connection_string (a_string: STRING)
+			-- Login with `a_connection_string'
+			-- and immediately connect to database.
+		do
+			make_common
+		end
+
+
+feature -- Databse Connection
+
+	db_application: DATABASE_APPL[DATABASE_NULL]
+			-- Database application.
+
+
+	is_connected: BOOLEAN
+			-- True if connected to the database.
+		do
+			Result := True
+		end
+
+end

persistence/src/database/database_handler.e

@@ -0,0 +1,177 @@
+note
+	description: "Abstract Database Handler"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+deferred class
+	DATABASE_HANDLER
+
+inherit
+
+	SHARED_ERROR
+
+feature -- Access
+
+	store: detachable DATABASE_STORE_PROCEDURE
+			-- Database stored_procedure to handle.
+
+	query: detachable DATABASE_QUERY
+			-- Database query.
+
+feature -- Modifiers
+
+	set_store (a_store: DATABASE_STORE_PROCEDURE)
+			-- Set `store' to `a_store' to execute.
+		require
+			store_not_void: a_store /= Void
+		do
+			store := a_store
+		ensure
+			store_set: store = a_store
+		end
+
+	set_query (a_query: DATABASE_QUERY)
+			-- Set `query' to `a_query' to execute.
+		require
+			query_not_void: a_query /= Void
+		do
+			query := a_query
+		ensure
+			query_set: query = a_query
+		end
+
+feature -- Functionality Store Procedures
+
+	execute_reader
+			-- Execute store.
+		require
+			store_not_void: store /= void
+		deferred
+		end
+
+	execute_writer
+			-- Execute store.
+		require
+			store_not_void: store /= void
+		deferred
+		end
+
+feature -- SQL Queries
+
+	execute_query
+			-- Execute query.
+		require
+			query_not_void: query /= void
+		deferred
+		end
+
+	execute_change
+			-- Execute sqlquery that update/add data.
+		require
+			query_not_void: query /= void
+		deferred
+		end
+
+
+feature -- Iteration
+
+	start
+			-- Set the cursor on first element.
+		deferred
+		end
+
+	item: ANY
+			-- Item at current cursor position.
+		require
+			valid_position: not after
+		deferred
+		end
+
+	after: BOOLEAN
+			-- Are there no more items to iterate over?
+		deferred
+		end
+
+	forth
+			-- Move to next position.
+		require
+			valid_position: not after
+		deferred
+		end
+
+feature -- Access
+
+	read_integer_32 (a_index: INTEGER): INTEGER_32
+			-- Retrieved value at `a_index' position in `item'.
+		do
+			if attached {DB_TUPLE} item as l_item then
+				if attached {INTEGER_32_REF} l_item.item (a_index) as ll_item then
+					Result := ll_item.item
+				end
+			end
+		end
+
+	read_string (a_index: INTEGER): detachable STRING
+			-- Retrieved value at `a_index' position in `item'.
+		do
+			if attached {DB_TUPLE} item as l_item then
+				if attached {STRING} l_item.item (a_index) as ll_item then
+					Result := ll_item
+				elseif attached {BOOLEAN_REF} l_item.item (a_index) as ll_item then
+					Result := ll_item.item.out
+				end
+			end
+		end
+
+	read_date_time (a_index: INTEGER): detachable DATE_TIME
+			-- Retrieved value at `a_index' position in `item'.
+		do
+			if attached {DB_TUPLE} item as l_item then
+				if attached {DATE_TIME} l_item.item (a_index) as ll_item then
+					Result := ll_item
+				end
+			end
+		end
+
+	read_boolean (a_index: INTEGER): detachable BOOLEAN
+			-- Retrieved value at `a_index' position in `item'.
+		do
+			if attached {DB_TUPLE} item as l_item then
+				if attached {BOOLEAN} l_item.item (a_index) as ll_item then
+					Result := ll_item
+				elseif attached {BOOLEAN_REF} l_item.item (a_index) as ll_item then
+					Result := ll_item.item
+				end
+			end
+		end
+
+feature -- Status Report
+
+	has_error: BOOLEAN
+			-- Is there an error?
+
+	count: INTEGER
+			-- Number of rows, last execution.
+		deferred
+		end
+
+feature {NODE_DATA_PROVIDER}-- Implementation
+
+	connect
+			-- Connect to the database.
+		deferred
+		end
+
+	disconnect
+			-- Disconnect from the database.
+		deferred
+		ensure
+			not_connected: not is_connected
+		end
+
+	is_connected: BOOLEAN
+			-- True if connected to the database.
+		deferred
+		end
+
+end

persistence/src/database/database_handler_impl.e

@@ -0,0 +1,284 @@
+note
+	description: "Database handler Implementation"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATABASE_HANDLER_IMPL
+
+inherit
+	DATABASE_HANDLER
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_connection: DATABASE_CONNECTION)
+			-- Create a database handler with connnection `connection'.
+		do
+			connection := a_connection
+			create last_query.make_now
+			set_successful
+		ensure
+			connection_not_void: connection /= Void
+			last_query_not_void: last_query /= Void
+		end
+
+feature -- Functionality
+
+	execute_reader
+			-- Execute stored procedure that returns data.
+		local
+			l_db_selection: DB_SELECTION
+			l_retried: BOOLEAN
+		do
+			if not l_retried then
+				if not keep_connection then
+					connect
+				end
+
+				if attached store as l_store then
+					create l_db_selection.make
+					db_selection := l_db_selection
+					items := l_store.execute_reader (l_db_selection)
+				end
+
+				if not keep_connection then
+					disconnect
+				end
+				set_successful
+				log.write_debug ( generator+".execute_reader Successful")
+			end
+		rescue
+			set_last_error_from_exception ("Store procedure execution")
+			log.write_critical (generator+ ".execute_reader " + last_error_message)
+			if is_connected then
+				disconnect
+			end
+			l_retried := True
+			retry
+		end
+
+	execute_writer
+			-- Execute stored procedure that update/add data.
+		local
+			l_db_change: DB_CHANGE
+			l_retried : BOOLEAN
+		do
+		    if not  l_retried then
+				if not keep_connection and not is_connected then
+					connect
+				end
+
+				if attached store as l_store then
+					create l_db_change.make
+					db_update := l_db_change
+					l_store.execute_writer (l_db_change)
+					if not l_store.has_error then
+						db_control.commit
+					end
+				end
+				if not keep_connection then
+					disconnect
+				end
+				set_successful
+				log.write_debug ( generator+".execute_writer Successful")
+			end
+		rescue
+			set_last_error_from_exception ("Store procedure execution")
+			log.write_critical (generator+ ".execute_writer " + last_error_message)
+			if is_connected then
+				disconnect
+			end
+			l_retried := True
+			retry
+		end
+
+feature -- SQL Queries
+
+	execute_query
+			-- Execute query.
+		local
+			l_db_selection: DB_SELECTION
+			l_retried: BOOLEAN
+		do
+			if not l_retried then
+				if not keep_connection then
+					connect
+				end
+
+				if attached query as l_query then
+					create l_db_selection.make
+					db_selection := l_db_selection
+					items := l_query.execute_reader (l_db_selection)
+				end
+				if not keep_connection then
+					disconnect
+				end
+				set_successful
+			end
+		rescue
+			set_last_error_from_exception ("execute_query")
+			log.write_critical (generator+ ".execute_query " + last_error_message)
+			if is_connected then
+				disconnect
+			end
+			l_retried := True
+			retry
+		end
+
+
+	execute_change
+			-- Execute sqlquery that update/add data.
+		local
+			l_db_change: DB_CHANGE
+			l_retried : BOOLEAN
+		do
+		    if not  l_retried then
+				if not keep_connection and not is_connected then
+					connect
+				end
+
+				if attached query as l_query then
+					create l_db_change.make
+					db_update := l_db_change
+					l_query.execute_change (l_db_change)
+					db_control.commit
+				end
+				if not keep_connection then
+					disconnect
+				end
+				set_successful
+			end
+		rescue
+			set_last_error_from_exception ("Store procedure execution")
+			log.write_critical (generator+ ".execute_writer " + last_error_message)
+			if is_connected then
+				disconnect
+			end
+			l_retried := True
+			retry
+		end
+
+
+feature -- Iteration
+
+	start
+			-- Set the cursor on first element.
+		do
+			if attached db_selection as l_db_selection and then l_db_selection.container /= Void then
+				l_db_selection.start
+			end
+		end
+
+	forth
+			-- Move cursor to next element.
+		do
+			if attached db_selection as l_db_selection then
+				l_db_selection.forth
+			else
+				check False end
+			end
+		end
+
+	after: BOOLEAN
+			-- True for the last element.
+		do
+			if attached db_selection as l_db_selection and then l_db_selection.container /= Void then
+				Result := l_db_selection.after or else l_db_selection.cursor = Void
+			else
+				Result := True
+			end
+		end
+
+	item: DB_TUPLE
+			-- Current element.
+		do
+			if attached db_selection as l_db_selection and then attached l_db_selection.cursor as l_cursor then
+				create {DB_TUPLE} Result.copy (l_cursor)
+			else
+				check False then end
+			end
+		end
+
+
+feature {NONE} -- Implementation
+
+	connection: DATABASE_CONNECTION
+		-- Database connection.
+
+	db_control: DB_CONTROL
+		-- Database control.
+		do
+			Result := connection.db_control
+		end
+
+	db_result: detachable DB_RESULT
+		-- Database query result.
+
+	db_selection: detachable DB_SELECTION
+		-- Database selection.
+
+	db_update: detachable DB_CHANGE
+		-- Database modification.	
+
+	last_query: DATE_TIME
+		-- Last time when a query was executed.
+
+	keep_connection: BOOLEAN
+		-- Keep connection alive?
+		do
+			Result := connection.keep_connection
+		end
+
+	connect
+			-- Connect to the database.
+		require else
+			db_control_not_void: db_control /= Void
+		do
+			if not is_connected then
+				db_control.connect
+			end
+		end
+
+	disconnect
+			-- Disconnect from the database.
+		require else
+			db_control_not_void: db_control /= Void
+		do
+			db_control.disconnect
+		end
+
+	is_connected: BOOLEAN
+			-- True if connected to the database.
+		require else
+			db_control_not_void: db_control /= Void
+		do
+			Result := db_control.is_connected
+		end
+
+	affected_row_count: INTEGER
+			--  The number of rows changed, deleted, or inserted by the last statement.
+		do
+			if attached db_update as l_update then
+				Result := l_update.affected_row_count
+			end
+		end
+
+feature -- Result
+
+	items : detachable LIST[DB_RESULT]
+		-- Query result.
+
+	count: INTEGER
+			-- <Precursor>
+		do
+			if attached items as l_items then
+				Result := l_items.count
+			end
+		end
+
+end

persistence/src/database/database_iteration_cursor.e

@@ -0,0 +1,91 @@
+note
+	description: "External iteration cursor for {ESA_DATABASE_HANDLER}"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATABASE_ITERATION_CURSOR [G]
+
+inherit
+
+	ITERATION_CURSOR [G]
+
+	ITERABLE [G]
+
+create
+	make
+
+feature -- Initialization
+
+	make (a_handler: DATABASE_HANDLER; a_action: like action)
+			--  Create an iterator and set  `db_handlet' to `a_handler'
+			--  `action' to `a_action'
+		do
+			db_handler := a_handler
+			action := a_action
+		ensure
+			db_handler_set: db_handler = a_handler
+			action_set: action = a_action
+		end
+
+feature -- Access
+
+	item: G
+			-- Item at current cursor position.
+		do
+			Result := action.item ([db_item])
+		end
+
+	db_item: DB_TUPLE
+			-- Current element.
+		do
+			if attached {DB_TUPLE} db_handler.item as l_item then
+				Result := l_item
+			else
+				check False then
+				end
+			end
+		end
+
+feature -- Status report
+
+	after: BOOLEAN
+			-- Are there no more items to iterate over?
+		do
+			Result := db_handler.after
+		end
+
+feature -- Cursor movement
+
+	start
+			-- Set the cursor on first element.
+		do
+			db_handler.start
+		end
+
+	forth
+			-- Move to next position.
+		do
+			db_handler.forth
+		end
+
+feature -- Cursor
+
+	new_cursor: DATABASE_ITERATION_CURSOR [G]
+			-- <Precursor>
+		do
+			Result := twin
+			Result.start
+		end
+
+feature -- Action
+
+	action: FUNCTION [ANY, detachable TUPLE [], G]
+			-- Agent to create a new item of type G.
+
+feature {NONE} -- Implementation
+
+	db_handler: DATABASE_HANDLER
+			-- Associated handler used for iteration.
+
+end

persistence/src/database/database_null.e

@@ -0,0 +1,538 @@
+note
+	description: "Null object to meet void safe"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATABASE_NULL
+
+inherit
+	DATABASE
+
+
+feature -- Acccess
+
+	database_handle_name: STRING = "NULL"
+			-- Handle name
+
+feature -- For DATABASE_STATUS
+
+	is_error_updated: BOOLEAN
+			-- Has an NULL function been called since last update which may have
+			-- updated error code, error message?
+
+	is_warning_updated: BOOLEAN
+			-- Has an ODBC function been called since last update which may have
+			-- updated warning message?
+
+	found: BOOLEAN
+			-- Is there any record matching the last
+			-- selection condition used ?
+
+	clear_error
+			-- Reset database error status.
+		do
+		end
+
+	insert_auto_identity_column: BOOLEAN = False
+			-- For INSERTs and UPDATEs should table auto-increment identity columns be explicitly included in the statement?		
+
+feature -- For DATABASE_CHANGE
+
+	descriptor_is_available: BOOLEAN
+		do
+		end
+
+
+feature -- For DATABASE_FORMAT
+
+	date_to_str (object: DATE_TIME): STRING
+			-- String representation in SQL of `object'
+			-- For ODBC, ORACLE
+		do
+			create Result.make_empty
+		end
+
+	string_format (object: detachable STRING): STRING
+			-- String representation in SQL of `object'
+		obsolete
+			"Use `string_format_32' instead."
+		do
+			Result := ""
+		end
+
+	string_format_32 (object: detachable READABLE_STRING_GENERAL): STRING_32
+			-- String representation in SQL of `object'
+		do
+			Result := ""
+		end
+
+	True_representation: STRING
+			-- Database representation of the boolean True
+		do
+			Result := ""
+		end
+
+	False_representation: STRING
+			-- Database representation of the boolean False
+		do
+			Result := ""
+		end
+
+feature -- For DATABASE_SELECTION, DATABASE_CHANGE
+
+	normal_parse: BOOLEAN
+			-- Should the SQL string be normal parsed,
+			-- using SQL_SCAN?
+		do
+		end
+
+feature -- DATABASE_STRING
+
+	sql_name_string: STRING
+			-- SQL type name of string
+		do
+			Result := ""
+		end
+
+feature -- DATABASE_REAL
+
+	sql_name_real: STRING
+			-- SQL type name for real
+		do
+			Result := ""
+		end
+
+feature -- DATABASE_DATETIME
+
+	sql_name_datetime: STRING
+			-- SQL type name for datetime
+		do
+			Result := ""
+		end
+
+feature -- DATABASE_DECIMAL
+
+	sql_name_decimal: STRING
+			-- SQL type name for decimal
+		do
+			Result := ""
+		end
+
+feature -- DATABASE_DOUBLE
+
+	sql_name_double: STRING
+			-- SQL type name for double
+		do
+			Result := ""
+		end
+
+feature -- DATABASE_CHARACTER
+
+	sql_name_character: STRING
+			-- SQL type name for character
+		do
+			Result := ""
+		end
+feature -- DATABASE_INTEGER
+
+	sql_name_integer: STRING
+			-- SQL type name for integer
+		do
+			Result := ""
+		end
+
+	sql_name_integer_16: STRING
+			-- SQL type name for integer
+		do
+			Result := ""
+		end
+
+	sql_name_integer_64: STRING
+			-- SQL type name for integer
+		do
+			Result := ""
+		end
+feature -- DATABASE_BOOLEAN
+
+	sql_name_boolean: STRING
+			-- SQL type name for boolean
+		do
+			Result := ""
+		end
+
+feature -- LOGIN and DATABASE_APPL only for password_ok
+
+
+	password_ok (upasswd: STRING): BOOLEAN
+			-- Can the user password be Void?
+		do
+		end
+
+	password_ensure (name, passwd, uname, upasswd: STRING): BOOLEAN
+			-- Is name equal to uname and passwd equal to upasswd?
+		do
+		end
+
+feature -- For DATABASE_PROC
+
+
+	support_sql_of_proc: BOOLEAN
+			-- Does the database support SQL attachment to the stored procedure?
+		do
+		end
+
+	support_stored_proc: BOOLEAN
+			-- Does the database support creating a stored procedure?
+		do
+		end
+
+	sql_as: STRING
+			-- Creating a stored procedure "as"...
+		do
+			Result := ""
+		end
+
+	sql_end: STRING
+			-- End of the stored procedure creation string.
+		do
+			Result := ""
+		end
+
+	sql_execution: STRING
+			-- Begining of the stored procedure execution string.
+		do
+			Result := ""
+		end
+
+	sql_creation: STRING
+			-- Begining of the stored procedure creation string.
+		do
+			Result := ""
+		end
+
+	sql_after_exec: STRING
+			-- End of the stored procedure execution string.
+		do
+			Result := ""
+		end
+
+	support_drop_proc: BOOLEAN
+			-- Does the database support stored procedure dropping from server?
+		do
+		end
+
+	name_proc_lower: BOOLEAN
+			-- Has the name of the stored procedure to be in lower case?
+		do
+		end
+
+	map_var_between: STRING
+			-- @ symbol for ODBC and Sybase
+		do
+			Result := ""
+		end
+
+	map_var_name_32 (par_name: READABLE_STRING_GENERAL): STRING_32
+			-- Redefined for Sybase
+		do
+			Result := ""
+		end
+
+	Select_text_32 (proc_name: READABLE_STRING_GENERAL): STRING_32
+			-- SQL query to get stored procedure text
+		do
+			Result := ""
+		end
+
+	Select_exists_32 (name: READABLE_STRING_GENERAL): STRING_32
+			-- SQL query to test stored procedure existing
+		do
+			Result := ""
+		end
+
+
+	Selection_string (rep_qualifier, rep_owner, repository_name: STRING): STRING
+			-- String to select the table needed
+		do
+			Result := ""
+		end
+
+	sql_string: STRING
+			-- Database type of a string
+			-- with a size less than Max_char_size
+		do
+			Result := ""
+		end
+
+	sql_string2 (int: INTEGER): STRING
+			-- Database type of a string
+			-- with a size more than Max_char_size
+		do
+			Result := ""
+		end
+
+	sql_wstring: STRING
+			-- Database type of a string
+			-- with a size less than Max_char_size
+		do
+			Result := ""
+		end
+
+	sql_wstring2 (int: INTEGER): STRING
+			-- Database type of a string
+			-- with a size more than Max_char_size
+		do
+			Result := ""
+		end
+
+feature -- External features
+
+	get_error_message: POINTER
+			-- Function related with the error processing
+		do
+			create Result
+		end
+
+	get_error_message_string: STRING_32
+			-- Function related with the error processing
+		do
+			Result := ""
+		end
+
+	get_error_code: INTEGER
+			-- Function related with the error processing
+		do
+		end
+
+	get_warn_message: POINTER
+			-- Function related with the error processing
+		do
+			create Result
+		end
+
+	get_warn_message_string: STRING_32
+			-- Function related with the error processing
+		do
+			Result := ""
+		end
+
+	new_descriptor: INTEGER
+			-- A descriptor is used to store a row fetched by FETCH command
+			-- Whenever perform a SELECT statement, allocate a new descriptor
+			-- by int_new_descriptor(), the descriptor is freed
+			-- when the SELECT statement terminates.
+		do
+		end
+
+	init_order (no_descriptor: INTEGER; command: READABLE_STRING_GENERAL)
+			-- In DYNAMICALLY EXECUTE mode perform the SQL statement
+			-- But this routine only get things ready for dynamic execution:
+			-- 1. get the SQL statement PREPAREd; and check if there are
+			-- warning message for the SQL statement;
+			-- 2. DESCRIBE the SQL statement and get enough information to
+			-- allocate enough memory space for the corresponding descriptor.
+		do
+		end
+
+	start_order (no_descriptor: INTEGER)
+			-- Finish execution of a SQL statement in DYNAMICLLY EXECUTION mode:                                                         */
+			-- 1. if the PREPAREd SQL statement is a NON_SELECT statement,
+			-- just EXECUTE it; otherwise, DEFINE a CURSOR for it and
+			-- OPEN the CURSOR. In the process, if error occurs, do some
+			-- clearence;
+		do
+		end
+
+	next_row (no_descriptor: INTEGER)
+			-- A SELECT statement is now being executed in DYNAMIC EXECUTION mode,
+			-- the  routine is to FETCH a new tuple from database
+			-- and if a new tuple is fetched, return 1 otherwise return 0.
+		do
+		end
+
+	terminate_order (no_descriptor: INTEGER)
+			-- A SQL has been performed in DYNAMIC EXECUTION mode,
+			-- so the routine is to do some clearence:
+			-- 1. if the DYNAMICALLY EXECUTED SQL statement is a NON_SELECT
+			-- statement, just free the memory for ODBCSQLDA and clear
+			-- the cell in 'descriptor' to NULL; otherwise, CLOSE the CURSOR
+			-- and then do the same clearence.
+			-- 2. return error number.
+		do
+		end
+
+	close_cursor (no_descriptor: INTEGER)
+			-- A SQL has been performed in DYNAMIC EXECUTION mode,
+			-- Then if the DYNAMICALLY EXECUTED SQL statement is a SELECT
+			-- statement, then the cursor is closed.
+			-- Then one can do an other selection on the previous cursor.
+		do
+		end
+
+	exec_immediate (no_descriptor: INTEGER; command: READABLE_STRING_GENERAL)
+			-- In IMMEDIATE EXECUTE mode perform the SQL statement,
+			-- and then check if there is warning message for the execution,
+		do
+		end
+
+	put_col_name (no_descriptor: INTEGER; index: INTEGER; ar: STRING; max_len:INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	put_data (no_descriptor: INTEGER; index: INTEGER; ar: STRING; max_len:INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	put_data_32 (no_descriptor: INTEGER; index: INTEGER; ar: STRING_32; max_len:INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+
+	conv_type (indicator: INTEGER; index: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+			--| FIXME
+			--| This description really does not explain a thing...
+		do
+		end
+
+	get_count (no_descriptor: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_data_len (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_col_len (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_col_type (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_integer_data (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_integer_16_data (no_descriptor: INTEGER; ind: INTEGER): INTEGER_16
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_integer_64_data (no_descriptor: INTEGER; ind: INTEGER): INTEGER_64
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_float_data (no_descriptor: INTEGER; ind: INTEGER): DOUBLE
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_real_data (no_descriptor: INTEGER; ind: INTEGER): REAL
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_boolean_data (no_descriptor: INTEGER; ind: INTEGER): BOOLEAN
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	is_null_data (no_descriptor: INTEGER; ind: INTEGER): BOOLEAN
+			-- Is last retrieved data null?
+		do
+		end
+
+	get_date_data (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_hour (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_sec (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_min (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_year (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_day (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_month (no_descriptor: INTEGER; ind: INTEGER): INTEGER
+			-- Function used to get data from structure SQLDA filled  by FETCH clause.
+		do
+		end
+
+	get_decimal (no_descriptor: INTEGER; ind: INTEGER): detachable TUPLE [digits: STRING_8; sign, precision, scale: INTEGER]
+			-- Function used to get decimal info
+		do
+		end
+
+
+	database_make (i: INTEGER)
+			-- Initialize database c-module
+		do
+		end
+
+	connect (user_name, user_passwd, data_source, application, hostname, role_id: STRING; role_passwd: detachable STRING; group_id: STRING)
+			-- Connect to database
+		do
+		end
+
+	connect_by_connection_string (a_connect_string: STRING)
+			-- Connect to database by connection string
+		do
+		end
+
+	disconnect
+			-- Disconnect the current connection with an database
+		do
+		end
+
+	commit
+			-- Commit the current transaction
+		do
+		end
+
+	rollback
+			-- Commit the current transaction
+		do
+		end
+
+	trancount: INTEGER
+			-- Return the number of transactions now active
+		do
+		end
+
+	begin
+			-- Begin a data base transaction
+		do
+		end
+
+end

persistence/src/database/database_query.e

@@ -0,0 +1,137 @@
+note
+	description: "Abstract Database Query"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATABASE_QUERY
+
+inherit
+
+	SHARED_LOGGER
+
+	REFACTORING_HELPER
+
+create
+	data_reader
+
+feature -- Intialization
+
+	data_reader (a_query: STRING; a_parameters: STRING_TABLE [detachable ANY])
+			-- SQL data reader for the query `a_query' with arguments `a_parameters'
+		do
+			log.write_information (generator + ".data_reader" + " execute query: " + a_query)
+			log.write_debug (generator + ".data_reader" + " arguments:" + log_parameters (a_parameters))
+			query := a_query
+			parameters := a_parameters
+		ensure
+			query_set: query = a_query
+			parameters_set: parameters = a_parameters
+		end
+
+	execute_reader (a_base_selection: DB_SELECTION): detachable LIST [DB_RESULT]
+			-- Execute the Current sql query.
+		do
+			to_implement ("Check test dynamic sequel. to redesign.")
+			create {ARRAYED_LIST [DB_RESULT]} Result.make (100)
+			a_base_selection.set_container (Result)
+			set_map_name (a_base_selection)
+			a_base_selection.set_query (query)
+			a_base_selection.execute_query
+			if a_base_selection.is_ok then
+				a_base_selection.load_result
+				Result := a_base_selection.container
+			else
+				log.write_error (generator + "." + a_base_selection.error_message_32)
+			end
+			unset_map_name (a_base_selection)
+			a_base_selection.terminate
+		end
+
+	execute_change (a_base_change: DB_CHANGE)
+			-- Execute the Current sql query .
+		do
+			to_implement ("Check test dynamic sequel. to redesign.")
+			set_map_name (a_base_change)
+			a_base_change.set_query (query)
+			a_base_change.execute_query
+			unset_map_name (a_base_change)
+		end
+
+feature --  Access
+
+	query: STRING
+			-- SQL query to execute.
+
+	parameters: STRING_TABLE [detachable ANY]
+			-- query parameters.
+
+feature -- Status Report
+
+	has_error: BOOLEAN
+		-- is there an error?
+
+	error_message: detachable STRING_32
+		-- Error message if any.
+
+	error_code: INTEGER
+		-- Error code.
+
+feature {NONE} -- Implementation
+
+	set_map_name (a_base_selection: DB_EXPRESSION)
+			-- Store parameters `item' and their `key'.
+		do
+			from
+				parameters.start
+			until
+				parameters.after
+			loop
+				a_base_selection.set_map_name (parameters.item_for_iteration, parameters.key_for_iteration)
+				parameters.forth
+			end
+		end
+
+	unset_map_name (a_base_selection: DB_EXPRESSION)
+			-- Remove parameters item associated with key `key'.
+		do
+			from
+				parameters.start
+			until
+				parameters.after
+			loop
+				a_base_selection.unset_map_name (parameters.key_for_iteration)
+				parameters.forth
+			end
+		end
+
+	log_parameters (a_parameters: like parameters): STRING
+			-- Parameters to log with name and value
+			-- exclude sensitive information.
+		do
+			create Result.make_empty
+			from
+				a_parameters.start
+			until
+				a_parameters.after
+			loop
+				Result.append ("name:")
+				Result.append (a_parameters.key_for_iteration.as_string_32)
+				Result.append (", value:")
+				if
+					a_parameters.key_for_iteration.has_substring ("Password") or else
+					a_parameters.key_for_iteration.has_substring ("password")
+				then
+					-- Data to exclude
+				else
+					if attached a_parameters.item_for_iteration as l_item  then
+						Result.append (l_item.out)
+					end
+				end
+				Result.append ("%N")
+				a_parameters.forth
+			end
+		end
+
+
+end -- ESA_DATABASE_QUERY

persistence/src/database/database_sql_server_encoder.e

@@ -0,0 +1,33 @@
+note
+	description: "Help to encode sql queries, to prevent sql injections."
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+	EIS: "SQL server injection", "src=http://blogs.msdn.com/b/raulga/archive/2007/01/04/dynamic-sql-sql-injection.aspx", "protocol=url"
+expanded class
+	DATABASE_SQL_SERVER_ENCODER
+
+inherit
+
+	SHARED_LOGGER
+
+feature -- Escape SQL input
+
+	encode (a_string:READABLE_STRING_32): READABLE_STRING_32
+			-- Escape single quote (') and braces ([,]).
+		local
+			l_string: STRING
+		do
+			l_string := a_string.twin
+			if not l_string.is_empty then
+				l_string.replace_substring_all ("[", "[[")
+				l_string.replace_substring_all ("]", "]]")
+				if l_string.index_of ('%'', 1) > 0 then
+					l_string.replace_substring ("[", 1, l_string.index_of ('%'', 1))
+				end
+				if l_string.last_index_of ('%'', l_string.count) > 0 then
+					l_string.replace_substring ("]", l_string.last_index_of ('%'', l_string.count), l_string.count)
+				end
+			end
+			Result := l_string
+		end
+end

persistence/src/database/database_store_procedure.e

@@ -0,0 +1,193 @@
+note
+	description: "Database Store Procedure"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	DATABASE_STORE_PROCEDURE
+
+inherit
+
+	SHARED_ERROR
+
+create
+	data_reader, data_writer
+
+feature -- Intialization
+
+	data_reader (a_sp: STRING; a_parameters: HASH_TABLE [ANY, STRING_32])
+			-- SQL data reader for the stored procedure `a_sp' with arguments `a_parameters'.
+		local
+			l_retried: BOOLEAN
+		do
+			log.write_information (generator + ".data_reader" + " execute store procedure: " + a_sp)
+			log.write_debug (generator + ".data_reader" + " arguments:" + log_parameters (a_parameters))
+		    if not l_retried then
+				stored_procedure := a_sp
+				parameters := a_parameters
+				create proc.make (stored_procedure)
+				proc.load
+				if not a_parameters.is_empty then
+					proc.set_arguments_32 (a_parameters.current_keys, a_parameters.linear_representation.to_array)
+				end
+				if proc.exists then
+					if proc.text_32 /= Void then
+						debug
+							log.write_debug ( generator + ".data_reader: " + proc.text_32)
+						end
+					end
+				else
+					has_error := True
+					error_message := proc.error_message_32
+					error_code := proc.error_code
+					log.write_error (generator + ".data_witer message:" + proc.error_message_32 + " code:" + proc.error_code.out)
+				end
+			else
+				stored_procedure := a_sp
+				parameters := a_parameters
+				create proc.make (stored_procedure)
+			end
+		rescue
+			set_last_error_from_exception ("SQL execution")
+			log.write_critical (generator+ ".data_reader " + last_error_message)
+			l_retried := True
+			retry
+		end
+
+	data_writer (a_sp: STRING; a_parameters: HASH_TABLE [ANY, STRING_32])
+			-- SQL data reader for the stored procedure `a_sp' with arguments `a_parameters'
+		local
+			l_retried: BOOLEAN
+		do
+			log.write_information (generator + ".data_reader" + " execute store procedure: " + a_sp)
+			log.write_debug (generator + ".data_reader" + " arguments:" + log_parameters (a_parameters))
+			if not l_retried then
+				stored_procedure := a_sp
+				parameters := a_parameters
+				create proc.make (stored_procedure)
+				proc.load
+				proc.set_arguments_32 (a_parameters.current_keys, a_parameters.linear_representation.to_array)
+				if proc.exists then
+					if proc.text_32 /= Void then
+						debug
+							log.write_debug ( generator + ".data_writer: " + proc.text_32)
+						end
+					end
+				else
+					has_error := True
+					error_message := proc.error_message_32
+					error_code := proc.error_code
+					log.write_error (generator + ".data_witer message:" + proc.error_message_32 + " code:" + proc.error_code.out)
+				end
+			else
+				stored_procedure := a_sp
+				parameters := a_parameters
+				create proc.make (stored_procedure)
+			end
+		rescue
+			set_last_error_from_exception ("SQL execution")
+			log.write_critical (generator+ ".data_reader " + last_error_message)
+			l_retried := True
+			retry
+		end
+
+
+	execute_reader (a_base_selection: DB_SELECTION): detachable LIST [DB_RESULT]
+			-- Execute the Current store procedure.
+		do
+			create {ARRAYED_LIST [DB_RESULT]} Result.make (100)
+			a_base_selection.set_container (Result)
+			set_map_name (a_base_selection)
+			proc.execute (a_base_selection)
+			a_base_selection.load_result
+			Result := a_base_selection.container
+			unset_map_name (a_base_selection)
+		end
+
+	execute_writer (a_base_change: DB_CHANGE)
+			-- Execute the Current store procedure.
+		do
+			set_map_name (a_base_change)
+			proc.execute (a_base_change)
+			unset_map_name (a_base_change)
+		end
+
+feature --  Access
+
+	proc: DB_PROC
+			-- object to create and execute stored procedure.
+
+	parameters: HASH_TABLE [detachable ANY, STRING_32]
+			-- Parameters to be used by the stored procedure.
+
+	stored_procedure: STRING
+			-- Store procedure to execute
+
+feature -- Status Report
+
+	has_error: BOOLEAN
+			-- Is there an error.
+
+	error_message: detachable STRING_32
+			-- Last error message.
+
+	error_code: INTEGER
+			-- Last error code.
+
+feature {NONE} -- Implementation
+
+	set_map_name (a_base_selection: DB_EXPRESSION)
+			-- Store parameters `item' and their `key'.
+		do
+			from
+				parameters.start
+			until
+				parameters.after
+			loop
+				a_base_selection.set_map_name (parameters.item_for_iteration, parameters.key_for_iteration)
+				parameters.forth
+			end
+		end
+
+	unset_map_name (a_base_selection: DB_EXPRESSION)
+			-- Remove parameters item associated with key `key'.
+		do
+			from
+				parameters.start
+			until
+				parameters.after
+			loop
+				a_base_selection.unset_map_name (parameters.key_for_iteration)
+				parameters.forth
+			end
+		end
+
+	log_parameters (a_parameters: like parameters): STRING
+			-- Parameters to log with name and value
+			-- exclude sensitive information.
+		do
+			create Result.make_empty
+			from
+				a_parameters.start
+			until
+				a_parameters.after
+			loop
+				Result.append ("name:")
+				Result.append (a_parameters.key_for_iteration)
+				Result.append (", value:")
+				if
+					a_parameters.key_for_iteration.has_substring ("Password") or else
+					a_parameters.key_for_iteration.has_substring ("password")
+				then
+					-- Data to exclude
+				else
+					if attached a_parameters.item_for_iteration as l_item  then
+						Result.append (l_item.out)
+					end
+				end
+				Result.append ("%N")
+				a_parameters.forth
+			end
+		end
+
+end

persistence/src/database/parameter_name_helper.e

@@ -0,0 +1,23 @@
+note
+	description: "Helper for paramenter Names"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+deferred class
+	PARAMETER_NAME_HELPER
+
+feature -- String
+
+	string_parameter (a_value: STRING; a_length: INTEGER): STRING
+			-- Adjust a parameter `a_value' to the lenght `a_length'.
+		require
+			valid_length: a_length > 0
+		do
+			if a_value.count <= a_length then
+				Result := a_value
+			else
+				create Result.make_from_string (a_value.substring (1, a_length))
+			end
+		end
+
+end

persistence/src/model/cms_node.e

@@ -0,0 +1,114 @@
+note
+	description: "Summary description for {NODE}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	CMS_NODE
+
+create
+	make
+
+feature{NONE} -- Initialization
+	make (a_content: READABLE_STRING_32; a_summary:READABLE_STRING_32; a_title: READABLE_STRING_32)
+		local
+			l_time: DATE_TIME
+		do
+			create l_time.make_now_utc
+			set_content (a_content)
+			set_summary (a_summary)
+			set_title (a_title)
+			set_creation_date (l_time)
+			set_modification_date (l_time)
+			set_publication_date (l_time)
+		ensure
+			content_set: content = a_content
+			summary_set: summary = a_summary
+			title_set: title = a_title
+		end
+
+feature -- Access
+
+	content: READABLE_STRING_32
+			-- Content of the node.
+
+	summary: READABLE_STRING_32
+			-- A short summary of the node.
+
+	title: READABLE_STRING_32
+			-- Full title of the node.
+
+	modification_date: DATE_TIME
+			-- When the node was updated.
+
+	creation_date: DATE_TIME
+			-- When the node was created.
+
+	publication_date: DATE_TIME
+			-- When the node was published.
+
+	publication_date_output: READABLE_STRING_32
+
+	id: INTEGER_64 assign set_id
+			-- Unique id.
+
+feature -- Element change
+
+	set_content (a_content: like content)
+			-- Assign `content' with `a_content'.
+		do
+			content := a_content
+		ensure
+			content_assigned: content = a_content
+		end
+
+	set_summary (a_summary: like summary)
+			-- Assign `summary' with `a_summary'.
+		do
+			summary := a_summary
+		ensure
+			summary_assigned: summary = a_summary
+		end
+
+	set_title (a_title: like title)
+			-- Assign `title' with `a_title'.
+		do
+			title := a_title
+		ensure
+			title_assigned: title = a_title
+		end
+
+	set_modification_date (a_modification_date: like modification_date)
+			-- Assign `modification_date' with `a_modification_date'.
+		do
+			modification_date := a_modification_date
+		ensure
+			modification_date_assigned: modification_date = a_modification_date
+		end
+
+	set_creation_date (a_creation_date: like creation_date)
+			-- Assign `creation_date' with `a_creation_date'.
+		do
+			creation_date := a_creation_date
+		ensure
+			creation_date_assigned: creation_date = a_creation_date
+		end
+
+	set_publication_date (a_publication_date: like publication_date)
+			-- Assign `publication_date' with `a_publication_date'.
+		do
+			publication_date := a_publication_date
+			publication_date_output := publication_date.formatted_out ("yyyy/[0]mm/[0]dd")
+		ensure
+			publication_date_assigned: publication_date = a_publication_date
+		end
+
+	set_id (an_id: like id)
+			-- Assign `id' with `an_id'.
+		do
+			id := an_id
+		ensure
+			id_assigned: id = an_id
+		end
+
+end

persistence/src/model/cms_user.e

@@ -0,0 +1,68 @@
+note
+	description: "Summary description for {USER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	CMS_USER
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_name: READABLE_STRING_32)
+			-- Create an object with name `a_name'.
+		do
+			name := a_name
+		end
+
+feature -- Access
+
+	id: INTEGER_64
+		-- Unique id.
+
+	name: READABLE_STRING_32
+		-- User name.
+
+	password: detachable READABLE_STRING_32
+		-- User password.
+
+	email: detachable READABLE_STRING_32
+		-- User email.
+
+feature -- Change element
+
+	set_id (a_id: like id)
+			-- Set `id' with `a_id'.
+		do
+			id := a_id
+		ensure
+			id_set: id = a_id
+		end
+
+	set_name (n: like name)
+			-- Set `name' with `n'.
+		do
+			name := n
+		ensure
+			name_set: name = n
+		end
+
+	set_password (p: like password)
+			-- Set `password' with `p'.
+		do
+			password := p
+		ensure
+			password_set: password = p
+		end
+
+	set_email (m: like email)
+			-- Set `email' with `m'.
+		do
+			email := m
+		ensure
+			email_set: email = m
+		end
+
+end

persistence/src/provider/node_data_provider.e

@@ -0,0 +1,272 @@
+note
+	description: "Database access for node uses cases."
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	NODE_DATA_PROVIDER
+
+inherit
+
+	PARAMETER_NAME_HELPER
+
+	SHARED_ERROR
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- Initialization
+
+	make (a_connection: DATABASE_CONNECTION)
+			-- Create a data provider.
+		do
+			create {DATABASE_HANDLER_IMPL} db_handler.make (a_connection)
+			post_execution
+		end
+
+	db_handler: DATABASE_HANDLER
+			-- Db handler.
+
+feature -- Status Report
+
+	is_successful: BOOLEAN
+			-- Is the last execution sucessful?
+		do
+			Result := db_handler.successful
+		end
+
+feature -- Access
+
+	nodes: DATABASE_ITERATION_CURSOR [CMS_NODE]
+			-- List of nodes.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (0)
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (Select_nodes, l_parameters))
+			db_handler.execute_query
+			create Result.make (db_handler, agent fetch_node)
+			post_execution
+		end
+
+	recent_nodes (a_lower, a_rows: INTEGER): DATABASE_ITERATION_CURSOR [CMS_NODE]
+			-- The most recent `a_rows'.
+		local
+			l_parameters: STRING_TABLE [ANY]
+			l_query: STRING
+		do
+			log.write_information (generator + ".recent_nodes")
+			create l_parameters.make (2)
+			l_parameters.put (a_rows, "rows")
+			create l_query.make_from_string (select_recent_nodes)
+			l_query.replace_substring_all ("$offset", a_lower.out)
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (l_query, l_parameters))
+			db_handler.execute_query
+			create Result.make (db_handler, agent fetch_node)
+			post_execution
+		end
+
+	node (a_id: INTEGER_64): detachable CMS_NODE
+			-- Node for the given id `a_id', if any.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (1)
+			l_parameters.put (a_id,"id")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (select_node_by_id, l_parameters))
+			db_handler.execute_query
+			if db_handler.count = 1 then
+				Result := fetch_node
+			end
+			post_execution
+		end
+
+feature -- Basic operations
+
+	new_node (a_node: CMS_NODE)
+			-- Create a new node.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (6)
+			l_parameters.put (a_node.title, "title")
+			l_parameters.put (a_node.summary, "summary")
+			l_parameters.put (a_node.content, "content")
+			l_parameters.put (a_node.publication_date, "publication_date")
+			l_parameters.put (a_node.creation_date, "creation_date")
+			l_parameters.put (a_node.modification_date, "modification_date")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (sql_insert_node, l_parameters))
+			db_handler.execute_change
+			post_execution
+		end
+
+	update_node_title (a_id: INTEGER_64; a_title: READABLE_STRING_32)
+			-- Update node title for the corresponding the report with id `a_id'.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (3)
+			l_parameters.put (a_title, "title")
+			l_parameters.put (create {DATE_TIME}.make_now_utc, "modification_date")
+			l_parameters.put (a_id, "id")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (sql_update_node_title, l_parameters))
+			db_handler.execute_change
+			post_execution
+		end
+
+	update_node_summary (a_id: INTEGER_64; a_summary: READABLE_STRING_32)
+			-- Update node summary for the corresponding the report with id `a_id'.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (3)
+			l_parameters.put (a_summary, "summary")
+			l_parameters.put (create {DATE_TIME}.make_now_utc, "modification_date")
+			l_parameters.put (a_id, "id")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (sql_update_node_summary, l_parameters))
+			db_handler.execute_change
+			post_execution
+		end
+
+	update_node_content (a_id: INTEGER_64; a_content: READABLE_STRING_32)
+			-- Update node content for the corresponding the report with id `a_id'.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (3)
+			l_parameters.put (a_content, "content")
+			l_parameters.put (create {DATE_TIME}.make_now_utc, "modification_date")
+			l_parameters.put (a_id, "id")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (sql_update_node_content, l_parameters))
+			db_handler.execute_change
+			post_execution
+		end
+
+	update_node (a_node: CMS_NODE)
+			-- Update node.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (7)
+			l_parameters.put (a_node.title, "title")
+			l_parameters.put (a_node.summary, "summary")
+			l_parameters.put (a_node.content, "content")
+			l_parameters.put (a_node.publication_date, "publication_date")
+			l_parameters.put (a_node.creation_date, "creation_date")
+			l_parameters.put (create {DATE_TIME}.make_now_utc, "modification_date")
+			l_parameters.put (a_node.id, "id")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (sql_update_node, l_parameters))
+			db_handler.execute_change
+			post_execution
+		end
+
+	delete_node (a_id: INTEGER_64;)
+			-- Delete node with id `a_id'.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (1)
+			l_parameters.put (a_id, "id")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (sql_delete_node, l_parameters))
+			db_handler.execute_change
+			post_execution
+		end
+
+feature -- Connection
+
+	connect
+			-- Connect to the database.
+		do
+			if not db_handler.is_connected then
+				db_handler.connect
+			end
+		end
+
+	disconnect
+			-- Disconnect to the database.
+		do
+			if db_handler.is_connected then
+				db_handler.disconnect
+			end
+		end
+
+feature {NONE} -- Queries
+
+	Select_nodes: STRING = "select * from Nodes;"
+		-- SQL Query to retrieve all nodes.
+
+	Select_node_by_id: STRING = "select * from Nodes where id =:id order by id desc, publication_date desc;"
+
+	Select_recent_nodes: STRING = "select * from Nodes order by id desc, publication_date desc Limit $offset , :rows "
+
+	SQL_Insert_node: STRING = "insert into nodes (title, summary, content, publication_date, creation_date, modification_date) values (:title, :summary, :content, :publication_date, :creation_date, :modification_date);"
+		-- SQL Insert to add a new node.
+
+	SQL_Update_node_title: STRING ="update nodes SET title=:title, modification_date=:modification_date where id=:id;"
+		-- SQL update node title.
+
+	SQL_Update_node_summary: STRING ="update nodes SET summary=:summary, modification_date=:modification_date where id=:id;"
+		-- SQL update node summary.
+
+	SQL_Update_node_content: STRING ="update nodes SET content=:content, modification_date=:modification_date where id=:id;"
+		-- SQL node content.
+
+	SQL_Update_node : STRING = "update nodes SET title=:title, summary=:summary, content=:content, publication_date=:publication_date, creation_date=:creation_date, modification_date=:modification_date where id=:id;"
+		-- SQL node.
+
+	SQL_Delete_node: STRING = "delete from nodes where id=:id;"
+
+
+feature -- New Object
+
+	fetch_node: CMS_NODE
+		do
+			create Result.make ("", "", "")
+			if attached db_handler.read_integer_32 (1) as l_id then
+				Result.set_id (l_id)
+			end
+			if attached db_handler.read_date_time (2) as l_pd then
+				Result.set_publication_date (l_pd)
+			end
+			if attached db_handler.read_date_time (3) as l_cd then
+				Result.set_creation_date (l_cd)
+			end
+			if attached db_handler.read_date_time (4) as l_md then
+				Result.set_modification_date (l_md)
+			end
+			if attached db_handler.read_string (5) as l_t then
+				Result.set_title (l_t)
+			end
+			if attached db_handler.read_string (6) as l_s then
+				Result.set_summary (l_s)
+			end
+			if attached db_handler.read_string (7) as l_c then
+				Result.set_content (l_c)
+			end
+		end
+
+feature {NONE} -- Implementation
+
+	post_execution
+			-- Post database execution.
+		do
+			if db_handler.successful then
+				set_successful
+			else
+				if attached db_handler.last_error then
+					set_last_error_from_handler (db_handler.last_error)
+				end
+			end
+		end
+
+end

persistence/src/provider/user_data_provider.e

@@ -0,0 +1,182 @@
+note
+	description: "Summary description for {USER_DATA_PROVIDER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	USER_DATA_PROVIDER
+
+inherit
+
+	PARAMETER_NAME_HELPER
+
+	SHARED_ERROR
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- Initialization
+
+	make (a_connection: DATABASE_CONNECTION)
+			-- Create a data provider.
+		do
+			create {DATABASE_HANDLER_IMPL} db_handler.make (a_connection)
+			post_execution
+		end
+
+	db_handler: DATABASE_HANDLER
+			-- Db handler.
+
+feature -- Status Report
+
+	is_successful: BOOLEAN
+			-- Is the last execution sucessful?
+		do
+			Result := db_handler.successful
+		end
+
+feature -- Basic Operations
+
+	new_user (a_user_name: READABLE_STRING_32; a_password: READABLE_STRING_32; a_email: READABLE_STRING_32)
+			-- Create a new node.
+		local
+			l_parameters: STRING_TABLE [detachable ANY]
+			l_password_salt, l_password_hash: STRING
+			l_security: SECURITY_PROVIDER
+		do
+			create l_security
+			l_password_salt := l_security.salt
+			l_password_hash := l_security.password_hash (a_password, l_password_salt)
+
+			log.write_information (generator + ".new_user")
+			create l_parameters.make (4)
+			l_parameters.put (a_user_name,"username")
+			l_parameters.put (l_password_hash,"password")
+			l_parameters.put (l_password_salt,"salt")
+			l_parameters.put (a_email,"email")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (sql_insert_user, l_parameters))
+			db_handler.execute_change
+			post_execution
+		end
+
+	user (a_id: INTEGER_64): detachable CMS_USER
+			-- User for the given id `a_id', if any.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (1)
+			l_parameters.put (a_id,"id")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (select_user_by_id, l_parameters))
+			db_handler.execute_query
+			if db_handler.count = 1 then
+				Result := fetch_user
+			end
+			post_execution
+		end
+
+	user_by_name (a_name: READABLE_STRING_32): detachable CMS_USER
+			-- User for the given name `a_name', if any.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".user_by_name")
+			create l_parameters.make (1)
+			l_parameters.put (a_name,"name")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (select_user_by_name, l_parameters))
+			db_handler.execute_query
+			if db_handler.count = 1 then
+				Result := fetch_user
+			end
+			post_execution
+		end
+
+
+	user_by_email (a_email: detachable READABLE_STRING_32): detachable CMS_USER
+			-- User for the given email `a_email', if any.
+		local
+			l_parameters: STRING_TABLE [detachable ANY]
+		do
+			log.write_information (generator + ".user_by_name")
+			create l_parameters.make (1)
+			l_parameters.put (a_email,"email")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (select_user_by_email, l_parameters))
+			db_handler.execute_query
+			if db_handler.count = 1 then
+				Result := fetch_user
+			end
+			post_execution
+		end
+
+	user_salt (a_username: READABLE_STRING_32): detachable READABLE_STRING_32
+			-- User salt for the given user `a_username', if any.
+		local
+			l_parameters: STRING_TABLE [ANY]
+		do
+			log.write_information (generator + ".nodes")
+			create l_parameters.make (1)
+			l_parameters.put (a_username,"name")
+			db_handler.set_query (create {DATABASE_QUERY}.data_reader (select_salt_by_username, l_parameters))
+			db_handler.execute_query
+			if db_handler.count = 1 then
+				if attached db_handler.read_string (1) as l_salt then
+					Result := l_salt.as_string_32
+				end
+			end
+			post_execution
+		end
+
+feature -- New Object
+
+	fetch_user: CMS_USER
+		do
+			create Result.make ("")
+			if attached db_handler.read_integer_32 (1) as l_id then
+				Result.set_id (l_id)
+			end
+			if attached db_handler.read_string (2) as l_u then
+				Result.set_name (l_u)
+			end
+			if attached db_handler.read_string (3) as l_p then
+				Result.set_password (l_p)
+			end
+			if attached db_handler.read_string (5) as l_e then
+				Result.set_email (l_e)
+			end
+		end
+
+feature -- Sql Queries
+
+	Select_user_by_id: STRING = "select * from Users where id =:id;"
+		-- Retrieve user by id if exists.
+
+	Select_user_by_name: STRING = "select * from Users where username =:name;"
+		-- Retrieve user by name if exists.
+
+	Select_user_by_email: STRING = "select * from Users where email =:email;"
+		-- Retrieve user by email if exists.
+
+	Select_salt_by_username: STRING = "select salt from Users where username =:name;"
+		-- Retrieve salt by username if exists.
+
+	SQL_Insert_user: STRING = "insert into users (username, password, salt, email) values (:username, :password, :salt, :email);"
+		-- SQL Insert to add a new node.
+
+
+feature {NONE} -- Implementation
+
+	post_execution
+			-- Post database execution.
+		do
+			if db_handler.successful then
+				set_successful
+			else
+				if attached db_handler.last_error then
+					set_last_error_from_handler (db_handler.last_error)
+				end
+			end
+		end
+
+end

persistence/src/security/security_provider.e

@@ -0,0 +1,153 @@
+note
+	description: "Provides security routine helpers"
+	date: "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision: "$Revision: 95678 $"
+
+class
+	SECURITY_PROVIDER
+
+inherit
+
+	REFACTORING_HELPER
+
+feature -- Access
+
+	token: STRING
+			-- Cryptographic random base 64 string.
+		do
+			Result := salt_with_size (5)
+				--	Remove trailing equal sign
+			Result.keep_head (Result.count - 1)
+		end
+
+	salt: STRING
+			-- Cryptographic random number of 16 bytes.
+		do
+			Result := salt_with_size (16)
+		end
+
+	password: STRING
+			-- Cryptographic random password of 10 bytes.
+		do
+			Result := salt_with_size (10)
+				--	Remove trailing equal signs
+			Result.keep_head (Result.count - 2)
+		end
+
+	password_hash (a_password, a_salt: STRING): STRING
+			-- Password hash based on password `a_password' and salt value `a_salt'.
+		do
+			Result := sha1_string (a_password + a_salt )
+		end
+
+feature {NONE} -- Implementation
+
+	salt_with_size (a_val: INTEGER): STRING
+			-- Return a salt with size `a_val'.
+		local
+			l_salt: SALT_XOR_SHIFT_64_GENERATOR
+			l_array: ARRAY [INTEGER_8]
+			i: INTEGER
+		do
+			create l_salt.make (a_val)
+			create l_array.make_empty
+			i := 1
+			across
+				l_salt.new_sequence as c
+			loop
+				l_array.force (c.item.as_integer_8, i)
+				i := i + 1
+			end
+			Result := encode_base_64 (l_array)
+		end
+
+	sha1_string (a_str: STRING): STRING
+			-- SHA1 diggest of `a_str'.
+		do
+			sha1.update_from_string (a_str)
+			Result := sha1.digest_as_string
+			sha1.reset
+		end
+
+	sha1: SHA1
+			-- Create a SHA1 object.
+		once
+			create Result.make
+		end
+
+feature -- Encoding
+
+
+	encode_base_64 (bytes: SPECIAL [INTEGER_8]): STRING_8
+			-- Encodes a byte array into a STRING doing base64 encoding.
+		local
+			l_output: SPECIAL [INTEGER_8]
+			l_remaining: INTEGER
+			i, ptr: INTEGER
+			char: CHARACTER
+		do
+			to_implement ("Check existing code to do that!!!.")
+			create l_output.make_filled (0, ((bytes.count + 2) // 3) * 4)
+			l_remaining := bytes.count
+			from
+				i := 0
+				ptr := 0
+			until
+				l_remaining <= 3
+			loop
+				l_output [ptr] := encode_value (bytes [i] |>> 2)
+				ptr := ptr + 1
+				l_output [ptr] := encode_value (((bytes [i] & 0x3) |<< 4) | ((bytes [i + 1] |>> 4) & 0xF))
+				ptr := ptr + 1
+				l_output [ptr] := encode_value (((bytes [i + 1] & 0xF) |<< 2) | ((bytes [i + 2] |>> 6) & 0x3))
+				ptr := ptr + 1
+				l_output [ptr] := encode_value (bytes [i + 2] & 0x3F)
+				ptr := ptr + 1
+				l_remaining := l_remaining - 3
+				i := i + 3
+			end
+				-- encode when exactly 1 element (left) to encode
+			char := '='
+			if l_remaining = 1 then
+				l_output [ptr] := encode_value (bytes [i] |>> 2)
+				ptr := ptr + 1
+				l_output [ptr] := encode_value (((bytes [i]) & 0x3) |<< 4)
+				ptr := ptr + 1
+				l_output [ptr] := char.code.as_integer_8
+				ptr := ptr + 1
+				l_output [ptr] := char.code.as_integer_8
+				ptr := ptr + 1
+			end
+
+				-- encode when exactly 2 elements (left) to encode
+			if l_remaining = 2 then
+				l_output [ptr] := encode_value (bytes [i] |>> 2)
+				ptr := ptr + 1
+				l_output [ptr] := encode_value (((bytes [i] & 0x3) |<< 4) | ((bytes [i + 1] |>> 4) & 0xF));
+				ptr := ptr + 1
+				l_output [ptr] := encode_value ((bytes [i + 1] & 0xF) |<< 2);
+				ptr := ptr + 1
+				l_output [ptr] := char.code.as_integer_8
+				ptr := ptr + 1
+			end
+			Result := ""
+			across
+				l_output as elem
+			loop
+				Result.append_character (elem.item.to_character_8)
+			end
+		end
+
+	base64_map: SPECIAL [CHARACTER_8]
+			-- Table for Base64 encoding.
+		once
+			Result := ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/").area
+		end
+
+	encode_value (i: INTEGER_8): INTEGER_8
+			-- Encode `i'.
+		do
+			Result := base64_map [i & 0x3F].code.as_integer_8
+		end
+
+end

persistence/src/string_helper.e

@@ -0,0 +1,53 @@
+note
+	description: "Summary description for {STRING_HELPER}."
+	date: "$Date: 2014-08-08 16:02:11 -0300 (vi., 08 ago. 2014) $"
+	revision: "$Revision: 95593 $"
+
+class
+	STRING_HELPER
+
+feature -- Access
+
+	is_blank (s: detachable READABLE_STRING_32): BOOLEAN
+		local
+			i,n: INTEGER
+		do
+			Result := True
+			if s /= Void then
+				from
+					i := 1
+					n := s.count
+				until
+					i > n or not Result
+				loop
+					Result := s[i].is_space
+					i := i + 1
+				end
+			end
+		end
+
+	indented_text (pre: READABLE_STRING_8; t: READABLE_STRING_8): READABLE_STRING_8
+			-- Indendted text.
+		local
+			s8: STRING_8
+		do
+			s8 := t.string
+			s8.prepend (pre)
+			s8.replace_substring_all ("%N", "%N" + pre)
+			Result := s8
+		end
+
+
+	json_encode (a_string: STRING): STRING
+			-- json encode `a_string'.
+		local
+			encode: SHARED_JSON_ENCODER
+		do
+			create encode
+			Result := encode.json_encoder.encoded_string (a_string)
+			debug
+				print ("%NResult" + Result)
+			end
+		end
+
+end

persistence/tests/application.e

@@ -0,0 +1,55 @@
+note
+	description : "tests application root class"
+	date        : "$Date: 2014-08-20 15:21:15 -0300 (mi., 20 ago. 2014) $"
+	revision    : "$Revision: 95678 $"
+
+class
+	APPLICATION
+
+inherit
+	ARGUMENTS
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make
+			-- Run application.
+		local
+			user: USER_DATA_PROVIDER
+			node: NODE_DATA_PROVIDER
+			l_security: SECURITY_PROVIDER
+		do
+			create connection.login_with_schema ("cms", "root", "")
+--			create user.make (connection)
+----			user.new_user ("jv", "test","test@test.com")
+
+--			if attached user.user (3) as l_user then
+--				if attached user.user_salt ("jv") as l_salt then
+--					create l_security
+--					if attached l_user.password as l_password then
+--						print (l_password)
+--						io.put_new_line
+--						print (l_security.password_hash ("test", l_salt))
+
+--						check same_string: l_security.password_hash ("test", l_salt).is_case_insensitive_equal (l_password) end
+--					end
+--				end
+--			end
+
+--			if attached user.user_by_name ("jv") as l_user then
+--				check l_user.id = 3 end
+--			end
+
+			create node.make (connection)
+			across node.recent_nodes (0, 5) as c loop
+				print (c.item)
+			end
+
+
+		end
+
+	connection: DATABASE_CONNECTION_MYSQL
+
+end

persistence/tests/tests.ecf

@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-13-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-13-0 http://www.eiffel.com/developers/xml/configuration-1-13-0.xsd" name="tests">
+	<target name="tests">
+		<root class="APPLICATION" feature="make"/>
+		<option warning="true" void_safety="conformance">
+			<assertions precondition="true" postcondition="true" check="true" invariant="true" loop="true" supplier_precondition="true"/>
+		</option>
+		<setting name="concurrency" value="thread"/>
+		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
+		<library name="crypto" location="$ISE_LIBRARY\unstable\library\text\encryption\crypto\crypto-safe.ecf"/>
+		<library name="persitence" location="..\persistence.ecf" readonly="false"/>
+		<library name="testing" location="$ISE_LIBRARY\library\testing\testing-safe.ecf"/>
+		<library name="process" location="$ISE_LIBRARY\library\process\process-safe.ecf"/>
+		<cluster name="tests" location=".\" recursive="true">
+			<file_rule>
+				<exclude>/EIFGENs$</exclude>
+				<exclude>/CVS$</exclude>
+				<exclude>/.svn$</exclude>
+			</file_rule>
+		</cluster>
+	</target>
+</system>