From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: development@lists.ipfire.org Subject: [PATCH] ids-functions.pl: Fix generating of HOME_NET declaration Date: Mon, 18 May 2020 21:15:54 +0200 Message-ID: <20200518191554.3083-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============2544202407328919951==" List-Id: --===============2544202407328919951== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 7bit Fixes #12407. Signed-off-by: Stefan Schantl --- config/cfgroot/ids-functions.pl | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/config/cfgroot/ids-functions.pl b/config/cfgroot/ids-functions.pl index f124b12be..e33569849 100644 --- a/config/cfgroot/ids-functions.pl +++ b/config/cfgroot/ids-functions.pl @@ -677,22 +677,7 @@ sub generate_home_net_file() { } # Format home net declaration. - my $line = "\"\["; - - # Loop through the array of networks. - foreach my $network (@networks) { - # Add the network to the line. - $line = "$line" . "$network"; - - # Check if the current network was the last in the array. - if ($network eq $networks[-1]) { - # Close the line. - $line = "$line" . "\]\""; - } else { - # Add "," for the next network. - $line = "$line" . "\,"; - } - } + my $line = "[" . join(',', @networks) . "]"; # Open file to store the addresses of the home net. open(FILE, ">$homenet_file") or die "Could not open $homenet_file. $!\n"; -- 2.26.1 --===============2544202407328919951==--