Mail::Audit help plz
am 26.10.2005 22:18:53 von RobHi,
I've installed the Mail::Audit (ver 2.1) perl module
to my home directory as non-root user & I get a problem.
here's my .forward:
|/home/rob/bin/forward_email
here's the forward_email:
#!/usr/bin/perl -w
BEGIN{
unshift @INC, '/home/rob/lib/lib/perl5/site_perl/5.8.3'
}
$\ = "\n";
select(STDERR); $| = 1;
select(STDOUT); $| = 1;
use Mail::Audit;
my $mail = Mail::Audit->new(emergency=>"/home/rob/emergency_mbox");
my $from = $mail->from();
my $to = $mail->to();
my $subject = $mail->subject();
chomp($from, $to, $subject);
open(LOG, ">> /home/rob/mynewmail.log");
print LOG "from is $from";
print LOG "to is $to";
print LOG "subj is $subject";
close(LOG);
$mail->accept('/home/rob/dead.lettters');
However, nothing is written to mynewmail.log. Plus the first line
of the dead.lettters is:
From root@localhost Wed Oct 26 16:06:27 2005
<
In addition, this email is sent back to the user:
This message was created automatically by mail delivery software.
A message that you sent could not be delivered to one or more of its
recipients. This is a permanent error. The following address(es) failed:
pipe to |/home/rob/bin/forward_email
generated by rob@domainname.com
The following text was generated during the delivery attempt:
------ pipe to |/home/rob/bin/forward_email
generated by rob@domainname.com ------
Use of uninitialized value in pattern match (m//) at /home/rob/lib/lib/perl5/site_perl/5.8.3/Mail/Audit.pm line 431.
------ This is a copy of the message, including all the headers. ------
<
Has anyone seen this problem? What do you think I should do?
--Rob