initial commit of file from CVS for e-smith-qmail on Wed 12 Jul 09:06:46 BST 2023

This commit is contained in:
Brian Read
2023-07-12 09:06:46 +01:00
parent 522798702f
commit 2d08981b2a
67 changed files with 2072 additions and 2 deletions

View File

@@ -0,0 +1,14 @@
{
# vim: ft=perl:
die "USERNAME not set." unless defined ($USERNAME);
use esmith::AccountsDB;
$adb = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB";
$user = $adb->get($USERNAME) or die "No user $USERNAME in AccountsDB";
%props = $user->props;
$props{EmailForward} ||= 'local';
$OUT = '';
}