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

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

use PVE::Network::SDN;


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


my $frr_config = PVE::Network::SDN::generate_frr_config();
PVE::Network::SDN::write_frr_config($frr_config);
print "/etc/frr/frr.conf\n";
print $frr_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
80348b2d	6	use PVE::Network::SDN;
8df9fab5	7
8df9fab5	8
ecdd8c12	9
87d8b623	10	my $network_config = PVE::Network::SDN::generate_etc_network_config();
93dea3aa	11	PVE::Network::SDN::write_etc_network_config($network_config);
ecdd8c12	12	print "/etc/network/interfaces\n";
93dea3aa	13	print $network_config;
ecdd8c12	14	print "\n";
87d8b623 AD	15
	16
	17	my $frr_config = PVE::Network::SDN::generate_frr_config();
ecdd8c12 AD	18	PVE::Network::SDN::write_frr_config($frr_config);
ecdd8c12 AD	19	print "/etc/frr/frr.conf\n";
93dea3aa	20	print $frr_config;