#!/bin/sh
set -e
perl -e '
	if (defined($x= getpeername(STDIN)) &&
	    defined($x= (unpack("S n a4 x8",$x))[2])) {
		$x= join(".",unpack("C4",$x));
	} else {
		$x= "-local-";
	}
	exec "logger","-p","news.info","-t",
	     "nntp-merge[".getppid."]", "connect from $x";
	die "nntp-merge-log: logger: $!\n";
'
exec /usr/local/sbin/nntp-merge
