about summary refs log tree commit homepage
path: root/lib/PublicInbox/LeiLsMailSource.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2024-01-10 11:18:54 +0000
committerEric Wong <e@80x24.org>2024-01-11 03:00:14 +0000
commitcb2952f7f383f688c49f4f993706e88376e998f3 (patch)
tree65516343b918c114cfbb0dad96cb883bf0bd83bf /lib/PublicInbox/LeiLsMailSource.pm
parentb2daac64423db99db12bd77afe4da813c26ee1b6 (diff)
downloadpublic-inbox-cb2952f7f383f688c49f4f993706e88376e998f3.tar.gz
Showing absolutely nothing when hitting a server requiring
authentication is a very bad user experience.  While we're
at it, use Net::Cmd->message in more places where we experience
failure, too.
Diffstat (limited to 'lib/PublicInbox/LeiLsMailSource.pm')
-rw-r--r--lib/PublicInbox/LeiLsMailSource.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/PublicInbox/LeiLsMailSource.pm b/lib/PublicInbox/LeiLsMailSource.pm
index 4b427b26..ab6c1e60 100644
--- a/lib/PublicInbox/LeiLsMailSource.pm
+++ b/lib/PublicInbox/LeiLsMailSource.pm
@@ -42,7 +42,11 @@ sub input_path_url { # overrides LeiInput version
                 my $uri = PublicInbox::URInntps->new($url);
                 my $nn = $lei->{net}->nn_get($uri) or
                         return $lei->err("E: $uri");
-                my $l = $nn->newsgroups($uri->group); # name => description
+                # $l = name => description
+                my $l = $nn->newsgroups($uri->group) // return $lei->err(<<EOM);
+E: $uri LIST NEWSGROUPS: ${\($lei->{net}->ndump($nn->message))}
+E: login may be required, try adding `-c nntp.debug' to your command
+EOM
                 my $sec = $lei->{net}->can('uri_section')->($uri);
                 if ($json) {
                         my $all = $nn->list;