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