From: Philip Prindeville <philipp@redfish-solutions.com>
Date: Sun, 6 Jul 2025 17:24:51 +0000 (-0600)
Subject: asn: fix missing quiet checks in xt_asn_build
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;p=thirdparty%2Fxtables-addons.git

asn: fix missing quiet checks in xt_asn_build

Conceivably someone might want to run a refresh of the ASN database
from within a script, particularly an unattended script such as a cron
job. Do not generate summary output in that case.

Signed-off-by: Philip Prindeville <philipp@redfish-solutions.com>
---

diff --git a/asn/xt_asn_build b/asn/xt_asn_build
index 63019ca..81c4965 100755
--- a/asn/xt_asn_build
+++ b/asn/xt_asn_build
@@ -12,6 +12,7 @@ use Socket qw(AF_INET AF_INET6 inet_pton);
 use warnings;
 use Text::CSV_XS; # or trade for Text::CSV
 use strict;
+$| = 1;
 
 my $csv = Text::CSV_XS->new({
 	allow_whitespace => 1,
@@ -189,7 +190,7 @@ sub writeASN
 	printf "%5u IPv%s ranges for %s\n",
 		scalar(@ranges),
 		($family == AF_INET ? '4' : '6'),
-		$asn_number;
+		$asn_number unless ($quiet);
 
 	my $file = "$target_dir/".$asn_number.".iv".($family == AF_INET ? '4' : '6');
 	if (!open($fh, '>', $file)) {