Le 7 mars 2012 21:43, Prentice Bisbal <prent...@ias.edu> a écrit :
> Okay,
>
> I'm sure this error has come up repeatedly on this list, but I've
> googled and googled, and can't find an answer, probably because "Use of
> unitialized value" comes up for just about every perl error.
>
> I'm an occasional Perl programmer that occasionally used Net::LDAP. I'm
> trying to connect to an Active Directory domain controller over SSL
> using this code:
>
> #!/usr/local/bin/perl -w
>
> use strict;
> use Net::LDAPS;
>
> my $ad = Net::LDAP->new('dc1.domain.tld',
> onerror=> 'warn',
> scheme => 'ldaps',
> verify => 'require',
> cafile => '/path/to/windows.pem',
> ) || die 'Couldn\'t connect to Active Directory
> server';
> my $mesg = $ad->bind;
> my $code = $mesg->code;
> if ($code != 0) {
> my $error = $mesg->error;
> print "error\n";
> } else {
> print "No error binding\n";
> }
> $ad->unbind;
>
> Which produces this output:
>
> Use of uninitialized value $cn in substitution (s///) at
> /usr/local/perl-5.14.2/lib/site_perl/5.14.2/IO/Socket/SSL.pm line 1076,
> <DATA> line 558.
> Use of uninitialized value $commonName in concatenation (.) or string at
> /usr/local/perl-5.14.2/lib/site_perl/5.14.2/IO/Socket/SSL.pm line 1177,
> <DATA> line 558.
> No error binding
>
> I read somewhere online that this is a harmless error, and this seems to
> be true, since my program doesn't die, and I can bind without an error.
>
> If this is harmless, why am I seeing it? If I remove the '-w' from the
> interpreter line this goes away, but is that the right way to handle
> this? I'm pretty sure earlier versions of my code didn't produce this
> error, even with the "-w". This error is a relatively recent development
> - my code didn't always do this. This error appeared after I upgraded
> from RHEL 5 to RHEL 6, as I recall.
>
> Any ideas? I'm sorry if this question has come up repeatedly on here.
Maybe the error come from the CA certificate, which should contain a
CN in his subject?
Clément.
