diff options
| author | Eric Wong <e@80x24.org> | 2022-08-10 07:40:31 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2022-08-10 15:56:11 +0000 |
| commit | 1c457e08d2bb3352bdddde0a3580ff37f317cc72 (patch) | |
| tree | 564475c62f78e7bfd3f9afa596b6b5e953bffd5d /lib/PublicInbox/WwwText.pm | |
| parent | 47b69b28fe906e12761059b71e4fcf4fc44cdc5b (diff) | |
| download | public-inbox-1c457e08d2bb3352bdddde0a3580ff37f317cc72.tar.gz | |
While the ';' requires escaping on the command-line, the presence of ";AUTH=ANONYMOUS" communicates clearly that anonymous access is supported in accordance to RFC 4505.
Diffstat (limited to 'lib/PublicInbox/WwwText.pm')
| -rw-r--r-- | lib/PublicInbox/WwwText.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/PublicInbox/WwwText.pm b/lib/PublicInbox/WwwText.pm index 71b04561..c067369e 100644 --- a/lib/PublicInbox/WwwText.pm +++ b/lib/PublicInbox/WwwText.pm @@ -276,10 +276,12 @@ sub _add_non_http_urls ($$) { $ctx->{ibx}->can('nntp_url') or return; # TODO extindex can have IMAP my $urls = $ctx->{ibx}->imap_url($ctx); if (@$urls) { - $$txt .= "\nIMAP subfolder(s) are available under:"; - $$txt .= "\n " . join("\n ", @$urls); + $urls = join("\n ", @$urls); + $urls =~ s!://([^/@]+)/!://;AUTH=ANONYMOUS\@$1/!sg; $$txt .= <<EOM +IMAP subfolder(s) are available under: + $urls # each subfolder (starting with `0') holds 50K messages at most EOM } |