+ default{
+ $c->flash( error => $_);
+ }
+ };
+ $c->res->redirect($c->uri_for('launchConfirmation'));
+}
+
+sub parseconfirmations {
+ my ( $missions, $tick ) = @_;
+ return unless $missions;
+ my @slots;
+ $missions =~ s/\s?,\s?//g;
+ $missions =~ s/\s*([:+])\s*/$1/g;
+ $missions =~ s/\(\s/(/g;
+ $missions =~ s/\s\)/)/g;
+ my $returnetare = qr/(\d+) \s+
+ Arrival:(\d+)/sx;
+ my $missionetare = qr/(\d+) (\s+ \(\+\d+\))? \s+
+ Arrival:(\d+) \s+
+ \QReturn ETA:\E\s*(?:(?<eta>Instant) \s+ Cancel \s+ Order
+ | (?<eta>\d+) \s+ Ticks \s+ Recall \s+ Fleet)/sx;
+ my $etare = qr/(Galaxy:\d+Universe:\d+(?:Alliance:\d+)?
+ |$missionetare
+ |$returnetare)\s*/x;
+ my $missre = qr/((?:Fake\ )?\w+)\s*/x;
+ if ($missions =~ m/
+ Ships \s+ Cla \s+ T\s?1 \s+ T\s?2 \s+ T\s?3 \s+ Base \s+ \(i\) \s (?<name>.+?) \s+ \(i\) \s+ (?<name>.+?) \s+ \(i\) \s+ (?<name>.+?) \s+ \(i\) \s+ TOTAL \s+
+ (?<ships>.+?)
+ \QTotal Ships in Fleet\E \s+ (\d+) \s+ (?<amount>\d+) \s+ (?<amount>\d+) \s+ (?<amount>\d+) \s+
+ Mission: \s* (?<missions>(?:$missre)*) \s*
+ Target: \s* (?<targets>((\d+:\d+:\d+)?\s)*) \s*
+ \QLaunch Tick:\E \s* (?<lts>(\d+\s+)*) \s*
+ ETA: \s* (?<etas>(?:$etare)*)
+ /sx){
+ my %match = %-;
+ my @targets = split /\s+/, $+{targets};
+ my @lts = split /\s+/, $+{lts};
+ my @etas;
+ my $_ = $+{etas};
+ while(/$etare/sxg){
+ push @etas, $1;
+ }
+ my @missions ;
+ $_ = $+{missions};
+ while(/$missre/sxg){
+ push @missions, $1;
+ }
+ for my $i (0..2){
+ my %mission = (
+ name => $match{name}->[$i],
+ mission => '' ,
+ amount => $match{amount}->[$i],
+ num => $i,
+ ships => []
+ );
+ if ($mission{amount} == 0){
+ push @slots,\%mission;
+ next;
+ }
+
+ given(shift @etas){
+ $mission{name} .= " $_";
+ when(/$missionetare/sx){
+ $mission{tick} = $3;
+ $mission{eta} = $1 + $+{eta};
+ $mission{back} = $3 + $mission{eta} - 1;
+ $mission{target} = shift @targets;
+ $mission{lt} = shift @lts;
+ $mission{mission} = shift @missions;
+ }
+ when(/$returnetare/sx){
+ $mission{tick} = $2;
+ $mission{eta} = $1;
+ $mission{back} = $2;
+ $mission{target} = shift @targets;
+ $mission{lt} = shift @lts;
+ $mission{mission} = shift @missions;
+ die 'Did you forget some at the end?' if $mission{mission} ne 'Return';
+ }
+ }
+ push @slots,\%mission;
+ }
+ push @slots,{
+ name => 'Main',
+ num => 3,
+ mission => 'Full fleet',
+ tick => $tick,
+ amount => 0,
+ ships => []
+ };
+ while ($match{ships}->[0] =~ m/(\w+)\s+(FI|CO|FR|DE|CR|BS)[^\d]+((?:\d+\s*){5})/g){
+ my $ship = $1;
+ my @amounts = split /\D+/, $3;
+ my $base = shift @amounts;
+ die "Ships don't sum up properly" if $amounts[3] != $base + $amounts[0] + $amounts[1] + $amounts[2];
+ for my $i (0..3){
+ push @{$slots[$i]->{ships}},{ship => $ship, amount => $amounts[$i]} if $amounts[$i] > 0;
+ }
+ $slots[3]->{amount} += $amounts[3];
+ }
+ }
+ return @slots;
+}
+
+sub findDuplicateFleet : Private {
+ my ( $self, $c, $m ) = @_;
+ my $dbh = $c->model;
+
+ my $findfleet = $dbh->prepare(q{
+SELECT fid FROM fleets f
+ LEFT JOIN launch_confirmations lc USING (fid)
+WHERE f.pid = (SELECT pid FROM users WHERE uid = $1)
+ AND mission = $3 AND amount = $4 AND tick > $6 - 6
+ AND COALESCE(uid = $1 AND num = $2 AND lc.pid = $5 AND landing_tick = $6, TRUE)
+ });
+ my $fid = $dbh->selectrow_array($findfleet,undef,$c->user->id,$m->{num}
+ ,$m->{mission},$m->{amount}, $m->{pid}, $m->{tick});
+ $c->forward("matchShips", [$m,$fid]);
+ $m->{fid} = $fid if $m->{match};
+}
+
+sub addAttackFleet : Private {
+ my ( $self, $c, $m ) = @_;
+ my $dbh = $c->model;
+
+ my $findattacktarget = $dbh->prepare(q{
+SELECT c.target,c.wave,c.launched
+FROM raid_claims c
+ JOIN raid_targets t ON c.target = t.id
+ JOIN raids r ON t.raid = r.id
+WHERE c.uid = ? AND r.tick+c.wave-1 = ? AND t.pid = ?
+ AND r.open AND not r.removed
+ });
+ my $launchedtarget = $dbh->prepare(q{
+UPDATE raid_claims SET launched = TRUE
+WHERE uid = ? AND target = ? AND wave = ?
+ });
+ my $claim = $dbh->selectrow_hashref($findattacktarget,undef,$c->user->id,$m->{tick},$m->{pid});
+ if ($claim->{launched}){
+ $m->{warning} = "Already launched on this target:$claim->{target},$claim->{wave},$claim->{launched}";
+ }elsif(defined $claim->{launched}){
+ $launchedtarget->execute($c->user->id,$claim->{target},$claim->{wave});
+ $m->{warning} = "OK:$claim->{target},$claim->{wave},$claim->{launched}";
+ }else{
+ $m->{warning} = "You haven't claimed this target";