sub intel_log {
my ($uid,$planet, $message) = @_;
my $log = $ND::DBH->prepare_cached(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(
sub intel_log {
my ($uid,$planet, $message) = @_;
my $log = $ND::DBH->prepare_cached(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(