[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();
if ($frr_config) {
    PVE::Network::SDN::write_frr_config($frr_config);
    print "/etc/frr/frr.conf\n";
    print $frr_config;
}
Commit	Line	Data
	1	use strict;
	2	use warnings;
	3	use File::Copy;
	4	use PVE::Cluster qw(cfs_read_file);
	5
	6	use PVE::Network::SDN;
	7
	8
	9
	10	my $network_config = PVE::Network::SDN::generate_etc_network_config();
	11	PVE::Network::SDN::write_etc_network_config($network_config);
	12	print "/etc/network/interfaces\n";
	13	print $network_config;
	14	print "\n";
	15
	16
	17	my $frr_config = PVE::Network::SDN::generate_frr_config();
	18	if ($frr_config) {
	19	PVE::Network::SDN::write_frr_config($frr_config);
	20	print "/etc/frr/frr.conf\n";
	21	print $frr_config;
	22	}