#!/usr/bin/perl

	require POSIX;
	POSIX->import( qw (F_SETFD) );

	my $LOGUSER = shift;
	my $LOGDIR  = shift;
	my $LOGSIZE = shift;
	my $LOGNAME = shift;
	my $LOGFIFO = shift;

	open(STDOUT, "| setuser $LOGUSER cyclog $LOGSIZE $LOGDIR") or die "ack one\n";
	open(STDOUT, "| setuser $LOGUSER accustamp $LOGNAME") or die "ack two\n";
	open(STDOUT, "| /usr/lib/imap/logfifo $LOGFIFO") or die "ack three\n"
		if ( $LOGFIFO ne "" and -e $LOGFIFO );
	open(STDERR, ">&STDOUT") or die "ack four\n";

	fcntl STDOUT, &F_SETFD(), 0;
	fcntl STDERR, &F_SETFD(), 0;

	exec @ARGV;
	die "ack four\n";