CTM

Consultation de Control-M Enterprise Manager 6/7/8 via son SGBD.

Installation :

perl Makefile.PL
make
make test
make install
make clean

Exemple :

use CTM::ReadEM qw/:all/;

my $session = CTM::ReadEM->newSession(
    ctmEMVersion => 7,
    DBMSType => 'Pg',
    DBMSAddress => '127.0.0.1',
    DBMSPort => 3306,
    DBMSInstance => 'ctmem',
    DBMSUser => 'root',
    DBMSPassword => 'root'
);

$session->connectToDB() || die $session->getError();

my $servicesHashRef = $session->workOnCurrentServices();

unless (defined ($err = $session->getError())) {
    $servicesHashRef->keepItemsWithAnd({
        service_name => ['$_', '=~', '/^SVC_HEADER_/']
    });
    printf "%s : %s\n", $_->{service_name}, getStatusColorForService($_) for (values %{$servicesHashRef->getItems()});
} else {
    die $err;
}

Pour toutes autres informations :

man CTM::ReadEM || perldoc CTM::ReadEM # ou CTM::Base, CTM::Base::SubClass, etc, ...

Sources disponibles sur :

• CPAN
• GitHub

Licence :

Voir licence Perl.