From f4bfb97e635e282b7a1c95383089a4205915b17d Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 3 Feb 2021 18:07:15 +0100
Subject: CBA has switched back to old XML Namespace Identifier


diff --git a/graveyard/rhautoimport-ab b/graveyard/rhautoimport-ab
index e420301..3a2e25f 100755
--- a/graveyard/rhautoimport-ab
+++ b/graveyard/rhautoimport-ab
@@ -128,10 +128,10 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
     $format_string = "%a, %d %b %Y";
   }
   next unless (defined $entry_bdt);
diff --git a/graveyard/rhautoimport-fb b/graveyard/rhautoimport-fb
index 0dfbdbb..917ddf5 100755
--- a/graveyard/rhautoimport-fb
+++ b/graveyard/rhautoimport-fb
@@ -128,7 +128,7 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   next unless (defined $entry_bdt);
   my $bdt = DateTime::Format::Strptime::strptime("%a, %d %b %Y %H:%M:%S", $entry_bdt);
 
diff --git a/graveyard/rhautoimport-wr b/graveyard/rhautoimport-wr
index e131c31..c9745af 100755
--- a/graveyard/rhautoimport-wr
+++ b/graveyard/rhautoimport-wr
@@ -123,7 +123,7 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   next unless (defined $entry_bdt);
   my $bdt = DateTime::Format::Strptime::strptime("%a, %d %b %Y %H:%M:%S", $entry_bdt);
 
diff --git a/rhautoimport-ba b/rhautoimport-ba
index 045a9f6..6744ff8 100755
--- a/rhautoimport-ba
+++ b/rhautoimport-ba
@@ -128,10 +128,10 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
     $format_string = "%a, %d %b %Y";
   }
   next unless (defined $entry_bdt);
diff --git a/rhautoimport-cb b/rhautoimport-cb
index e2eb494..8063ce4 100755
--- a/rhautoimport-cb
+++ b/rhautoimport-cb
@@ -124,10 +124,10 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
     $format_string = "%a, %d %b %Y";
   }
   next unless (defined $entry_bdt);
diff --git a/rhautoimport-dm b/rhautoimport-dm
index 3a3f9ef..394c301 100755
--- a/rhautoimport-dm
+++ b/rhautoimport-dm
@@ -128,10 +128,10 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
     $format_string = "%a, %d %b %Y";
   }
   next unless (defined $entry_bdt);
diff --git a/rhautoimport-dv b/rhautoimport-dv
index 671cb4b..bdaec42 100755
--- a/rhautoimport-dv
+++ b/rhautoimport-dv
@@ -139,7 +139,7 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   next unless (defined $entry_bdt);
   my $bdt = DateTime::Format::Strptime::strptime("%a, %d %b %Y %H:%M:%S", $entry_bdt);
 
diff --git a/rhautoimport-ek b/rhautoimport-ek
index 854be1e..5302b23 100755
--- a/rhautoimport-ek
+++ b/rhautoimport-ek
@@ -134,7 +134,7 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   next unless (defined $entry_bdt);
   my $bdt = DateTime::Format::Strptime::strptime("%a, %d %b %Y %H:%M:%S", $entry_bdt);
 
diff --git a/rhautoimport-gd b/rhautoimport-gd
index d2b8424..91295c4 100755
--- a/rhautoimport-gd
+++ b/rhautoimport-gd
@@ -110,10 +110,10 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
     $format_string = "%a, %d %b %Y";
   }
   next unless (defined $entry_bdt);
diff --git a/rhautoimport-po b/rhautoimport-po
index 5014a8c..49947fb 100755
--- a/rhautoimport-po
+++ b/rhautoimport-po
@@ -129,10 +129,10 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
     $format_string = "%a, %d %b %Y";
   }
   next unless (defined $entry_bdt);
diff --git a/rhautoimport-ra b/rhautoimport-ra
index 2bfe744..570f78e 100755
--- a/rhautoimport-ra
+++ b/rhautoimport-ra
@@ -106,10 +106,10 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
     $format_string = "%a, %d %b %Y";
   }
   next unless (defined $entry_bdt);
diff --git a/rhautoimport-tr b/rhautoimport-tr
index 58782de..541d2d7 100755
--- a/rhautoimport-tr
+++ b/rhautoimport-tr
@@ -105,7 +105,7 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   next unless (defined $entry_bdt);
   my $bdt = DateTime::Format::Strptime::strptime("%a, %d %b %Y %H:%M:%S", $entry_bdt);
 
diff --git a/test/cba-inspect b/test/cba-inspect
index c7f3d76..48d0f35 100755
--- a/test/cba-inspect
+++ b/test/cba-inspect
@@ -67,11 +67,11 @@ for my $entry ($feed->entries) {
 
   $sum_title = decode_entities($entry->title);
   $sum_text = decode_entities($entry->content->body);
-  my $production_date = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
+  my $production_date = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
   $production_date = '<unset>' unless (defined $production_date);
-  my $broadcast_date = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $broadcast_date = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
   $broadcast_date = '<unset>' unless (defined $broadcast_date);
-  my $contains_copyright = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'containsCopyright'};
+  my $contains_copyright = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'containsCopyright'};
   $contains_copyright = 'false' unless (defined $contains_copyright);
 
   print $sum_title . ":\n";
-- 
cgit v0.10.2