equal
deleted
inserted
replaced
1 package ldapBase; |
1 package ldapBase; |
|
2 |
2 # © Heiko Schlittermann |
3 # © Heiko Schlittermann |
3 # $Id$ |
4 # $Id$ |
4 # $URL$ |
5 # $URL$ |
5 |
6 |
6 use strict; |
7 use strict; |
7 use warnings; |
8 use warnings; |
8 use Exporter(); |
9 use Exporter(); |
9 our @ISA = qw/Exporter/; |
10 our @ISA = qw/Exporter/; |
10 our @EXPORT = qw/&ldapBase/; |
11 our @EXPORT = qw/&ldapBase/; |
11 |
12 |
12 |
13 sub ldapBase(@) { |
13 sub ldapBase(@) { |
14 no warnings 'once'; |
14 no warnings 'once'; |
15 local @ARGV = grep { -f } @_; |
15 local @ARGV = grep { -f } @_; |
|
16 die "Can't find ldap.conf (searched @_)\n" if !@ARGV; |
16 die "Can't find ldap.conf (searched @_)\n" if !@ARGV; |
17 my $r = (reverse grep { /^\s*BASE\s+(.*?)\s*$/ and $_ = $1 } <>)[0]; |
17 my $r = ( reverse grep { /^\s*BASE\s+(.*?)\s*$/ and $_ = $1 } <> )[0]; |
18 return $r; |
18 return $r; |
19 }; |
19 } |
20 |
20 |
21 # vim:sts=4 sw=4 aw ai sm: |
21 # vim:sts=4 sw=4 aw ai sm: |