[pve-firewall.git] / fwtest.pl

#!/usr/bin/perl -w

use strict;
use lib qw(.);
use PVE::Firewall;

my $vmdata = {
    qemu => {
	100 => {
	    net0 => 'rtl8139=9A:42:2D:0C:01:FF,bridge=vmbr0',
	},
	101 => {
	    net0 => 'rtl8139=0E:9D:ED:CC:9B:ED,bridge=vmbr0',
	},
    },
};

PVE::Firewall::compile($vmdata);

exit(0);
Commit	Line	Data
b6360c3f DM	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use lib qw(.);
	5	use PVE::Firewall;
	6
	7	my $vmdata = {
	8	qemu => {
	9	100 => {
	10	net0 => 'rtl8139=9A:42:2D:0C:01:FF,bridge=vmbr0',
	11	},
	12	101 => {
	13	net0 => 'rtl8139=0E:9D:ED:CC:9B:ED,bridge=vmbr0',
	14	},
	15	},
	16	};
	17
	18	PVE::Firewall::compile($vmdata);
	19
	20	exit(0);