#!/local/bin/perl5
#
# Palantir module:      LDAPclient
# Date:                 2003.04.04
# Author(s):            Mathias Meisfjordskar, mathiasm@usit.uio.no
#
# Purpose:
# Checks for a pid to slapd(LDAP-server), and tries ldapsearch to check
# for a server.

# Meta code:
# Optional more detailed description of tests and what to expect
# to be correct and incorrect behavior in tests.

# Alarm output has this format:
# print "<severity (I,W,P,E,S,F)>;[<time>];<ID>;<message>;$module\n";
# e.g:
# print "E;;smbclient;smbd not responding;\n";
# <time> and $module is optional, palantird fills in empty values.

my $ldapTop             = "/ldap";                   # Additional path.
my $ldapVar             = "$ldapTop/var";
my $ldapBin             = "$ldapTop/usr/bin";
my $ldapPidFile         = "$ldapVar/slapd.pid";

my ($module)            = $0 =~ m!([^/]+)$!;    # Get script name.
$ENV{'PATH'}		= $ldapBin.":".$ENV{'PATH'};

chomp(my $hostname      = `hostname`);          # Name of local host.

@additionalInfo	= ();
$notok          = 0;

# Check 1:
# Check for PID-files and if slapd is running.
if (-f $ldapPidFile) {
    my $slapdPid = `cat $ldapPidFile`;
    $slapdPid = int($slapdPid);
    if ( $slapdPid == 0 ) {
	# int($slapdPid) == 0 if $slapdPid == '' so warn:
	push(@additionalInfo, "pid-file included pid 0");
	$notok = 1;
	goto CHECK2;
    }
    # Try harmless kill:
    kill 0, $slapdPid;
    if ($! eq "No such process") {
	push(@additionalInfo, "slapd does not seem to be running");
	$notok = 1;
    }
} else {
    push(@additionalInfo, "No slapd pid-file found");
    $notok = 1;
}


# Check 2:
# Check if ldapsearch get any answer from localhost.

CHECK2:
my @res = `ldapsearch -x -h $hostname 2>&1`;

# If no output; ldapsearch is busted.
if (!@res) {
    push(@additionalInfo, "Something is wrong with ldapsearch");
    $notok = 1;
    goto ENDPROG;
}

foreach (@res) {
    # We got a winner.
    if (/objectclass\=\*/) {
	$notok	= 0 if ($notok == 0);		# slapd returned enough data.
	last;
    }
    # We got an error.
    if (/Can\'t\s+contact\s+LDAP\s+server/) {
	push(@additionalInfo, "Can't connect to server!");
	$notok = 2;
	last;
    }    
}


# REAL men use goto!

if ($notok) {
  ENDPROG:
    my $add = "";
    my $sev = "";
    if (defined(@additionalInfo)) {
	$add = " (". join(") (", @additionalInfo). ")";
    }
    # Somethings wrong... but no error.
    if ($notok == 1) { print "W;;LDAPclient; local error$add;$module\n"; }
    # Something is REALLY wrong. Fatal error!
    else { print "F;;LDAPclient; not responding$add;$module\n"; }
    exit 1;
}