initial commit of file from CVS for smeserver-mailsorting on Sat Sep 7 19:56:19 AEST 2024
This commit is contained in:
21
root/etc/e-smith/templates-user/.procmailrc/00setup
Normal file
21
root/etc/e-smith/templates-user/.procmailrc/00setup
Normal file
@@ -0,0 +1,21 @@
|
||||
{
|
||||
# vim: ft=perl:
|
||||
|
||||
use esmith::AccountsDB;
|
||||
use esmith::ConfigDB;
|
||||
|
||||
our $adb = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB";
|
||||
our $cdb = esmith::ConfigDB->open_ro or die "Couldn't open ConfigDB";
|
||||
|
||||
$user = $adb->get($USERNAME) or die "No user $USERNAME in AccountsDB";
|
||||
%props = $user->props;
|
||||
|
||||
our $sievesupport = $cdb->get_prop('sieve','status') || 'disabled';
|
||||
our $sieveuser = $props{Sieve} || 'enabled';
|
||||
our $zarafa1 = $props{zarafa} || 'disabled1';
|
||||
our $zarafa2 = ${'zarafa-server'}{GlobalForward} || 'disabled2';
|
||||
our $EmailForward = $props{EmailForward} || '';
|
||||
our $ForwardAddress = $props{ForwardAddress} || '';
|
||||
|
||||
$OUT = '';
|
||||
}
|
Reference in New Issue
Block a user