#!/usr/bin/env perl use strict; use warnings; $ENV{PGHOST} ||= '/var/run/postgresql'; use Net::Server::NNTP::Postgres; use Carp; $SIG{ __DIE__ } = sub { Carp::confess( @_ ) }; $SIG{ __WARN__ } = sub { Carp::cluck( @_ ) }; $ENV{TZ} = 'UTC'; # for logging Net::Server::NNTP::Postgres->new()->run( syslog_facility => 'news', syslog_ident => 'newsd', );