note
	description: "[
			Common ancestor for builders responsible to instantiate storage based
			on SQL statement storage.
		]"
	author: "$Author: jfiat $"
	date: "$Date: 2015-01-27 19:15:02 +0100 (mar., 27 janv. 2015) $"
	revision: "$Revision: 96542 $"

deferred class
	CMS_STORAGE_SQL_BUILDER

inherit
	CMS_STORAGE_BUILDER

feature -- Initialization

	initialize (a_setup: CMS_SETUP; a_storage: CMS_STORAGE_SQL)
		local
			u: CMS_USER
			l_anonymous_role, l_authenticated_role, r: CMS_USER_ROLE
			l_roles: LIST [CMS_USER_ROLE]
		do
				--| Schema
			a_storage.sql_execute_file_script (a_setup.environment.path.extended ("scripts").extended ("core.sql"))
			a_storage.sql_execute_file_script (a_setup.environment.path.extended ("scripts").extended ("user.sql"))

				--| Roles
			create l_anonymous_role.make ("anonymous")
			a_storage.save_user_role (l_anonymous_role)

			create l_authenticated_role.make ("authenticated")
			a_storage.save_user_role (l_authenticated_role)

				--| Users
			create u.make ("admin")
			u.set_password ("istrator#")
			u.set_email (a_setup.site_email)
			a_storage.new_user (u)

				--| Node			
				-- FIXME: move that initialization to node module
				-- TODO: should we move the initialization to an
				--! external configuration file?
				--! at the moment we only have 1 admin to the whole site.
				--! is that ok?
			l_anonymous_role.add_permission ("view any page")
			a_storage.save_user_role (l_anonymous_role)

			l_authenticated_role.add_permission ("create page")
			l_authenticated_role.add_permission ("view any page")
			l_authenticated_role.add_permission ("edit any page")
			l_authenticated_role.add_permission ("delete page")
			l_authenticated_role.add_permission ("trash page")
			l_authenticated_role.add_permission ("view own page")
			l_authenticated_role.add_permission ("edit own page")
			l_authenticated_role.add_permission ("delete own page")
			l_authenticated_role.add_permission ("trash own page")
			a_storage.save_user_role (l_authenticated_role)


			--|-------------------------------------------|--
			--| For testing purpose, to be removed later. |--
			--|-------------------------------------------|--

				-- Roles, view role for testing.
			create r.make ("view")
			r.add_permission ("view any page")
			a_storage.save_user_role (r)

			create {ARRAYED_LIST [CMS_USER_ROLE]} l_roles.make (1)
			l_roles.force (r)

			create u.make ("auth")
			u.set_password ("enticated#")
			u.set_email (a_setup.site_email)
			a_storage.new_user (u)

			create u.make ("test")
			u.set_password ("test#")
			u.set_email (a_setup.site_email)
			a_storage.new_user (u)

			create u.make ("view")
			u.set_password ("only#")
			u.set_email (a_setup.site_email)
			u.set_roles (l_roles)
			a_storage.new_user (u)
		end

end