sdn: add write_frr_config

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>

diff --git a/PVE/Network/SDN.pm b/PVE/Network/SDN.pm
index 80a70d860ccb160feb8b2a97ec058dde93fc850d..1e89d97676cf25ec03f4d32ed74229c0af952d1e 100644 (file)
--- a/PVE/Network/SDN.pm
+++ b/PVE/Network/SDN.pm
@@ -259,6 +259,19 @@ sub write_etc_network_config {
     $writefh->close();
 }
 
+sub write_frr_config {
+    my ($rawconfig) = @_;
+
+    return if !$rawconfig;
+    return if !-d "/etc/frr";
+
+    my $frr_config_file = "/etc/frr/frr.conf";
+
+    my $writefh = IO::File->new($frr_config_file,">");
+    print $writefh $rawconfig;
+    $writefh->close();
+}
+
 
 sub status {
 

diff --git a/test/generateconfig.pl b/test/generateconfig.pl
index 6003f94a30abc4770d04062e9238920e61f11444..04e930ba7248a4dd3aacf3cab0e7fe34a4264ff6 100644 (file)
--- a/test/generateconfig.pl
+++ b/test/generateconfig.pl
@@ -6,10 +6,15 @@ use PVE::Cluster qw(cfs_read_file);
 use PVE::Network::SDN;
 
 
+
 my $network_config = PVE::Network::SDN::generate_etc_network_config();
 PVE::Network::SDN::write_etc_network_config($network_config);
+print "/etc/network/interfaces\n";
 print $network_config;
+print "\n";
 
 
 my $frr_config = PVE::Network::SDN::generate_frr_config();
+PVE::Network::SDN::write_frr_config($frr_config);
+print "/etc/frr/frr.conf\n";
 print $frr_config;