generate example zone and interfaces file
[pve-firewall.git] / fwtest.pl
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);