diff options
Diffstat (limited to 'rhimport-dn')
| -rwxr-xr-x | rhimport-dn | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rhimport-dn b/rhimport-dn index 4c86bf3..5682ff1 100755 --- a/rhimport-dn +++ b/rhimport-dn @@ -96,7 +96,9 @@ if($dropbox eq "") { my $y = sprintf("%04d-%02d-%02d", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]); my $yc = sprintf("%04d-%02d%02d", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]); + print "looking for files from date $y in RSS Feed\n"; +print " -> $FILES_RSS_URL\n"; my $files_feed = XML::Feed->parse(URI->new($FILES_RSS_URL)) or die "Error fetching feed: " . XML::Feed->errstr; @@ -138,6 +140,8 @@ if($file eq "" || !(-e "$file")) { print "\nlooking for headlines from date $y in RSS Feed\n"; +print " -> $HEADLINES_RSS_URL\n"; + my $headlines_feed = XML::Feed->parse(URI->new($HEADLINES_RSS_URL)) or die "Error fetching feed: " . XML::Feed->errstr; |