From 31684a2875d8b342c7007faa8f564de2f26dc14e Mon Sep 17 00:00:00 2001
From: Michael Andreen
Date: Fri, 14 Jan 2011 21:27:01 +0100
Subject: [PATCH] Revert "Remove attack groups"
This reverts commit 5f201b31d1ed259f7eec068794b477f886a77bcb.
The attack groups are enabled again.
---
lib/NDWeb/Controller/Members.pm | 23 +++++++++++++++++++++++
root/src/members/index.tt2 | 11 +++++++++++
2 files changed, 34 insertions(+)
diff --git a/lib/NDWeb/Controller/Members.pm b/lib/NDWeb/Controller/Members.pm
index 2f89142..b8cdbe1 100644
--- a/lib/NDWeb/Controller/Members.pm
+++ b/lib/NDWeb/Controller/Members.pm
@@ -83,6 +83,12 @@ ORDER BY landing_tick DESC
});
$announcements->execute($c->user->id);
$c->stash(announcements => $announcements->fetchall_arrayref({}) );
+
+ my ($attackgroups) = $dbh->selectrow_array(q{
+SELECT array_agg(gid) FROM groupmembers WHERE gid IN ('x','y','z') AND uid = $1
+ }, undef, $c->user->id);
+ $c->stash(attackgroups => $attackgroups);
+
}
sub posthostupdate : Local {
@@ -95,6 +101,23 @@ sub posthostupdate : Local {
$c->res->redirect($c->uri_for(''));
}
+sub postattackgroups : Local {
+ my ( $self, $c ) = @_;
+ my $dbh = $c->model;
+
+ my @groups = $c->req->param('class');
+ $dbh->do(q{DELETE FROM groupmembers WHERE gid IN ('x','y','z') AND gid <> ALL($1) AND uid = $2
+ },undef, \@groups, $c->user->id);
+
+ $dbh->do(q{INSERT INTO groupmembers (uid,gid) (
+ SELECT $2, gid FROM unnest($1::text[]) AS gid WHERE gid IN ('x','y','z')
+ EXCEPT
+ SELECT uid,gid FROM groupmembers WHERE uid = $2
+ )},undef, \@groups, $c->user->id);
+
+ $c->res->redirect($c->uri_for(''));
+}
+
sub postsmsupdate : Local {
my ( $self, $c ) = @_;
my $dbh = $c->model;
diff --git a/root/src/members/index.tt2 b/root/src/members/index.tt2
index 6f4b226..a2ef6fb 100644
--- a/root/src/members/index.tt2
+++ b/root/src/members/index.tt2
@@ -119,6 +119,17 @@
+