source: LATMOS-Accounts/bin/la-config @ 25

#!/usr/bin/perl

use strict;
use warnings;
use LATMOS::Accounts;
use Getopt::Long;
use Pod::Usage;

GetOptions(
    'c|config=s' => \my $config,
) or pod2usage();

my $LA = LATMOS::Accounts->new($config);

my $action = shift(@ARGV) || '';
for ($action) {
    m/^$/ and do {
        my $default = $LA->default_base_name || '';
        foreach ($LA->list_bases) {
            printf("%s %s (%s)\n",
                ($_ eq $default ? '*' : ' '),
                $_,
                $LA->val($_, 'type', 'Err: no type')
            );
        }
        last;
    };
}