Ignore:
Timestamp:
Jun 7, 2019, 11:34:19 AM (5 years ago)
Author:
g7moreau
Message:
  • remove all the "Use of uninitialized value"
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/nagios-velvice/velvice.cgi

    r387 r388  
    1717use strict;
    1818use warnings;
    19 use version; our $VERSION = version->declare('0.10.12');
     19use version; our $VERSION = version->declare('0.10.13');
    2020
    2121use CGI;
     
    2727
    2828my $query           = CGI->new();
    29 my $cgi_check       = uri_decode($query->param('check'));
     29my $cgi_check       = uri_decode($query->param('check')) || '';
    3030my $cgi_script_name = $query->script_name();
    3131my $cgi_path        = $cgi_script_name =~ s{/[^/]+\.cgi$}{}r;
     32my $param_only      = uri_decode($query->param('only')) || '';
    3233my $cgi_only;
    33 $cgi_only++ if uri_decode($query->param('only')) eq 'body';
     34$cgi_only++ if $param_only eq 'body';
    3435undef $query;
     36undef $param_only;
    3537
    3638my %STATUS_DB = (
     
    308310      for my $act_name (keys %{$config->{'remote-action'}}) {
    309311         my $act_regex = $config->{'remote-action'}{$act_name}{'regex'};
    310          $bold++ if $service =~ m/$act_regex/ and $config->{'remote-action'}{$act_name}{'style'} eq 'bold';
     312         my $style = $config->{'remote-action'}{$act_name}{'style'} || '';
     313         $bold++ if $service =~ m/$act_regex/ and $style eq 'bold';
    311314         }
    312315      $htmlpage .= $bold ? "  <td $stylecolor class='hoop bold'>" : "  <td $stylecolor class='hoop'>";
Note: See TracChangeset for help on using the changeset viewer.