push @intel,$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"));
push @intel,$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"));