Help for this page

Select Code to Download


  1. or download this
    use Test::More tests => 18 ; #18
    
    ...
      my $base   = $ENV{TEST_BASE}   || 'ou=simple,o=test' ;
      my $binddn = $ENV{TEST_BINDDN} || 'cn=admin,o=test' ;
      my $bindpw = $ENV{TEST_BINDPW} || 'secret' ;