diff options
| author | Christian Pointner <equinox@helsinki.at> | 2012-07-20 15:11:47 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2012-07-20 15:11:47 (GMT) |
| commit | 938a1d5ab00120204a32a9e9147b7b6bd5f58005 (patch) | |
| tree | f4d322e450dc0a6edfd4a07016ac7e1d2b0eeb89 /rhimport-rs | |
| parent | f70d3f34952e7b69284203f969eef88de87d73b2 (diff) | |
radiostimme more flexible check
Diffstat (limited to 'rhimport-rs')
| -rwxr-xr-x | rhimport-rs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rhimport-rs b/rhimport-rs index d501cf9..ff3f016 100755 --- a/rhimport-rs +++ b/rhimport-rs @@ -85,9 +85,9 @@ print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_dat print "day of Radio Helsinki rebroadcast: " . Date::Calc::Date_to_Text(@import_date_reb) . "\n"; my $bdtw = sprintf("%04d-%02d-%02d", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]); -my $bdtwfile = sprintf("RAST%04d%02d%02dCBA.MP3", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]); +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]); +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"; my $feed = XML::Feed->parse(URI->new($RSS_URL)) |