#!/usr/bin/perl

#use lib '/usr/lib/perl5';
# '.';
#use blib qw(/usr/lib/perl5);
use Convert::BER;
use Net::LDAP;
use IO::Select;

#ldap.switchboard.com
#ldap.whowhere.com
#ldap.infospace.com
#ldap.four11.com
#ldap.bigfoot.com

$ldap = Net::LDAP->new('$ENV{HTTP_HOST}',
		DN => "",
		Password => "",
		Port => 389,
		Debug => 0,
	) or
	die $@;

for $filter (
	'(cn=*a*)',
	) {

    print "*" x 72,"\n",$filter,"\n","*" x 72,"\n";

    $mesg = $ldap->search(
		Base   => "o=oeh uni wien, c=at",
		Filter => $filter
    ) or die $@;

    map { $_->dump } $mesg->all_entries;

}