X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=defrequest.pl;h=eb90f650001dcfad3e3310b3a9253048505bbe75;hb=e9725f0f2d11e349e3f3db752b46929a80a03c1d;hp=b1d457789cf12275e2080bbbc0dec5618a672cb5;hpb=fd11deae5a5d1ca5ba3fa94ef5aeab3ff0f31c99;p=ndwebbie.git
diff --git a/defrequest.pl b/defrequest.pl
index b1d4577..eb90f65 100644
--- a/defrequest.pl
+++ b/defrequest.pl
@@ -18,14 +18,15 @@
#**************************************************************************/
use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
$ND::TEMPLATE->param(TITLE => 'Request Defense');
our $BODY;
our $DBH;
our $LOG;
-
-
+my $error;
die "You don't have access" unless isMember();
@@ -34,9 +35,8 @@ if (param('cmd') eq 'submit'){
if($insert->execute($ND::UID,param('message'))){
$BODY->param(Reply => param('message'));
}else{
- print "".$DBH->errstr."";
+ $error .= "".$DBH->errstr."";
}
}
-
-
+$BODY->param(Error => $error);
1;