X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FWwwText.pm;fp=lib%2FPublicInbox%2FWwwText.pm;h=2937c3336c3fd40b8d7809b7ad116eab26261d9b;hb=6544e66f13d597c93f1922fedcdec58feb4cb62b;hp=2b4e69fe09745e4f3019b122989d363a5ebc467f;hpb=48ebf19495bfa071ce1b92e55c743b3d1623a61a;p=public-inbox.git
diff --git a/lib/PublicInbox/WwwText.pm b/lib/PublicInbox/WwwText.pm
index 2b4e69fe..2937c333 100644
--- a/lib/PublicInbox/WwwText.pm
+++ b/lib/PublicInbox/WwwText.pm
@@ -1,4 +1,4 @@
-# Copyright (C) 2016-2021 all contributors
+# Copyright (C) all contributors
# License: AGPL-3.0+
# used for displaying help texts and other non-mail content
@@ -272,7 +272,7 @@ EOF
@ret; # may be empty, this sub is called as an arg for join()
}
-sub _add_imap_nntp_urls ($$) {
+sub _add_non_http_urls ($$) {
my ($ctx, $txt) = @_;
$ctx->{ibx}->can('nntp_url') or return; # TODO extindex can have IMAP
my $urls = $ctx->{ibx}->imap_url($ctx);
@@ -286,11 +286,25 @@ EOM
}
$urls = $ctx->{ibx}->nntp_url($ctx);
if (@$urls) {
- $$txt .= "\n";
- $$txt .= @$urls == 1 ? 'Newsgroup' : 'Newsgroups are';
+ $$txt .= @$urls == 1 ? "\nNewsgroup" : "\nNewsgroups are";
$$txt .= ' available over NNTP:';
$$txt .= "\n " . join("\n ", @$urls) . "\n";
}
+ $urls = $ctx->{ibx}->pop3_url($ctx);
+ if (@$urls) {
+ $urls = join("\n ", @$urls);
+ $$txt .= <{ibx}->{newsgroup}
+where \$(uuidgen) in the output of the `uuidgen' command on your system.
+The UUID in the username functions as a private cookie (don't share it).
+Idle accounts will expire periodically.
+EOM
+ }
}
sub _add_onion_note ($) {
@@ -379,7 +393,7 @@ EOM
Example config snippet for mirrors: $cfg_link
EOF
- _add_imap_nntp_urls($ctx, $txt);
+ _add_non_http_urls($ctx, $txt);
_add_onion_note($txt);
my $code_url = prurl($ctx->{env}, $PublicInbox::WwwStream::CODE_URL);
@@ -508,7 +522,7 @@ message threading
EOF
} # $over
- _add_imap_nntp_urls($ctx, \(my $note = ''));
+ _add_non_http_urls($ctx, \(my $note = ''));
$note and $note =~ s/^/ /gms and $$txt .= <