EVOLUTION-MANAGER

Edit File: 617statuswml.t

#!/usr/bin/perl
# 
# Checks for statuswml.cgi

use warnings;
use strict;
use Test::More;

# Useful for diagnostics, but not part of a core perl install
#use Test::LongString;

use FindBin qw($Bin);

chdir $Bin or die "Cannot chdir";

my $topdir = "$Bin/..";
my $cgi_dir = "$topdir/cgi";
my $statuswml = "$cgi_dir/statuswml.cgi";

my $output;
my $expected;

plan tests => 5;

$output = `NAGIOS_CGI_CONFIG=etc/cgi.cfg REQUEST_METHOD=GET QUERY_STRING="ping=127.0.0.1%3Becho+this+should+not+get+here" $statuswml`;
unlike( $output, "/this should not get here/", "Check that security error does not exist" );
like( $output, qr%Invalid host name/ip% );

$output = `NAGIOS_CGI_CONFIG=etc/cgi.cfg REQUEST_METHOD=GET QUERY_STRING="traceroute=127.0.0.1%3Becho+this+should+not+get+here" $statuswml`;
unlike( $output, "/this should not get here/", "Check that security error does not exist" );
like( $output, qr%Invalid host name/ip% );

$output = `NAGIOS_CGI_CONFIG=etc/cgi.cfg REQUEST_METHOD=GET QUERY_STRING="ping=127.0.0.1" $statuswml`;
like( $output, qr%Results For Ping Of 127.0.0.1: %, "Works correctly for valid address for ping" );

# Don't run this test below, because it actually invokes traceroute
#$output = `NAGIOS_CGI_CONFIG=etc/cgi.cfg REQUEST_METHOD=GET QUERY_STRING="traceroute=127.0.0.1" $statuswml`;
#like( $output, qr%Results For Traceroute To 127.0.0.1: %, "... and traceroute" );