nik/davical
1
0
Fork 0
mirror of https://gitlab.com/davical-project/davical.git synced 2026-05-27 02:54:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

New functions for listing memberships, members and privileges.

Browse Source
This commit is contained in:
Andrew McMillan 2009-11-22 22:30:59 +13:00
parent e322ef348d
commit 60a6aeeecd
1 changed files with 64 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
dba/caldav_functions.sql
View File

@ -790,9 +790,6 @@ $$
LANGUAGE 'PlPgSQL' IMMUTABLE STRICT;
-- This legacy conversion function will eventually be removed, once all logic
-- has been converted to use bitmaps, or to use the bits_to_priv() output.
--
-- NOTE: Round-trip through this and then back through privilege_to_bits
-- function is lossy! Through privilege_to_bits() and back through
-- this one is not.
@ -996,6 +993,70 @@ END;
$$ LANGUAGE 'plpgsql' IMMUTABLE STRICT;
-- List a user's memberships as a text string
CREATE or REPLACE FUNCTION is_member_of_list( INT8 ) RETURNS TEXT AS $$
DECLARE
in_member_id ALIAS FOR $1;
m RECORD;
mlist TEXT;
BEGIN
mlist := '';
FOR m IN SELECT displayname FROM group_member JOIN principal ON (group_id = principal_id)
WHERE member_id = in_member_id
LOOP
mlist := mlist
|| CASE WHEN mlist = '' THEN '' ELSE ', ' END
|| m.displayname;
END LOOP;
RETURN mlist;
END;
$$ LANGUAGE 'plpgsql';
-- List a user's members as a text string
CREATE or REPLACE FUNCTION has_members_list( INT8 ) RETURNS TEXT AS $$
DECLARE
in_member_id ALIAS FOR $1;
m RECORD;
mlist TEXT;
BEGIN
mlist := '';
FOR m IN SELECT displayname FROM group_member JOIN principal ON (member_id = principal_id)
WHERE group_id = in_member_id
LOOP
mlist := mlist
|| CASE WHEN mlist = '' THEN '' ELSE ', ' END
|| m.displayname;
END LOOP;
RETURN mlist;
END;
$$ LANGUAGE 'plpgsql';
-- List the privileges as a text string
CREATE or REPLACE FUNCTION privileges_list( BIT(24) ) RETURNS TEXT AS $$
DECLARE
in_privileges ALIAS FOR $1;
privileges TEXT[];
plist TEXT;
start INT;
finish INT;
i INT;
BEGIN
plist := '';
privileges := bits_to_privilege(in_privileges);
SELECT array_lower(privileges,1) INTO start;
SELECT array_upper(privileges,1) INTO finish;
FOR i IN start .. finish LOOP
plist := plist
|| CASE WHEN plist = '' THEN '' ELSE ', ' END
|| privileges[i];
END LOOP;
RETURN plist;
END;
$$ LANGUAGE 'plpgsql';
-- A list of the principals who can proxy to this principal
CREATE or REPLACE FUNCTION i_proxy_to( INT8 ) RETURNS SETOF grants AS $$