start example code
[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 },
16 };
17
18 PVE::Firewall::compile($vmdata);
19
20 exit(0);