PVE/Firewall.pm

   1 package PVE::Firewall;
   2
   3 use warnings;
   4 use strict;
   5 use Data::Dumper;
   6
   7 use PVE::QemuServer;
   8
   9 # we need complete VM configuration of all VMs (openvz/qemu)
  10 # in vmdata
  11
  12 sub compile {
  13     my ($vmdata) = @_;
  14
  15     my $netinfo;
  16
  17     foreach my $vmid (keys %{$vmdata->{qemu}}) {
  18         $netinfo->{$vmid} = {};
  19         my $conf = $vmdata->{qemu}->{$vmid};
  20         foreach my $opt (keys %$conf) {
  21             next if $opt !~ m/^net(\d+)$/;
  22             my $net = PVE::QemuServer::parse_net($conf->{$opt});
  23             next if !$net;
  24             $netinfo->{$vmid} = $net;
  25         }
  26     }
  27
  28     print Dumper($netinfo);
  29
  30 }
  31
  32 sub activate {
  33
  34 }
  35
  36
  37 1;