1 package ldapBase;

     2 # © Heiko Schlittermann

     3 # $Id$

     4 # $URL$

     5 

     6 use strict;

     7 use warnings;

     8 use Exporter();

     9 our @ISA = qw/Exporter/;

    10 our @EXPORT = qw/&ldapBase/;

    11 

    12 

    13 sub ldapBase(@) { 

    14     no warnings 'once'; 

    15     local @ARGV = grep { -f } @_; 

    16     die "Can't find ldap.conf (searched @_)\n" if !@ARGV;

    17     my $r = (reverse grep { /^\s*BASE\s+(.*?)\s*$/ and $_ = $1 } <>)[0];

    18     return $r;

    19 };

    20 

    21 # vim:sts=4 sw=4 aw ai sm: