X-Git-Url: http://www.privoxy.org/gitweb/?p=privoxy.git;a=blobdiff_plain;f=utils%2Fcreate-package-feed.pl;h=22fb11058c13222581ed7e9473892f2b0936c0f6;hp=ef8b6d38eae7a937facbc5eec7e2ca610ee9252a;hb=4a5e7f016a245c7c54f16ba12f7a3490daaeaf22;hpb=b2b373aab1fb0b3384b7c928a8370f005f7372f4;ds=sidebyside

diff --git a/utils/create-package-feed.pl b/utils/create-package-feed.pl
index ef8b6d38..22fb1105 100644
--- a/utils/create-package-feed.pl
+++ b/utils/create-package-feed.pl
@@ -10,7 +10,7 @@ my @days   = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
 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 = 10;
+my $maxlimit = 1000;
 
 #< Config END >
 
@@ -35,9 +35,10 @@ my $target_line;
 # 1st & 2nd directory should NOT contain ANY 'FILES'. (expecting only 'Directory')
 #
 opendir(D1, $scan_dir) or die "Can't open 1st directory! /";
-MOUT: while (my $fi1 = readdir(D1)) {
+while (my $fi1 = readdir(D1)) {
     next if ($fi1 =~ m/^\./);
 
+    next if ($fi1 eq 'OldFiles' or $fi1 eq 'pkgsrc');
     opendir(D2, $scan_dir . $fi1 . '/')
         or die "Can't open 2nd directory! /$fi1";
     while (my $fi2 = readdir(D2)) {
@@ -92,7 +93,7 @@ MOUT: while (my $fi1 = readdir(D1)) {
             # Add it to Array
             $Array[$i] = ([$target_time, $target_line]);
             $i++;
-            if ($i >= $maxlimit) { last MOUT; }
+            die "maxlimit $maxlimit reached!" unless ($i < $maxlimit);
         }
         closedir D3;
 ## end listing /OS/Version/FILE