From 0414ed12b32e6ed201c4fd3c22c4bc7746cadb9a Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 21 Mar 2012 17:44:59 +0000
Subject: fixed rhimport regexp for Radio Attac


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;
-- 
cgit v0.10.2