--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ldapBase.pm	Fri Nov 04 06:29:26 2005 +0000
@@ -0,0 +1,21 @@
+package ldapBase;
+# © Heiko Schlittermann
+# $Id$
+# $URL$
+
+use strict;
+use warnings;
+use Exporter();
+our @ISA = qw/Exporter/;
+our @EXPORT = qw/&ldapBase/;
+
+
+sub ldapBase(@) { 
+    no warnings 'once'; 
+    local @ARGV = grep { -f } @_; 
+    die "Can't find ldap.conf (searched @_)\n" if !@ARGV;
+    my $r = (reverse grep { /^\s*BASE\s+(.*?)\s*$/ and $_ = $1 } <>)[0];
+    return $r;
+};
+
+# vim:sts=4 sw=4 aw ai sm: