pd.if.org Git - newsd/blob - newsd

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 $ENV{PGHOST} ||= '/var/run/postgresql';
   7
   8 use Net::Server::NNTP::Postgres;
   9
  10 use Carp;
  11 $SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
  12 $SIG{ __WARN__ } = sub { Carp::cluck( @_ ) };
  13
  14 $ENV{TZ} = 'UTC'; # for logging
  15
  16 Net::Server::NNTP::Postgres->new()->run(
  17         syslog_facility => 'news',
  18         syslog_ident    => 'newsd',
  19 );