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