diff options
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; |