22 lines
714 B
Perl
22 lines
714 B
Perl
{
|
|
# 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 = '';
|
|
}
|