initial commit of file from CVS for smeserver-mailsorting on Sat Sep 7 19:56:19 AEST 2024

This commit is contained in:
Trevor Batley
2024-09-07 19:56:19 +10:00
parent 37ac171721
commit 747f415ed0
59 changed files with 6609 additions and 2 deletions

View File

@@ -0,0 +1,47 @@
{
use esmith::config;
use esmith::db;
my %processmail;
tie %processmail, 'esmith::config', '/home/e-smith/db/processmail';
$OUT = '';
# control level of logging
my $loglevel = db_get_prop(\%processmail, $USERNAME, "loglevel") || 'some';
if ($loglevel eq 'none')
{
$OUT .= "\n";
$OUT .= "# ---- no logging ------------------\n";
}
elsif ($loglevel eq 'some')
{
$OUT .= "\n";
$OUT .= "# ---- some logging------------------\n";
$OUT .= "VERBOSE=no\n";
if ($USERNAME ne "admin")
{
$OUT .= "LOGFILE=\$HOME/procmail.log\n";
}
if ($USERNAME eq "admin")
{
$OUT .= "LOGFILE=/home/e-smith/procmail.log\n";
}
}
else
{
$OUT .= "\n";
$OUT .= "# ---- verbose, for debugging only --------------\n";
$OUT .= "VERBOSE=yes\n";
$OUT .= "LOGABSTRACT=all\n";
if ($USERNAME ne "admin")
{
$OUT .= "LOGFILE=\$HOME/procmail.log\n";
}
if ($USERNAME eq "admin")
{
$OUT .= "LOGFILE=/home/e-smith/procmail.log\n";
}
}
}