10 lines
178 B
Plaintext
10 lines
178 B
Plaintext
|
{
|
||
|
|
||
|
use esmith::AccountsDB;
|
||
|
my $a = esmith::AccountsDB->open_ro || die "Couldn't open AccountsDB\n";
|
||
|
|
||
|
my @ibays = $a->ibays();
|
||
|
my @shares = $a->get_all_by_prop(type=>'share');
|
||
|
|
||
|
}
|