my ($id) = $DBH->selectrow_array($fleet,undef,$ND::UID);
unless ($id){
my $insert = $DBH->prepare(q{INSERT INTO fleets (uid,target,mission,landing_tick,fleet,eta,back) VALUES (?,?,'Full fleet',0,0,0,0)});
my ($id) = $DBH->selectrow_array($fleet,undef,$ND::UID);
unless ($id){
my $insert = $DBH->prepare(q{INSERT INTO fleets (uid,target,mission,landing_tick,fleet,eta,back) VALUES (?,?,'Full fleet',0,0,0,0)});