#!/usr/bin/perl
use lib '../src';
+
use strict;
use warnings;
+
use Data::Dumper;
-use PVE::FirewallSimulator;
-use PVE::INotify;
-use PVE::Corosync;
-use Getopt::Long;
use File::Basename;
+use Getopt::Long;
use Net::IP;
+use PVE::Corosync;
+use PVE::FirewallSimulator;
+use PVE::INotify;
+
my $debug = 0;
sub print_usage_and_exit {
my $corosync_conf = PVE::Corosync::parse_conf($corosync_conf_fn, $raw_replaced);
PVE::FirewallSimulator::debug($debug);
-
+
my $testfilename = shift;
my $testid = shift;
die $@ if $@;
next if defined($testid) && (!defined($test->{id}) || ($testid ne $test->{id}));
PVE::FirewallSimulator::reset_trace();
- print Dumper($ruleset) if $debug;
+ print Dumper($ruleset->{filter}) if $debug;
$testcount++;
eval {
my @test_zones = qw(host outside nfvm vm100 ct200);
next if $zone eq $test->{from};
$test->{to} = $zone;
PVE::FirewallSimulator::add_trace("Set Zone: to => '$zone'\n");
- PVE::FirewallSimulator::simulate_firewall($ruleset, $ipset_ruleset,
+ PVE::FirewallSimulator::simulate_firewall($ruleset->{filter}, $ipset_ruleset,
$host_ip, $vmdata, $test);
}
} elsif (!defined($test->{from})) {
next if $zone eq $test->{to};
$test->{from} = $zone;
PVE::FirewallSimulator::add_trace("Set Zone: from => '$zone'\n");
- PVE::FirewallSimulator::simulate_firewall($ruleset, $ipset_ruleset,
+ PVE::FirewallSimulator::simulate_firewall($ruleset->{filter}, $ipset_ruleset,
$host_ip, $vmdata, $test);
}
} else {
- PVE::FirewallSimulator::simulate_firewall($ruleset, $ipset_ruleset,
+ PVE::FirewallSimulator::simulate_firewall($ruleset->{filter}, $ipset_ruleset,
$host_ip, $vmdata, $test);
}
};
if (my $err = $@) {
-
- print Dumper($ruleset) if !$debug;
-
+ print Dumper($ruleset->{filter}) if !$debug;
print PVE::FirewallSimulator::get_trace() . "\n" if !$debug;
-
print "$filename line $.: $line";
-
print "test failed: $err\n";
-
exit(-1);
}
} else {