generate example zone and interfaces file
[pve-firewall.git] / fwtest.pl
CommitLineData
b6360c3f
DM
1#!/usr/bin/perl -w
2
3use strict;
4use lib qw(.);
5use PVE::Firewall;
6
7my $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 },
886aba9c
DM
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 },
b6360c3f
DM
24 },
25};
26
27PVE::Firewall::compile($vmdata);
28
29exit(0);