1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
-- ==============================================================
-- GNUmed database schema change script
--
-- Source database version: v2
-- Target database version: v3
--
-- License: GPL v2 or later
-- Author: Karsten Hilbert
--
-- ==============================================================
-- $Id: public-gm_transfer_users.sql,v 1.1 2006-12-12 18:02:36 ncq Exp $
-- $Revision: 1.1 $
-- --------------------------------------------------------------
\set ON_ERROR_STOP 1
-- --------------------------------------------------------------
create or replace function gm_transfer_users(text)
returns boolean
language 'plpgsql'
security definer
as '
DECLARE
_source_group alias for $1;
target_group text;
member_ids int[];
member_id int;
member_name text;
tmp text;
BEGIN
-- source group exists ?
perform 1 from pg_group where groname = _source_group;
if not FOUND then
raise exception ''gm_transfer_users(): source group [%] does not exist'', _source_group;
return false;
end if;
-- target group exists ?
select into target_group current_database();
perform 1 from pg_group where groname = target_group;
if not FOUND then
raise exception ''gm_transfer_users(): target group [%] does not exist'', target_group;
return false;
end if;
-- loop over group member IDs
select into member_ids grolist from pg_group where groname = _source_group;
FOR idx IN coalesce(array_lower(member_ids, 1), 0) .. coalesce(array_upper(member_ids, 1), -1) LOOP
member_id := member_ids[idx];
select into member_name usename from pg_user where usesysid = member_id;
tmp := ''gm_transfer_users(text): transferring "''
|| member_name || ''" (''
|| member_id || '') from group "''
|| _source_group || ''" to group "''
|| target_group || ''"'';
raise notice ''%'', tmp;
-- satisfy "database = samerole" in pg_hba.conf
tmp := ''alter group '' || quote_ident(target_group) || '' add user '' || quote_ident(member_name) || '';'';
execute tmp;
end LOOP;
return true;
END;';
-- ==============================================================
-- $Log: public-gm_transfer_users.sql,v $
-- Revision 1.1 2006-12-12 18:02:36 ncq
-- - add a way to sync users on database upgrades
--
--
|
