+ $addfleet->execute($ND::UID,$planet_id,$mission,$tick,$ND::UID,$eta,$tick+$eta-1) or $error .= '<p>'.$DBH->errstr.'</p>';
+ my $fleet = $DBH->last_insert_id(undef,undef,undef,undef,"fleets_id_seq");
+ $mission{Fleet} = $fleet;
+ $mission{Back} = $tick+$eta-1;
+ my $ships = $10;
+ my @ships;
+ while ($ships =~ m/((?:\w+ )*\w+)\s+\w+\s+\w+\s+(?:Steal|Normal|Emp|Normal\s+Cloaked|Pod|Struc)\s+(\d+)/g){
+ $addships->execute($fleet,$1,$2) or $ND::ERROR .= p $DBH->errstr;
+ push @ships,{Ship => $1, Amount => $2};
+ }
+ $mission{Ships} = \@ships;