From: Michael Andreen <harv@ruin.nu>
Date: Fri, 29 Dec 2006 17:51:15 +0000 (+0000)
Subject: more fatal warnings and other cleanup
X-Git-Url: https://ruin.nu/git/?a=commitdiff_plain;h=0e140ba2661c1567646acec4d04fa1f4fec4cfc0;p=ndwebbie.git

more fatal warnings and other cleanup
---

diff --git a/memberIntel.pl b/memberIntel.pl
index 6aa1e0e..964e0f8 100644
--- a/memberIntel.pl
+++ b/memberIntel.pl
@@ -19,7 +19,6 @@
 
 use strict;
 use warnings FATAL => 'all';
-no warnings qw(uninitialized);
 use POSIX;
 our $BODY;
 our $DBH;
@@ -31,10 +30,12 @@ $ND::TEMPLATE->param(TITLE => 'Member Intel');
 die "You don't have access" unless isHC();
 
 my $showticks = 'AND i.tick > tick()';
-if (param('show') eq 'all'){
-	$showticks = '';
-}elsif (param('show') =~ /^(\d+)$/){
-	$showticks = "AND (i.tick - i.eta) > (tick() - $1)";
+if (defined param('show')){
+	if (param('show') eq 'all'){
+		$showticks = '';
+	}elsif (param('show') =~ /^(\d+)$/){
+		$showticks = "AND (i.tick - i.eta) > (tick() - $1)";
+	}
 }