diff options
author | Christian Pointner <equinox@helsinki.at> | 2012-11-08 10:39:17 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2012-11-08 10:39:17 (GMT) |
commit | 4453b157866875f925fe2c26f7c86027b4674fc4 (patch) | |
tree | 3c3c1f000476ec93c21ba237ec967a51f0418925 /rhimport-rs | |
parent | 1cc29cc247ed9f78858b0ec4b24aed0bb5e1ffe3 (diff) |
output now contians feed url
Diffstat (limited to 'rhimport-rs')
-rwxr-xr-x | rhimport-rs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rhimport-rs b/rhimport-rs index 3cbc3ff..099b30b 100755 --- a/rhimport-rs +++ b/rhimport-rs @@ -92,7 +92,9 @@ my $bdtw = sprintf("%04d-%02d-%02d", $broadcast_day[0], $broadcast_day[1], $broa my $bdtwfile = sprintf("RAST%04d%02d%02dCBA(.*)\.MP3", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]); my $bdlw = sprintf("%04d-%02d-%02d", $broadcast_day_last_week[0], $broadcast_day_last_week[1], $broadcast_day_last_week[2]); my $bdlwfile = sprintf("RAST%04d%02d%02dCBA(.*)\.MP3", $broadcast_day_last_week[0], $broadcast_day_last_week[1], $broadcast_day_last_week[2]); + print "looking for files from $bdtw or $bdlw in RSS Feed\n"; +print " -> $RSS_URL\n"; my $feed = XML::Feed->parse(URI->new($RSS_URL)) or die "Error fetching feed: " . XML::Feed->errstr; |