public-inbox.git  about / heads / tags
an "archives first" approach to mailing lists
blob 474224d43dec5f4301d9f9c9a23498c1bab89c04 467 bytes (raw)
$ git show HEAD:lib/PublicInbox/LeiLsLabel.pm	# shows this blob on the CLI

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
 
# Copyright (C) 2021 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>

# "lei ls-label" command
package PublicInbox::LeiLsLabel;
use strict;
use v5.10.1;

sub lei_ls_label { # the "lei ls-label" method
	my ($lei, @argv) = @_;
	# TODO: document stats/counts (expensive)
	my @L = eval { $lei->_lei_store->search->all_terms('L') };
	my $ORS = $lei->{opt}->{z} ? "\0" : "\n";
	$lei->out(map { $_.$ORS } @L);
}

1;

git clone https://public-inbox.org/public-inbox.git
git clone http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git