diff options
Diffstat (limited to 'rhimport-ra')
| -rwxr-xr-x | rhimport-ra | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rhimport-ra b/rhimport-ra index 84097f0..f363c15 100755 --- a/rhimport-ra +++ b/rhimport-ra @@ -83,11 +83,13 @@ print "day of Radio Helsinki rebroadcast: " . Date::Calc::Date_to_Text(@import_d my $bd = sprintf("%04d-%02d-%02d", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]); print "looking for files from $bd in RSS Feed\n"; -my $bdexp = sprintf("^(\\d+)\\..*,\\s*0?%d\\s*\\.\\s*0?%d\\s*\\.\\s*%4d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]); +print " -> $RSS_URL\n"; my $feed = XML::Feed->parse(URI->new($RSS_URL)) or die "Error fetching feed: " . XML::Feed->errstr; +my $bdexp = sprintf("^(\\d+)\\..*,\\s*0?%d\\s*\\.\\s*0?%d\\s*\\.\\s*%4d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]); + my $file = ""; my $out_file = ""; for my $entry ($feed->entries) { |