[...]
# Write out our custom .qmail file, only changing the deliverquota line
# to procmail.
open(QMAILCFG, ">$userdir/$qmailcfg");
my($newmailbox) = $ENV{'NEW_MAILBOX'};
my($oldline);
foreach $oldline (@oldqmailcfg) {
chomp($oldline);
if (($oldline =~ /procmail/) && ($newmailbox eq "false")) {
### purge this line
} elsif ($oldline =~ /deliverquota/) {
print QMAILCFG "| /usr/bin/procmail -m -o .procmailrc\n";
} else {
print QMAILCFG "$oldline\n";
}
}
close(QMAILCFG);

# If the procmail file does not already exist, write out a totally base
# config file. If you want to move tagged spam to a different folder,
# you will need to update this. If it already exists, leave it alone.
if (! -f "$userdir/$procmailcfg") {
open(PROCMAILCFG, ">$userdir/$procmailcfg");
print PROCMAILCFG "MAILDIR=$userdir/$maildir\n";
print PROCMAILCFG "\n";
print PROCMAILCFG ':0 E' . "\n";
print PROCMAILCFG '| /usr/bin/deliverquota $MAILDIR' . "\n";
close(PROCMAILCFG);
}

[...]


regards
Lukas.

What it’s missing is the removal of the procmail line in .qmail if the Mailbox gets disabled (forward only).

I changed the appropriate part of the script to the following:

[...]
my($oldline);
foreach $oldline (@oldqmailcfg) {
chomp($oldline);
if ($oldline =~ /procmail/) {
# Do nothing
} elsif ($oldline =~ /deliverquota/) {
print QMAILCFG “| /usr/bin/procmail -m -o .procmailrc\n”;
} else {
print QMAILCFG “$oldline\n”;
}
}
[...]

I will add a note to self to post the code as actual downloadable files versus cut/paste in Wordpress, which should resolve this issue – I always forget how badly Wordpress munges up code. ;(

syntax error at /usr/local/sbin/add-procmail-rules.pl line 56, near “= ;”
Execution of /usr/local/sbin/add-procmail-rules.pl aborted due to compilation errors.

I’ve already fixed several bugs with the “, ”, ‘ and ’ signs which actually should be ” and ‘, but I can’t get the perl file to just run. Is there a way to find out wether plesk is running the handlers by adding a log entry to /var/log/messages?

I’m hoping for some help, as I’m not familiar with perl :)