1.110. unlockset( integer )

関数特性

言語: PLPGSQL

戻り値: integer

そこにアクセスを不能にするセットの全てのテーブルから特別なトリガーを削除します。

declare
	p_set_id			alias for $1;
	v_local_node_id			int4;
	v_set_row			record;
	v_tab_row			record;
begin
	-- ----
	-- 中枢構成にロックを取得
	-- ----
	lock table sl_config_lock;

	-- ----
	-- セットが存在し、私たちがオリジンで
	-- 未だロックされていないかの検査
	-- ----
	v_local_node_id := getLocalNodeId('_schemadoc');
	select * into v_set_row from sl_set
			where set_id = p_set_id
			for update;
	if not found then
		raise exception 'Slony-I: set % not found', p_set_id;
	end if;
	if v_set_row.set_origin <> v_local_node_id then
		raise exception 'Slony-I: set % does not originate on local node',
				p_set_id;
	end if;
	if v_set_row.set_locked isnull then
		raise exception 'Slony-I: set % is not locked', p_set_id;
	end if;

	-- ----
	-- セット内の全てのテーブルから lockedSet トリガーを削除
	-- ----
	for v_tab_row in select T.tab_id,
			slon_quote_brute(PGN.nspname) || '.' ||
			slon_quote_brute(PGC.relname) as tab_fqname
			from sl_table T,
				"pg_catalog".pg_class PGC, "pg_catalog".pg_namespace PGN
			where T.tab_set = p_set_id
				and T.tab_reloid = PGC.oid
				and PGC.relnamespace = PGN.oid
			order by tab_id
	loop
		execute 'drop trigger "_schemadoc_lockedset_' || 
				v_tab_row.tab_id || '" on ' || v_tab_row.tab_fqname;
	end loop;

	-- ----
	-- set_locked フィールドの掃除
	-- ----
	update sl_set
			set set_locked = NULL
			where set_id = p_set_id;

	return p_set_id;
end;