#!/usr/bin/perl -w

use strict;
use esmith::AccountsDB;

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

my @groups = $a->groups;
my @users = $a->users;

# Print the header
print '|  ';
print "^ " . $_->key foreach (@groups);
print ' ^' . "\n";

foreach my $user (@users){
    my $pos = 0;
    print '|' . $user->key . '|';
    foreach my $group (@groups){
        print 'x' if ($a->is_user_in_group($user->key,$group->key));
        print ' |';
    }
    print "\n";
}