diff options
| author | Tobi Oetiker <tobi@oetiker.ch> | 2008-07-24 19:36:57 +0200 |
|---|---|---|
| committer | Tobi Oetiker <tobi@oetiker.ch> | 2008-07-24 19:36:57 +0200 |
| commit | 6f4833870c8de9fbcc0fa96f87c783fa9e280b5e (patch) | |
| tree | e655e776c585bb0edafbe9b8f8a7a98bca8bb89b /lib/Smokeping.pm | |
| parent | 11299344ee659123b8fe18794da4e7a7b24c6e5c (diff) | |
| download | smokeping-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/Smokeping.pm')
| -rw-r--r-- | lib/Smokeping.pm | 4 |
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; |