HackBase/CORE
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Business logic in procedures

Browse Source
This commit is contained in:
Jan Kvetina 2022-07-02 10:33:42 +02:00
parent 80fda9cf7c
commit 6e17d61eab
2 changed files with 0 additions and 214 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
database/triggers/mail_subscriptions__.sql
View File

@ -1,93 +0,0 @@
CREATE OR REPLACE TRIGGER mail_subscriptions__
FOR UPDATE OR INSERT OR DELETE ON mail_subscriptions
COMPOUND TRIGGER
in_table_name CONSTANT user_tables.table_name%TYPE := 'MAIL_SUBSCRIPTIONS';
--
curr_log_id logs.log_id%TYPE;
curr_updated_by mail_subscriptions.updated_by%TYPE;
curr_updated_at mail_subscriptions.updated_at%TYPE;
--
rows_inserted PLS_INTEGER := 0;
rows_updated PLS_INTEGER := 0;
rows_deleted PLS_INTEGER := 0;
--
last_rowid ROWID;
BEFORE STATEMENT IS
BEGIN
curr_log_id := app.log_trigger(in_table_name);
curr_updated_by := app.get_user_id();
curr_updated_at := SYSDATE;
EXCEPTION
WHEN app.app_exception THEN
RAISE;
WHEN OTHERS THEN
app.raise_error('TRIGGER_FAILED', in_table_name);
END BEFORE STATEMENT;
BEFORE EACH ROW IS
BEGIN
IF NOT DELETING THEN
:NEW.updated_by := curr_updated_by;
:NEW.updated_at := curr_updated_at;
-- check function name
IF NOT REGEXP_LIKE(:NEW.eval_function, '^([A-Z0-9_]+].)?([A-Z0-9_]+)$') THEN
app.raise_error('WRONG_FUNCTION_NAME', :NEW.eval_function);
END IF;
END IF;
EXCEPTION
WHEN app.app_exception THEN
RAISE;
WHEN OTHERS THEN
app.raise_error('TRIGGER_FAILED', in_table_name);
END BEFORE EACH ROW;
AFTER EACH ROW IS
new_json VARCHAR2(32767);
old_json VARCHAR2(32767);
BEGIN
IF INSERTING THEN
rows_inserted := rows_inserted + 1;
last_rowid := :NEW.ROWID;
ELSIF UPDATING THEN
rows_updated := rows_updated + 1;
last_rowid := :OLD.ROWID;
ELSIF DELETING THEN
rows_deleted := rows_deleted + 1;
last_rowid := :OLD.ROWID;
END IF;
EXCEPTION
WHEN app.app_exception THEN
RAISE;
WHEN OTHERS THEN
app.raise_error('TRIGGER_FAILED', in_table_name);
END AFTER EACH ROW;
AFTER STATEMENT IS
BEGIN
app.log_success (
in_log_id => curr_log_id,
in_rows_inserted => rows_inserted,
in_rows_updated => rows_updated,
in_rows_deleted => rows_deleted,
in_last_rowid => last_rowid
);
EXCEPTION
WHEN app.app_exception THEN
RAISE;
WHEN OTHERS THEN
app.raise_error('TRIGGER_FAILED', in_table_name);
END AFTER STATEMENT;
END;
/

121
database/triggers/users__.sql
View File

@ -1,121 +0,0 @@
--
-- KEEP FOR POSSIBLE REUSE
--
CREATE OR REPLACE TRIGGER users__
FOR UPDATE OR INSERT OR DELETE ON users
COMPOUND TRIGGER
in_table_name CONSTANT user_tables.table_name%TYPE := 'USERS';
--
curr_log_id logs.log_id%TYPE;
curr_updated_by users.updated_by%TYPE;
curr_updated_at users.updated_at%TYPE;
--
rows_inserted PLS_INTEGER := 0;
rows_updated PLS_INTEGER := 0;
rows_deleted PLS_INTEGER := 0;
--
last_rowid ROWID;
BEFORE STATEMENT IS
BEGIN
curr_log_id := app.log_trigger(in_table_name);
curr_updated_by := app.get_user_id();
curr_updated_at := SYSDATE;
EXCEPTION
WHEN app.app_exception THEN
RAISE;
WHEN OTHERS THEN
app.raise_error('TRIGGER_FAILED', in_table_name);
END BEFORE STATEMENT;
BEFORE EACH ROW IS
BEGIN
IF NOT DELETING THEN
:NEW.updated_by := curr_updated_by;
:NEW.updated_at := curr_updated_at;
--
IF UPDATING AND :NEW.user_id != :OLD.user_id THEN
UPDATE user_roles r
SET r.user_id = :NEW.user_id
WHERE r.user_id = :OLD.user_id;
--
UPDATE sessions s
SET s.user_id = :NEW.user_id
WHERE s.user_id = :OLD.user_id;
--
UPDATE log_events l
SET l.user_id = :NEW.user_id
WHERE l.user_id = :OLD.user_id;
--
app.log_event('USER_ID_CHANGED');
--
ELSIF INSERTING THEN
app.log_event('USER_CREATED');
END IF;
ELSE
DELETE FROM user_roles t
WHERE t.user_id = :OLD.user_id;
--
DELETE FROM sessions t
WHERE t.user_id = :OLD.user_id;
--
app.log_event('USER_DELETED');
END IF;
EXCEPTION
WHEN app.app_exception THEN
RAISE;
WHEN OTHERS THEN
app.raise_error('TRIGGER_FAILED', in_table_name);
END BEFORE EACH ROW;
AFTER EACH ROW IS
new_json VARCHAR2(32767);
old_json VARCHAR2(32767);
BEGIN
IF INSERTING THEN
rows_inserted := rows_inserted + 1;
last_rowid := :NEW.ROWID;
ELSIF UPDATING THEN
rows_updated := rows_updated + 1;
last_rowid := :OLD.ROWID;
ELSIF DELETING THEN
rows_deleted := rows_deleted + 1;
last_rowid := :OLD.ROWID;
END IF;
EXCEPTION
WHEN app.app_exception THEN
RAISE;
WHEN OTHERS THEN
app.raise_error('TRIGGER_FAILED', in_table_name);
END AFTER EACH ROW;
AFTER STATEMENT IS
BEGIN
app.log_success (
in_log_id => curr_log_id,
in_rows_inserted => rows_inserted,
in_rows_updated => rows_updated,
in_rows_deleted => rows_deleted,
in_last_rowid => last_rowid
);
EXCEPTION
WHEN app.app_exception THEN
RAISE;
WHEN OTHERS THEN
app.raise_error('TRIGGER_FAILED', in_table_name);
END AFTER STATEMENT;
END;
/
--
ALTER TRIGGER users__ DISABLE;