+my $thread;
+if (defined $planet){
+ $thread = $DBH->selectrow_hashref(q{SELECT ftid AS id, subject FROM forum_threads
+ where planet = $1},undef,$planet->{id}) or $ERROR .= p($DBH->errstr);
+}
+
+if (defined param('cmd') && param('cmd') eq 'coords'){
+ my $coords = param('coords');
+ $DBH->do(q{CREATE TEMPORARY TABLE coordlist (
+ x integer NOT NULL,
+ y integer NOT NULL,
+ z integer NOT NULL,
+ PRIMARY KEY (x,y,z)
+ )});
+ my $insert = $DBH->prepare(q{INSERT INTO coordlist (x,y,z) VALUES(?,?,?)});
+ while ($coords =~ m/(\d+):(\d+):(\d+)/g){
+ $insert->execute($1,$2,$3);
+ }
+ my $planets = $DBH->prepare(q{SELECT (((p.x || ':') || p.y) || ':') || p.z AS coords, alliance FROM current_planet_stats p
+ JOIN coordlist c ON p.x = c.x AND p.y = c.y AND p.z = c.z
+ORDER BY alliance, p.x, p.y, p.z});
+ $planets->execute;
+ my @planets;
+ while (my $planet = $planets->fetchrow_hashref){
+ push @planets,$planet;
+ }
+ $BODY->param(CoordList => \@planets);
+}
+if (defined $thread and defined param('cmd') and param('cmd') eq 'forumpost'){
+ addForumPost($DBH,$thread,$ND::UID,param('message'));
+}
+
+if ($planet && defined param('cmd')){