#!/usr/bin/perl -w # Copyright (C) 2015-2020 all contributors # License: AGPL-3.0+ # # 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);