about summary refs log tree commit homepage
diff options
context:
space:
mode:
-rw-r--r--lib/PublicInbox/NNTP.pm22
-rw-r--r--lib/PublicInbox/NNTPD.pm4
2 files changed, 14 insertions, 12 deletions
diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm
index b641bd23..68222196 100644
--- a/lib/PublicInbox/NNTP.pm
+++ b/lib/PublicInbox/NNTP.pm
@@ -136,29 +136,29 @@ sub list_headers ($;$) {
 sub list_active ($;$) {
         my ($self, $wildmat) = @_;
         wildmat2re($wildmat);
-        foreach my $ng (@{$self->{nntpd}->{grouplist}}) {
-                $ng->{newsgroup} =~ $wildmat or next;
-                group_line($self, $ng);
+        my $groups = $self->{nntpd}->{groups};
+        for my $ngname (grep(/$wildmat/, @{$self->{nntpd}->{groupnames}})) {
+                group_line($self, $groups->{$ngname});
         }
 }
 
 sub list_active_times ($;$) {
         my ($self, $wildmat) = @_;
         wildmat2re($wildmat);
-        foreach my $ng (@{$self->{nntpd}->{grouplist}}) {
-                $ng->{newsgroup} =~ $wildmat or next;
-                my $c = eval { $ng->uidvalidity } // time;
-                more($self, "$ng->{newsgroup} $c $ng->{-primary_address}");
+        my $groups = $self->{nntpd}->{groups};
+        for my $ngname (grep(/$wildmat/, @{$self->{nntpd}->{groupnames}})) {
+                my $ibx = $groups->{$ngname};
+                my $c = eval { $ibx->uidvalidity } // time;
+                more($self, "$ngname $c $ibx->{-primary_address}");
         }
 }
 
 sub list_newsgroups ($;$) {
         my ($self, $wildmat) = @_;
         wildmat2re($wildmat);
-        foreach my $ng (@{$self->{nntpd}->{grouplist}}) {
-                $ng->{newsgroup} =~ $wildmat or next;
-                my $d = $ng->description;
-                more($self, "$ng->{newsgroup} $d");
+        my $groups = $self->{nntpd}->{groups};
+        for my $ngname (grep(/$wildmat/, @{$self->{nntpd}->{groupnames}})) {
+                more($self, "$ngname ".$groups->{$ngname}->description);
         }
 }
 
diff --git a/lib/PublicInbox/NNTPD.pm b/lib/PublicInbox/NNTPD.pm
index 13b0f678..4de1944b 100644
--- a/lib/PublicInbox/NNTPD.pm
+++ b/lib/PublicInbox/NNTPD.pm
@@ -60,7 +60,9 @@ sub refresh_groups {
                         delete $groups->{$ngname};
                 }
         });
-        $self->{grouplist} = [ map { $groups->{$_} } sort(keys %$groups) ];
+        my @names = sort(keys %$groups);
+        $self->{grouplist} = [ map { $groups->{$_} } @names ];
+        $self->{groupnames} = \@names;
         $self->{pi_config} = $pi_config;
         # this will destroy old groups that got deleted
         $self->{groups} = $groups;