It was my bad, I've made a mistake in line:
Code:
open(EMAIL, ">> emails.dat");
should be
Code:
open(EMAIL, "> emails.dat");
How it works for me now:
1. Create .forward file in home directory with permissions 600:
Code:
|/home/<username>/process_messages.pl, /home/<username>/mail/all.messages, "|/usr/bin/procmail -t #bplecs"
2. Create .procmailrc file in home directory with permissions 600:
Code:
PATH=/usr/local/bin:/usr/bin:/bin
MAILDIR=$HOME/mail #you'd better make sure it exists
LOGFILE=$MAILDIR/from #recommended
:0c:
$HOME/mail/backup.messages
3. Create process_messages.pl file to process messages:
Code:
#!/usr/bin/perl
use strict;
use warnings;
open(EMAIL, "> /home/<username>/mail/latest.messages");
while(<>) {
print(EMAIL $_);
}
close(EMAIL);
4. Create mail directory and files:
$HOME/mail/
- all.messages
- backup.messages
- latest.messages