From b45df0a49a340e81a4e00d7cc0068da4ba432c28 Mon Sep 17 00:00:00 2001
From: Fabian Keil <fk@fabiankeil.de>
Date: Sat, 16 Jul 2016 11:42:29 +0000
Subject: [PATCH] create-package-feed.pl: Limit items in feed to 100

---
 utils/create-package-feed.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/utils/create-package-feed.pl b/utils/create-package-feed.pl
index 22fb1105..ae50c36d 100644
--- a/utils/create-package-feed.pl
+++ b/utils/create-package-feed.pl
@@ -11,6 +11,7 @@ my $scan_dir   = '/xxxxxxxxxxxxxxxxxxxxxx/sf-download/';
 my $base_dlurl = 'https://www.privoxy.org/sf-download-mirror/';
 my $save_rss_file ='/xxxxxxxxxxxxxxxxxxxxxx/release.xml'; # e.g., release.rss
 my $maxlimit = 1000;
+my $max_advertised_files = 100;
 
 #< Config END >
 
@@ -117,7 +118,10 @@ $result .= '</pubDate>';
 # Sort Array
 my @resArray = sort { @$a[0] <=> @$b[0] } @Array;
 $i--;
-while ($i >= 0) { $result .= $resArray[$i][1]; $i--; }
+while ($max_advertised_files-- > 0 && $i >= 0) {
+    $result .= $resArray[$i][1];
+    $i--;
+}
 $result .= '</channel></rss>';
 
 # Save it.
-- 
2.39.2