From c026cbf4fc3aa1891de2f82680cafd50595a56ce Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Tue, 6 Nov 2007 19:31:32 +0100
Subject: [PATCH] Remove points when unclaiming launched target

---
 database/raids.sql | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 database/raids.sql

diff --git a/database/raids.sql b/database/raids.sql
new file mode 100644
index 0000000..b9bc894
--- /dev/null
+++ b/database/raids.sql
@@ -0,0 +1,22 @@
+
+/*Changes when target is unclaimed */
+CREATE OR REPLACE FUNCTION unclaim_target()
+  RETURNS "trigger" AS
+$BODY$
+if ($_TD->{event} eq 'DELETE' && $_TD->{old}{launched} eq 't'){
+	my $uid = $_TD->{old}{uid};
+	my $query = spi_prepare(q{UPDATE users
+		SET attack_points = attack_points - 1
+		WHERE uid = $1},'int4');
+	spi_exec_prepared($query,$uid);
+	spi_freeplan($query);
+}
+return;
+$BODY$  LANGUAGE 'plperl' VOLATILE;
+ALTER FUNCTION updated_target() OWNER TO ndawn;
+
+
+CREATE TRIGGER unclaim_target AFTER DELETE
+   ON raid_claims FOR EACH ROW
+   EXECUTE PROCEDURE PUBLIC.unclaim_target();
+
-- 
2.39.2