summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorTobi Oetiker <tobi@oetiker.ch>2008-07-24 19:36:57 +0200
committerTobi Oetiker <tobi@oetiker.ch>2008-07-24 19:36:57 +0200
commit6f4833870c8de9fbcc0fa96f87c783fa9e280b5e (patch)
treee655e776c585bb0edafbe9b8f8a7a98bca8bb89b /lib
parent11299344ee659123b8fe18794da4e7a7b24c6e5c (diff)
downloadsmokeping-6f4833870c8de9fbcc0fa96f87c783fa9e280b5e.tar.gz
smokeping-6f4833870c8de9fbcc0fa96f87c783fa9e280b5e.tar.xz
* added strict and warnings to the cgi and the daemon wrappers ...
* fixed regression introduced while fixing taint issues
Diffstat (limited to 'lib')
-rw-r--r--lib/Smokeping.pm4
1 files changed, 2 insertions, 2 deletions
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;