From 13bc10305856751c1eb14634a1debab317ff263a Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@spreadspace.org>
Date: Sat, 16 Jan 2021 20:19:02 +0100
Subject: CBA: fix XML feed namespaces


diff --git a/graveyard/rhautoimport-ab b/graveyard/rhautoimport-ab
index 3a2e25f..e420301 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'http://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 917ddf5..0dfbdbb 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://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 6744ff8..045a9f6 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'http://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 8063ce4..e2eb494 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'http://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 394c301..3a3f9ef 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'http://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 bdaec42..671cb4b 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://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 5302b23..854be1e 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://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 91295c4..d2b8424 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'http://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 49947fb..5014a8c 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'http://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 371cb2f..6492d6b 100755
--- a/rhautoimport-ra
+++ b/rhautoimport-ra
@@ -109,10 +109,10 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
   my $format_string = "%a, %d %b %Y %H:%M:%S";
   unless (defined $entry_bdt) {
-    $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
+    $entry_bdt = $entry->{'entry'}{'http://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 541d2d7..58782de 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'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://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-wr b/rhautoimport-wr
index c9745af..e131c31 100755
--- a/rhautoimport-wr
+++ b/rhautoimport-wr
@@ -123,7 +123,7 @@ for my $entry ($feed->entries) {
   $i++;
   next unless $entry->enclosure;
 
-  my $entry_bdt = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $entry_bdt = $entry->{'entry'}{'http://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 48d0f35..c7f3d76 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'}{'https://cba.fro.at/help#feeds'}{'productionDate'};
+  my $production_date = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'productionDate'};
   $production_date = '<unset>' unless (defined $production_date);
-  my $broadcast_date = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'broadcastDate'};
+  my $broadcast_date = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'broadcastDate'};
   $broadcast_date = '<unset>' unless (defined $broadcast_date);
-  my $contains_copyright = $entry->{'entry'}{'https://cba.fro.at/help#feeds'}{'containsCopyright'};
+  my $contains_copyright = $entry->{'entry'}{'http://cba.fro.at/help#feeds'}{'containsCopyright'};
   $contains_copyright = 'false' unless (defined $contains_copyright);
 
   print $sum_title . ":\n";
-- 
cgit v0.10.2