gmi2email: support for Atom feeds

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 17 insertions, 8 deletions

diff --git a/gmi2email b/gmi2email
index 714e58a..dd9edba 100755
--- a/gmi2email
+++ b/gmi2email
@@ -32,6 +32,7 @@ use Getopt::Long;
 use Email::Date::Format "email_date";
 use Time::Local;
 use Mail::Field::AddrList;
+use XML::Feed;
 
 my ($from, $to, $do_subs, $inline_images, $no_mail);
 GetOptions
@@ -108,15 +109,23 @@ foreach my $sub (<$subs_fh>) {
         }
     };
     #>>>
-    $type =~ m{^text/gemini} or die "$sub is not gemtext";
-    for (@$data) {
-        if (/^#\s*/ and not $gemlog) {
-            chomp($gemlog = $');
-        } elsif (my ($uri, $y, $m, $d, $title)
-            = /^=>\s*(\S+)\s+([0-9]{4})-([0-9]{2})-([0-9]{2})[\s-]*(.*)/) {
-            send_subscribed_gemtext($uri, $gemlog // "unknown gemlog",
-                $title, timelocal 0, 0, 12, $d, $m - 1, $y);
+    if ($type =~ m{^text/gemini}) {
+        for (@$data) {
+            if (/^#\s*/ and not $gemlog) {
+                chomp($gemlog = $');
+            } elsif (my ($uri, $y, $m, $d, $title)
+                = /^=>\s*(\S+)\s+([0-9]{4})-([0-9]{2})-([0-9]{2})[\s-]*(.*)/) {
+                send_subscribed_gemtext($uri, $gemlog // "unknown gemlog",
+                    $title, timelocal 0, 0, 12, $d, $m - 1, $y);
+            }
         }
+    } elsif ($type =~ m{^text/xml}) {
+        my $feed = XML::Feed->parse(\$data);
+        send_subscribed_gemtext($_->link, $feed->title, $_->title,
+            ($_->issued // $_->modified)->epoch)
+          for $feed->entries;
+    } else {
+        die "$sub is not gemtext";
     }
 }