$BODY->param(DefensePoints => $call->{defense_points});
$BODY->param(LandingTick => $call->{landing_tick});
$BODY->param(ETA => $call->{landing_tick}-$self->{TICK});
- $BODY->param(Info => escapeHTML $call->{info});
+ $BODY->param(Info => $call->{info});
$BODY->param(DC => $call->{dc});
$BODY->param(Member => $call->{member});
$BODY->param(SMS => $call->{sms});
}
$ships->execute($fleet->{id});
my @ships;
- my $i = 0;
while (my $ship = $ships->fetchrow_hashref){
- $i++;
- $ship->{ODD} = $i % 2;
push @ships,$ship;
}
$fleet->{Ships} = \@ships;
$fleet->{CLASS} = $fleet->{mission};
$ships->execute($fleet->{id});
my @ships;
- my $i = 0;
while (my $ship = $ships->fetchrow_hashref){
- $i++;
- $ship->{ODD} = $i % 2;
push @ships,$ship;
}
$fleet->{Ships} = \@ships;
});
$attackers->execute($call->{id});
my @attackers;
- my $i = 0;
while(my $attacker = $attackers->fetchrow_hashref){
- $i++;
- $attacker->{ODD} = $i % 2;
$outgoings->execute($attacker->{planet},$call->{landing_tick});
my @missions;
- my $k = 0;
while (my $mission = $outgoings->fetchrow_hashref){
$mission->{eta} = '?' if not defined $mission->{eta};
$mission->{amount} = '?' if not defined $mission->{amount};
- $mission->{ODD} = $k++ % 2;
$mission->{CLASS} = $mission->{mission};
my @ships;
$ships->execute($mission->{id});
- my $j = 0;
while (my $ship = $ships->fetchrow_hashref){
- $ship->{ODD} = $j++ % 2;
push @ships,$ship;
}
push @ships, {ship => 'No', amount => 'ships'} if @ships == 0;
})or warn $DBH->errstr;
$query->execute or warn $DBH->errstr;
my @calls;
- my $i = 0;
my $tick = $self->{TICK};
while (my $call = $query->fetchrow_hashref){
if ($call->{defense_points} < $minpoints){
while ($tick - 24 > $call->{landing_tick}){
$tick -= 24;
push @calls,{};
- $i = 0;
}
$call->{attackers} =~ s{(\d+:\d+:\d+)}{<a href="/check?coords=$1">$1</a>}g;
$call->{dcstyle} = 'Hostile' unless defined $call->{dc};
- $i++;
- $call->{ODD} = $i % 2;
- $call->{shiptype} = escapeHTML($call->{shiptype});
+ $call->{shiptype} = $call->{shiptype};
push @calls, $call;
}
$BODY->param(Calls => \@calls);