summaryrefslogtreecommitdiff
path: root/rhimport-rs
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2012-11-08 10:39:17 (GMT)
committerChristian Pointner <equinox@helsinki.at>2012-11-08 10:39:17 (GMT)
commit4453b157866875f925fe2c26f7c86027b4674fc4 (patch)
tree3c3c1f000476ec93c21ba237ec967a51f0418925 /rhimport-rs
parent1cc29cc247ed9f78858b0ec4b24aed0bb5e1ffe3 (diff)
output now contians feed url
Diffstat (limited to 'rhimport-rs')
-rwxr-xr-xrhimport-rs2
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;