about summary refs log tree commit homepage
path: root/script/public-inbox-nntpd
blob: ce42de2d57c254104bf2eaa234bcf3128291ffa5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl -w
# Copyright (C) 2015-2020 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
#
# Standalone NNTP server for public-inbox.
use strict;
use warnings;
use PublicInbox::Daemon;
use PublicInbox::NNTP; # need to call import
use PublicInbox::NNTPD;
my $nntpd = PublicInbox::NNTPD->new;
PublicInbox::Daemon::run('0.0.0.0:119',
	sub { $nntpd->refresh_groups }, # refresh
	sub ($$$) { PublicInbox::NNTP->new($_[0], $nntpd) }, # post_accept
	$nntpd);