X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=addintel.pl;h=b3d5aed99abfdd588fb142a33180f39011792982;hb=13e65c6941be59007651e94c93ca04843551f47d;hp=fe21d0412b66dfd44aad8d39ef55c0cb8bead29f;hpb=b1e161e396d3c759403c6e3cbd8da1be7fe84715;p=ndwebbie.git

diff --git a/addintel.pl b/addintel.pl
index fe21d04..b3d5aed 100644
--- a/addintel.pl
+++ b/addintel.pl
@@ -25,6 +25,7 @@ $ND::TEMPLATE->param(TITLE => 'Add Intel and Scans');
 
 our $BODY;
 our $DBH;
+our $ERROR;
 my $error;
 
 die "You don't have access" unless isMember();
@@ -63,7 +64,14 @@ if (defined param('cmd')){
 	}
 	if (param('cmd') eq 'submit_message'){
 		my $board = {id => 12};
-		if (my $thread = addForumThread $DBH,$board,$ND::UID,param('subject')){
+		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')
 		}
 	}