]>
Commit | Line | Data |
---|---|---|
8df9fab5 AD |
1 | use strict; |
2 | use warnings; | |
3 | use File::Copy; | |
4 | use PVE::Cluster qw(cfs_read_file); | |
5 | ||
e612faf6 | 6 | use PVE::Network::SDN; |
f5eabba0 AD |
7 | use PVE::Network::SDN::Zones; |
8 | use PVE::Network::SDN::Controllers; | |
8fb1ee7f | 9 | use Data::Dumper; |
8df9fab5 | 10 | |
5d3e0248 | 11 | PVE::Network::SDN::commit_config(); |
f5eabba0 | 12 | my $network_config = PVE::Network::SDN::Zones::generate_etc_network_config(); |
e612faf6 | 13 | |
f5eabba0 AD |
14 | PVE::Network::SDN::Zones::write_etc_network_config($network_config); |
15 | print "/etc/network/interfaces.d/sdn\n"; | |
93dea3aa | 16 | print $network_config; |
ecdd8c12 | 17 | print "\n"; |
87d8b623 | 18 | |
f5eabba0 | 19 | my $controller_config = PVE::Network::SDN::Controllers::generate_controller_config(); |
5d3e0248 | 20 | |
8fb1ee7f AD |
21 | if ($controller_config) { |
22 | print Dumper($controller_config); | |
f5eabba0 | 23 | PVE::Network::SDN::Controllers::write_controller_config($controller_config); |
62e54fb7 | 24 | } |