1 package NDWeb::Controller::JSRPC;
5 use parent 'Catalyst::Controller';
7 use DateTime::TimeZone;
11 NDWeb::Controller::JSRPC - Catalyst Controller
26 sub index :Path :Args(0) {
27 my ( $self, $c ) = @_;
29 $c->response->body('Matched NDWeb::Controller::JSRPC in JSRPC.');
33 my ($self, $c, $raid, $from, $target) = @_;
36 $c->forward('/raids/findRaid');
37 $raid = $c->stash->{raid};
41 my ($timestamp) = $dbh->selectrow_array("SELECT MAX(modified)::timestamp AS modified FROM raid_targets");
42 $c->stash(timestamp => $timestamp);
43 $targets = $dbh->prepare(q{SELECT r.id,r.planet FROM raid_targets r
44 WHERE r.raid = ? AND modified > ?
46 $targets->execute($raid->{id},$from);
48 $targets = $dbh->prepare(q{SELECT r.id,r.planet FROM raid_targets r
49 WHERE r.raid = $1 AND r.id = $2
51 $targets->execute($raid->{id},$target);
54 my $claims = $dbh->prepare(qq{ SELECT username,joinable,launched FROM raid_claims
55 NATURAL JOIN users WHERE target = ? AND wave = ?});
57 while (my $target = $targets->fetchrow_hashref){
59 $target{id} = $target->{id};
61 for (my $i = 1; $i <= $raid->{waves}; $i++){
64 $claims->execute($target->{id},$i);
67 if ($claims->rows != 0){
70 while (my $claim = $claims->fetchrow_hashref){
71 $owner = 1 if ($c->user->username eq $claim->{username});
72 $joinable = 1 if ($claim->{joinable});
73 $claim->{username} .= '*' if ($claim->{launched});
74 push @claimers,$claim->{username};
76 $claimers = join '/', @claimers;
78 $wave{command} = 'unclaim';
80 $wave{command} = 'join';
82 $wave{command} = 'taken';
85 $wave{command} = 'claim';
87 $wave{claimers} = $claimers;
88 $wave{joinable} = $joinable;
91 $target{waves} = \@waves;
92 push @targets,\%target;
94 $c->stash(targets => \@targets);
99 my ($self, $c, $raid, $from, $target, $wave) = @_;
103 $c->forward('assertTarget');
105 my $claims = $dbh->prepare(qq{SELECT username FROM raid_claims
106 NATURAL JOIN users WHERE target = ? AND wave = ?
108 $claims->execute($target,$wave);
109 if ($claims->rows == 0){
110 my $query = $dbh->prepare(q{INSERT INTO raid_claims (target,uid,wave) VALUES(?,?,?)});
111 $query->execute($target,$c->user->id,$wave);
112 $c->forward('/raids/log',[$raid, "Claimed target $target wave $wave"]);
113 $c->forward('/listTargets');
117 $c->stash(template => 'jsrpc/update.tt2');
118 $c->forward('update');
123 my ($self, $c, $raid, $from, $target, $wave) = @_;
127 $c->forward('assertTarget');
129 my $claims = $dbh->prepare(q{SELECT username FROM raid_claims
130 NATURAL JOIN users WHERE target = ? AND wave = ? AND joinable = TRUE
132 $claims->execute($target,$wave);
133 if ($claims->rows != 0){
134 my $query = $dbh->prepare(q{INSERT INTO raid_claims (target,uid,wave,joinable)
137 $query->execute($target,$c->user->id,$wave);
138 $c->forward('/raids/log',[$raid, "Joined target $target wave $wave"]);
139 $c->forward('/listTargets');
143 $c->stash(template => 'jsrpc/update.tt2');
144 $c->forward('update');
147 sub unclaim : Local {
148 my ($self, $c, $raid, $from, $target, $wave) = @_;
152 my $query = $dbh->prepare(q{DELETE FROM raid_claims WHERE target = ?
153 AND uid = ? AND wave = ?
155 $query->execute($target,$c->user->id,$wave);
156 $c->forward('/raids/log',[$raid, "Unclaimed target $target wave $wave"]);
159 $c->stash(template => 'jsrpc/update.tt2');
160 $c->forward('/listTargets');
161 $c->forward('update');
164 sub joinable : Local {
165 my ($self, $c, $raid, $from, $target, $wave,$joinable) = @_;
168 my $claims = $dbh->prepare(q{SELECT username FROM raid_claims NATURAL JOIN users
169 WHERE target = ? AND wave = ? AND uid = ?
171 $claims->execute($target,$wave,$c->user->id);
172 if ($claims->rows != 0){
173 my $query = $dbh->prepare(q{UPDATE raid_claims SET joinable = NOT ?
174 WHERE target = ? AND wave = ?
176 $query->execute($joinable,$target,$wave);
177 $c->forward('/listTargets');
180 $c->stash(template => 'jsrpc/update.tt2');
181 $c->forward('/listTargets');
182 $c->forward('update');
185 sub listTargets : Local {
188 $c->stash(template => 'jsrpc/update.tt2');
189 $c->forward('/listTargets');
192 sub tzcountries : Local {
193 my ($self, $c, $cat) = @_;
195 my @countries = DateTime::TimeZone->names_in_category($cat);
196 $c->stash(tzcountries => \@countries);
199 sub access_denied : Private {
201 $c->stash(template => 'jsrpc/access_denied.tt2');
202 $c->res->status(403);
205 sub assertTarget : Private {
206 my ($self, $c, $raid, $from, $target, $wave) = @_;
209 my $findtarget = $dbh->prepare(q{SELECT rt.id FROM raid_targets rt
210 NATURAL JOIN raid_access ra NATURAL JOIN groupmembers
211 WHERE uid = ? AND id = ?
215 my $result = $dbh->selectrow_array($findtarget,undef,$c->user->id,$target);
216 if ($result != $target){
222 sub end : ActionClass('RenderView') {
224 $c->res->content_type('application/xml');
226 if (scalar @{ $c->error } ){
227 if ($c->error->[0] =~ m/Can't call method "id" on an undefined value at/){
228 $c->stash->{template} = 'jsrpc/access_denied.tt2';
229 $c->res->status(403);
231 }elsif ($c->error->[0] =~ m/Missing roles: /){
232 $c->stash->{template} = 'jsrpc/access_denied.tt2';
233 $c->res->status(403);
241 Michael Andreen (harv@ruin.nu)