From 8b89ab61e3638608bf4758cb7cd62c9d25edc70d Mon Sep 17 00:00:00 2001
From: Fredrik Nordvall Forsberg <fredrik.nordvall-forsberg@strath.ac.uk>
Date: Wed, 25 Oct 2023 16:56:04 +0100
Subject: [PATCH] [ fix ] try to download old RSS if not available

---
 MSPweb.cabal |  3 +++
 OneOhOne.hs  | 28 +++++++++++++++++++++++-----
 2 files changed, 26 insertions(+), 5 deletions(-)

diff --git a/MSPweb.cabal b/MSPweb.cabal
index f081692..82e26f8 100644
--- a/MSPweb.cabal
+++ b/MSPweb.cabal
@@ -29,6 +29,9 @@ executable Generate101
                     bytestring,
                     text,
                     xml-types,
+                    http-client,
+                    http-client-tls,
+                    http-types,
                     feed
   default-language: Haskell2010
 
diff --git a/OneOhOne.hs b/OneOhOne.hs
index 01afe22..777bbc0 100644
--- a/OneOhOne.hs
+++ b/OneOhOne.hs
@@ -21,9 +21,15 @@ import Data.Aeson
 import qualified Data.Text.Lazy as LT
 import qualified Data.Text as T
 
+import qualified Data.ByteString.Lazy as LBS
+
 import Data.Map (Map)
 import qualified Data.Map as Map
 
+import Network.HTTP.Client
+import Network.HTTP.Client.TLS
+import Network.HTTP.Types.Status
+
 import Data.XML.Types
 import Text.Feed.Types
 import Text.RSS.Syntax
@@ -249,10 +255,22 @@ generateRSS :: [(Int,Talk)]
             -> FilePath -- ^ Output path
             -> IO ()
 generateRSS ts out = do
-  oldItemsMap <- doesFileExist out >>= \case
-    True -> parseFeedFromFile out >>= \case
-      Just f  -> let is = getFeedItems f
-                 in pure $ Map.fromList $  concatMap (\ x -> maybeToList ((,x) . snd <$> getItemId x)) is
+
+  file <- doesFileExist out >>= \case
+    True -> pure (Just out)
+    False -> do
+      -- try to download last version from website
+      manager <- newManager tlsManagerSettings
+      res <- httpLbs (parseRequest_ "https://msp.cis.strath.ac.uk/msp101.rss") manager
+      case statusIsSuccessful (responseStatus res) of
+        False -> pure Nothing
+        True -> do
+          LBS.writeFile out (responseBody res)
+          pure (Just out)
+  oldItemsMap <- case file of
+    Just file -> parseFeedFromFile file >>= \case
+      Just f -> let is = getFeedItems f
+                in pure $ Map.fromList $  concatMap (\ x -> maybeToList ((,x) . snd <$> getItemId x)) is
       _ -> pure Map.empty
     _ -> pure Map.empty
   now <- T.pack . formatTime defaultTimeLocale "%a, %_d %b %Y %H:%M:%S %z" <$> getZonedTime
@@ -304,7 +322,7 @@ generateRSS ts out = do
           guid = T.pack ("http://msp.cis.strath.ac.uk/msp101.html#" ++ (show i))
           itemBarTime = (nullItem (T.pack rsstitle)) { rssItemDescription = Just (T.pack desc), rssItemGuid = Just (nullPermaGuid guid) }
           time = case Map.lookup guid is of
-            Just i@(Text.Feed.Types.RSSItem ri) | Just oldTime <-getItemPublishDateString i -> if equalRSSItems ri itemBarTime then oldTime else now
+            Just item@(Text.Feed.Types.RSSItem ri) | Just oldTime <-getItemPublishDateString item -> if equalRSSItems ri itemBarTime then oldTime else now
             _ -> now
       in itemBarTime { rssItemPubDate = Just time }
     equalRSSItems :: RSSItem -> RSSItem -> Bool