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