From c9816cbcea725218839b347e5c49284e06229456 Mon Sep 17 00:00:00 2001
From: Andrew <andreasohaodha@proton.me>
Date: Mon, 15 Jul 2024 14:59:33 +0100
Subject: [PATCH] Make pubDate conform to RSS standard in
 roisin_dubh_listings.pl

Also format dates in item descriptions to my taste
---
 roisin_dubh_listings.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/roisin_dubh_listings.pl b/roisin_dubh_listings.pl
index 663ffb4..a3f0541 100755
--- a/roisin_dubh_listings.pl
+++ b/roisin_dubh_listings.pl
@@ -30,7 +30,7 @@ foreach my $listing (@$listings) {
         <item>
             <title><![CDATA[" . $listing->{pagetitle} . "]]></title>
             <link>https://roisindubh.net/listings/" . $listing->{alias} . "</link>
-            <pubDate>" . Date::strftime(Date::FORMAT_ISO8601, $event_date) . "</pubDate>
+            <pubDate>" . Date::strftime("%a, %d %b %Y %H:%M:%S %z", $event_date) . "</pubDate>
 
             <description>
                 <![CDATA[
@@ -40,7 +40,7 @@ foreach my $listing (@$listings) {
                 ]]>
 
                 Location: " . $listing->{name} . "
-                Event start time: " . $listing->{event_date_time} . "
+                Event start time: " . Date::strftime("%Y-%m-%d %a %H:%M:%S", $event_date) . "
                 Late night?: " . yes_or_no($listing->{late_night}) . "
                 Postponed?: " . yes_or_no($listing->{postponed}) . "
 
@@ -48,7 +48,7 @@ foreach my $listing (@$listings) {
                 Ticket Allocation: " . $listing->{ticket_allocation} . "
                 Tickets remaining?: " . yes_or_no($listing->{ticket_remaining}) . "
 
-                Sales start time: " . $listing->{sales_start} . "
+                Sales start time: " . Date::strftime("%Y-%m-%d %a %H:%M:%S", str2time($listing->{sales_start})) . "
                 On Sale?: " . yes_or_no($listing->{on_sale}) . "
             </description>
         </item>