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