1eed0e9b21
Co-authored-by: Michael Hoennig <michael@hoennig.de> Co-authored-by: Michael Hönnig <michael@hoennig.de> Reviewed-on: https://dev.hostsharing.net/hostsharing/hs.hsadmin.ng/pulls/103 Reviewed-by: Marc Sandlus <marc.sandlus@hostsharing.net>
62 lines
2.2 KiB
PL/PgSQL
62 lines
2.2 KiB
PL/PgSQL
--liquibase formatted sql
|
|
|
|
|
|
-- ============================================================================
|
|
--changeset michael.hoennig:rbac-trigger-context-ENTER endDelimiter:--//
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
create or replace procedure rbac.enterTriggerForObjectUuid(currentObjectUuid uuid)
|
|
language plpgsql as $$
|
|
declare
|
|
existingObjectUuid text;
|
|
begin
|
|
existingObjectUuid = current_setting('hsadminng.currentObjectUuid', true);
|
|
if (existingObjectUuid > '' ) then
|
|
raise exception '[500] currentObjectUuid already defined, already in trigger of "%"', existingObjectUuid;
|
|
end if;
|
|
execute format('set local hsadminng.currentObjectUuid to %L', currentObjectUuid);
|
|
end; $$;
|
|
|
|
|
|
-- ============================================================================
|
|
--changeset michael.hoennig:rbac-trigger-context-CURRENT-ID endDelimiter:--//
|
|
-- ----------------------------------------------------------------------------
|
|
/*
|
|
Returns the uuid of the object uuid whose trigger is currently executed as set via `rbac.enterTriggerForObjectUuid(...)`.
|
|
*/
|
|
|
|
create or replace function rbac.currentTriggerObjectUuid()
|
|
returns uuid
|
|
stable -- leakproof
|
|
language plpgsql as $$
|
|
declare
|
|
currentObjectUuid uuid;
|
|
begin
|
|
begin
|
|
currentObjectUuid = current_setting('hsadminng.currentObjectUuid')::uuid;
|
|
return currentObjectUuid;
|
|
exception
|
|
when others then
|
|
return null::uuid;
|
|
end;
|
|
end; $$;
|
|
--//
|
|
|
|
|
|
-- ============================================================================
|
|
--changeset michael.hoennig:rbac-trigger-context-LEAVE endDelimiter:--//
|
|
-- ----------------------------------------------------------------------------
|
|
|
|
create or replace procedure rbac.leaveTriggerForObjectUuid(currentObjectUuid uuid)
|
|
language plpgsql as $$
|
|
declare
|
|
existingObjectUuid uuid;
|
|
begin
|
|
existingObjectUuid = current_setting('hsadminng.currentObjectUuid', true);
|
|
if ( existingObjectUuid <> currentObjectUuid ) then
|
|
raise exception '[500] currentObjectUuid does not match: "%"', existingObjectUuid;
|
|
end if;
|
|
execute format('reset hsadminng.currentObjectUuid');
|
|
end; $$;
|
|
|