#!/usr/bin/perl
$0 =~ /([^\/]*?)$/;
$basename=$1;
use FileHandle;
use IPC::Open2;
#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;

$_=`pwd`;
chomp;
$file=("$_/$ARGV[0]");
$file .= "\n+jpegphoto=$_/$ARGV[1]" if $ARGV[1];
$pid=open2(\*Reader, \*Writer, "ldapmodify -r -h $ENV{HTTP_HOST} -p 389 -D \"cn=alexander oelzant, o=oeh uni wien, c=at\" -w greatpw -r -b>&/dev/stdout");
Writer->autoflush(); # default here, actually
$out="cn=alexander oelzant, o=oeh uni wien, c=at
jpegphoto=$file
";
#$enc
#";
print $out;
print Writer $out;
close Writer;
while (<Reader>){print};
close Reader;