diff options
| author | Christian Pointner <equinox@helsinki.at> | 2012-03-21 17:44:59 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2012-03-21 17:44:59 (GMT) |
| commit | 0414ed12b32e6ed201c4fd3c22c4bc7746cadb9a (patch) | |
| tree | eff7142b99128a7ebcf5532ad6a276afe587f32a /rhimport-ra | |
| parent | 19f96b8caf21416c4e8982ed3e74794d43480065 (diff) | |
fixed rhimport regexp for Radio Attac
Diffstat (limited to 'rhimport-ra')
| -rwxr-xr-x | rhimport-ra | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rhimport-ra b/rhimport-ra index f8a2ca3..1ee9a5a 100755 --- a/rhimport-ra +++ b/rhimport-ra @@ -73,7 +73,7 @@ print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_dat 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*%02d\\s*\\.\\s*%02d\\s*\\.\\s*%02d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]); +my $bdexp = sprintf("^(\\d+)\\..*,\\s*0?%d\\s*\\.\\s*0?%d\\s*\\.\\s*%4d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]); my $feed = XML::Feed->parse(URI->new($RSS_URL)) or die "Error fetching feed: " . XML::Feed->errstr; |