summaryrefslogtreecommitdiff
path: root/gmi2email
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-01-27 17:39:01 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-01-27 17:39:35 -0700
commit344694d50aa941e90c09108e453a17b273130c14 (patch)
treeed5b5a1d5839d22a1aedabbb079cf512817f2b75 /gmi2email
parent293af10a9bd6acfee58b15c8f5a709f888aead58 (diff)
downloadmailscripts-344694d50aa941e90c09108e453a17b273130c14.tar.gz
gmi2email: cope with feed entries which don't have dates
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'gmi2email')
-rwxr-xr-xgmi2email10
1 files changed, 6 insertions, 4 deletions
diff --git a/gmi2email b/gmi2email
index 02e3d66..716a866 100755
--- a/gmi2email
+++ b/gmi2email
@@ -130,9 +130,11 @@ foreach my $sub (<$subs_fh>) {
}
} elsif ($type =~ m{^(?:text|application)/(?:atom\+)?xml}) {
my $feed = XML::Feed->parse(\$data);
- send_subscribed_gemtext($_->link, $feed->title, $_->title,
- ($_->issued // $_->modified)->epoch)
- for $feed->entries;
+ for ($feed->entries) {
+ my $date = $_->issued // $_->modified;
+ $date = $date->epoch if $date;
+ send_subscribed_gemtext($_->link, $feed->title, $_->title, $date);
+ }
} else {
die "$sub is not gemtext nor an Atom feed, so far as I can tell";
}
@@ -164,7 +166,7 @@ sub send_subscribed_gemtext {
$data, %to_mail_opts,
gemlog => $gemlog // "unknown gemlog",
link_title => $link_title,
- date => email_date $feed_date
+ date => email_date $feed_date // time
)->send
if $mail and !$no_mail;
} else {