19 lines
444 B
Plaintext
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);
|
||
|
|
}
|
||
|
|
}
|