#!/usr/bin/perl

use FileHandle;
require 'base64.pl';

#while (<>){$base64_string .= $_};
#$enc= &base64'b64encode($base64_string);
#$enc =~ s/\n/\n /gm;
# $enc =~ s/\s//gm;
# $enc =~ s/^(.*)$/  $1/gm;
#chop $enc;
#chop $enc;
#$enc=$base64_string;



#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 => "cn=admin, o=oeh uni wien, c=at",
		Password => "anything",
		Port => 389,
		Debug => 255,
	) or
	die $@;

	$mesg = $ldap->delete(
		'-dn' => 'cn=alexander oelzant, o=oeh uni wien, c=at'
#,
#		Delete => [ 'jpegphoto' ]   
    ) or die $@;
#$t1=$mesg;
#$t1=$t1{Parent};
#$t1=$$t1{net_ldap_resp};
# $t1=$t1{Modify};
#while (($name, $value)=each(%$t1)) {print ">>>$name:$value<<<\n";};
   print Net::LDAP->recvresp($ldap);
#print $mesg->sync;
#print $ldap->unbind;