}
my $intel = $dbh->prepare(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(
(SELECT ftid FROM planets WHERE pid = $2),$1,$3)});
}
my $intel = $dbh->prepare(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(
(SELECT ftid FROM planets WHERE pid = $2),$1,$3)});