2022-09-09 10:40:05 +02:00
|
|
|
--liquibase formatted sql
|
|
|
|
|
|
|
|
-- ============================================================================
|
2022-09-13 13:27:52 +02:00
|
|
|
--changeset hs-office-partner-rbac-OBJECT:1 endDelimiter:--//
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ----------------------------------------------------------------------------
|
2022-09-13 13:27:52 +02:00
|
|
|
call generateRelatedRbacObject('hs_office_partner');
|
2022-09-09 10:40:05 +02:00
|
|
|
--//
|
|
|
|
|
2022-09-13 10:58:54 +02:00
|
|
|
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ============================================================================
|
2022-09-13 13:27:52 +02:00
|
|
|
--changeset hs-office-partner-rbac-ROLE-DESCRIPTORS:1 endDelimiter:--//
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function HsOfficePartnerOwner(partner hs_office_partner)
|
2022-09-09 10:40:05 +02:00
|
|
|
returns RbacRoleDescriptor
|
|
|
|
language plpgsql
|
|
|
|
strict as $$
|
|
|
|
begin
|
2022-09-13 13:27:52 +02:00
|
|
|
return roleDescriptor('hs_office_partner', partner.uuid, 'owner');
|
2022-09-09 10:40:05 +02:00
|
|
|
end; $$;
|
|
|
|
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function HsOfficePartnerAdmin(partner hs_office_partner)
|
2022-09-09 10:40:05 +02:00
|
|
|
returns RbacRoleDescriptor
|
|
|
|
language plpgsql
|
|
|
|
strict as $$
|
|
|
|
begin
|
2022-09-13 13:27:52 +02:00
|
|
|
return roleDescriptor('hs_office_partner', partner.uuid, 'admin');
|
2022-09-09 10:40:05 +02:00
|
|
|
end; $$;
|
|
|
|
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function HsOfficePartnerTenant(partner hs_office_partner)
|
2022-09-09 10:40:05 +02:00
|
|
|
returns RbacRoleDescriptor
|
|
|
|
language plpgsql
|
|
|
|
strict as $$
|
|
|
|
begin
|
2022-09-13 13:27:52 +02:00
|
|
|
return roleDescriptor('hs_office_partner', partner.uuid, 'tenant');
|
2022-09-09 10:40:05 +02:00
|
|
|
end; $$;
|
|
|
|
--//
|
|
|
|
|
|
|
|
|
|
|
|
-- ============================================================================
|
2022-09-13 13:27:52 +02:00
|
|
|
--changeset hs-office-partner-rbac-ROLES-CREATION:1 endDelimiter:--//
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
/*
|
|
|
|
Creates the roles and their assignments for a new partner for the AFTER INSERT TRIGGER.
|
|
|
|
*/
|
|
|
|
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function createRbacRolesForHsOfficePartner()
|
2022-09-09 10:40:05 +02:00
|
|
|
returns trigger
|
|
|
|
language plpgsql
|
|
|
|
strict as $$
|
|
|
|
declare
|
|
|
|
ownerRole uuid;
|
|
|
|
adminRole uuid;
|
2022-09-13 13:27:52 +02:00
|
|
|
person hs_office_person;
|
|
|
|
contact hs_office_contact;
|
2022-09-09 10:40:05 +02:00
|
|
|
begin
|
|
|
|
if TG_OP <> 'INSERT' then
|
|
|
|
raise exception 'invalid usage of TRIGGER AFTER INSERT';
|
|
|
|
end if;
|
|
|
|
|
2022-09-13 13:27:52 +02:00
|
|
|
select * from hs_office_person as p where p.uuid = NEW.personUuid into person;
|
|
|
|
select * from hs_office_contact as c where c.uuid = NEW.contactUuid into contact;
|
2022-09-09 17:43:43 +02:00
|
|
|
|
2022-09-09 10:40:05 +02:00
|
|
|
-- the owner role with full access for the global admins
|
|
|
|
ownerRole = createRole(
|
2022-09-13 13:27:52 +02:00
|
|
|
HsOfficePartnerOwner(NEW),
|
2022-09-09 10:40:05 +02:00
|
|
|
grantingPermissions(forObjectUuid => NEW.uuid, permitOps => array ['*']),
|
|
|
|
beneathRole(globalAdmin())
|
|
|
|
);
|
|
|
|
|
|
|
|
-- the admin role with full access for the global admins
|
|
|
|
adminRole = createRole(
|
2022-09-13 13:27:52 +02:00
|
|
|
HsOfficePartnerAdmin(NEW),
|
2022-09-09 10:40:05 +02:00
|
|
|
grantingPermissions(forObjectUuid => NEW.uuid, permitOps => array ['edit']),
|
2022-09-09 17:43:43 +02:00
|
|
|
beneathRole(ownerRole)
|
2022-09-09 10:40:05 +02:00
|
|
|
);
|
|
|
|
|
|
|
|
-- the tenant role for those related users who can view the data
|
|
|
|
perform createRole(
|
2022-09-13 13:27:52 +02:00
|
|
|
HsOfficePartnerTenant(NEW),
|
2022-09-09 10:40:05 +02:00
|
|
|
grantingPermissions(forObjectUuid => NEW.uuid, permitOps => array ['view']),
|
2022-09-13 13:27:52 +02:00
|
|
|
beneathRoles(array[HsOfficePartnerAdmin(NEW), hsOfficePersonAdmin(person), hsOfficeContactAdmin(contact)]),
|
|
|
|
withSubRoles(array[hsOfficePersonTenant(person), hsOfficeContactTenant(contact)])
|
2022-09-09 10:40:05 +02:00
|
|
|
);
|
|
|
|
|
|
|
|
return NEW;
|
|
|
|
end; $$;
|
|
|
|
|
|
|
|
/*
|
|
|
|
An AFTER INSERT TRIGGER which creates the role structure for a new customer.
|
|
|
|
*/
|
|
|
|
|
2022-09-13 13:27:52 +02:00
|
|
|
create trigger createRbacRolesForHsOfficePartner_Trigger
|
2022-09-09 10:40:05 +02:00
|
|
|
after insert
|
2022-09-13 13:27:52 +02:00
|
|
|
on hs_office_partner
|
2022-09-09 10:40:05 +02:00
|
|
|
for each row
|
2022-09-13 13:27:52 +02:00
|
|
|
execute procedure createRbacRolesForHsOfficePartner();
|
2022-09-09 10:40:05 +02:00
|
|
|
--//
|
|
|
|
|
|
|
|
|
|
|
|
-- ============================================================================
|
2022-09-13 13:27:52 +02:00
|
|
|
--changeset hs-office-partner-rbac-IDENTITY-VIEW:1 endDelimiter:--//
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
/*
|
|
|
|
Creates a view to the partner main table which maps the identifying name
|
|
|
|
(in this case, the prefix) to the objectUuid.
|
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace view hs_office_partner_iv as
|
2022-09-09 10:40:05 +02:00
|
|
|
select target.uuid,
|
|
|
|
cleanIdentifier(
|
2022-09-13 13:27:52 +02:00
|
|
|
(select idName from hs_office_person_iv p where p.uuid = target.personuuid)
|
2022-09-09 10:40:05 +02:00
|
|
|
|| '-' ||
|
2022-09-13 13:27:52 +02:00
|
|
|
(select idName from hs_office_contact_iv c where c.uuid = target.contactuuid)
|
2022-09-09 10:40:05 +02:00
|
|
|
)
|
|
|
|
as idName
|
2022-09-13 13:27:52 +02:00
|
|
|
from hs_office_partner as target;
|
2022-09-09 10:40:05 +02:00
|
|
|
-- TODO.spec: Is it ok that everybody has access to this information?
|
2022-09-13 13:27:52 +02:00
|
|
|
grant all privileges on hs_office_partner_iv to restricted;
|
2022-09-09 10:40:05 +02:00
|
|
|
|
|
|
|
/*
|
|
|
|
Returns the objectUuid for a given identifying name (in this case the prefix).
|
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function hs_office_partnerUuidByIdName(idName varchar)
|
2022-09-09 10:40:05 +02:00
|
|
|
returns uuid
|
|
|
|
language sql
|
|
|
|
strict as $$
|
2022-09-13 13:27:52 +02:00
|
|
|
select uuid from hs_office_partner_iv iv where iv.idName = hs_office_partnerUuidByIdName.idName;
|
2022-09-09 10:40:05 +02:00
|
|
|
$$;
|
|
|
|
|
|
|
|
/*
|
|
|
|
Returns the identifying name for a given objectUuid (in this case the label).
|
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function hs_office_partnerIdNameByUuid(uuid uuid)
|
2022-09-09 10:40:05 +02:00
|
|
|
returns varchar
|
|
|
|
language sql
|
|
|
|
strict as $$
|
2022-09-13 13:27:52 +02:00
|
|
|
select idName from hs_office_partner_iv iv where iv.uuid = hs_office_partnerIdNameByUuid.uuid;
|
2022-09-09 10:40:05 +02:00
|
|
|
$$;
|
|
|
|
--//
|
|
|
|
|
|
|
|
|
|
|
|
-- ============================================================================
|
2022-09-13 13:27:52 +02:00
|
|
|
--changeset hs-office-partner-rbac-RESTRICTED-VIEW:1 endDelimiter:--//
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
/*
|
|
|
|
Creates a view to the partner main table with row-level limitation
|
|
|
|
based on the 'view' permission of the current user or assumed roles.
|
|
|
|
*/
|
|
|
|
set session session authorization default;
|
2022-09-13 13:27:52 +02:00
|
|
|
drop view if exists hs_office_partner_rv;
|
|
|
|
create or replace view hs_office_partner_rv as
|
2022-09-09 10:40:05 +02:00
|
|
|
select target.*
|
2022-09-13 13:27:52 +02:00
|
|
|
from hs_office_partner as target
|
|
|
|
where target.uuid in (select queryAccessibleObjectUuidsOfSubjectIds('view', 'hs_office_partner', currentSubjectsUuids()));
|
|
|
|
grant all privileges on hs_office_partner_rv to restricted;
|
2022-09-09 10:40:05 +02:00
|
|
|
--//
|
|
|
|
|
|
|
|
|
|
|
|
-- ============================================================================
|
2022-09-13 13:27:52 +02:00
|
|
|
--changeset hs-office-partner-rbac-INSTEAD-OF-INSERT-TRIGGER:1 endDelimiter:--//
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
/**
|
2022-09-13 13:27:52 +02:00
|
|
|
Instead of insert trigger function for hs_office_partner_rv.
|
2022-09-09 10:40:05 +02:00
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function insertHsOfficePartner()
|
2022-09-09 10:40:05 +02:00
|
|
|
returns trigger
|
|
|
|
language plpgsql as $$
|
|
|
|
declare
|
2022-09-13 13:27:52 +02:00
|
|
|
newUser hs_office_partner;
|
2022-09-09 10:40:05 +02:00
|
|
|
begin
|
|
|
|
insert
|
2022-09-13 13:27:52 +02:00
|
|
|
into hs_office_partner
|
2022-09-09 10:40:05 +02:00
|
|
|
values (new.*)
|
|
|
|
returning * into newUser;
|
|
|
|
return newUser;
|
|
|
|
end;
|
|
|
|
$$;
|
|
|
|
|
|
|
|
/*
|
2022-09-13 13:27:52 +02:00
|
|
|
Creates an instead of insert trigger for the hs_office_partner_rv view.
|
2022-09-09 10:40:05 +02:00
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create trigger insertHsOfficePartner_Trigger
|
2022-09-09 10:40:05 +02:00
|
|
|
instead of insert
|
2022-09-13 13:27:52 +02:00
|
|
|
on hs_office_partner_rv
|
2022-09-09 10:40:05 +02:00
|
|
|
for each row
|
2022-09-13 13:27:52 +02:00
|
|
|
execute function insertHsOfficePartner();
|
2022-09-09 10:40:05 +02:00
|
|
|
--//
|
|
|
|
|
|
|
|
-- ============================================================================
|
2022-09-13 13:27:52 +02:00
|
|
|
--changeset hs-office-partner-rbac-INSTEAD-OF-DELETE-TRIGGER:1 endDelimiter:--//
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
/**
|
2022-09-13 13:27:52 +02:00
|
|
|
Instead of delete trigger function for hs_office_partner_rv.
|
2022-09-12 16:27:17 +02:00
|
|
|
|
|
|
|
Checks if the current subject (user / assumed role) has the permission to delete the row.
|
2022-09-09 10:40:05 +02:00
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function deleteHsOfficePartner()
|
2022-09-09 10:40:05 +02:00
|
|
|
returns trigger
|
|
|
|
language plpgsql as $$
|
|
|
|
begin
|
2022-09-09 17:43:43 +02:00
|
|
|
if hasGlobalRoleGranted(currentUserUuid()) or
|
2022-09-13 13:27:52 +02:00
|
|
|
old.uuid in (select queryAccessibleObjectUuidsOfSubjectIds('delete', 'hs_office_partner', currentSubjectsUuids())) then
|
|
|
|
delete from hs_office_partner c where c.uuid = old.uuid;
|
2022-09-09 10:40:05 +02:00
|
|
|
return old;
|
|
|
|
end if;
|
|
|
|
raise exception '[403] User % not allowed to delete partner uuid %', currentUser(), old.uuid;
|
|
|
|
end; $$;
|
|
|
|
|
|
|
|
/*
|
2022-09-13 13:27:52 +02:00
|
|
|
Creates an instead of delete trigger for the hs_office_partner_rv view.
|
2022-09-09 10:40:05 +02:00
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create trigger deleteHsOfficePartner_Trigger
|
2022-09-09 10:40:05 +02:00
|
|
|
instead of delete
|
2022-09-13 13:27:52 +02:00
|
|
|
on hs_office_partner_rv
|
2022-09-09 10:40:05 +02:00
|
|
|
for each row
|
2022-09-13 13:27:52 +02:00
|
|
|
execute function deleteHsOfficePartner();
|
2022-09-09 10:40:05 +02:00
|
|
|
--/
|
|
|
|
|
|
|
|
-- ============================================================================
|
2022-09-13 13:27:52 +02:00
|
|
|
--changeset hs-office-partner-rbac-NEW-CONTACT:1 endDelimiter:--//
|
2022-09-09 10:40:05 +02:00
|
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
/*
|
|
|
|
Creates a global permission for new-partner and assigns it to the hostsharing admins role.
|
|
|
|
*/
|
|
|
|
do language plpgsql $$
|
|
|
|
declare
|
|
|
|
addCustomerPermissions uuid[];
|
|
|
|
globalObjectUuid uuid;
|
|
|
|
globalAdminRoleUuid uuid ;
|
|
|
|
begin
|
|
|
|
call defineContext('granting global new-partner permission to global admin role', null, null, null);
|
|
|
|
|
|
|
|
globalAdminRoleUuid := findRoleId(globalAdmin());
|
|
|
|
globalObjectUuid := (select uuid from global);
|
|
|
|
addCustomerPermissions := createPermissions(globalObjectUuid, array ['new-partner']);
|
|
|
|
call grantPermissionsToRole(globalAdminRoleUuid, addCustomerPermissions);
|
|
|
|
end;
|
|
|
|
$$;
|
|
|
|
|
|
|
|
/**
|
|
|
|
Used by the trigger to prevent the add-customer to current user respectively assumed roles.
|
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create or replace function addHsOfficePartnerNotAllowedForCurrentSubjects()
|
2022-09-09 10:40:05 +02:00
|
|
|
returns trigger
|
|
|
|
language PLPGSQL
|
|
|
|
as $$
|
|
|
|
begin
|
|
|
|
raise exception '[403] new-partner not permitted for %',
|
|
|
|
array_to_string(currentSubjects(), ';', 'null');
|
|
|
|
end; $$;
|
|
|
|
|
|
|
|
/**
|
|
|
|
Checks if the user or assumed roles are allowed to create a new customer.
|
|
|
|
*/
|
2022-09-13 13:27:52 +02:00
|
|
|
create trigger hs_office_partner_insert_trigger
|
2022-09-09 10:40:05 +02:00
|
|
|
before insert
|
2022-09-13 13:27:52 +02:00
|
|
|
on hs_office_partner
|
2022-09-09 10:40:05 +02:00
|
|
|
for each row
|
|
|
|
-- TODO.spec: who is allowed to create new partners
|
|
|
|
when ( not hasAssumedRole() )
|
2022-09-13 13:27:52 +02:00
|
|
|
execute procedure addHsOfficePartnerNotAllowedForCurrentSubjects();
|
2022-09-09 10:40:05 +02:00
|
|
|
--//
|
|
|
|
|