# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1239181984 -7200
# Node ID 2518c7ff759b4b715eebbb9a8602b9715f4dbe30
# Parent  6597387195d48cf06e950c2b4e6576b74d0f2981# Parent  f9c8259498c2fde1780c9136be18704b515ad77b
[merged branch dtele]

diff -r f9c8259498c2 -r 2518c7ff759b update-mailboxes
--- a/update-mailboxes	Thu Jul 17 13:52:07 2008 +0000
+++ b/update-mailboxes	Wed Apr 08 11:13:04 2009 +0200
@@ -12,12 +12,12 @@
 use Pod::Usage;
 use if $ENV{DEBUG} => "Smart::Comments";
 
-my $ME             = basename $0;
-my $PRIVATE        = "$ENV{HOME}/private/accounts";
-my $LDAPCONF       = "/etc/ldap/ldap.conf";
-my $SERVER         = "localhost";
-my $BLACKLIST      = "/etc/mail/update-mailboxes.blacklist";
-my $OULIST         = "/etc/mail/update-mailboxes.oulist";
+my $ME        = basename $0;
+my $PRIVATE   = "$ENV{HOME}/private/accounts";
+my $LDAPCONF  = "/etc/ldap/ldap.conf";
+my $SERVER    = "localhost";
+my $BLACKLIST = "/etc/mail/update-mailboxes.blacklist";
+my $OULIST    = "/etc/mail/update-mailboxes.oulist";
 my $FILTER         = "(&(objectClass=sambaSamAccount))";
 my $MBOX_ATTR      = "uid";
 my $DEFAULT_DOMAIN = "dtele.de";
@@ -38,10 +38,8 @@
 {
     open(my $in, $LDAPCONF);
     $_ = join "", <$in>;
-    ($LDAPBASE) = /^\s*BASE\s+(.*?)\s*$/ms;
-
-    #    ($LDAPSERVER) = /^\s*URI\s+(.*?)\s*$/ms;
-    ($LDAPSERVER) = "ldap://172.20.20.2/";
+    ($LDAPBASE)   = /^\s*BASE\s+(.*?)\s*$/ms;
+    ($LDAPSERVER) = /^\s*URI\s+(.*?)\s*$/ms;
 }
 
 my @OU;
@@ -264,3 +262,4 @@
 =cut
 
 # vim:aw ts=4 sw=4 sts=4:
+