create-package-feed.pl: Limit items in feed to 100

diff --git a/utils/create-package-feed.pl b/utils/create-package-feed.pl
index 22fb110..ae50c36 100644 (file)
--- 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 $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 >
 
 
 #< Config END >
 


@@ -117,7 +118,10 @@ $result .= '</pubDate>';
 # Sort Array
 my @resArray = sort { @$a[0] <=> @$b[0] } @Array;
 $i--;
 # 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.
 $result .= '</channel></rss>';
 
 # Save it.