diff options
-rwxr-xr-x | gmi2email | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -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"; |