view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker qw(prompt WriteMakefile);

#--- Check for required modules ---

my $reqs_found=1;
my $missing=0;

sub check_module {
  my($module,$version) = @_;
  print substr("$module ............................",0,30);
  my $ok = eval {

Makefile.PL  view on Meta::CPAN

print "\n",<<"EDQ","\n" if $missing;
****************************************************************************
You are missing some modules that may be needed for the modules in Abook
to work correctly. Read the above messages and download any required
modules from http://www.perl.com/CPAN
****************************************************************************
EDQ

exit unless $reqs_found;

$r = prompt("For testing the LDAP backend, I need to know some things about 
your LDAP server.  Continue? [y/n]","y");

if ($r =~ /^y$/i) {
  $hostname = prompt("What is your LDAP server hostname","localhost");
  $base = prompt("What is a valid LDAP base that I can use for searching? 
(eg. \"ou=abook,dc=<your_domain>\")");
  $objectclass = prompt("What is a valid LDAP objectclass that I can search for?",
"organizationalUnit");
  print "The LDAP test script will attempt to bind anonymously to \"$hostname\"
and search for \"objectclass=$objectclass\" 
using the base: $base\n";
  open F, ">t/t.ldap.conf";
  print F << "EDQ";
<AddressBook_config>
  <fields>
    <field name="objectclass">
      <db type="LDAP" name="objectclass" />

lib/AddressBook/DB/PDB.pm  view on Meta::CPAN

@ISA = qw(AddressBook);

=head2 new

  $a = AddressBook->new(source => "PDB");
  $a = AddressBook->new(source => "PDB",
                        port => "/dev/pilot");

If a "pdb" parameter is supplied, it will be used as a reference to an already
created PDA::Pilot::DLP::DBPtr object.  Otherwise, if a "port" is supplied,
the user will be prompted to press the hotsync button to establish the connection.

=cut

sub new {
  my $class = shift;
  my $self = {};
  bless ($self,$class);
  my %args = @_;
  foreach (keys %args) {
    $self->{$_} = $args{$_};