X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=defrequest.pl;h=a80f62caf83beab24307d802fc97cf547c69bba6;hb=dfdaf29be0eb73b0b900ce3bced443120b1fca96;hp=b1d457789cf12275e2080bbbc0dec5618a672cb5;hpb=fd11deae5a5d1ca5ba3fa94ef5aeab3ff0f31c99;p=ndwebbie.git

diff --git a/defrequest.pl b/defrequest.pl
index b1d4577..a80f62c 100644
--- a/defrequest.pl
+++ b/defrequest.pl
@@ -18,25 +18,24 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
 
 $ND::TEMPLATE->param(TITLE => 'Request Defense');
 
 our $BODY;
 our $DBH;
 our $LOG;
-
-
+my $error;
 
 die "You don't have access" unless isMember();
 
-if (param('cmd') eq 'submit'){
+if (defined param('cmd') && param('cmd') eq 'submit'){
 	my $insert = $DBH->prepare('INSERT INTO defense_requests (uid,message) VALUES (?,?)');
 	if($insert->execute($ND::UID,param('message'))){
 		$BODY->param(Reply => param('message'));
 	}else{
- 		print "<b>".$DBH->errstr."</b>";
+ 		$error .= "<b>".$DBH->errstr."</b>";
 	}
 }
-
-
+$BODY->param(Error => $error);
 1;