smeserver-base/root/etc/e-smith/db/accounts/migrate/50VPNClientAccess

19 lines
444 B
Plaintext

{
# Migrate PPTPAccess -> VPNClientAccess and ensure a default for
# all user/admin accounts
foreach my $account ($DB->get_all)
{
next unless ( ($account->key eq 'admin') or
($account->prop('type') eq 'user') );
next if (defined $account->prop('VPNClientAccess'));
my $access = $account->prop('PPTPAccess') || 'no';
$account->delete_prop('PPTPAccess');
$account->set_prop('VPNClientAccess', $access);
}
}