- $ND::DBH->do("UPDATE planets SET alliance_id = ? WHERE id = planetid(?,?,?,0)"
- ,undef,$aid,$x,$y,$z);
- $ND::server->command("msg $ND::target Setting $x:$y:$z as $ally");
+ my $findid = $ND::DBH->prepare_cached(q{SELECT planetid(?,?,?,0)});
+ my ($id) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);
+ if($id && $ND::DBH->do('UPDATE planets SET alliance_id = $1 WHERE id = $2'
+ ,undef,$aid,$id)){
+ $ND::server->command("msg $ND::target Setting $x:$y:$z as $ally");
+ intel_log $user->{uid},$id,"Set alliance_id to: $aid ($ally)";
+ }else{
+ $ND::server->command("msg $ND::target Couldn't find a planet at $x:$y:$z");
+ }