{
    use esmith::AccountsDB;

    my $adb = esmith::AccountsDB->open_ro() 
	or die "Couldnt' open AccountsDB\n";

    my @accounts = $adb->get('admin');
    push @accounts, $adb->users;

    foreach my $account (@accounts)
    {
	next unless (($account->prop('VPNClientAccess') || 'no') eq 'yes');

	next unless (($account->prop('PasswordSet') || 'no') eq 'yes');

	my $name = $account->key;

	$OUT .= <<HERE;	
$name   Service-Type == Framed-User, Framed-Protocol == PPP
HERE

	my $pptpip = $account->prop('PPTPIP');
	next unless ($pptpip);

	$OUT .= <<HER2;
	Framed-IP-Address = $pptpip, Framed-Netmask = 255.255.255.255
HER2
    }
}
