i wonder where te file 95saSort come from when i remove him everything goes well.
This is the code in the file :
{
use esmith::ConfigDB;
use esmith::AccountsDB;
###Create an Object to spamassassin dbase
my $sa_dbase = '/home/e-smith/spamassassin';
my $dbh1 = esmith::ConfigDB->open_ro($sa_dbase)
|| die "Unable to open spamassassin configuration dbase.";
###Pull spamassassin global config parameters
my %sa_conf = $dbh1->get('conf.global')->props;
###Create an Object to SME config dbase
my $dbh2 = esmith::ConfigDB->open_ro()
|| die "Unable to open configuration dbase.";
###Pull spamassassin global config parameters
my $conf_record = $dbh2->get('spamassassin');
my $status = $conf_record->prop('status');
###Check to see if spamassassin is enabled. If so, add user procmail entries
if ($status eq 'enabled' && $sa_conf{'sort_spam'}) {
##Create an object to accounts dbase
my $dbh3 = esmith::AccountsDB->open_ro()
|| die "Unable to open accountds dbase.";
###Build procmail entry to sort spam to junkmail folder
if ($dbh3->get($USERNAME)) {
my $user_conf_entry = 'conf' . $USERNAME;
###run a check to see if user has disabled spam sorting in a per user
###config setup
my %user_conf;
my $user_record = $dbh3->get($user_conf_entry);
if ($user_record) {
%user_conf = $user_record -> props;
}
else {%user_conf = ();}
if (!%user_conf) {
$OUT .= "\n";
$OUT .= "# -------------------------------\n";
$OUT .= "# Spamassassin sort to junkmail \n";
$OUT .= "# -------------------------------\n";
$OUT .= ":0\n";
$OUT .= "* ^X-Spam-Status: Yes\n";
$OUT .= '$MAILDIR' . "/junkmail/\n";
}
elsif ($sa_conf{'per_user'} && $user_conf{'sort_spam'}){
|| die "Unable to open accountds dbase.";
###Build procmail entry to sort spam to junkmail folder
if ($dbh3->get($USERNAME)) {
my $user_conf_entry = 'conf' . $USERNAME;
###run a check to see if user has disabled spam sorting in a per user
###config setup
my %user_conf;
my $user_record = $dbh3->get($user_conf_entry);
if ($user_record) {
%user_conf = $user_record -> props;
}
else {%user_conf = ();}
if (!%user_conf) {
$OUT .= "\n";
$OUT .= "# -------------------------------\n";
$OUT .= "# Spamassassin sort to junkmail \n";
$OUT .= "# -------------------------------\n";
$OUT .= ":0\n";
$OUT .= "* ^X-Spam-Status: Yes\n";
$OUT .= '$MAILDIR' . "/junkmail/\n";
}
elsif ($sa_conf{'per_user'} && $user_conf{'sort_spam'}){
$OUT .= "\n";
$OUT .= "# -------------------------------\n";
$OUT .= "# Spamassassin sort to junkmail \n";
$OUT .= "# -------------------------------\n";
$OUT .= ":0\n";
$OUT .= "* ^X-Spam-Status: Yes\n";
$OUT .= '$MAILDIR' . "/junkmail/\n";
}
}
}
}