+package PVE::Firewall;
+
+use warnings;
+use strict;
+use Data::Dumper;
+
+use PVE::QemuServer;
+
+# we need complete VM configuration of all VMs (openvz/qemu)
+# in vmdata
+
+sub compile {
+ my ($vmdata) = @_;
+
+ my $netinfo;
+
+ foreach my $vmid (keys %{$vmdata->{qemu}}) {
+ $netinfo->{$vmid} = {};
+ my $conf = $vmdata->{qemu}->{$vmid};
+ foreach my $opt (keys %$conf) {
+ next if $opt !~ m/^net(\d+)$/;
+ my $net = PVE::QemuServer::parse_net($conf->{$opt});
+ next if !$net;
+ $netinfo->{$vmid} = $net;
+ }
+ }
+
+ print Dumper($netinfo);
+
+}
+
+sub activate {
+
+}
+
+
+1;