From: <CZa...@wi...> - 2002-04-16 22:07:05
|
Does anyone know what this means "Sizelimit exceeded at email_search.pl line 19." I wrote a script that does a search and the does a get_value for "mail". I then attempt to split the email address based on "@". It work fine for a few limes that I get the error about......... Help @OU = ("AusAsia", "Australia", "Canada", "Chichester", "CPA", "Indianapolis", "JosseyBass", "NewYork605", "NewYork909", "Tulsa", "USDC", "VCH"); $ldap = Net::LDAP->new('server.sys.com', port => '389') || die "ERROR: $@"; foreach $i (@OU) { $mesg = $ldap->search( base => "ou=$i,o=Wiley", scope => "subtree", filter => "(cn=*)" ); die ldap_error_desc($mesg->code) if $mesg->code; foreach $entry ($mesg->entries) { $mail = $entry->get_value('mail'); $cn = $entry->get_value('cn'); if ($mail ne "") { @email = split(/@/, $mail); print "$i: $email[0]\n"; } else { print "$i: $cn has no email address.\n"; } } } |