oops, guess I had forgotten about this file

[ndwebbie.git] / addintel.pl

diff --git a/addintel.pl b/addintel.pl
index 13b52a96523f12a6b90a11243db0b70d097bdb77..28d7d0e2672833acc6660c2d125ad2455195868d 100644 (file)
--- a/addintel.pl
+++ b/addintel.pl
@@ -18,6 +18,8 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 
 $ND::TEMPLATE->param(TITLE => 'Add Intel and Scans');
 
@@ -67,5 +69,6 @@ if (param('cmd') eq 'submit_message'){
                $error .= $DBH->errstr;
        }
 }
+$BODY->param(Tick => $ND::TICK);
 $BODY->param(Error => $error);
 1;