#!/usr/bin/perl
#
# logpopauth-post
# smtp-poplock package by David Harris <dharris@drh.net>
#

use strict;

&main;

sub main
{
	# log if we have a fileno to write to
	my $fileno = $ENV{'LOGPOPAUTH_FILENUM'};
	if ( defined $fileno )
	{
		delete $ENV{'LOGPOPAUTH_FILENUM'};

		my $ip_addr = $ENV{'TCPREMOTEIP'};

		if ( open FH, ">&=$fileno" )
		{
			print FH "qmail-pop3d authenticated host: $ip_addr\n";
			close FH;
		}
	}

	# Run our friend
	exec @ARGV;
	die "exec failed";
}