[pve-network.git] / test / generateconfig.pl

use strict;
use warnings;
use File::Copy;
use PVE::Cluster qw(cfs_read_file);

use PVE::Network::SDN::Zones;
use PVE::Network::SDN::Controllers;
use Data::Dumper;

my $network_config = PVE::Network::SDN::Zones::generate_etc_network_config();
PVE::Network::SDN::Zones::write_etc_network_config($network_config);
print "/etc/network/interfaces.d/sdn\n";
print $network_config;
print "\n";


my $controller_config = PVE::Network::SDN::Controllers::generate_controller_config();
if ($controller_config) {
    print Dumper($controller_config);
    PVE::Network::SDN::Controllers::write_controller_config($controller_config);
}
Commit	Line	Data
8df9fab5 AD	1	use strict;
	2	use warnings;
	3	use File::Copy;
	4	use PVE::Cluster qw(cfs_read_file);
	5
f5eabba0 AD	6	use PVE::Network::SDN::Zones;
f5eabba0 AD	7	use PVE::Network::SDN::Controllers;
8fb1ee7f	8	use Data::Dumper;
8df9fab5	9
f5eabba0 AD	10	my $network_config = PVE::Network::SDN::Zones::generate_etc_network_config();
	11	PVE::Network::SDN::Zones::write_etc_network_config($network_config);
	12	print "/etc/network/interfaces.d/sdn\n";
93dea3aa	13	print $network_config;
ecdd8c12	14	print "\n";
87d8b623 AD	15
87d8b623 AD	16
f5eabba0	17	my $controller_config = PVE::Network::SDN::Controllers::generate_controller_config();
8fb1ee7f AD	18	if ($controller_config) {
8fb1ee7f AD	19	print Dumper($controller_config);
f5eabba0	20	PVE::Network::SDN::Controllers::write_controller_config($controller_config);
62e54fb7	21	}