From 891877f7b1bbb1dea0f82ec6e577dc0cb3ce51e0 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 27 Jan 2021 18:10:46 -0700 Subject: gmi2email: handle ./ links Signed-off-by: Sean Whitton --- gmi2email | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'gmi2email') diff --git a/gmi2email b/gmi2email index 1015328..9fa4c23 100755 --- a/gmi2email +++ b/gmi2email @@ -212,11 +212,14 @@ sub gemini_fetch { my @lines; if ($opts{abs_links}) { $path =~ s{^/}{}; + (my $dir = $path) =~ s{[^/]*$}{}; $authority =~ m{/$} or $authority .= "/"; $path =~ m{/$} or $path .= "/"; for (<$cl>) { s/\r?\n\z//; - if (m{^=> (?!/)} and not m{^=> [a-z]+://}) { + if (m{^=>\s*\./}) { + push @lines, "=> gemini://$authority$dir$'"; + } elsif (m{^=> (?!/)} and not m{^=> [a-z]+://}) { push @lines, "=> gemini://$authority$path$'"; } elsif (m{^=> /}) { push @lines, "=> gemini://$authority$'"; -- cgit v1.2.3