#!/usr/bin/perl -w

use strict;
use esmith::AccountsDB;

my $a = esmith::AccountsDB->open_ro() || die "Couldn't open the accounts database";

print '^ Pseudonyme ^ Utilisateur ou groupe ^' . "\n";

print '|' . $_->key . ' |' . $_->prop('Account') . " |\n" foreach ($a->get_all_by_prop (type => "pseudonym"));