2 /*Changes when target is unclaimed */
3 CREATE OR REPLACE FUNCTION unclaim_target()
6 if ($_TD->{event} eq 'DELETE' && $_TD->{old}{launched} eq 't'){
7 my $uid = $_TD->{old}{uid};
8 my $query = spi_prepare(q{UPDATE users
9 SET attack_points = attack_points - 1
10 WHERE uid = $1},'int4');
11 spi_exec_prepared($query,$uid);
15 $BODY$ LANGUAGE 'plperl' VOLATILE;
16 ALTER FUNCTION updated_target() OWNER TO ndawn;
19 CREATE TRIGGER unclaim_target AFTER DELETE
20 ON raid_claims FOR EACH ROW
21 EXECUTE PROCEDURE PUBLIC.unclaim_target();