X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=addintel.pl;fp=addintel.pl;h=fe21d0412b66dfd44aad8d39ef55c0cb8bead29f;hb=b1e161e396d3c759403c6e3cbd8da1be7fe84715;hp=405bece7b90361acb46b5ac65b4c5c7138e4eb67;hpb=e400bf854d1da7e70ea9e78838f82a9bbfe03249;p=ndwebbie.git

diff --git a/addintel.pl b/addintel.pl
index 405bece..fe21d04 100644
--- a/addintel.pl
+++ b/addintel.pl
@@ -19,6 +19,7 @@
 
 use strict;
 use warnings FATAL => 'all';
+use ND::Web::Forum;
 
 $ND::TEMPLATE->param(TITLE => 'Add Intel and Scans');
 
@@ -61,11 +62,9 @@ if (defined param('cmd')){
 		}
 	}
 	if (param('cmd') eq 'submit_message'){
-		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};
+		if (my $thread = addForumThread $DBH,$board,$ND::UID,param('subject')){
+			$error .= p 'Intel message added' if addForumPost $DBH,$thread,$ND::UID,param('intel')
 		}
 	}
 }