Open-ILS/src/sql/Pg/400.schema.action_trigger.sql

   1 /*
   2  * Copyright (C) 2009  Equinox Software, Inc.
   3  * Mike Rylander <miker@esilibrary.com>
   4  *
   5  * This program is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU General Public License
   7  * as published by the Free Software Foundation; either version 2
   8  * of the License, or (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  */
  16
  17 DROP SCHEMA IF EXISTS action_trigger CASCADE;
  18
  19 BEGIN;
  20
  21 CREATE SCHEMA action_trigger;
  22
  23 CREATE TABLE action_trigger.hook (
  24     key         TEXT    PRIMARY KEY,
  25     core_type   TEXT    NOT NULL,
  26     description TEXT,
  27     passive     BOOL    NOT NULL DEFAULT FALSE
  28 );
  29 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('checkout','circ','Item checked out to user');
  30 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('checkin','circ','Item checked in');
  31 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('lost','circ','Circulating Item marked Lost');
  32 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('lost.found','circ','Lost Circulating Item checked in');
  33 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('lost.auto','circ','Circulating Item automatically marked lost');
  34 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('claims_returned','circ','Circulating Item marked Claims Returned');
  35 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('claims_returned.found','circ','Claims Returned Circulating Item is checked in');
  36 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('missing','acp','Item marked Missing');
  37 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('missing.found','acp','Missing Item checked in');
  38 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('transit.start','acp','An Item is placed into transit');
  39 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('transit.finish','acp','An Item is received from a transit');
  40 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('hold_request.success','ahr','A hold is successfully placed');
  41 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('hold_request.failure','ahr','A hold is attempted but not successfully placed');
  42 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('hold.capture','ahr','A targeted Item is captured for a hold');
  43 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('hold.available','ahr','A held item is ready for pickup');
  44 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('hold_transit.start','ahtc','A hold-captured Item is placed into transit');
  45 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('hold_transit.finish','ahtc','A hold-captured Item is received from a transit');
  46 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES ('checkout.due','circ','Checked out Item is Due',TRUE);
  47 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES ('penalty.PATRON_EXCEEDS_FINES','ausp','Patron has exceeded allowed fines',TRUE);
  48 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES ('penalty.PATRON_EXCEEDS_OVERDUE_COUNT','ausp','Patron has exceeded allowed overdue count',TRUE);
  49 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES ('penalty.PATRON_EXCEEDS_CHECKOUT_COUNT','ausp','Patron has exceeded allowed checkout count',TRUE);
  50 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES ('penalty.PATRON_EXCEEDS_COLLECTIONS_WARNING','ausp','Patron has exceeded maximum fine amount for collections department warning',TRUE);
  51 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES ('acqpo.activated','acqpo','Purchase order was activated',FALSE);
  52 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('format.po.html','acqpo','Formats a Purchase Order as an HTML document');
  53 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('format.po.pdf','acqpo','Formats a Purchase Order as a PDF document');
  54 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('damaged','acp','Item marked damaged');
  55 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('checkout.damaged','circ','A circulating item is marked damaged and the patron is fined');
  56 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('renewal','circ','Item renewed to user');
  57 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('checkout.due.emergency_closing','aecc','Circulation due date was adjusted by the Emergency Closing handler');
  58 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('hold.shelf_expire.emergency_closing','aech','Hold shelf expire time was adjusted by the Emergency Closing handler');
  59 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('booking.due.emergency_closing','aecr','Booking reservation return date was adjusted by the Emergency Closing handler');
  60 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('bre.edit','bre','A bib record was edited');
  61
  62 -- and much more, I'm sure
  63
  64 -- Specialized collection modules.  Given an FM object, gather some info and return a scalar or ref.
  65 CREATE TABLE action_trigger.collector (
  66     module      TEXT    PRIMARY KEY, -- All live under the OpenILS::Trigger::Collector:: namespace
  67     description TEXT
  68 );
  69 INSERT INTO action_trigger.collector (module,description) VALUES ('fourty_two','Returns the answer to life, the universe and everything');
  70 --INSERT INTO action_trigger.collector (module,description) VALUES ('CircCountsByCircMod','Count of Circulations for a User, broken down by circulation modifier');
  71
  72 -- Simple tests on an FM object from hook.core_type to test for "should we still do this."
  73 CREATE TABLE action_trigger.validator (
  74     module      TEXT    PRIMARY KEY, -- All live under the OpenILS::Trigger::Validator:: namespace
  75     description TEXT
  76 );
  77 INSERT INTO action_trigger.validator (module,description) VALUES ('fourty_two','Returns the answer to life, the universe and everything');
  78 INSERT INTO action_trigger.validator (module,description) VALUES ('NOOP_True','Always returns true -- validation always passes');
  79 INSERT INTO action_trigger.validator (module,description) VALUES ('NOOP_False','Always returns false -- validation always fails');
  80 INSERT INTO action_trigger.validator (module,description) VALUES ('CircIsOpen','Check that the circulation is still open');
  81 INSERT INTO action_trigger.validator (module,description) VALUES ('HoldIsAvailable','Check that an item is on the hold shelf');
  82 INSERT INTO action_trigger.validator (module,description) VALUES ('CircIsOverdue','Check that the circulation is overdue');
  83 INSERT INTO action_trigger.validator (module,description) VALUES ('MaxPassiveDelayAge','Check that the event is not too far past the delay_field time -- requires a max_delay_age interval parameter');
  84 INSERT INTO action_trigger.validator (module,description) VALUES ('MinPassiveTargetAge','Check that the target is old enough to be used by this event -- requires a min_target_age interval parameter, and accepts an optional target_age_field to specify what time to use for offsetting');
  85
  86 -- After an event passes validation (action_trigger.validator), the reactor processes it.
  87 CREATE TABLE action_trigger.reactor (
  88     module      TEXT    PRIMARY KEY, -- All live under the OpenILS::Trigger::Reactor:: namespace
  89     description TEXT
  90 );
  91
  92 INSERT INTO action_trigger.reactor (module,description) VALUES
  93 (   'fourty_two',
  94     oils_i18n_gettext(
  95         'fourty_two',
  96         'Returns the answer to life, the universe and everything',
  97         'atreact',
  98         'description'
  99     )
 100 );
 101 INSERT INTO action_trigger.reactor (module,description) VALUES
 102 (   'NOOP_True',
 103     oils_i18n_gettext(
 104         'NOOP_True',
 105         'Always returns true -- reaction always passes',
 106         'atreact',
 107         'description'
 108     )
 109 );
 110 INSERT INTO action_trigger.reactor (module,description) VALUES
 111 (   'NOOP_False',
 112     oils_i18n_gettext(
 113         'NOOP_False',
 114         'Always returns false -- reaction always fails',
 115         'atreact',
 116         'description'
 117     )
 118 );
 119 INSERT INTO action_trigger.reactor (module,description) VALUES
 120 (   'SendEmail',
 121     oils_i18n_gettext(
 122         'SendEmail',
 123         'Send an email based on a user-defined template',
 124         'atreact',
 125         'description'
 126     )
 127 );
 128
 129 -- TODO: build a PDF generator
 130 --INSERT INTO action_trigger.reactor (module,description) VALUES
 131 --(   'GenerateBatchOverduePDF',
 132 --    oils_i18n_gettext(
 133 --        'GenerateBatchOverduePDF',
 134 --        'Output a batch PDF of overdue notices for printing',
 135 --        'atreact',
 136 --        'description'
 137 --    )
 138 --);
 139
 140 INSERT INTO action_trigger.reactor (module,description) VALUES
 141 (   'MarkItemLost',
 142     oils_i18n_gettext(
 143         'MarkItemLost',
 144         'Marks a circulation and associated item as lost',
 145         'atreact',
 146         'description'
 147     )
 148 );
 149 INSERT INTO action_trigger.reactor (module,description) VALUES
 150 (   'ApplyCircFee',
 151     oils_i18n_gettext(
 152         'ApplyCircFee',
 153         'Applies a billing with a pre-defined amount to a circulation',
 154         'atreact',
 155         'description'
 156     )
 157 );
 158 INSERT INTO action_trigger.reactor (module,description) VALUES
 159 (   'ProcessTemplate',
 160     oils_i18n_gettext(
 161         'ProcessTemplate',
 162         'Processes the configured template',
 163         'atreact',
 164         'description'
 165     )
 166 );
 167
 168 -- After an event is reacted to (either success or failure) a cleanup module is run against the resulting environment
 169 CREATE TABLE action_trigger.cleanup (
 170     module      TEXT    PRIMARY KEY, -- All live under the OpenILS::Trigger::Cleanup:: namespace
 171     description TEXT
 172 );
 173 INSERT INTO action_trigger.cleanup (module,description) VALUES ('fourty_two','Returns the answer to life, the universe and everything');
 174 INSERT INTO action_trigger.cleanup (module,description) VALUES ('NOOP_True','Always returns true -- cleanup always passes');
 175 INSERT INTO action_trigger.cleanup (module,description) VALUES ('NOOP_False','Always returns false -- cleanup always fails');
 176 INSERT INTO action_trigger.cleanup (module,description) VALUES ('ClearAllPending','Remove all future, pending notifications for this target');
 177
 178 CREATE TABLE action_trigger.event_definition (
 179     id              SERIAL      PRIMARY KEY,
 180     active          BOOL        NOT NULL DEFAULT TRUE,
 181     owner           INT         NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 182     name            TEXT        NOT NULL,
 183     hook            TEXT        NOT NULL REFERENCES action_trigger.hook (key) DEFERRABLE INITIALLY DEFERRED,
 184     validator       TEXT        NOT NULL REFERENCES action_trigger.validator (module) DEFERRABLE INITIALLY DEFERRED,
 185     reactor         TEXT        NOT NULL REFERENCES action_trigger.reactor (module) DEFERRABLE INITIALLY DEFERRED,
 186     cleanup_success TEXT        REFERENCES action_trigger.cleanup (module) DEFERRABLE INITIALLY DEFERRED,
 187     cleanup_failure TEXT        REFERENCES action_trigger.cleanup (module) DEFERRABLE INITIALLY DEFERRED,
 188     delay           INTERVAL    NOT NULL DEFAULT '5 minutes',
 189     max_delay       INTERVAL,
 190     repeat_delay    INTERVAL,
 191     usr_field       TEXT,
 192     opt_in_setting  TEXT        REFERENCES config.usr_setting_type (name) DEFERRABLE INITIALLY DEFERRED,
 193     delay_field     TEXT,                 -- for instance, xact_start on a circ hook ... look for fields on hook.core_type where datatype=timestamp? If not set, delay from now()
 194     group_field     TEXT,                 -- field from this.hook.core_type to batch event targets together on, fed into reactor a group at a time.
 195     template        TEXT,                 -- the TT block.  will have an 'environment' hash (or array of hashes, grouped events) built up by validator and collector(s), which can be modified.
 196     granularity     TEXT,   -- could specify a batch which is the only time these events should actually run
 197
 198     message_template        TEXT,
 199     message_usr_path        TEXT,
 200     message_library_path    TEXT,
 201     message_title           TEXT,
 202     retention_interval      INTERVAL,
 203
 204     CONSTRAINT ev_def_owner_hook_val_react_clean_delay_once UNIQUE (owner, hook, validator, reactor, delay, delay_field),
 205     CONSTRAINT ev_def_name_owner_once UNIQUE (owner, name)
 206 );
 207
 208 CREATE OR REPLACE FUNCTION action_trigger.check_valid_retention_interval()
 209     RETURNS TRIGGER AS $_$
 210 BEGIN
 211     /*
 212      * 1. Retention intervals are always allowed on active hooks.
 213      * 2. On passive hooks, retention intervals are only allowed
 214      *    when the event definition has a max_delay value and the
 215      *    retention_interval value is greater than the difference
 216      *    beteween the delay and max_delay values.
 217      */
 218     PERFORM TRUE FROM action_trigger.hook
 219         WHERE key = NEW.hook AND NOT passive;
 220
 221     IF FOUND THEN
 222         RETURN NEW;
 223     END IF;
 224
 225     IF NEW.max_delay IS NOT NULL THEN
 226         IF EXTRACT(EPOCH FROM NEW.retention_interval) >
 227             ABS(EXTRACT(EPOCH FROM (NEW.max_delay - NEW.delay))) THEN
 228             RETURN NEW; -- all good
 229         ELSE
 230             RAISE EXCEPTION 'retention_interval is too short';
 231         END IF;
 232     ELSE
 233         RAISE EXCEPTION 'retention_interval requires max_delay';
 234     END IF;
 235 END;
 236 $_$ LANGUAGE PLPGSQL;
 237
 238 CREATE TRIGGER is_valid_retention_interval
 239     BEFORE INSERT OR UPDATE ON action_trigger.event_definition
 240     FOR EACH ROW WHEN (NEW.retention_interval IS NOT NULL)
 241     EXECUTE PROCEDURE action_trigger.check_valid_retention_interval();
 242
 243 CREATE TABLE action_trigger.environment (
 244     id          SERIAL  PRIMARY KEY,
 245     event_def   INT     NOT NULL REFERENCES action_trigger.event_definition (id) DEFERRABLE INITIALLY DEFERRED,
 246     path        TEXT,       -- fields to flesh. given a hook with a core_type of circ, imagine circ_lib.parent_ou expanding to
 247                             -- {flesh: 2, flesh_fields: {circ: ['circ_lib'], aou: ['parent_ou']}} ... default is to flesh all
 248                             -- at flesh depth 1
 249     collector   TEXT    REFERENCES action_trigger.collector (module) DEFERRABLE INITIALLY DEFERRED, -- if set, given the object at 'path', return some data
 250                                                                       -- to be stashed at environment.<label>
 251     label       TEXT    CHECK (label NOT IN ('result','target','event')),
 252     CONSTRAINT env_event_label_once UNIQUE (event_def,label)
 253 );
 254
 255 CREATE TABLE action_trigger.event_output (
 256     id              BIGSERIAL   PRIMARY KEY,
 257     create_time     TIMESTAMPTZ NOT NULL DEFAULT NOW(),
 258     is_error        BOOLEAN     NOT NULL DEFAULT FALSE,
 259     data            TEXT        NOT NULL
 260 );
 261
 262 CREATE TABLE action_trigger.event (
 263     id              BIGSERIAL   PRIMARY KEY,
 264     target          BIGINT      NOT NULL, -- points at the id from class defined by event_def.hook.core_type
 265     event_def       INT         REFERENCES action_trigger.event_definition (id) DEFERRABLE INITIALLY DEFERRED,
 266     add_time        TIMESTAMPTZ NOT NULL DEFAULT NOW(),
 267     run_time        TIMESTAMPTZ NOT NULL,
 268     start_time      TIMESTAMPTZ,
 269     update_time     TIMESTAMPTZ,
 270     complete_time   TIMESTAMPTZ,
 271     update_process  INT,
 272     state           TEXT        NOT NULL DEFAULT 'pending' CHECK (state IN ('pending','invalid','found','collecting','collected','validating','valid','reacting','reacted','cleaning','complete','error')),
 273     user_data       TEXT        CHECK (user_data IS NULL OR is_json( user_data )),
 274     template_output BIGINT      REFERENCES action_trigger.event_output (id),
 275     error_output    BIGINT      REFERENCES action_trigger.event_output (id),
 276     async_output    BIGINT      REFERENCES action_trigger.event_output (id)
 277 );
 278 CREATE INDEX atev_target_def_idx ON action_trigger.event (target,event_def);
 279 CREATE INDEX atev_def_state ON action_trigger.event (event_def,state);
 280 CREATE INDEX atev_template_output ON action_trigger.event (template_output);
 281 CREATE INDEX atev_async_output ON action_trigger.event (async_output);
 282 CREATE INDEX atev_error_output ON action_trigger.event (error_output);
 283
 284 CREATE TABLE action_trigger.event_params (
 285     id          BIGSERIAL   PRIMARY KEY,
 286     event_def   INT         NOT NULL REFERENCES action_trigger.event_definition (id) DEFERRABLE INITIALLY DEFERRED,
 287     param       TEXT        NOT NULL, -- the key under environment.event.params to store the output of ...
 288     value       TEXT        NOT NULL, -- ... the eval() output of this.  Has access to environment (and, well, all of perl)
 289     CONSTRAINT event_params_event_def_param_once UNIQUE (event_def,param)
 290 );
 291
 292 CREATE OR REPLACE FUNCTION action_trigger.purge_events() RETURNS VOID AS $_$
 293 /**
 294   * Deleting expired events without simultaneously deleting their outputs
 295   * creates orphaned outputs.  Deleting their outputs and all of the events
 296   * linking back to them, plus any outputs those events link to is messy and
 297   * inefficient.  It's simpler to handle them in 2 sweeping steps.
 298   *
 299   * 1. Delete expired events.
 300   * 2. Delete orphaned event outputs.
 301   *
 302   * This has the added benefit of removing outputs that may have been
 303   * orphaned by some other process.  Such outputs are not usuable by
 304   * the system.
 305   *
 306   * This does not guarantee that all events within an event group are
 307   * purged at the same time.  In such cases, the remaining events will
 308   * be purged with the next instance of the purge (or soon thereafter).
 309   * This is another nod toward efficiency over completeness of old
 310   * data that's circling the bit bucket anyway.
 311   */
 312 BEGIN
 313
 314     DELETE FROM action_trigger.event WHERE id IN (
 315         SELECT evt.id
 316         FROM action_trigger.event evt
 317         JOIN action_trigger.event_definition def ON (def.id = evt.event_def)
 318         WHERE def.retention_interval IS NOT NULL
 319             AND evt.state <> 'pending'
 320             AND evt.update_time < (NOW() - def.retention_interval)
 321     );
 322
 323     WITH linked_outputs AS (
 324         SELECT templates.id AS id FROM (
 325             SELECT DISTINCT(template_output) AS id
 326                 FROM action_trigger.event WHERE template_output IS NOT NULL
 327             UNION
 328             SELECT DISTINCT(error_output) AS id
 329                 FROM action_trigger.event WHERE error_output IS NOT NULL
 330             UNION
 331             SELECT DISTINCT(async_output) AS id
 332                 FROM action_trigger.event WHERE async_output IS NOT NULL
 333         ) templates
 334     ) DELETE FROM action_trigger.event_output
 335         WHERE id NOT IN (SELECT id FROM linked_outputs);
 336
 337 END;
 338 $_$ LANGUAGE PLPGSQL;
 339
 340 COMMIT;
 341