more fatal warnings and other cleanup

[ndwebbie.git] / defrequest.pl

diff --git a/defrequest.pl b/defrequest.pl
index 07c68c164536bb9550c2977c1475b050f04654eb..a80f62caf83beab24307d802fc97cf547c69bba6 100644 (file)
--- a/defrequest.pl
+++ b/defrequest.pl
@@ -18,6 +18,7 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
 
 $ND::TEMPLATE->param(TITLE => 'Request Defense');
 
@@ -28,7 +29,7 @@ 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'));