diff options
Diffstat (limited to 'fetch-files-cba.pl')
-rwxr-xr-x | fetch-files-cba.pl | 7 |
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; |