export last note of zip fm for rebroadcasts

1 files changed, 6 insertions, 1 deletions

diff --git a/fetch-files-cba.pl b/fetch-files-cba.pl
index ccb7d7e..4aaa227 100755
--- a/fetch-files-cba.pl
+++ b/fetch-files-cba.pl
@@ -44,7 +44,7 @@ if(@ARGV == 0) {
   exit 1;
 }
 
-my $RSS_URL = "http://cba.fro.at/seriesrss/$ARGV[0]?dev=true";
+my $RSS_URL = "http://cba.fro.at/seriesrss/$ARGV[0]?dev=true&limit=10000";
 print "Fetching files form '$RSS_URL'\n";
 
 my $feed = XML::Feed->parse(URI->new($RSS_URL))
@@ -64,6 +64,11 @@ for my $entry ($feed->entries) {
           $url = $1 . $2;
         }
 
+        # if($i <= 100) {
+        #   print" --> skipping " . $url . "\n";
+        #   last;
+        # }
+
         my $ff = File::Fetch->new(uri => $url);
         print " --> downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
         my $file = $ff->fetch() or die $ff->error;