--- /dev/null
+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;
--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use lib qw(.);
+use PVE::Firewall;
+
+my $vmdata = {
+ qemu => {
+ 100 => {
+ net0 => 'rtl8139=9A:42:2D:0C:01:FF,bridge=vmbr0',
+ },
+ 101 => {
+ net0 => 'rtl8139=0E:9D:ED:CC:9B:ED,bridge=vmbr0',
+ },
+ },
+};
+
+PVE::Firewall::compile($vmdata);
+
+exit(0);