48 lines
1.0 KiB
Plaintext
48 lines
1.0 KiB
Plaintext
|
{
|
||
|
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";
|
||
|
}
|
||
|
|
||
|
}
|
||
|
}
|