duncaninnes/ipa-monitor.pl

## ipa-monitor.pl
#!/usr/bin/perl -w

use Net::LDAP;
use strict;
print "Content-type: text/html\n\n";

#BIND INFORMATION, and SEARCH BASE
my $user   = "CN=Directory Manager";
my $passwd = "Password";
my $base   = "cn=config";

#Attributes
my $server    ="nsDS5ReplicaHost";
my $status    ="nsds5replicaLastUpdateStatus";
my $laststart ="nsds5replicaLastUpdateStart";
my $lastend   ="nsds5replicaLastUpdateEnd";

my @ipa_servers = (
                   "ipa01.example.com",
                   "ipa02.example.com",
                   "ipa03.example.com",
                   "ipa04.example.com"
                                       );

print "<html>";
print "<head>";
print "</head>";
print "<body>";
print "<h1>IPA Replication Status</h1>";
print "<p>Updated: ".localtime()."</p>";
print "<table border=1 style=\"background:#f3f3f3; border-collapse: collapse; border:thin; border:black\">";
print "<thead><tr><th>Source</th><th>Target</th><th>Status</th><th>Last Started</th><th>Last Ended</th></tr></thead>";
print "<tbody>\n";

my $ipa_source;

foreach $ipa_source ( @ipa_servers ) {

    #connect to ldap server

    my $ldap = Net::LDAP->new ( $ipa_source ) or die "$@";

    my $mesg = $ldap->bind ( "$user", password => "$passwd" , version => 3 );
    $mesg->code && warn "error: ", $mesg->error;


    my $result=LDAPSearch($ldap,"objectClass=nsDS5ReplicationAgreement","",$base);

    my @entries = $result->entries;


    my $entr;

    foreach $entr ( @entries ) {
        my $servername=$entr->get_value($server);
        my $serverstatus=$entr->get_value($status);

        my $serverlaststart=$entr->get_value($laststart);
        my $serverlastend=$entr->get_value($lastend);

        $serverlaststart =~ s/(....)(..)(..)(..)(..)(..)./$1-$2-$3\ $4:$5:$6/;
        $serverlastend =~ s/(....)(..)(..)(..)(..)(..)./$1-$2-$3\ $4:$5:$6/;

        print "<tr>";
        print "<td>$ipa_source</td><td>$servername</td><td>$serverstatus</td><td>$serverlaststart</td>";
        print "<td>$serverlastend</td>";
        print "</tr>";
        print "\n";
    }
}
print "</tbody></table></body></html>";

exit;

sub LDAPSearch {

    my ($ldap,$searchString,$attrs,$base) = @_;

    my $result = $ldap->search ( base    => "$base",
                                 scope   => "sub",
                                 filter  => "$searchString",
                                 attrs   =>  $attrs
                               );
}

## ipa-monitor2.pl
#!/usr/bin/perl -w

use Net::LDAP;
use strict;
print "Content-type: text/html\n\n";

#BIND INFORMATION, and SEARCH BASE
my $user   = "CN=Directory Manager";
my $passwd = "Password";
my $base   = "cn=config";

#Attributes
my $server    ="nsDS5ReplicaHost";
my $status    ="nsds5replicaLastUpdateStatus";
my $laststart ="nsds5replicaLastUpdateStart";
my $lastend   ="nsds5replicaLastUpdateEnd";

my @ipa_servers = (
                   "ipa01.example.com",
                   "ipa02.example.com",
                   "ipa03.example.com",
                   "ipa04.example.com"
                                       );
my $ipa_source;
my @report = ();

foreach $ipa_source ( @ipa_servers ) {

    #connect to ldap server

    my $ldap = Net::LDAP->new ( $ipa_source ) or die "$@";
    my $mesg = $ldap->bind ( "$user", password => "$passwd" , version => 3 );

    $mesg->code && warn "error: ", $mesg->error;

    my $result=LDAPSearch($ldap,"objectClass=nsDS5ReplicationAgreement","",$base);
    my @entries = $result->entries;
    my $entr;

    foreach $entr ( @entries ) {
        my $servername=$entr->get_value($server);
        my $serverstatus=$entr->get_value($status);
        my $serverlaststart=$entr->get_value($laststart);
        my $serverlastend=$entr->get_value($lastend);

        $serverlaststart =~ s/(....)(..)(..)(..)(..)(..)./$1-$2-$3\ $4:$5:$6/;
        $serverlastend =~ s/(....)(..)(..)(..)(..)(..)./$1-$2-$3\ $4:$5:$6/;

        push @report, [ $serverlastend , $serverlaststart , $ipa_source , $servername , $serverstatus  ];
    }
}

