From e73fe00e57c029476cf729246d0a13747324e9d1 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Fri, 20 Jul 2012 15:15:53 +0000
Subject: fixed raio stimme import


diff --git a/rhimport-rs b/rhimport-rs
index ff3f016..b92d310 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))
@@ -103,7 +103,7 @@ while(1) {
   for my $entry ($feed->entries) {
     if($entry->enclosure && $entry->enclosure->type eq "audio/mpeg") {
       my $ff = File::Fetch->new(uri => $entry->enclosure->url);
-      next if(uc($ff->output_file) ne $bdfile); # file not from correct day
+      next unless (uc($ff->output_file) =~ $bdfile); # file not from correct day
  
       my $sum_title = $entry->title;
       my $sum_text = $entry->content->body;
-- 
cgit v0.10.2