4 use PVE
::Cluster
qw(cfs_read_file);
6 use PVE
::Network
::SDN
::Zones
;
7 use PVE
::Network
::SDN
::Controllers
;
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";
13 print $network_config;
17 my $controller_config = PVE
::Network
::SDN
::Controllers
::generate_controller_config
();
18 if ($controller_config) {
19 print Dumper
($controller_config);
20 PVE
::Network
::SDN
::Controllers
::write_controller_config
($controller_config);