- my $query = $DBH->prepare(q{INSERT INTO intel_messages (uid,message) VALUES(?,?)});
- if($query->execute($ND::UID,escapeHTML(param('intel')))){
- $error .= 'Intel messaged added';
- }else{
- $error .= $DBH->errstr;
+ my $board = {id => 12};
+ my $subject = param('subject');
+ unless ($subject){
+ if (param('intel') =~ /(.*\w.*)/){
+ $subject = $1;
+ }
+
+ }
+ if (my $thread = addForumThread $DBH,$board,$ND::UID,$subject){
+ $error .= p 'Intel message added' if addForumPost $DBH,$thread,$ND::UID,param('intel')