Put the NNTP server name into Xref lines

[public-inbox.git] / lib / PublicInbox / NNTPD.pm

diff --git a/lib/PublicInbox/NNTPD.pm b/lib/PublicInbox/NNTPD.pm
index 117c9c0379febe77b680e69cd693858760212325..32848d7c583e28f0a671af1bec55d071bd92d7ea 100644 (file)
--- a/lib/PublicInbox/NNTPD.pm
+++ b/lib/PublicInbox/NNTPD.pm
@@ -6,15 +6,25 @@
 package PublicInbox::NNTPD;
 use strict;
 use warnings;
+use Sys::Hostname;
 require PublicInbox::Config;
 
 sub new {
        my ($class) = @_;
+       my $pi_config = PublicInbox::Config->new;
+       my $name = $pi_config->{'publicinbox.nntpserver'};
+       if (!defined($name) or $name eq '') {
+               $name = hostname;
+       } elsif (ref($name) eq 'ARRAY') {
+               $name = $name->[0];
+       }
+
        bless {
                groups => {},
                err => \*STDERR,
                out => \*STDOUT,
                grouplist => [],
+               servername => $name,
        }, $class;
 }