#!/usr/bin/perl -w
# Copyright (C) 2015-2021 all contributors
# License: AGPL-3.0+
#
# Standalone NNTP server for public-inbox.
use strict;
use warnings;
use PublicInbox::Daemon;
use PublicInbox::NNTPdeflate; # loads PublicInbox::NNTP
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);