#!/usr/bin/perl
#
# Tin configurator program. chopped to bits from an original program by Joey Hess

if (! -f "/etc/news/server") {
	print "Tin Configuration\n";
	print "-----------------\n\n";

	print "What news server (NNTP server) should I use for reading\n";
	print "and posting news?\n\n";

	my $guesserver=`hostname -f 2>/dev/null`;
	chomp $guesserver;

	if ($guesserver=~m/(?:.*?\.)?(.*\.\w+)/) {
		$guesserver="news.$1";
	}

	print "Enter its full name: [$guesserver] ";
	$server=<>;
	chomp $server;
	if ($server eq undef) {
		$server=$guesserver;
	}

	if (! -d "/etc/news") { mkdir "/etc/news", 0755; }

	open (NNTPSERVER,">/etc/news/server") 
		|| die "Unable to write to /etc/news/server: $!";
	print NNTPSERVER $server."\n";
	close NNTPSERVER;

} else {
	print "/etc/news/server is already setup.. carry on\n\n";
}

