summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xgmi2email12
1 files changed, 11 insertions, 1 deletions
diff --git a/gmi2email b/gmi2email
index f4a13a6..0d9861b 100755
--- a/gmi2email
+++ b/gmi2email
@@ -135,7 +135,17 @@ foreach my $sub (<$subs_fh>) {
for ($feed->entries) {
my $date = $_->issued // $_->modified;
$date = $date->epoch if $date;
- send_subscribed_gemtext($_->link, $feed->title, $_->title, $date);
+
+ my $link;
+ if ($_->link =~ m{^//}) {
+ $link = "gemini:" . $_->link;
+ } elsif ($_->link !~ m{^[a-z]+://}) {
+ $link = "gemini://" . $_->link;
+ } else {
+ $link = $_->link;
+ }
+
+ send_subscribed_gemtext($link, $feed->title, $_->title, $date);
}
} else {
die "$sub is not gemtext nor an Atom feed, so far as I can tell";