Changeset 388 for trunk/nagios-velvice/velvice.cgi

Timestamp:

Jun 7, 2019, 11:34:19 AM (5 years ago)

Author:

g7moreau

Message:

• remove all the "Use of uninitialized value"

File:

• trunk/nagios-velvice/velvice.cgi (modified) (3 diffs)

trunk/nagios-velvice/velvice.cgi

@@ -17 +17 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.10.12');
+use version; our $VERSION = version->declare('0.10.13');
 
 use CGI;
@@ -27 +27 @@
 
 my $query           = CGI->new();
-my $cgi_check       = uri_decode($query->param('check'));
+my $cgi_check       = uri_decode($query->param('check')) || '';
 my $cgi_script_name = $query->script_name();
 my $cgi_path        = $cgi_script_name =~ s{/[^/]+\.cgi$}{}r;
+my $param_only      = uri_decode($query->param('only')) || '';
 my $cgi_only;
-$cgi_only++ if uri_decode($query->param('only')) eq 'body';
+$cgi_only++ if $param_only eq 'body';
 undef $query;
+undef $param_only;
 
 my %STATUS_DB = (
@@ -308 +310 @@
       for my $act_name (keys %{$config->{'remote-action'}}) {
          my $act_regex = $config->{'remote-action'}{$act_name}{'regex'};
-         $bold++ if $service =~ m/$act_regex/ and $config->{'remote-action'}{$act_name}{'style'} eq 'bold';
+         my $style = $config->{'remote-action'}{$act_name}{'style'} || '';
+         $bold++ if $service =~ m/$act_regex/ and $style eq 'bold';
          }
       $htmlpage .= $bold ? "  <td $stylecolor class='hoop bold'>" : "  <td $stylecolor class='hoop'>";