]>
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); |