User account expiration control panel for SME Server
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

{
# 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 = '';
}