From ddd7f8299fd71d5188f38463c94552e96dd4b8c5 Mon Sep 17 00:00:00 2001
From: "Karl O. Pinc kop@karlpinc.com" <kop@karlpinc.com>
Date: Fri, 3 Oct 2025 22:09:58 +0000
Subject: [PATCH] Initial trigger on ROLES, prevent PID change

---
 db/schemas/lib/triggers/Makefile        |  3 +-
 db/schemas/lib/triggers/create/roles.m4 | 52 +++++++++++++++++++++++++
 db/schemas/lib/triggers/drop/roles.m4   | 23 +++++++++++
 3 files changed, 77 insertions(+), 1 deletion(-)
 create mode 100644 db/schemas/lib/triggers/create/roles.m4
 create mode 100644 db/schemas/lib/triggers/drop/roles.m4

diff --git a/db/schemas/lib/triggers/Makefile b/db/schemas/lib/triggers/Makefile
index be84aec..0c3b270 100644
--- a/db/schemas/lib/triggers/Makefile
+++ b/db/schemas/lib/triggers/Makefile
@@ -30,7 +30,8 @@ ORDER := comm_ids \
          follow_observers \
          biography \
          follows \
-         events
+         events \
+         roles
 
 DROP_EXISTING := true
 
diff --git a/db/schemas/lib/triggers/create/roles.m4 b/db/schemas/lib/triggers/create/roles.m4
new file mode 100644
index 0000000..f49e96b
--- /dev/null
+++ b/db/schemas/lib/triggers/create/roles.m4
@@ -0,0 +1,52 @@
+dnl Copyright (C) 2025 The Meme Factory, Inc.   http://www.karlpinc.com/
+dnl
+dnl   This program is free software: you can redistribute it and/or modify it
+dnl   under the terms of the GNU Affero General Public License as published by
+dnl   the Free Software Foundation, either version 3 of the License, or
+dnl   (at your option) any later version.
+dnl
+dnl   This program is distributed in the hope that it will be useful,
+dnl   but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl   GNU Affero General Public License for more details.
+dnl
+dnl   You should have received a copy of the GNU Affero General Public License
+dnl   along with this program.  If not, see <https://www.gnu.org/licenses/>.
+dnl
+dnl Triggers for the follows table
+dnl
+dnl Karl O. Pinc <kop@karlpinc.com>
+
+dnl m4 includes
+include(`copyright.m4')dnl
+include(`constants.m4')dnl
+include(`macros.m4')dnl
+
+
+RAISE INFO 'roles_func';
+CREATE OR REPLACE FUNCTION roles_func ()
+  RETURNS trigger
+  LANGUAGE plpgsql
+  sdb_function_set_search_path
+  AS $$
+  BEGIN
+  -- Function for roles insert and update triggers
+  --
+  -- AGPL_notice(`  --', `2025',
+                 `The Meme Factory, Inc., www.karlpinc.com')
+
+  IF TG_OP = 'UPDATE' THEN
+    -- Allowing the PID to change makes life too complicated.
+    cannot_change(`ROLES', `PID')
+  END IF;
+
+  RETURN NULL;
+  END;
+$$;
+
+
+RAISE INFO 'roles_trigger';
+CREATE TRIGGER roles_trigger
+  AFTER INSERT OR UPDATE
+  ON roles FOR EACH ROW
+  EXECUTE PROCEDURE roles_func();
diff --git a/db/schemas/lib/triggers/drop/roles.m4 b/db/schemas/lib/triggers/drop/roles.m4
new file mode 100644
index 0000000..b6fa2c5
--- /dev/null
+++ b/db/schemas/lib/triggers/drop/roles.m4
@@ -0,0 +1,23 @@
+dnl Copyright (C) 2025 The Meme Factory, Inc.   http://www.karlpinc.com/
+dnl
+dnl   This program is free software: you can redistribute it and/or modify
+dnl   it under the terms of the GNU Affero General Public License as published by
+dnl   the Free Software Foundation, either version 3 of the License, or
+dnl   (at your option) any later version.
+dnl
+dnl   This program is distributed in the hope that it will be useful,
+dnl   but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl   GNU Affero General Public License for more details.
+dnl
+dnl   You should have received a copy of the GNU Affero General Public License
+dnl   along with this program.  If not, see <https://www.gnu.org/licenses/>.
+dnl
+dnl Drop triggers for roles table
+dnl
+dnl Karl O. Pinc <kop@karlpinc.com>
+
+dnl m4 includes
+include(`copyright.m4')dnl
+
+DROP FUNCTION IF EXISTS roles_func() CASCADE;
-- 
2.34.1