+
+ for ('def','att'){
+ if (/^def/){
+ $fleets->execute($c->stash->{target}->{pid}, 0);
+ }else{
+ $fleets->execute($c->user->planet,undef);
+ }
+ $c->stash($_ => $fleets->fetchall_arrayref({}));
+ }
+
+ $c->forward('calcredir');
+}
+
+sub fleetcalc : Local {
+ my ($self, $c, $fid) = @_;
+ my $dbh = $c->model;
+
+ $c->stash(target => $dbh->selectrow_hashref(q{
+SELECT pid, x, y, z, released_coords, metal_roids, crystal_roids, eonium_roids, ds.total
+FROM launch_confirmations lc
+ JOIN current_planet_stats p USING (pid)
+ LEFT OUTER JOIN current_planet_scans ps USING (pid)
+ LEFT OUTER JOIN current_development_scans ds USING (pid)
+WHERE uid = $1 AND fid = $2
+ },undef,$c->user->id,$fid));
+
+ my $fleets = $dbh->prepare(q{
+SELECT DISTINCT ON (name) name, tick, fid, race, race_id
+ ,score AS score, value AS value
+FROM fleets
+ LEFT OUTER JOIN current_planet_stats p USING (pid)
+ LEFT OUTER JOIN races r USING (race)
+WHERE pid = $1 AND mission = 'Full fleet'
+ORDER BY name ASC, tick DESC
+ });
+
+ $fleets->execute($c->stash->{target}->{pid});
+ $c->stash(def => $fleets->fetchall_arrayref({}));
+
+ $fleets = $dbh->prepare(q{
+SELECT tick, fid, race, race_id, score, value
+FROM fleets f
+ LEFT OUTER JOIN current_planet_stats p USING (pid)
+ LEFT OUTER JOIN races r USING (race)
+WHERE fid = $1 AND pid = $2
+ });
+ $fleets->execute($fid, $c->user->planet);
+ $c->stash(att => $fleets->fetchall_arrayref({}));
+
+ $c->forward('calcredir');
+}
+
+sub calcredir : Private {
+ my ($self, $c) = @_;
+ my $dbh = $c->model;
+
+ my @query = (
+ "def_structures=".($c->stash->{target}->{total} // 0),
+ "def_metal_asteroids=".($c->stash->{target}->{metal_roids} // 0),
+ "def_crystal_asteroids=".($c->stash->{target}->{crystal_roids} // 0),
+ "def_eonium_asteroids=".($c->stash->{target}->{eonium_roids} // 0),
+ );
+
+ if ($c->stash->{target}->{released_coords}) {
+ push @query
+ ,"def_coords_x_1=".$c->stash->{target}->{x}
+ ,"def_coords_y_1=".$c->stash->{target}->{y}
+ ,"def_coords_z_1=".$c->stash->{target}->{z};
+ }
+