Phone List

#!/usr/bin/perl use AddressBook; use CGI; $query = CGI::new(); print $query->header(-charset=>'UTF-8'); print "\n"; print "\n"; print "Phone List\n"; $ldap=AddressBook->new(source => LDAP); $html=AddressBook->new(source => phonelist,config=>$ldap->{config}); $lines = 0; print "\n"; print "

\n"; $ldap->search(filter=>{phonelist => "Yes"}); while ($entry = $ldap->read) { if ($lines >= 36) {print "

\n";$lines=0} $cell = $html->write($entry); (@matches) = $cell =~ /(?!<\/tr>)/gi; $lines += $#matches; print "$cell\n"; } print "

\n"; print "\n";