#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use Net::LDAP;

ldap_search( qw/Neil Hunt/);

sub ldap_search {
    my ($givenname, $sn) = @_;
    my ($ldap, $mesg) = ldap_bind();
    my $base="ou=People,dc=btester,dc=com,dc=au";
    $mesg = $ldap->search (
        base => $base,
        filter => "(&(cn=$givenname $sn))");
    if ($mesg->count == 0) {
        print "Hi!\n";
    }
    else {
        print "Content-type: text/html\n\n";
        print "<title>Already Exists</title>";
        print "$givenname $sn already exists";
        print "<p>";
        print "Go <a href=\"../addemp.html\">Back</a>";
    }
    1;
}

sub ldap_bind{
    my $ldap_server="argyle";
    my $user="cn=Directory Manager";
    my $pass="<password>";
    my $ldap = Net::LDAP->new( $ldap_server ) or die "$@";
    my $mesg = $ldap->bind( "cn=Directory Manager",
                     password => "secretsecret"
                   );
    return ($ldap, $mesg);
}