start example code

[pve-firewall.git] / PVE / Firewall.pm

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;