an "archives first" approach to mailing lists

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

package PublicInbox::LeiLsWatch;
use strict;
use v5.10.1;

sub lei_ls_watch {
	my ($lei) = @_;
	my $cfg = $lei->_lei_cfg or return;
	my @w = (join("\n", keys %$cfg) =~ m/^watch\.(.+?)\.state$/sgm);
	$lei->puts(join("\n", @w)) if @w;
}

1;