AddressBook
1 match

 view release on metacpan or  search on metacpan

examples/phonelist.cgi  view on Meta::CPAN 

#!/usr/bin/perl

use AddressBook;
use CGI;

$query = CGI::new();
print $query->header(-charset=>'UTF-8');
print "<html><head>\n";
print "<style type=\"text/css\">\n";
print "td {font-size: 8pt; vertical-align: top}\n";
print "</style>\n";
print "<title>Phone List</title></head><body>\n";

$ldap=AddressBook->new(source => LDAP);
$html=AddressBook->new(source => phonelist,config=>$ldap->{config});

$lines = 0;



( run in 0.280 second using v1.01-cache-2.11-cpan-4d50c553e7e )