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