database/functions/find_planet_id.sql

   1 DROP FUNCTIOn IF EXISTS find_planet_id(text,text,race);
   2 CREATE OR REPLACE FUNCTION find_planet_id(_id text, _ruler text, _planet text, _race race) RETURNS integer
   3     AS $_$
   4 DECLARE
   5         p RECORD;
   6         planet_id INTEGER;
   7         thread INTEGER;
   8 BEGIN
   9         SELECT pid, ftid, race, ruler, planet INTO p FROM planets WHERE id = _id;
  10         IF FOUND THEN
  11                 IF _race <> p.race OR _planet <> p.planet OR _ruler <> p.ruler THEN
  12                         UPDATE planets SET race = _race, planet = _planet, ruler = _ruler WHERE pid = p.pid;
  13                         UPDATE forum_threads SET subject = escape_html(_ruler) || ' OF ' || escape_html(_planet)
  14                                 WHERE ftid = p.ftid;
  15                         INSERT INTO forum_posts (ftid, uid, message) VALUES(p.ftid, -3, 'Planet changed data from ('
  16                                 || escape_html(p.ruler) || ', ' || escape_html(p.planet) || ', ' || p.race || ') to ('
  17                                 || escape_html(_ruler) || ', ' || escape_html(_planet) || ', ' || _race || ').');
  18                 END IF;
  19                 planet_id := p.pid;
  20         ELSE
  21                 INSERT INTO forum_threads (fbid,uid,subject) VALUES(-2, -3,
  22                                 escape_html(_ruler) || ' OF ' || escape_html(_planet))
  23                         RETURNING ftid INTO thread;
  24                 INSERT INTO planets(id, ruler,planet,race,ftid) VALUES(_id, _ruler,_planet,_race,thread)
  25                         RETURNING pid INTO planet_id;
  26         END IF;
  27         RETURN planet_id;
  28 END;
  29 $_$
  30     LANGUAGE plpgsql;
  31