{
    use esmith::AccountsDB;

    my $adb = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB\n";

    $OUT = '';

    for my $user ( $adb->users )
    {
	my %props = $user->props;
	$props{AllowRSSH} ||= 'unknown';

	next unless ($props{PasswordSet} eq 'yes');

	next if ($props{AllowRSSH} eq 'no');

	next unless ($props{AllowRSSH} eq 'yes' or
		$props{VPNClientAccess} eq 'yes');

	$OUT .= "user = " . $user->key . ":022:11111:" . "\n";
    }
}
