|
{
|
|
|
|
use PHP::Serialization qw(serialize);
|
|
use esmith::AccountsDB;
|
|
|
|
my $a = esmith::AccountsDB->open_ro || die "Error opening accounts db\n";
|
|
my $data;
|
|
|
|
foreach my $user ($a->users,$a->get('admin')){
|
|
my $key = $user->key;
|
|
$data->{$key} = $key;
|
|
}
|
|
|
|
$OUT .= serialize($data);
|
|
|
|
}
|