test/generateconfig.pl

   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 PVE::Network::SDN::write_frr_config($frr_config);
  19 print "/etc/frr/frr.conf\n";
  20 print $frr_config;