]>
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; |
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 | |
16 | ||
f5eabba0 | 17 | my $controller_config = PVE::Network::SDN::Controllers::generate_controller_config(); |
8fb1ee7f AD |
18 | if ($controller_config) { |
19 | print Dumper($controller_config); | |
f5eabba0 | 20 | PVE::Network::SDN::Controllers::write_controller_config($controller_config); |
62e54fb7 | 21 | } |