Hi,
The question is a tad vague, maybe someone can hint me at phrasing it
differently... ?
I'm running a reasonably simple query against a GW-Server, and am
getting strange
output for two accounts ...
In lookups: XXXY
SnSnSn
GivenName
XXXY has address GivenName.SUse of uninitialized value in
concatenation (.) or string at ./loopsi.pl line 55, <DATA> line 253.
[EMAIL PROTECTED]
In lookups: XXXY
Sn2Sn2Sn2
Given2Name2
XXXY has address Given2Name2.SUse of uninitialized value in
concatenation (.) or string at ./loopsi.pl line 55, <DATA> line 253.
[EMAIL PROTECTED]
The relevant lines of code:
my $filter = "(&(mail=*)(cn=A*))";
my $entry;
my $lanid;
throw_to_syslog("Filter: $filter") if ( $debug > 1 );
my $mesg = $lookupldap->search(
base => 'o=DOMAIN',
filter => $filter,
scope => 'sub',
attrs => [ 'mail', 'cn', 'sn', 'givenName' ],
timelimit => 300
);
# if we were successful
if ($mesg->code == 0) {
if ($mesg->entries) {
foreach $entry ($mesg->entries) {
print "In lookups: ".$entry->get_value('cn')."\n";
print " ".$entry->get_value('sn')."\n";
print " ".$entry->get_value('givenName')."\n";
foreach my $mail ( $entry->get_value('mail') ){
my $mailaddr = $mail;
if ( $mailaddr =~ /@/ && $entry->dn =~ /cn=([^,]+),/) {
print "$1 has address $mailaddr\n";
if ($debug > 1);
$lanid = lc($1);
# save the mail address and the dn
$mailaddrs{"$lanid"} = $mailaddr;
$officedns{"$lanid"} = $entry->dn;
$addrcount++;
}
}
print "\n";
}
}
}
The odd thing is that if I narrow the search down via a less inclusive
filter things look perfectly normal for both. Things look also normal
with an ldapsearch from the command-line, and I can't see any
differences in the raw traffic when listening into 389 using wireshark,
and both are done via an anonymous bind.
My perl version is
perl -V
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
Platform:
osname=linux, osvers=2.6.23.16-smp, archname=i486-linux-thread-multi
uname='linux midas 2.6.23.16-smp #1 smp sat feb 23 00:20:30 cst
2008 i686 amd athlon(tm) 64 x2 dual core processor 5200+ authenticamd
gnulinux '
config_args='-de -Dprefix=/usr -Dvendorprefix=/usr
-Dcccdlflags=-fPIC -Dinstallprefix=/usr -Doptimize=-O2 -march=i486
-mtune=i686 -Dusethreads -Duseithreads -Dpager=/usr/bin/less -isr
-Dinc_version_list=5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0
-Darchname=i486-linux'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=undef useithreads=define
usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
-fno-strict-aliasing -pipe -Wdeclaration-after-statement
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2 -march=i486 -mtune=i686',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
-fno-strict-aliasing -pipe -Wdeclaration-after-statement
-I/usr/local/include'
ccversion='', gccversion='4.2.3', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
libc=/lib/libc-2.7.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.7'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT
PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_ITHREADS
USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
Built under linux
Compiled at Feb 28 2008 23:15:25
@INC:
/usr/lib/perl5/5.8.8/i486-linux-thread-multi
/usr/lib/perl5/5.8.8
/usr/lib/perl5/site_perl/5.8.8/i486-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.8
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.8/i486-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.8
/usr/lib/perl5/vendor_perl
.
Any hints greatly appreciated
--
Please don't top post, and don't use HTML e-Mail :} Make your quotes concise.
http://www.american.edu/econ/notes/htmlmail.htm
