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.
15 lines
309 B
15 lines
309 B
9 years ago
|
{
|
||
|
|
# 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 = '';
|
||
|
|
}
|