my $i;
my $j;

my @sorted = sort {$b->[1] cmp $a->[1]} @report;

print "<html>";
print "<head>";
print "</head>";
print "<body>";
print "<h1>IPA Replication Status</h1>";
print "<p>Updated: ".localtime()."</p>";
print "<table border=1 style=\"background:#f3f3f3; border-collapse: collapse; border:thin; border:black\">";
print "<thead><tr><th>Source</th><th>Target</th><th>Status</th><th>Last Started</th><th>Last Ended</th></tr></thead>";
print "<tbody>";

for $i ( 0 .. $#sorted ) {
    my $source = $sorted[$i][2];
    my $target = $sorted[$i][3];
    my $status = $sorted[$i][4];
    my $start  = $sorted[$i][1];
    my $end    = $sorted[$i][0];
    print "<tr>";
    print "<td>$source</td><td>$target</td><td>$status</td><td>$start</td><td>$end</td>";
    print "</tr>\n";

}

print "</tbody></table></body></html>";

exit;

sub LDAPSearch {

    my ($ldap,$searchString,$attrs,$base) = @_;

    my $result = $ldap->search ( base    => "$base",
                                 scope   => "sub",
                                 filter  => "$searchString",
                                 attrs   =>  $attrs
                               );
}
	#!/usr/bin/perl -w

	use Net::LDAP;
	use strict;
	print "Content-type: text/html\n\n";

	#BIND INFORMATION, and SEARCH BASE
	my $user = "CN=Directory Manager";
	my $passwd = "Password";
	my $base = "cn=config";

	#Attributes
	my $server ="nsDS5ReplicaHost";
	my $status ="nsds5replicaLastUpdateStatus";
	my $laststart ="nsds5replicaLastUpdateStart";
	my $lastend ="nsds5replicaLastUpdateEnd";

	my @ipa_servers = (
	"ipa01.example.com",
	"ipa02.example.com",
	"ipa03.example.com",
	"ipa04.example.com"
	);

	print "<html>";
	print "<head>";
	print "</head>";
	print "<body>";
	print "<h1>IPA Replication Status</h1>";
	print "<p>Updated: ".localtime()."</p>";
	print "<table border=1 style=\"background:#f3f3f3; border-collapse: collapse; border:thin; border:black\">";
	print "<thead><tr><th>Source</th><th>Target</th><th>Status</th><th>Last Started</th><th>Last Ended</th></tr></thead>";
	print "<tbody>\n";

	my $ipa_source;

	foreach $ipa_source ( @ipa_servers ) {

	#connect to ldap server

	my $ldap = Net::LDAP->new ( $ipa_source ) or die "$@";

	my $mesg = $ldap->bind ( "$user", password => "$passwd" , version => 3 );
	$mesg->code && warn "error: ", $mesg->error;


	my $result=LDAPSearch($ldap,"objectClass=nsDS5ReplicationAgreement","",$base);

	my @entries = $result->entries;


	my $entr;

	foreach $entr ( @entries ) {
	my $servername=$entr->get_value($server);
	my $serverstatus=$entr->get_value($status);

	my $serverlaststart=$entr->get_value($laststart);
	my $serverlastend=$entr->get_value($lastend);

	$serverlaststart =~ s/(....)(..)(..)(..)(..)(..)./$1-$2-$3\ $4:$5:$6/;
	$serverlastend =~ s/(....)(..)(..)(..)(..)(..)./$1-$2-$3\ $4:$5:$6/;

	print "<tr>";
	print "<td>$ipa_source</td><td>$servername</td><td>$serverstatus</td><td>$serverlaststart</td>";
	print "<td>$serverlastend</td>";
	print "</tr>";
	print "\n";
	}
	}
	print "</tbody></table></body></html>";

	exit;

	sub LDAPSearch {

	my ($ldap,$searchString,$attrs,$base) = @_;

	my $result = $ldap->search ( base => "$base",
	scope => "sub",
	filter => "$searchString",
	attrs => $attrs
	);
	}