mv /usr/sbin/sendmail /usr/sbin/sendmail.act
Create a "new" sendmail binary
vi /usr/sbin/sendmail
...and add:
#!/usr/bin/perl
# use strict;
use Env;
my $date = `date`;
chomp $date;
open (INFO, ">>/var/log/formmail.log") || die "Failed to open file ::$!";
my $uid = $>;
my @info = getpwuid($uid);
if($REMOTE_ADDR) {
print INFO "$date - $REMOTE_ADDR ran $SCRIPT_NAME at $SERVER_NAME \n";
}
else {
print INFO "$date - $PWD - @info\n";
}
my $mailprog = '/usr/sbin/sendmail.act';
foreach (@ARGV) {
$arg="$arg" . " $_";
}
open (MAIL,"|$mailprog $arg") || die "cannot open $mailprog: $!\n";
while (<stdin> ) {
print MAIL;
}
close (INFO);
close (MAIL);
Lastly:
chmod +x /usr/sbin/sendmail echo > /var/log/formmail.log chmod 777 /var/log/formmail.log
No comments:
Post a Comment