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

Timestamp:

Jun 25, 2018, 9:49:53 PM (6 years ago)

Author:

g7moreau

Message:

• Add / at end

File:

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

trunk/nagios-velvice/velvice.cgi

@@ -15 +15 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.6.4');
+use version; our $VERSION = version->declare('0.6.5');
 
 use CGI;
@@ -27 +27 @@
 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 $cgi_path        = $cgi_script_name =~ s{/[^/]+\.cgi$}{}r;
 
 my $config = {};
@@ -34 +34 @@
 $config->{'nagios-server'}{'status-file'} ||= '/var/cache/nagios3/status.dat';
 $config->{'nagios-server'}{'nagios-cmd'}  ||= '/var/lib/nagios3/rw/nagios.cmd';
-$config->{'nagios-server'}{'portal-url'}  ||= $cgi_path =~ s{/cgi-bin/}{/}r;
+$config->{'nagios-server'}{'portal-url'}  ||= $cgi_path =~ s{/cgi-bin/}{/}r . '/';
 $config->{'nagios-server'}{'status-cgi'}  ||= "$cgi_path/status.cgi";
 $config->{'host-mapping'}                 ||= {};