From 6f4833870c8de9fbcc0fa96f87c783fa9e280b5e Mon Sep 17 00:00:00 2001
From: Tobi Oetiker <tobi@oetiker.ch>
Date: Thu, 24 Jul 2008 17:36:57 +0000
Subject: * added strict and warnings to the cgi and the daemon wrappers ... *
 fixed regression introduced while fixing taint issues

---
 lib/Smokeping.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Smokeping.pm')

diff --git a/lib/Smokeping.pm b/lib/Smokeping.pm
index cb8ec46..2b680a7 100644
--- a/lib/Smokeping.pm
+++ b/lib/Smokeping.pm
@@ -1547,12 +1547,12 @@ sub hierarchy_switcher($$){
 sub display_webpage($$){
     my $cfg = shift;
     my $q = shift;
-    my $trag = '';
+    my $targ = '';
     if ( $q->param('target') and $q->param('target') !~ /\.\./ and $q->param('target') =~ /(\S+)/){
         $targ = $1;
     }
     my ($path,$slave) = split(/~/,$targ);
-    if ($slave and $slave ~= /(\S+)/){
+    if ($slave and $slave =~ /(\S+)/){
         die "ERROR: slave '$slave' is not defined in the '*** Slaves ***' section!\n"
             unless defined $cfg->{Slaves}{$slave};
         $slave = $1;
-- 
cgit v1.2.3-24-g4f1b