}
push @intellists,{Message => 'Incoming fleets', Intel => \@intel, Origin => 1};
my $query = $DBH->prepare(intelquery('t.alliance AS talliance,coords(t.x,t.y,t.z) AS target',"o.id = ? $showticks"));
$query->execute($planet->{id}) or $error .= $DBH->errstr;
my @intel;
}
push @intellists,{Message => 'Incoming fleets', Intel => \@intel, Origin => 1};
my $query = $DBH->prepare(intelquery('t.alliance AS talliance,coords(t.x,t.y,t.z) AS target',"o.id = ? $showticks"));
$query->execute($planet->{id}) or $error .= $DBH->errstr;
my @intel;