- $msg =~ s`<b>(.*?)</b>`${\(chr(2))}$1${\(chr(15))}`gi;
- $msg =~ s`<c(\d+)>(.*?)</c>`${\(chr(3))}$1$2${\(chr(15))}`gi;
+sub intel_log {
+ my ($c,$planet, $message) = @_;
+ my $log = $c->model->prepare_cached(q{
+INSERT INTO forum_posts (ftid,uid,message) VALUES(
+ (SELECT ftid FROM planets WHERE pid = $3),$1,$2)
+ });
+ $log->execute($c->uid,$message,$planet);
+}