smeserver-mailsorting/root/etc/e-smith/templates-user/.procmailrc/15log

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";
}
}
}