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 use PVE::Network::SDN::Zones;
   8 use PVE::Network::SDN::Controllers;
   9 use Data::Dumper;
  10
  11 PVE::Network::SDN::commit_config();
  12 my $network_config = PVE::Network::SDN::Zones::generate_etc_network_config();
  13
  14 PVE::Network::SDN::Zones::write_etc_network_config($network_config);
  15 print "/etc/network/interfaces.d/sdn\n";
  16 print $network_config;
  17 print "\n";
  18
  19 my $controller_config = PVE::Network::SDN::Controllers::generate_controller_config();
  20
  21 if ($controller_config) {
  22     print Dumper($controller_config);
  23     PVE::Network::SDN::Controllers::write_controller_config($controller_config);
  24 }