order by last post

[ndwebbie.git] / addintel.pl

diff --git a/addintel.pl b/addintel.pl
index 405bece7b90361acb46b5ac65b4c5c7138e4eb67..b3d5aed99abfdd588fb142a33180f39011792982 100644 (file)
--- a/addintel.pl
+++ b/addintel.pl
@@ -19,11 +19,13 @@
 
 use strict;
 use warnings FATAL => 'all';
+use ND::Web::Forum;
 
 $ND::TEMPLATE->param(TITLE => 'Add Intel and Scans');
 
 our $BODY;
 our $DBH;
+our $ERROR;
 my $error;
 
 die "You don't have access" unless isMember();
@@ -61,11 +63,16 @@ 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};
+               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')
                }
        }
 }