#!/usr/local/bin/perl

use strict;

my $mailprog = '/var/qmail/bin/sendmail.bin';
my $args = join(' ', @ARGV);
my $date = localtime();

open (INFO, ">>/tmp/formmail.log") || die "Couldnt append to log: $!\n";
if($ENV{'REMOTE_ADDR'}) {
	print INFO "$date: $ENV{REMOTE_ADDR} ran $ENV{SCRIPT_NAME} at $ENV{SERVER_NAME}\n";
}else{
   my $name = (getpwuid($>))[0];
   print INFO "$date: $name ran $0 $args\n";
}
close (INFO);

open(MAIL,"|$mailprog $args") || die "cannot open $mailprog: $!\n";
while (<STDIN>) {
        print MAIL;
}
close (MAIL);
