You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
309 B
14 lines
309 B
{
|
|
# 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 = '';
|
|
}
|
|
|