summaryrefslogtreecommitdiff
path: root/rhimport-rs
diff options
context:
space:
mode:
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;