[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',
	},
	102 => {
	    zone => 'z1',
	    net0 => 'rtl8139=0E:9D:ED:CC:AA:ED,bridge=vmbr0',
	},
	103 => {
	    zone => 'z1',
	    net0 => 'rtl8139=0E:9D:ED:CC:BC:ED,bridge=vmbr0',
	    net1 => 'rtl8139=0E:9D:ED:CC:BC:AA,tag=5,bridge=vmbr0',
	},
    },
};

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

exit(0);
Commit	Line	Data
	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	102 => {
	16	zone => 'z1',
	17	net0 => 'rtl8139=0E:9D:ED:CC:AA:ED,bridge=vmbr0',
	18	},
	19	103 => {
	20	zone => 'z1',
	21	net0 => 'rtl8139=0E:9D:ED:CC:BC:ED,bridge=vmbr0',
	22	net1 => 'rtl8139=0E:9D:ED:CC:BC:AA,tag=5,bridge=vmbr0',
	23	},
	24	},
	25	};
	26
	27	PVE::Firewall::compile($vmdata);
	28
	29	exit(0);