{
use esmith::AccountsDB;
my $adb = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB";
#$hum=$adb->users;
my @users= map { $_->{key} } ( $adb->users,$adb->pseudonyms,$adb->groups,$adb->get_all_by_prop(type=>"system"),$adb->get_all_by_prop(type=>"ibay")  );
# do we want ibays, reserved, url, printers ?
#$OUT .= join(", ", @users), "\n";

my @sorted_keys = sort keys %aliases;
foreach my $key (@sorted_keys) {
    $OUT .= "# $key in SME Server accounts db, ignoring " if (grep { $_ eq $key } @users); #if (grep { /$key/ } @users);
    $OUT .= "$key: $aliases{$key}\n";
}


}
